[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 />
<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 />
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'>" .