nicht angemeldet
hi nochmal,
so jetzt gehts ja doch
hier hab ich den neuen code,falls es jemand interessiert:
Delete an item from the cart
sub delete_item {
open (REFFILE,"$reffile")||error('cannot open cart file for read delete_item');;
my @LINES=<REFFILE>;
close(REFFILE);
my $SIZE=@LINES;
my $itemns = $FORM{'Video(s)'};
open (REFFILE,">$reffile")||error('cannot open cart file for write delete_item');;
flock(REFFILE, LOCK_EX)||error('cannot lock cart for write delete_item');
print REFFILE "$date| $host|\n";
for (my $i=1;$i<$SIZE;$i++) {
$_=$LINES[$i];
my($itemname, $itemprice, $itemquant) = split(/|/,$_);
if ($itemns eq $itemname) {
Do nothing
}
else { print REFFILE $_; }
}
close(REFFILE);
print "Location: $cgiurl?command=review\r\n\r\n";
}
Grüsse vom
Alain