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}; |