loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.285, 2005/11/08 20:23:41	version 1.286, 2005/11/10 00:37:39
Line 1186 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'>";
my @order = ref($order) ? @{$order}	my @order = ref($order) ? @$order
: sort(keys(%$hash));	: sort(keys(%$hash));
foreach my $key (@order) {	foreach my $key (@order) {
$output.='<option value="'.$key.'" ';	$output.='<option value="'.$key.'" ';