I have it working I thing pretty well now...the problem was several things,
one of them being what i mentioned earlier....that you have to the "use
HTML::Embperl" after the BEGIN...
Now my session handling is working, and after struggling with an iterative
delete, here's what i came up with:
bash-2.02$ cat delitem.ehtml
[.-
use Util;
Execute({inputfile => "Util.ehtml", import => 1});
$fdat{'!Table'} = "scorders";
$fdat{'!PrimKey'} = "oid";
@items = split(' ', $fdat{'oid'});
-]
[$ foreach $item (@items) $]
[- $fdat{'oid'} = $item -]
[- DBIx::Recordset->Delete(\%fdat) -]
[$ endif $]
[$ if $DBI::errstr $]
<span class=tinytext>[+ $DBI::errstr =~ s/\n/\<br\>/g; +]</span>
[$ else $]
<b>Done!</b> I removed that item from your shopping cart. Your cart now
contains:<p>
[- Execute("showcart.ehtml") -]
[$ endif $]
seems to work ok...so disregard the other pleas for help! ;-) i'm sure i'll
have something tommorrow, though.... :-)
Jon Brisbin
one of them being what i mentioned earlier....that you have to the "use
HTML::Embperl" after the BEGIN...
Now my session handling is working, and after struggling with an iterative
delete, here's what i came up with:
bash-2.02$ cat delitem.ehtml
[.-
use Util;
Execute({inputfile => "Util.ehtml", import => 1});
$fdat{'!Table'} = "scorders";
$fdat{'!PrimKey'} = "oid";
@items = split(' ', $fdat{'oid'});
-]
[$ foreach $item (@items) $]
[- $fdat{'oid'} = $item -]
[- DBIx::Recordset->Delete(\%fdat) -]
[$ endif $]
[$ if $DBI::errstr $]
<span class=tinytext>[+ $DBI::errstr =~ s/\n/\<br\>/g; +]</span>
[$ else $]
<b>Done!</b> I removed that item from your shopping cart. Your cart now
contains:<p>
[- Execute("showcart.ehtml") -]
[$ endif $]
seems to work ok...so disregard the other pleas for help! ;-) i'm sure i'll
have something tommorrow, though.... :-)
Jon Brisbin