version 1.37, 2003/12/29 21:17:00
|
version 1.38, 2004/01/01 20:13:17
|
Line 91 sub textbox {
|
Line 91 sub textbox {
|
############################################## |
############################################## |
############################################## |
############################################## |
sub checkbox { |
sub checkbox { |
my ($name) = @_; |
my ($name,$value) = @_; |
my $Str = '<input type="checkbox" name="'.$name.'" />'; |
my $Str = '<input type="checkbox" name="'.$name.'"'. |
|
($value?' checked="1"':'').' />'; |
return $Str; |
return $Str; |
} |
} |
|
|