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

[banghart]

banghart		Mon Oct  1 14:45:40 2007 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  	Allow &StatusOptions to build select with multiple="multiple"
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.164 loncom/interface/lonhtmlcommon.pm:1.165
--- loncom/interface/lonhtmlcommon.pm:1.164	Thu Sep 27 11:36:23 2007
+++ loncom/interface/lonhtmlcommon.pm	Mon Oct  1 14:45:40 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.164 2007/09/27 15:36:23 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.165 2007/10/01 18:45:40 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -682,7 +682,7 @@
 ##############################################
 ##############################################
 sub StatusOptions {
-    my ($status, $formName,$size,$onchange)=@_;
+    my ($status, $formName,$size,$onchange,$mult)=@_;
     $size = 1 if (!defined($size));
     if (! defined($status)) {
         $status = 'Active';
@@ -691,6 +691,9 @@
 
     my $Str = '';
     $Str .= '<select name="Status"';
+    if (defined($mult)){
+        $Str .= ' multiple="multiple" ';
+    }
     if(defined($formName) && $formName ne '' && ! defined($onchange)) {
         $Str .= ' onchange="document.'.$formName.'.submit()"';
     }