--- loncom/interface/loncommon.pm	2007/01/15 18:04:12	1.500
+++ loncom/interface/loncommon.pm	2007/01/15 20:48:34	1.501
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.500 2007/01/15 18:04:12 albertel Exp $
+# $Id: loncommon.pm,v 1.501 2007/01/15 20:48:34 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1335,8 +1335,15 @@ sub multiple_select_form {
         }
     }
     $output.="\n<select name='$name' size='$size' multiple='1'>";
-    my @order = ref($order) ? @$order
-                            : sort(keys(%$hash));
+    my @order;
+    if ($order) {
+        @order = ref($order) ? @$order
+                             : sort(keys(%$hash));
+    }
+    if (exists($$hash{'select_form_order'})) {
+        @order = @{$$hash{'select_form_order'}};
+    }
+        
     foreach my $key (@order) {
         $output.='<option value="'.&HTML::Entities::encode($key,'"<>&').'" ';
         $output.='selected="selected" ' if ($selected{$key});