Converted the wobject superclass to use the form processor.

This commit is contained in:
JT Smith 2003-05-06 23:49:12 +00:00
parent c2063082de
commit 402d22e8c9
2 changed files with 65 additions and 35 deletions

View file

@ -431,7 +431,7 @@ The name of the form variable to retrieve.
=item type
The type of form element this variable came from.
The type of form element this variable came from. Defaults to "text" if not specified.
=item default
@ -444,6 +444,7 @@ The default value for this variable. If the variable is undefined then the defau
sub process {
my ($name, $type, $default) = @_;
my $value;
$type = "text" if ($type eq "");
if (exists $session{form}{$name}) {
$value = &$type($name);
} else {