|
version 1.10, 2002/09/17 15:32:46
|
version 1.11, 2003/01/14 22:01:56
|
|
Line 444 sub MultipleSectionSelect {
|
Line 444 sub MultipleSectionSelect {
|
| my $Str = ''; |
my $Str = ''; |
| $Str .= '<select name="Section" multiple="true" size="4">'."\n"; |
$Str .= '<select name="Section" multiple="true" size="4">'."\n"; |
| |
|
| foreach (@$sections) { |
foreach (sort @$sections) { |
| $Str .= '<option'; |
$Str .= '<option'; |
| foreach my $selected (@$selectedSections) { |
foreach my $selected (@$selectedSections) { |
| if($_ eq $selected) { |
if($_ eq $selected) { |
![[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