|
version 1.26, 2003/06/20 16:13:06
|
version 1.27, 2003/07/11 16:07:20
|
|
Line 385 the selection box is set to document.$fo
|
Line 385 the selection box is set to document.$fo
|
| |
|
| $size: the size (number of lines) of the selection box. |
$size: the size (number of lines) of the selection box. |
| |
|
| |
$onchange: javascript to use when the value is changed. Enclosed in |
| |
double quotes, ""s, not single quotes. |
| |
|
| Returns: a perl string as described. |
Returns: a perl string as described. |
| |
|
| =cut |
=cut |
|
Line 392 Returns: a perl string as described.
|
Line 395 Returns: a perl string as described.
|
| ############################################## |
############################################## |
| ############################################## |
############################################## |
| sub StatusOptions { |
sub StatusOptions { |
| my ($status, $formName,$size)=@_; |
my ($status, $formName,$size,$onchange)=@_; |
| $size = 1 if (!defined($size)); |
$size = 1 if (!defined($size)); |
| if (! defined($status)) { |
if (! defined($status)) { |
| $status = 'Active'; |
$status = 'Active'; |
|
Line 409 sub StatusOptions {
|
Line 412 sub StatusOptions {
|
| |
|
| my $Str = ''; |
my $Str = ''; |
| $Str .= '<select name="Status"'; |
$Str .= '<select name="Status"'; |
| if(defined($formName) && $formName ne '') { |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
| $Str .= ' onchange="document.'.$formName.'.submit()"'; |
$Str .= ' onchange="document.'.$formName.'.submit()"'; |
| } |
} |
| |
if (defined($onchange)) { |
| |
$Str .= ' onchange="'.$onchange.'"'; |
| |
} |
| $Str .= ' size="'.$size.'" '; |
$Str .= ' size="'.$size.'" '; |
| $Str .= '>'."\n"; |
$Str .= '>'."\n"; |
| $Str .= '<option value="Active" '.$OpSel1.'>'. |
$Str .= '<option value="Active" '.$OpSel1.'>'. |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface