--- loncom/interface/lonhelper.pm 2003/04/30 18:40:49 1.14
+++ loncom/interface/lonhelper.pm 2003/05/07 19:24:07 1.23
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.14 2003/04/30 18:40:49 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.23 2003/05/07 19:24:07 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -149,7 +149,11 @@ of the information used is persistent be
and -maintain code.
It is possible to do some of the work with an XML fragment parsed by
-lonxml; again, see lonprintout.pm for an example.
+lonxml; again, see lonprintout.pm for an example. In that case it is
+imperative that you call B<Apache::lonhelper::registerHelperTags()>
+before parsing XML fragments and B<Apache::lonhelper::unregisterHelperTags()>
+when you are done. See lonprintout.pm for examples of this usage in the
+printHelper subroutine.
=cut
@@ -462,7 +466,7 @@ sub process {
# Phase 2: Preprocess current state
my $startState = $self->{STATE};
- my $state = $self->{STATES}{$startState};
+ my $state = $self->{STATES}->{$startState};
# For debugging, print something here to determine if you're going
# to an undefined state.
@@ -473,10 +477,11 @@ sub process {
# Phase 3: While the current state is different from the previous state,
# keep processing.
- while ( $startState ne $self->{STATE} )
+ while ( $startState ne $self->{STATE} &&
+ defined($self->{STATES}->{$self->{STATE}}) )
{
$startState = $self->{STATE};
- $state = $self->{STATES}{$startState};
+ $state = $self->{STATES}->{$startState};
$state->preprocess();
}
@@ -495,6 +500,11 @@ sub display {
my $result = "";
+ if (!defined($state)) {
+ $result = "<font color='#ff0000'>Error: state '$state' not defined!</font>";
+ return $result;
+ }
+
# Phase 4: Display.
my $stateTitle = $state->title();
my $bodytag = &Apache::loncommon::bodytag("$self->{TITLE}",'','');
@@ -987,22 +997,25 @@ sub render {
if ($self->{'multichoice'}) {
$result .= <<SCRIPT;
<script>
- function checkall(value) {
- for (i=0; i<document.forms.wizform.elements.length; i++) {
- document.forms.wizform.elements[i].checked=value;
+ function checkall(value, checkName) {
+ for (i=0; i<document.forms.helpform.elements.length; i++) {
+ 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
}
- if (defined $self->{ERRO_MSG}) {
+ if (defined $self->{ERROR_MSG}) {
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';
}
@@ -1295,7 +1308,10 @@ the user can manipulate the folders.
<resource> takes the standard variable attribute to control what helper
variable stores the results. It also takes a "multichoice" attribute,
-which controls whether the user can select more then one resource.
+which controls whether the user can select more then one resource. The
+"toponly" attribute controls whether the resource display shows just the
+resources in that sequence, or recurses into all sub-sequences, defaulting
+to false.
B<SUB-TAGS>
@@ -1356,6 +1372,7 @@ sub start_resource {
$paramHash->{'variable'} = $token->[2]{'variable'};
$helper->declareVar($paramHash->{'variable'});
$paramHash->{'multichoice'} = $token->[2]{'multichoice'};
+ $paramHash->{'toponly'} = $token->[2]{'toponly'};
return '';
}
@@ -1455,10 +1472,35 @@ sub render {
my $var = $self->{'variable'};
my $curVal = $helper->{VARS}->{$var};
+ my $buttons = '';
+
+ if ($self->{'multichoice'}) {
+ $result = <<SCRIPT;
+<script>
+ function checkall(value, checkName) {
+ for (i=0; i<document.forms.helpform.elements.length; i++) {
+ 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, '$var')" value="Select All Resources" />
+<input type="button" onclick="checkall(false, '$var')" value="Unselect All Resources" />
+<br />
+BUTTONS
+ }
+
if (defined $self->{ERROR_MSG}) {
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
}
+ $result .= $buttons;
+
my $filterFunc = $self->{FILTER_FUNC};
my $choiceFunc = $self->{CHOICE_FUNC};
my $valueFunc = $self->{VALUE_FUNC};
@@ -1491,7 +1533,7 @@ sub render {
}
};
- $ENV{'form.condition'} = 1;
+ $ENV{'form.condition'} = !$self->{'toponly'};
$result .=
&Apache::lonnavmaps::render( { 'cols' => [$renderColFunc,
Apache::lonnavmaps::resource()],
@@ -1500,6 +1542,8 @@ sub render {
'resource_no_folder_link' => 1,
'iterator_map' => $mapUrl }
);
+
+ $result .= $buttons;
return $result;
}
@@ -1586,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) {
- for (i=0; i<document.forms.wizform.elements.length; i++) {
- document.forms.wizform.elements[i].checked=value;
+ function checkall(value, checkName) {
+ for (i=0; i<document.forms.helpform.elements.length; i++) {
+ 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
}
@@ -1641,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'>"
@@ -1787,26 +1835,46 @@ 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) {
- for (i=0; i<document.forms.wizform.elements.length; i++) {
- ele = document.forms.wizform.elements[i];
- if (ele.type == "checkbox") {
- document.forms.wizform.elements[i].checked=value;
+ function checkall(value, checkName) {
+ for (i=0; i<document.forms.helpform.elements.length; i++) {
+ ele = document.forms.helpform.elements[i];
+ 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;
}
}
}
</script>
SCRIPT
- my $buttons = <<BUTTONS;
+ $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" />
+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.
@@ -1828,15 +1896,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];
@@ -1845,14 +1909,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' && $helper->{VARS}->{'construction'}) {
+ $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++;
}
}
@@ -1868,6 +1954,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'};