--- loncom/interface/loncommon.pm 2005/11/08 03:08:15 1.283 +++ loncom/interface/loncommon.pm 2005/11/10 18:05:47 1.287 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.283 2005/11/08 03:08:15 albertel Exp $ +# $Id: loncommon.pm,v 1.287 2005/11/10 18:05:47 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1149,7 +1149,7 @@ sub domain_select { } &get_domains; if ($multiple) { $domains{''}=&mt('Any domain'); - return &multiple_select_form($name,$value,4,%domains); + return &multiple_select_form($name,$value,4,\%domains); } else { return &select_form($name,$value,%domains); } @@ -1159,7 +1159,7 @@ sub domain_select { =pod -=item * multiple_select_form($name,$value,$size,%hash) +=item * multiple_select_form($name,$value,$size,$hash,$order) Returns a string containing a "; - foreach (sort(keys(%$hash))) { - $output.='\n"; + my @order = ref($order) ? @$order + : sort(keys(%$hash)); + foreach my $key (@order) { + $output.='\n"; } $output.="\n"; return $output; @@ -2771,6 +2774,10 @@ sub bodytag { @@ -2879,7 +2886,7 @@ ENDROLE # return(< +
$upperleft $messages