Hallo,

mit  ssp::cart_write_var('xyz', $irgendwas);  kann ich Cart-Einträge anlegen,
mit  ssp::cart_write_var('xyz', "");   kann ich den Wert löschen
gibt es auch eine Anweisung, cart-Einträge abzufragen und global zu löschen (oder auf "" zu setzen)?

konkret: ich habe eine variable Anzahl (ca 15 - 30 Einträge) die alle mit "name_" beginnen.

ich möchte also gerne sowas machen
if (Carteintrag(?) =~ /name_/) { löschen - oder auf "" setzen }

geht das, oder muss ich da wirklich die maximal mögliche Anzahl einzeln schreiben
ssp::cart_write_var('name_...', "");
...
...
~30x

Hallo dobra,

erinnern Sie sich noch an das serialize-Modul?
Das ist für Ihren Anwendungsfall wahrscheinlich mal wieder genau das richtige ;)
Damit hätten Sie die 10-15 verschiedenen Einstellungen nur in einer einzigen cart-Zeile,
die Sie dann mit einem einzigen Befehl löschen können.

Hallo ahe,

da das doch ein sehr spezielles Thema ist - Antwort per mail

Hallo ahe,

Erfolgsmeldung  ;)

also mit
my $olddata = ssp::cart_read_var('ajax_serialize');
if (length($olddata) && ($olddata ne $ssp::undefined)) {
$SETTINGS = serialize::unserialize($olddata);
}
hab ich's nicht hingekriegt  :(
Wenn ich mir zum testen $SETTINGS mit main::mprint ausgegeben habe, ist sowas (mit wechselndem Code in der Klammer) rausgekommen
HASH(0x1ef82dc)
und damit nix gespeichert sondern alle Werte gelöscht worden

aber mit Ihrem Hinweis hab ich dann nach "Schleifen mit Hashes" gesucht und die Lösung gefunden;

<!--spmacro:module(ajaxconfig)                    
push(@INC,'ajax');
require "JSON.pm";

use serialize;
my %SETTINGS = ();

   my $datastr = ssp::cart_read_var('ajax_serialize');
   my $tmp = serialize::unserialize($datastr);  
   %daten = %$tmp;

print "Content-Type: text/plain;charset=ISO-8859-1\n\n";
#use utf8;
my $pCall = JSON::jsonToObj($main::input);
my %result;
$result{_call} = $pCall;

if ($pCall->{method} eq 'ajaxconfig1') {
...
...
if ($pCall->{method} eq 'ajaxconfig2') {

      my $olddata = ssp::cart_read_var('ajax_serialize');
      if (length($olddata) && ($olddata ne $ssp::undefined)) {
      my $tmp2 = serialize::unserialize($olddata);  
      %daten2 = %$tmp2;
         my $x;
         my $y;
         while (($x, $y) = each(%daten2)) {
           $SETTINGS{$x} = $y;
         }
      }   

my $artikel = $daten{artikel};
   ...
   ...
   div Daten auslesen, db-Abfragen, Bedingungen
   my $w_schritt = $pCall->{params}[2];
   ...
   if ($w_schritt == "1 bis x") {
   ...
   }
   usw, etc,
   bis  Zeile 641
   
ssp::cart_write_var('ajax_serialize', serialize::serialize(\%SETTINGS));
}   
   
print JSON::objToJson(\%result);
exit 0;
   
(hat etwas länger gedauert, aber jetzt funktioniert's  ;D)
und jetzt kann ich auch mit
<!--spmacro:module(ajaxvari)
sub loeschen {
 ssp::cart_write_var('ajax_serialize', "");
 }
-->
alle Werte (egal wieviele gerade im Carteintrag stehen) bequem löschen.

Danke nochmal