loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.505, 2007/01/29 20:17:55	version 1.506, 2007/02/05 18:40:41
Line 1315 Returns a string containing a <select> e	Line 1315 Returns a string containing a <select> e

Args:	Args:
$name - name of the <select> element	$name - name of the <select> element
$value - sclara or array ref of values that should already be selected	$value - scalar or array ref of values that should already be selected
$size - number of rows long the select element is	$size - number of rows long the select element is
$hash - the elements should be 'option' => 'shown text'	$hash - the elements should be 'option' => 'shown text'
(shown text should already have been &mt())	(shown text should already have been &mt())
$order - (optional) array ref of the order to show the elments in	$order - (optional) array ref of the order to show the elements in

=cut	=cut

Line 1336 sub multiple_select_form {	Line 1336 sub multiple_select_form {
}	}
$output.="\n<select name='$name' size='$size' multiple='1'>";	$output.="\n<select name='$name' size='$size' multiple='1'>";
my @order;	my @order;
if ($order) {	if (ref($order) eq 'ARRAY') {
@order = ref($order) ? @$order	@order = @{$order};
: sort(keys(%$hash));	} else {
	@order = sort(keys(%$hash));
}	}
if (exists($$hash{'select_form_order'})) {	if (exists($$hash{'select_form_order'})) {
@order = @{$$hash{'select_form_order'}};	@order = @{$$hash{'select_form_order'}};