[LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm
bowersj2
lon-capa-cvs@mail.lon-capa.org
Wed, 07 May 2003 18:22:43 -0000
bowersj2 Wed May 7 14:22:43 2003 EDT
Modified files:
/loncom/interface lonhelper.pm
Log:
Add the ability to select or unselect published files.
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.20 loncom/interface/lonhelper.pm:1.21
--- loncom/interface/lonhelper.pm:1.20 Wed May 7 14:13:13 2003
+++ loncom/interface/lonhelper.pm Wed May 7 14:22:43 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.20 2003/05/07 18:13:13 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.21 2003/05/07 18:22:43 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1847,12 +1847,23 @@
}
}
}
+
+ function checkallid(value, idName) {
+ for (i=0; i<document.forms.helpform.elements.length; i++) {
+ ele = document.forms.helpform.elements[i];
+ if (ele.id == idName) {
+ document.forms.helpform.elements[i].checked=value;
+ }
+ }
+ }
</script>
SCRIPT
$buttons = <<BUTTONS;
<br />
<input type="button" onclick="checkall(true, '$var')" value="Select All Files" />
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />
+<input type="button" onclick="checkallid(true, 'Published')" value="Select All Published" />
+<input type="button" onclick="checkallid(false, 'Published')" value="Unselect All Published" />
<br />
BUTTONS
}
@@ -1895,7 +1906,7 @@
if (&$filterFunc($file)) {
(my $status, my $color) = @{fileState($subdir, $file)};
$result .= '<tr><td align="right"' . " bgcolor='$color'>" .
- "<input type='$type' name='" . $var
+ "<input id='$status' type='$type' name='" . $var
. ".forminput' value='" . HTML::Entities::encode($fileName) .
"'";
if (!$self->{'multichoice'} && $choices == 0) {