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.287, 2005/11/10 18:05:47
Line 1149 sub domain_select {	Line 1149 sub domain_select {
} &get_domains;	} &get_domains;
if ($multiple) {	if ($multiple) {
$domains{''}=&mt('Any domain');	$domains{''}=&mt('Any domain');
return &multiple_select_form($name,$value,4,%domains);	return &multiple_select_form($name,$value,4,\%domains);
} else {	} else {
return &select_form($name,$value,%domains);	return &select_form($name,$value,%domains);
}	}
Line 1159 sub domain_select {	Line 1159 sub domain_select {

=pod	=pod

=item * multiple_select_form($name,$value,$size,%hash)	=item * multiple_select_form($name,$value,$size,$hash,$order)

Returns a string containing a <select> element int multiple mode	Returns a string containing a <select> element int multiple mode

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.'" ';