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

bowersj2 lon-capa-cvs@mail.lon-capa.org
Wed, 07 May 2003 19:24:07 -0000


bowersj2		Wed May  7 15:24:07 2003 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  Update to lonhelper.pm
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.22 loncom/interface/lonhelper.pm:1.23
--- loncom/interface/lonhelper.pm:1.22	Wed May  7 14:48:15 2003
+++ loncom/interface/lonhelper.pm	Wed May  7 15:24:07 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.22 2003/05/07 18:48:15 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.23 2003/05/07 19:24:07 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1866,10 +1866,15 @@
 <br /> &nbsp;
 <input type="button" onclick="checkall(true, '$var')" value="Select All Files" />
 <input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />
+BUTTONS
+
+        if ($helper->{VARS}->{'construction'}) {
+            $buttons .= <<BUTTONS;
 <input type="button" onclick="checkallclass(true, 'Published')" value="Select All Published" />
 <input type="button" onclick="checkallclass(false, 'Published')" value="Unselect All Published" />
 <br /> &nbsp;
 BUTTONS
+       }
     }
 
     # Get the list of files in this directory.
@@ -1920,9 +1925,9 @@
             # couldn't figure out how to reach into the event handler's
             # actual code to retreive a value), but it works well enough
             # here.
-
+        
             my $onclick = '';
-            if ($status eq 'Published') {
+            if ($status eq 'Published' && $helper->{VARS}->{'construction'}) {
                 $onclick = 'onclick="a=1" ';
             }
             $result .= '<tr><td align="right"' . " bgcolor='$color'>" .