fixed some data entry bugs.

This commit is contained in:
JT Smith 2003-05-25 17:36:20 +00:00
parent 3d7d8dc0a7
commit 3ce64fc0d5
5 changed files with 27 additions and 23 deletions

View file

@ -89,7 +89,7 @@ sub checkbox {
#-------------------------------------------------------------------
=head2 checkboxList ( name )
=head2 checkList ( name )
Returns an array or a carriage return ("\n") separated scalar depending upon whether you're returning the values into an array or a scalar.
@ -103,7 +103,7 @@ The name of the form variable to retrieve.
=cut
sub checkboxList {
sub checkList {
return selectList($_[0]);
}
@ -204,7 +204,7 @@ sub email {
=head2 fieldType ( name )
Returns an array or a carriage return ("\n") separated scalar depending upon whether you're returning the values into an array or a scalar. Defautls to "text".
Returns a field type. Defaults to "text".
=over
@ -217,7 +217,7 @@ The name of the form variable to retrieve.
=cut
sub fieldType {
return (selectList($_[0]) || "text");
return ($session{form}{$_[0]} || "text");
}