|
version 1.283, 2005/11/08 03:08:15
|
version 1.284, 2005/11/08 03:12:35
|
|
Line 1170 Args:
|
Line 1170 Args:
|
| $size - number of rows long the select element is |
$size - number of rows long the select element is |
| $hash - the elements should be 'option' => 'shown text' |
$hash - the elements should be 'option' => 'shown text' |
| (shown text should already have been &mt()) |
(shown text should already have been &mt()) |
| |
$order - (optional) array ref of the order to show the elments in |
| |
|
| =cut |
=cut |
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| sub multiple_select_form { |
sub multiple_select_form { |
| my ($name,$value,$size,$hash)=@_; |
my ($name,$value,$size,$hash,$order)=@_; |
| my %selected = map { $_ => 1 } ref($value)?@{$value}:($value); |
my %selected = map { $_ => 1 } ref($value)?@{$value}:($value); |
| my $output=''; |
my $output=''; |
| if (! defined($size)) { |
if (! defined($size)) { |
|
Line 1185 sub multiple_select_form {
|
Line 1186 sub multiple_select_form {
|
| } |
} |
| } |
} |
| $output.="\n<select name='$name' size='$size' multiple='1'>"; |
$output.="\n<select name='$name' size='$size' multiple='1'>"; |
| foreach (sort(keys(%$hash))) { |
my @order = ref($order) ? @{$order} |
| $output.='<option value="'.$_.'" '; |
: sort(keys(%$hash)); |
| $output.='selected="selected" ' if ($selected{$_}); |
foreach my $key (@order) { |
| $output.='>'.$hash->{$_}."</option>\n"; |
$output.='<option value="'.$key.'" '; |
| |
$output.='selected="selected" ' if ($selected{$key}); |
| |
$output.='>'.$hash->{$key}."</option>\n"; |
| } |
} |
| $output.="</select>\n"; |
$output.="</select>\n"; |
| return $output; |
return $output; |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface