bug fixes from running t/FormGetName.t

This commit is contained in:
Colin Kuskie 2006-01-15 05:18:11 +00:00
parent 3b06849a80
commit 6a9a63c4b0
26 changed files with 70 additions and 47 deletions

View file

@ -522,6 +522,29 @@ sub session {
}
#-------------------------------------------------------------------
=head2 set ( key, var )
Set a property of this form object.
=head3 key
The name of the property to set.
=head3 var
The value to set the property to.
=cut
sub set {
my $self = shift;
my $key = shift;
my $value = shift;
$self->{_params}{$key} = $value;
}
#-------------------------------------------------------------------
=head2 toHtml ( )