--- loncom/interface/lonhelper.pm 2003/04/11 19:07:48 1.10
+++ loncom/interface/lonhelper.pm 2003/04/30 18:40:49 1.14
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.10 2003/04/11 19:07:48 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.14 2003/04/30 18:40:49 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -84,6 +84,73 @@ Of course this does nothing. In order fo
necessary to put actual elements into the wizard. Documentation for each
of these elements follows.
+=head2 Creating a Helper With Code, Not XML
+
+In some situations, such as the printing wizard (see lonprintout.pm),
+writing the helper in XML would be too complicated, because of scope
+issues or the fact that the code actually outweighs the XML. It is
+possible to create a helper via code, though it is a little odd.
+
+Creating a helper via code is more like issuing commands to create
+a helper then normal code writing. For instance, elements will automatically
+be added to the last state created, so it's important to create the
+states in the correct order.
+
+First, create a new helper:
+
+ use Apache::lonhelper;
+
+ my $helper = Apache::lonhelper::new->("Helper Title");
+
+Next you'll need to manually add states to the helper:
+
+ Apache::lonhelper::state->new("STATE_NAME", "State's Human Title");
+
+You don't need to save a reference to it because all elements up until
+the next state creation will automatically be added to this state.
+
+Elements are created by populating the $paramHash in
+Apache::lonhelper::paramhash. To prevent namespace issues, retrieve
+a reference to that has with getParamHash:
+
+ my $paramHash = Apache::lonhelper::getParamHash();
+
+You will need to do this for each state you create.
+
+Populate the $paramHash with the parameters for the element you wish
+to add next; the easiest way to find out what those entries are is
+to read the code. Some common ones are 'variable' to record the variable
+to store the results in, and NEXTSTATE to record a next state transition.
+
+Then create your element:
+
+ $paramHash->{MESSAGETEXT} = "This is a message.";
+ Apache::lonhelper::message->new();
+
+The creation will take the $paramHash and bless it into a
+Apache::lonhelper::message object. To create the next element, you need
+to get a reference to the new, empty $paramHash:
+
+ $paramHash = Apache::lonhelper::getParamHash();
+
+and you can repeat creating elements that way. You can add states
+and elements as needed.
+
+See lonprintout.pm, subroutine printHelper for an example of this, where
+we dynamically add some states to prevent security problems, for instance.
+
+Normally the machinery in the XML format is sufficient; dynamically
+adding states can easily be done by wrapping the state in a <condition>
+tag. This should only be used when the code dominates the XML content,
+the code is so complicated that it is difficult to get access to
+all of the information you need because of scoping issues, or so much
+of the information used is persistent because would-be <exec> or
+<eval> blocks that using the {DATA} mechanism results in hard-to-read
+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.
+
=cut
package Apache::lonhelper;
@@ -122,16 +189,19 @@ my $substate;
# end of the element tag is located.
my $paramHash;
+# For debugging purposes, one can send a second parameter into this
+# function, the 'uri' of the helper you wish to have rendered, and
+# call this from other handlers.
sub handler {
my $r = shift;
- $ENV{'request.uri'} = $r->uri();
- my $filename = '/home/httpd/html' . $r->uri();
+ my $uri = shift;
+ if (!defined($uri)) { $uri = $r->uri(); }
+ $ENV{'request.uri'} = $uri;
+ my $filename = '/home/httpd/html' . $uri;
my $fh = Apache::File->new($filename);
my $file;
read $fh, $file, 100000000;
- Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
-
# Send header, don't cache this page
if ($r->header_only) {
if ($ENV{'browser.mathml'}) {
@@ -154,10 +224,24 @@ sub handler {
# xml parsing
&Apache::lonxml::xmlparse($r, 'helper', $file);
+ $helper->process();
+
$r->print($helper->display());
return OK;
}
+sub registerHelperTags {
+ for my $tagList (@helperTags) {
+ Apache::lonxml::register($tagList->[0], $tagList->[1]);
+ }
+}
+
+sub unregisterHelperTags {
+ for my $tagList (@helperTags) {
+ Apache::lonxml::deregister($tagList->[0], $tagList->[1]);
+ }
+}
+
sub start_helper {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
@@ -165,11 +249,9 @@ sub start_helper {
return '';
}
- for my $tagList (@helperTags) {
- Apache::lonxml::register($tagList->[0], $tagList->[1]);
- }
-
- $helper = Apache::lonhelper::helper->new($token->[2]{'title'});
+ registerHelperTags();
+
+ Apache::lonhelper::helper->new($token->[2]{'title'});
return '';
}
@@ -180,9 +262,7 @@ sub end_helper {
return '';
}
- for my $tagList (@helperTags) {
- Apache::lonxml::deregister($tagList->[0], $tagList->[1]);
- }
+ unregisterHelperTags();
return '';
}
@@ -194,11 +274,22 @@ sub start_state {
return '';
}
- $state = Apache::lonhelper::state->new($token->[2]{'name'},
- $token->[2]{'title'});
+ Apache::lonhelper::state->new($token->[2]{'name'},
+ $token->[2]{'title'});
return '';
}
+# Use this to get the param hash from other files.
+sub getParamHash {
+ return $paramHash;
+}
+
+# Use this to get the helper, if implementing elements in other files
+# (like lonprintout.pm)
+sub getHelper {
+ return $helper;
+}
+
# don't need this, so ignore it
sub end_state {
return '';
@@ -231,6 +322,8 @@ sub new {
$self->{STATE} = "START";
}
+ Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
+
$self->{TOKEN} = $ENV{'form.TOKEN'};
# If a token was passed, we load that in. Otherwise, we need to create a
# new storage file
@@ -287,6 +380,11 @@ sub new {
# for an example.
$self->{DATA} = {};
+ $helper = $self;
+
+ # Establish the $paramHash
+ $paramHash = {};
+
bless($self, $class);
return $self;
}
@@ -347,23 +445,15 @@ sub registerState {
$self->{STATES}{$stateName} = $state;
}
-# Done in four phases
-# 1: Do the post processing for the previous state.
-# 2: Do the preprocessing for the current state.
-# 3: Check to see if state changed, if so, postprocess current and move to next.
-# Repeat until state stays stable.
-# 4: Render the current state to the screen as an HTML page.
-sub display {
+sub process {
my $self = shift;
- my $result = "";
-
# Phase 1: Post processing for state of previous screen (which is actually
# the "current state" in terms of the helper variables), if it wasn't the
# beginning state.
if ($self->{STATE} ne "START" || $ENV{"form.SUBMIT"} eq "Next ->") {
my $prevState = $self->{STATES}{$self->{STATE}};
- $prevState->postprocess();
+ $prevState->postprocess();
}
# Note, to handle errors in a state's input that a user must correct,
@@ -374,11 +464,10 @@ sub display {
my $startState = $self->{STATE};
my $state = $self->{STATES}{$startState};
- # Error checking; it is intended that the developer will have
- # checked all paths and the user can't see this!
+ # For debugging, print something here to determine if you're going
+ # to an undefined state.
if (!defined($state)) {
- $result .="Error! The state ". $startState ." is not defined.";
- return $result;
+ return;
}
$state->preprocess();
@@ -391,6 +480,21 @@ sub display {
$state->preprocess();
}
+ return;
+}
+
+# 1: Do the post processing for the previous state.
+# 2: Do the preprocessing for the current state.
+# 3: Check to see if state changed, if so, postprocess current and move to next.
+# Repeat until state stays stable.
+# 4: Render the current state to the screen as an HTML page.
+sub display {
+ my $self = shift;
+
+ my $state = $self->{STATES}{$self->{STATE}};
+
+ my $result = "";
+
# Phase 4: Display.
my $stateTitle = $state->title();
my $bodytag = &Apache::loncommon::bodytag("$self->{TITLE}",'','');
@@ -402,7 +506,7 @@ sub display {
</head>
$bodytag
HEADER
- if (!$state->overrideForm()) { $result.="<form name='wizform' method='GET'>"; }
+ if (!$state->overrideForm()) { $result.="<form name='helpform' method='GET'>"; }
$result .= <<HEADER;
<table border="0"><tr><td>
<h2><i>$stateTitle</i></h2>
@@ -430,9 +534,9 @@ HEADER
$result .= "</center>\n";
}
- foreach my $key (keys %{$self->{VARS}}) {
- $result .= "|$key| -> " . $self->{VARS}->{$key} . "<br />";
- }
+ #foreach my $key (keys %{$self->{VARS}}) {
+ # $result .= "|$key| -> " . $self->{VARS}->{$key} . "<br />";
+ #}
$result .= <<FOOTER;
</td>
@@ -474,6 +578,8 @@ sub new {
$helper->registerState($self);
+ $state = $self;
+
return $self;
}
@@ -517,7 +623,16 @@ sub postprocess {
}
}
+# Override the form if any element wants to.
+# two elements overriding the form will make a mess, but that should
+# be considered helper author error ;-)
sub overrideForm {
+ my $self = shift;
+ for my $element (@{$self->{ELEMENTS}}) {
+ if ($element->overrideForm()) {
+ return 1;
+ }
+ }
return 0;
}
@@ -616,27 +731,28 @@ sub render {
return '';
}
+sub overrideForm {
+ return 0;
+}
+
sub process_multiple_choices {
my $self = shift;
my $formname = shift;
my $var = shift;
- my $formvalue = $ENV{'form.' . $formname};
- if ($formvalue) {
- # Must extract values from querystring directly, as there
- # may be more then one.
- my @values;
- for my $formparam (split (/&/, $ENV{QUERY_STRING})) {
- my ($name, $value) = split(/=/, $formparam);
- if ($name ne $formname) {
- next;
- }
- $value =~ tr/+/ /;
- $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
- push @values, $value;
+ # Must extract values from data directly, as there
+ # may be more then one.
+ my @values;
+ for my $formparam (split (/&/, $ENV{QUERY_STRING})) {
+ my ($name, $value) = split(/=/, $formparam);
+ if ($name ne $formname) {
+ next;
}
- $helper->{VARS}->{$var} = join('|||', @values);
+ $value =~ tr/+/ /;
+ $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+ push @values, $value;
}
+ $helper->{VARS}->{$var} = join('|||', @values);
return;
}
@@ -766,6 +882,11 @@ B<SUB-TAGS>
For example,
<choice computer='234-12-7312'>Bobby McDormik</choice>.
+ <choice> can take a parameter "eval", which if set to
+ a true value, will cause the contents of the tag to be
+ evaluated as it would be in an <eval> tag; see <eval> tag
+ below.
+
<choice> may optionally contain a 'nextstate' attribute, which
will be the state transisitoned to if the choice is made, if
the choice is not multichoice.
@@ -846,7 +967,9 @@ sub start_choice {
my $human = &Apache::lonxml::get_all_text('/choice',
$parser);
my $nextstate = $token->[2]{'nextstate'};
- push @{$paramHash->{CHOICES}}, [$human, $computer, $nextstate];
+ my $evalFlag = $token->[2]{'eval'};
+ push @{$paramHash->{CHOICES}}, [$human, $computer, $nextstate,
+ $evalFlag];
return '';
}
@@ -879,7 +1002,7 @@ SCRIPT
BUTTONS
}
- if (defined $self->{ERROR_MSG}) {
+ if (defined $self->{ERRO_MSG}) {
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';
}
@@ -900,7 +1023,14 @@ BUTTONS
$result .= " checked ";
$checked = 1;
}
- $result .= "/></td><td> " . $choice->[0] . "</td></tr>\n";
+ my $choiceLabel = $choice->[0];
+ if ($choice->[4]) { # if we need to evaluate this choice
+ $choiceLabel = "sub { my $helper = shift; my $state = shift;" .
+ $choiceLabel . "}";
+ $choiceLabel = eval($choiceLabel);
+ $choiceLabel = &$choiceLabel($helper, $self);
+ }
+ $result .= "/></td><td> " . $choiceLabel . "</td></tr>\n";
}
$result .= "</table>\n\n\n";
$result .= $buttons;
@@ -1192,6 +1322,9 @@ B<SUB-TAGS>
"}" returns a string representing what you want to have as the value. By
default, the value will be the resource ID of the object ($res->{ID}).
+=item * <mapurl>: If the URL of a map is given here, only that map
+ will be displayed, instead of the whole course.
+
=back
=cut
@@ -1203,7 +1336,8 @@ use strict;
BEGIN {
&Apache::lonhelper::register('Apache::lonhelper::resource',
('resource', 'filterfunc',
- 'choicefunc', 'valuefunc'));
+ 'choicefunc', 'valuefunc',
+ 'mapurl'));
}
sub new {
@@ -1221,6 +1355,7 @@ sub start_resource {
$paramHash->{'variable'} = $token->[2]{'variable'};
$helper->declareVar($paramHash->{'variable'});
+ $paramHash->{'multichoice'} = $token->[2]{'multichoice'};
return '';
}
@@ -1288,6 +1423,20 @@ sub start_valuefunc {
sub end_valuefunc { return ''; }
+sub start_mapurl {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+
+ if ($target ne 'helper') {
+ return '';
+ }
+
+ my $contents = Apache::lonxml::get_all_text('/mapurl',
+ $parser);
+ $paramHash->{MAP_URL} = $contents;
+}
+
+sub end_mapurl { return ''; }
+
# A note, in case I don't get to this before I leave.
# If someone complains about the "Back" button returning them
# to the previous folder state, instead of returning them to
@@ -1307,12 +1456,14 @@ sub render {
my $curVal = $helper->{VARS}->{$var};
if (defined $self->{ERROR_MSG}) {
- $result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
+ $result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
}
my $filterFunc = $self->{FILTER_FUNC};
my $choiceFunc = $self->{CHOICE_FUNC};
my $valueFunc = $self->{VALUE_FUNC};
+ my $mapUrl = $self->{MAP_URL};
+ my $multichoice = $self->{'multichoice'};
# Create the composite function that renders the column on the nav map
# have to admit any language that lets me do this can't be all bad
@@ -1320,12 +1471,16 @@ sub render {
my $checked = 0;
my $renderColFunc = sub {
my ($resource, $part, $params) = @_;
-
+
+ my $inputType;
+ if ($multichoice) { $inputType = 'checkbox'; }
+ else {$inputType = 'radio'; }
+
if (!&$choiceFunc($resource)) {
return '<td> </td>';
} else {
- my $col = "<td><input type='radio' name='${var}.forminput' ";
- if (!$checked) {
+ my $col = "<td><input type='$inputType' name='${var}.forminput' ";
+ if (!$checked && !$multichoice) {
$col .= "checked ";
$checked = 1;
}
@@ -1341,9 +1496,9 @@ sub render {
&Apache::lonnavmaps::render( { 'cols' => [$renderColFunc,
Apache::lonnavmaps::resource()],
'showParts' => 0,
- 'url' => $helper->{URL},
'filterFunc' => $filterFunc,
- 'resource_no_folder_link' => 1 }
+ 'resource_no_folder_link' => 1,
+ 'iterator_map' => $mapUrl }
);
return $result;
@@ -1351,6 +1506,17 @@ sub render {
sub postprocess {
my $self = shift;
+
+ if ($self->{'multichoice'}) {
+ $self->process_multiple_choices($self->{'variable'}.'.forminput',
+ $self->{'variable'});
+ }
+
+ if ($self->{'multichoice'} && !$helper->{VARS}->{$self->{'variable'}}) {
+ $self->{ERROR_MSG} = 'You must choose at least one resource to continue.';
+ return 0;
+ }
+
if (defined($self->{NEXTSTATE})) {
$helper->changeState($self->{NEXTSTATE});
}
@@ -1401,6 +1567,10 @@ sub start_student {
$paramHash->{'variable'} = $token->[2]{'variable'};
$helper->declareVar($paramHash->{'variable'});
$paramHash->{'multichoice'} = $token->[2]{'multichoice'};
+ if (defined($token->[2]{'nextstate'})) {
+ $paramHash->{NEXTSTATE} = $token->[2]{'nextstate'};
+ }
+
}
sub end_student {
@@ -1441,7 +1611,6 @@ BUTTONS
# Load up the students
my $choices = &Apache::loncoursedata::get_classlist();
-
my @keys = keys %{$choices};
# Constants
@@ -1611,6 +1780,9 @@ sub render {
my $var = $self->{'variable'};
my $subdirFunc = eval('sub {' . $self->{'filechoice'} . '}');
+ die 'Error in resource filter code for variable ' .
+ {'variable'} . ', Perl said:' . $@ if $@;
+
my $subdir = &$subdirFunc();
my $filterFunc = $self->{FILTER_FUNC};
@@ -1718,6 +1890,80 @@ sub postprocess {
1;
+package Apache::lonhelper::section;
+
+=pod
+
+=head2 Element: section
+
+<section> allows the user to choose one or more sections from the current
+course.
+
+It takes the standard attributes "variable", "multichoice", and
+"nextstate", meaning what they do for most other elements.
+
+=cut
+
+no strict;
+@ISA = ("Apache::lonhelper::choices");
+use strict;
+
+BEGIN {
+ &Apache::lonhelper::register('Apache::lonhelper::section',
+ ('section'));
+}
+
+sub new {
+ my $ref = Apache::lonhelper::choices->new();
+ bless($ref);
+}
+
+sub start_section {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+
+ if ($target ne 'helper') {
+ return '';
+ }
+
+ $paramHash->{CHOICES} = [];
+
+ $paramHash->{'variable'} = $token->[2]{'variable'};
+ $helper->declareVar($paramHash->{'variable'});
+ $paramHash->{'multichoice'} = $token->[2]{'multichoice'};
+ if (defined($token->[2]{'nextstate'})) {
+ $paramHash->{NEXTSTATE} = $token->[2]{'nextstate'};
+ }
+
+ # Populate the CHOICES element
+ my %choices;
+
+ my $section = Apache::loncoursedata::CL_SECTION();
+ my $classlist = Apache::loncoursedata::get_classlist();
+ foreach (keys %$classlist) {
+ my $sectionName = $classlist->{$_}->[$section];
+ if (!$sectionName) {
+ $choices{"No section assigned"} = "";
+ } else {
+ $choices{$sectionName} = $sectionName;
+ }
+ }
+
+ for my $sectionName (sort(keys(%choices))) {
+
+ push @{$paramHash->{CHOICES}}, [$sectionName, $sectionName];
+ }
+}
+
+sub end_section {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+
+ if ($target ne 'helper') {
+ return '';
+ }
+ Apache::lonhelper::section->new();
+}
+1;
+
package Apache::lonhelper::general;
=pod
@@ -1748,7 +1994,8 @@ be able to call methods on it.
BEGIN {
&Apache::lonhelper::register('Apache::lonhelper::general',
- 'exec', 'condition', 'clause');
+ 'exec', 'condition', 'clause',
+ 'eval');
}
sub start_exec {
@@ -1762,6 +2009,7 @@ sub start_exec {
$code = eval ('sub { my $helper = shift; my $state = shift; ' .
$code . "}");
+ die 'Error in <exec>, Perl said: '. $@ if $@;
&$code($helper, $paramHash);
}
@@ -1799,6 +2047,7 @@ sub start_clause {
my $clause = Apache::lonxml::get_all_text('/clause', $parser);
$clause = eval('sub { my $helper = shift; my $state = shift; '
. $clause . '}');
+ die 'Error in clause of condition, Perl said: ' . $@ if $@;
if (!&$clause($helper, $paramHash)) {
# Discard all text until the /condition.
&Apache::lonxml::get_all_text('/condition', $parser);
@@ -1807,6 +2056,188 @@ sub start_clause {
sub end_clause { return ''; }
+=pod
+
+=head2 General-purpose tag: <eval>
+
+The <eval> tag will be evaluated as a subroutine call passed in the
+current helper object and state hash as described in <condition> above,
+but is expected to return a string to be printed directly to the
+screen. This is useful for dynamically generating messages.
+
+=cut
+
+# This is basically a type of message.
+# Programmatically setting $paramHash->{NEXTSTATE} would work, though
+# it's probably bad form.
+
+sub start_eval {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+
+ if ($target ne 'helper') {
+ return '';
+ }
+
+ my $program = Apache::lonxml::get_all_text('/eval', $parser);
+ $program = eval('sub { my $helper = shift; my $state = shift; '
+ . $program . '}');
+ die 'Error in eval code, Perl said: ' . $@ if $@;
+ $paramHash->{MESSAGE_TEXT} = &$program($helper, $paramHash);
+}
+
+sub end_eval {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+
+ if ($target ne 'helper') {
+ return '';
+ }
+
+ Apache::lonhelper::message->new();
+}
+
+1;
+
+package Apache::lonhelper::parmwizfinal;
+
+# This is the final state for the parmwizard. It is not generally useful,
+# so it is not perldoc'ed. It does its own processing.
+# It is represented with <parmwizfinal />, and
+# should later be moved to lonparmset.pm .
+
+no strict;
+@ISA = ('Apache::lonhelper::element');
+use strict;
+
+BEGIN {
+ &Apache::lonhelper::register('Apache::lonhelper::parmwizfinal',
+ ('parmwizfinal'));
+}
+
+use Time::localtime;
+
+sub new {
+ my $ref = Apache::lonhelper::choices->new();
+ bless ($ref);
+}
+
+sub start_parmwizfinal { return ''; }
+
+sub end_parmwizfinal {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+
+ if ($target ne 'helper') {
+ return '';
+ }
+ Apache::lonhelper::parmwizfinal->new();
+}
+
+# Renders a form that, when submitted, will form the input to lonparmset.pm
+sub render {
+ my $self = shift;
+ my $vars = $helper->{VARS};
+
+ # FIXME: Unify my designators with the standard ones
+ my %dateTypeHash = ('open_date' => "Opening Date",
+ 'due_date' => "Due Date",
+ 'answer_date' => "Answer Date");
+ my %parmTypeHash = ('open_date' => "0_opendate",
+ 'due_date' => "0_duedate",
+ 'answer_date' => "0_answerdate");
+
+ my $result = "<form name='helpform' method='get' action='/adm/parmset'>\n";
+ $result .= '<p>Confirm that this information is correct, then click "Finish Wizard" to complete setting the parameter.<ul>';
+ my $affectedResourceId = "";
+ my $parm_name = $parmTypeHash{$vars->{ACTION_TYPE}};
+ my $level = "";
+
+ # Print the type of manipulation:
+ $result .= '<li>Setting the <b>' . $dateTypeHash{$vars->{ACTION_TYPE}}
+ . "</b></li>\n";
+ if ($vars->{ACTION_TYPE} eq 'due_date' ||
+ $vars->{ACTION_TYPE} eq 'answer_date') {
+ # for due dates, we default to "date end" type entries
+ $result .= "<input type='hidden' name='recent_date_end' " .
+ "value='" . $vars->{PARM_DATE} . "' />\n";
+ $result .= "<input type='hidden' name='pres_value' " .
+ "value='" . $vars->{PARM_DATE} . "' />\n";
+ $result .= "<input type='hidden' name='pres_type' " .
+ "value='date_end' />\n";
+ } elsif ($vars->{ACTION_TYPE} eq 'open_date') {
+ $result .= "<input type='hidden' name='recent_date_start' ".
+ "value='" . $vars->{PARM_DATE} . "' />\n";
+ $result .= "<input type='hidden' name='pres_value' " .
+ "value='" . $vars->{PARM_DATE} . "' />\n";
+ $result .= "<input type='hidden' name='pres_type' " .
+ "value='date_start' />\n";
+ }
+
+ # Print the granularity, depending on the action
+ if ($vars->{GRANULARITY} eq 'whole_course') {
+ $result .= '<li>for <b>all resources in the course</b></li>';
+ $level = 9; # general course, see lonparmset.pm perldoc
+ $affectedResourceId = "0.0";
+ } elsif ($vars->{GRANULARITY} eq 'map') {
+ my $navmap = Apache::lonnavmaps::navmap->new(
+ $ENV{"request.course.fn"}.".db",
+ $ENV{"request.course.fn"}."_parms.db", 0, 0);
+ my $res = $navmap->getById($vars->{RESOURCE_ID});
+ my $title = $res->compTitle();
+ $navmap->untieHashes();
+ $result .= "<li>for the map named <b>$title</b></li>";
+ $level = 8;
+ $affectedResourceId = $vars->{RESOURCE_ID};
+ } else {
+ my $navmap = Apache::lonnavmaps::navmap->new(
+ $ENV{"request.course.fn"}.".db",
+ $ENV{"request.course.fn"}."_parms.db", 0, 0);
+ my $res = $navmap->getById($vars->{RESOURCE_ID});
+ my $title = $res->compTitle();
+ $navmap->untieHashes();
+ $result .= "<li>for the resource named <b>$title</b></li>";
+ $level = 7;
+ $affectedResourceId = $vars->{RESOURCE_ID};
+ }
+
+ # Print targets
+ if ($vars->{TARGETS} eq 'course') {
+ $result .= '<li>for <b>all students in course</b></li>';
+ } elsif ($vars->{TARGETS} eq 'section') {
+ my $section = $vars->{SECTION_NAME};
+ $result .= "<li>for section <b>$section</b></li>";
+ $level -= 3;
+ $result .= "<input type='hidden' name='csec' value='" .
+ HTML::Entities::encode($section) . "' />\n";
+ } else {
+ # FIXME: This is probably wasteful! Store the name!
+ my $classlist = Apache::loncoursedata::get_classlist();
+ my $name = $classlist->{$vars->{USER_NAME}}->[6];
+ $result .= "<li>for <b>$name</b></li>";
+ $level -= 6;
+ my ($uname, $udom) = split /:/, $vars->{USER_NAME};
+ $result .= "<input type='hidden' name='uname' value='".
+ HTML::Entities::encode($uname) . "' />\n";
+ $result .= "<input type='hidden' name='udom' value='".
+ HTML::Entities::encode($udom) . "' />\n";
+ }
+
+ # Print value
+ $result .= "<li>to <b>" . ctime($vars->{PARM_DATE}) . "</b> (" .
+ Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE})
+ . ")</li>\n";
+
+ # print pres_marker
+ $result .= "\n<input type='hidden' name='pres_marker'" .
+ " value='$affectedResourceId&$parm_name&$level' />\n";
+
+ $result .= "<br /><br /><center><input type='submit' value='Finish Helper' /></center></form>\n";
+
+ return $result;
+}
+
+sub overrideForm {
+ return 1;
+}
+
1;
__END__