[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[banghart]

banghart		Wed Nov  9 19:37:39 2005 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  	undefined $order in multiple select form didn't work,
  	now it does. Seems still to work if $order is defined.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.285 loncom/interface/loncommon.pm:1.286
--- loncom/interface/loncommon.pm:1.285	Tue Nov  8 15:23:41 2005
+++ loncom/interface/loncommon.pm	Wed Nov  9 19:37:39 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.285 2005/11/08 20:23:41 albertel Exp $
+# $Id: loncommon.pm,v 1.286 2005/11/10 00:37:39 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1186,7 +1186,7 @@
         }
     }
     $output.="\n<select name='$name' size='$size' multiple='1'>";
-    my @order = ref($order) ? @{$order}
+    my @order = ref($order) ? @$order
                             : sort(keys(%$hash));
     foreach my $key (@order) {
         $output.='<option value="'.$key.'" ';