![[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|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.733, 2009/01/16 14:47:13 | version 1.734, 2009/01/20 16:38:38 |
|---|---|
| Line 1635 sub multiple_select_form { | Line 1635 sub multiple_select_form { |
| $size = scalar(keys(%$hash)); | $size = scalar(keys(%$hash)); |
| } | } |
| } | } |
| $output.="\n<select name='$name' size='$size' multiple='1'>"; | $output.="\n".'<select name="'.$name.'" size="'.$size.'" multiple="multiple">'; |
| my @order; | my @order; |
| if (ref($order) eq 'ARRAY') { | if (ref($order) eq 'ARRAY') { |
| @order = @{$order}; | @order = @{$order}; |