--- loncom/interface/lonhelper.pm 2003/05/02 19:20:51 1.17
+++ loncom/interface/lonhelper.pm 2003/05/07 18:48:15 1.22
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.17 2003/05/02 19:20:51 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.22 2003/05/07 18:48:15 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -997,17 +997,20 @@ sub render {
if ($self->{'multichoice'}) {
$result .= <<SCRIPT;
<script>
- function checkall(value) {
+ function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {
- document.forms.helpform.elements[i].checked=value;
+ ele = document.forms.helpform.elements[i];
+ if (ele.name == checkName + '.forminput') {
+ document.forms.helpform.elements[i].checked=value;
+ }
}
}
</script>
SCRIPT
$buttons = <<BUTTONS;
<br />
-<input type="button" onclick="checkall(true)" value="Select All" />
-<input type="button" onclick="checkall(false)" value="Unselect All" />
+<input type="button" onclick="checkall(true, '$var')" value="Select All" />
+<input type="button" onclick="checkall(false, '$var')" value="Unselect All" />
<br />
BUTTONS
}
@@ -1474,10 +1477,10 @@ sub render {
if ($self->{'multichoice'}) {
$result = <<SCRIPT;
<script>
- function checkall(value) {
+ function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {
ele = document.forms.helpform.elements[i];
- if (ele.type == "checkbox") {
+ if (ele.name == checkName + '.forminput') {
document.forms.helpform.elements[i].checked=value;
}
}
@@ -1486,8 +1489,8 @@ sub render {
SCRIPT
$buttons = <<BUTTONS;
<br />
-<input type="button" onclick="checkall(true)" value="Select All" />
-<input type="button" onclick="checkall(false)" value="Unselect All" />
+<input type="button" onclick="checkall(true, '$var')" value="Select All Resources" />
+<input type="button" onclick="checkall(false, '$var')" value="Unselect All Resources" />
<br />
BUTTONS
}
@@ -1627,21 +1630,25 @@ sub render {
my $self = shift;
my $result = '';
my $buttons = '';
+ my $var = $self->{'variable'};
if ($self->{'multichoice'}) {
$result = <<SCRIPT;
<script>
- function checkall(value) {
+ function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {
- document.forms.helpform.elements[i].checked=value;
+ ele = document.forms.helpform.elements[i];
+ if (ele.name == checkName + '.forminput') {
+ document.forms.helpform.elements[i].checked=value;
+ }
}
}
</script>
SCRIPT
$buttons = <<BUTTONS;
<br />
-<input type="button" onclick="checkall(true)" value="Select All" />
-<input type="button" onclick="checkall(false)" value="Unselect All" />
+<input type="button" onclick="checkall(true, '$var')" value="Select All Students" />
+<input type="button" onclick="checkall(false, '$var')" value="Unselect All Students" />
<br />
BUTTONS
}
@@ -1682,7 +1689,7 @@ BUTTONS
$checked = 1;
}
$result .=
- " value='" . HTML::Entities::encode($_)
+ " value='" . HTML::Entities::encode($_ . ':' . $choices->{$_}->[$section])
. "' /></td><td>"
. HTML::Entities::encode($choices->{$_}->[$fullname])
. "</td><td align='center'>"
@@ -1828,14 +1835,27 @@ sub render {
my $filterFunc = $self->{FILTER_FUNC};
my $buttons = '';
+ my $type = 'radio';
+ if ($self->{'multichoice'}) {
+ $type = 'checkbox';
+ }
if ($self->{'multichoice'}) {
$result = <<SCRIPT;
<script>
- function checkall(value) {
+ function checkall(value, checkName) {
for (i=0; i<document.forms.helpform.elements.length; i++) {
ele = document.forms.helpform.elements[i];
- if (ele.type == "checkbox") {
+ if (ele.name == checkName + '.forminput') {
+ document.forms.helpform.elements[i].checked=value;
+ }
+ }
+ }
+
+ function checkallclass(value, className) {
+ for (i=0; i<document.forms.helpform.elements.length; i++) {
+ ele = document.forms.helpform.elements[i];
+ if (ele.type == "$type" && ele.onclick) {
document.forms.helpform.elements[i].checked=value;
}
}
@@ -1844,8 +1864,10 @@ sub render {
SCRIPT
$buttons = <<BUTTONS;
<br />
-<input type="button" onclick="checkall(true)" value="Select All" />
-<input type="button" onclick="checkall(false)" value="Unselect All" />
+<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="checkallclass(true, 'Published')" value="Select All Published" />
+<input type="button" onclick="checkallclass(false, 'Published')" value="Unselect All Published" />
<br />
BUTTONS
}
@@ -1869,15 +1891,11 @@ BUTTONS
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
}
- $result .= '<table border="0" cellpadding="1" cellspacing="1">';
+ $result .= '<table border="0" cellpadding="2" cellspacing="0">';
# Keeps track if there are no choices, prints appropriate error
# if there are none.
my $choices = 0;
- my $type = 'radio';
- if ($self->{'multichoice'}) {
- $type = 'checkbox';
- }
# Print each legitimate file choice.
for my $file (@fileList) {
$file = (split(/&/, $file))[0];
@@ -1886,14 +1904,36 @@ BUTTONS
}
my $fileName = $subdir .'/'. $file;
if (&$filterFunc($file)) {
- $result .= '<tr><td align="right">' .
- "<input type='$type' name='" . $var
+ (my $status, my $color) = @{fileState($subdir, $file)};
+
+ # Netscape 4 is stupid and there's nowhere to put the
+ # information on the input tag that the file is Published,
+ # Unpublished, etc. In *real* browsers we can just say
+ # "class='Published'" and check the className attribute of
+ # the input tag, but Netscape 4 is too stupid to understand
+ # that attribute, and un-comprehended attributes are not
+ # reflected into the object model. So instead, what I do
+ # is either have or don't have an "onclick" handler that
+ # does nothing, give Published files the onclick handler, and
+ # have the checker scripts check for that. Stupid and clumsy,
+ # and only gives us binary "yes/no" information (at least I
+ # 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') {
+ $onclick = 'onclick="a=1" ';
+ }
+ $result .= '<tr><td align="right"' . " bgcolor='$color'>" .
+ "<input $onclick type='$type' name='" . $var
. ".forminput' value='" . HTML::Entities::encode($fileName) .
"'";
if (!$self->{'multichoice'} && $choices == 0) {
$result .= ' checked';
}
- $result .= "/></td><td>" . $file . "</td></tr>\n";
+ $result .= "/></td><td bgcolor='$color'>" . $file .
+ "</td><td bgcolor='$color'>$status</td></tr>\n";
$choices++;
}
}
@@ -1909,6 +1949,37 @@ BUTTONS
return $result;
}
+# Determine the state of the file: Published, unpublished, modified.
+# Return the color it should be in and a label as a two-element array
+# reference.
+# Logic lifted from lonpubdir.pm, even though I don't know that it's still
+# the most right thing to do.
+
+sub fileState {
+ my $constructionSpaceDir = shift;
+ my $file = shift;
+
+ my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
+ my $subdirpart = $constructionSpaceDir;
+ $subdirpart =~ s/^\/home\/$ENV{'user.name'}\/public_html//;
+ my $resdir = $docroot . '/res/' . $ENV{'user.domain'} . '/' . $ENV{'user.name'} .
+ $subdirpart;
+
+ my @constructionSpaceFileStat = stat($constructionSpaceDir . '/' . $file);
+ my @resourceSpaceFileStat = stat($resdir . '/' . $file);
+ if (!@resourceSpaceFileStat) {
+ return ['Unpublished', '#FFCCCC'];
+ }
+
+ my $constructionSpaceFileModified = $constructionSpaceFileStat[9];
+ my $resourceSpaceFileModified = $resourceSpaceFileStat[9];
+
+ if ($constructionSpaceFileModified > $resourceSpaceFileModified) {
+ return ['Modified', '#FFFFCC'];
+ }
+ return ['Published', '#CCFFCC'];
+}
+
sub postprocess {
my $self = shift;
my $result = $ENV{'form.' . $self->{'variable'} . '.forminput'};