my($self, $cgi, $config) = @_; my $string; for(keys %$cgi) { next if $_ eq 'item'; $string .= main::cgi_encode($_) . '=' . main::cgi_encode($cgi->{$_}).'&'; } $string =~ s/\&$//; print $standardheader; print q~

.$just ie .$else .$end .$just ie .$else .$end

.$just ie .$end EOF