version 1.164, 2007/09/27 15:36:23
|
version 1.165, 2007/10/01 18:45:40
|
Line 682 Returns: a perl string as described.
|
Line 682 Returns: a perl string as described.
|
############################################## |
############################################## |
############################################## |
############################################## |
sub StatusOptions { |
sub StatusOptions { |
my ($status, $formName,$size,$onchange)=@_; |
my ($status, $formName,$size,$onchange,$mult)=@_; |
$size = 1 if (!defined($size)); |
$size = 1 if (!defined($size)); |
if (! defined($status)) { |
if (! defined($status)) { |
$status = 'Active'; |
$status = 'Active'; |
Line 691 sub StatusOptions {
|
Line 691 sub StatusOptions {
|
|
|
my $Str = ''; |
my $Str = ''; |
$Str .= '<select name="Status"'; |
$Str .= '<select name="Status"'; |
|
if (defined($mult)){ |
|
$Str .= ' multiple="multiple" '; |
|
} |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
$Str .= ' onchange="document.'.$formName.'.submit()"'; |
$Str .= ' onchange="document.'.$formName.'.submit()"'; |
} |
} |