fixed some data entry bugs.
This commit is contained in:
parent
3d7d8dc0a7
commit
3ce64fc0d5
5 changed files with 27 additions and 23 deletions
|
|
@ -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");
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue