version 1.20, 2004/04/23 19:39:25
|
version 1.21, 2004/04/24 00:41:51
|
Line 57 sub handler {
|
Line 57 sub handler {
|
|
|
foreach (split(/\:/,$ENV{'form.parms'})) { |
foreach (split(/\:/,$ENV{'form.parms'})) { |
my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); |
my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); |
|
unless ($pname) { next; } |
unless ($type{$pname}) { $type{$pname}=$ptype; } |
unless ($type{$pname}) { $type{$pname}=$ptype; } |
$value{$pname}=$pvalue; |
$value{$pname}=$pvalue; |
$content{$pname}=$pvalue; |
$content{$pname}=$pvalue; |