version 1.45, 2003/09/05 16:15:54
|
version 1.60, 2003/10/14 18:32:15
|
Line 172 before parsing XML fragments and B<Apach
|
Line 172 before parsing XML fragments and B<Apach
|
when you are done. See lonprintout.pm for examples of this usage in the |
when you are done. See lonprintout.pm for examples of this usage in the |
printHelper subroutine. |
printHelper subroutine. |
|
|
|
=head2 Localization |
|
|
|
The helper framework tries to handle as much localization as |
|
possible. The text is always run through |
|
Apache::lonlocal::normalize_string, so be sure to run the keys through |
|
that function for maximum usefulness and robustness. |
|
|
=cut |
=cut |
|
|
package Apache::lonhelper; |
package Apache::lonhelper; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File; |
use Apache::File; |
use Apache::lonxml; |
use Apache::lonxml; |
|
use Apache::lonlocal; |
|
|
# Register all the tags with the helper, so the helper can |
# Register all the tags with the helper, so the helper can |
# push and pop them |
# push and pop them |
Line 257 sub real_handler {
|
Line 265 sub real_handler {
|
# Send header, don't cache this page |
# Send header, don't cache this page |
if ($r->header_only) { |
if ($r->header_only) { |
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
$r->content_type('text/xml'); |
$r->content_type('text/xml; charset=UTF-8'); |
} else { |
} else { |
$r->content_type('text/html'); |
$r->content_type('text/html; charset=UTF-8'); |
} |
} |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
Line 359 sub end_state {
|
Line 367 sub end_state {
|
package Apache::lonhelper::helper; |
package Apache::lonhelper::helper; |
|
|
use Digest::MD5 qw(md5_hex); |
use Digest::MD5 qw(md5_hex); |
use HTML::Entities; |
use HTML::Entities(); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::File; |
use Apache::File; |
|
use Apache::lonlocal; |
|
|
sub new { |
sub new { |
my $proto = shift; |
my $proto = shift; |
Line 523 sub process {
|
Line 532 sub process {
|
# Phase 1: Post processing for state of previous screen (which is actually |
# 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 |
# the "current state" in terms of the helper variables), if it wasn't the |
# beginning state. |
# beginning state. |
if ($self->{STATE} ne "START" || $ENV{"form.SUBMIT"} eq "Next ->") { |
if ($self->{STATE} ne "START" || $ENV{"form.SUBMIT"} eq &mt("Next ->")) { |
my $prevState = $self->{STATES}{$self->{STATE}}; |
my $prevState = $self->{STATES}{$self->{STATE}}; |
$prevState->postprocess(); |
$prevState->postprocess(); |
} |
} |
Line 574 sub display {
|
Line 583 sub display {
|
} |
} |
|
|
# Phase 4: Display. |
# Phase 4: Display. |
my $stateTitle = $state->title(); |
my $stateTitle = &mt($state->title()); |
my $bodytag = &Apache::loncommon::bodytag("$self->{TITLE}",'',''); |
my $helperTitle = &mt($self->{TITLE}); |
|
my $bodytag = &Apache::loncommon::bodytag($helperTitle,'',''); |
|
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
|
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
|
# FIXME: This should be parameterized, not concatenated - Jeremy |
|
my $loncapaHelper = &mt("LON-CAPA Helper:"); |
|
|
$result .= <<HEADER; |
$result .= <<HEADER; |
<html> |
<html> |
<head> |
<head> |
<title>LON-CAPA Helper: $self->{TITLE}</title> |
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> |
|
<title>$loncapaHelper: $helperTitle</title> |
</head> |
</head> |
$bodytag |
$bodytag |
HEADER |
HEADER |
Line 607 HEADER
|
Line 622 HEADER
|
} |
} |
if ($self->{DONE}) { |
if ($self->{DONE}) { |
my $returnPage = $self->{RETURN_PAGE}; |
my $returnPage = $self->{RETURN_PAGE}; |
$result .= "<a href=\"$returnPage\">End Helper</a>"; |
$result .= "<a href=\"$returnPage\">" . &mt("End Helper") . "</a>"; |
} |
} |
else { |
else { |
$result .= '<nobr><input name="back" type="button" '; |
$result .= '<nobr><input name="back" type="button" '; |
$result .= 'value="<- Previous" onclick="history.go(-1)" /> '; |
$result .= 'value="' . $previous . '" onclick="history.go(-1)" /> '; |
$result .= '<input name="SUBMIT" type="submit" value="Next ->" /></nobr>'; |
$result .= '<input name="SUBMIT" type="submit" value="' . $next . '" /></nobr>'; |
} |
} |
} |
} |
|
|
Line 626 HEADER
|
Line 641 HEADER
|
} |
} |
if ($self->{DONE}) { |
if ($self->{DONE}) { |
my $returnPage = $self->{RETURN_PAGE}; |
my $returnPage = $self->{RETURN_PAGE}; |
$result .= "<a href=\"$returnPage\">End Helper</a>"; |
$result .= "<a href=\"$returnPage\">" . &mt('End Helper') . "</a>"; |
} |
} |
else { |
else { |
$result .= '<nobr><input name="back" type="button" '; |
$result .= '<nobr><input name="back" type="button" '; |
$result .= 'value="<- Previous" onclick="history.go(-1)" /> '; |
$result .= 'value="' . $previous . '" onclick="history.go(-1)" /> '; |
$result .= '<input name="SUBMIT" type="submit" value="Next ->" /></nobr>'; |
$result .= '<input name="SUBMIT" type="submit" value="' . $next . '" /></nobr>'; |
} |
} |
} |
} |
|
|
Line 883 sub start_defaultvalue {
|
Line 898 sub start_defaultvalue {
|
|
|
sub end_defaultvalue { return ''; } |
sub end_defaultvalue { return ''; } |
|
|
|
# Validators may need to take language specifications |
sub start_validator { |
sub start_validator { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
Line 926 package Apache::lonhelper::message;
|
Line 942 package Apache::lonhelper::message;
|
|
|
=pod |
=pod |
|
|
=head1 Element: messageX<message, helper element> |
=head1 Elements |
|
|
|
=head2 Element: messageX<message, helper element> |
|
|
Message elements display their contents, and |
Message elements display their contents, and |
transition directly to the state in the <nextstate> attribute. Example: |
transition directly to the state in the <nextstate> attribute. Example: |
Line 950 within each other.)
|
Line 968 within each other.)
|
This is also a good template for creating your own new states, as it has |
This is also a good template for creating your own new states, as it has |
very little code beyond the state template. |
very little code beyond the state template. |
|
|
|
=head3 Localization |
|
|
|
The contents of the message tag will be run through the |
|
normalize_string function and that will be used as a call to &mt. |
|
|
=cut |
=cut |
|
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::message', |
&Apache::lonhelper::register('Apache::lonhelper::message', |
Line 996 sub end_message {
|
Line 1020 sub end_message {
|
sub render { |
sub render { |
my $self = shift; |
my $self = shift; |
|
|
return $self->{MESSAGE_TEXT}; |
return &mtn($self->{MESSAGE_TEXT}); |
} |
} |
# If a NEXTSTATE was given, switch to it |
# If a NEXTSTATE was given, switch to it |
sub postprocess { |
sub postprocess { |
Line 1098 tag is stored in the {VARS} hash.
|
Line 1122 tag is stored in the {VARS} hash.
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::choices', |
&Apache::lonhelper::register('Apache::lonhelper::choices', |
Line 1251 BUTTONS
|
Line 1276 BUTTONS
|
$choiceLabel = eval($choiceLabel); |
$choiceLabel = eval($choiceLabel); |
$choiceLabel = &$choiceLabel($helper, $self); |
$choiceLabel = &$choiceLabel($helper, $self); |
} |
} |
$result .= "/></td><td> " . $choiceLabel . "</td></tr>\n"; |
$result .= "/></td><td> " . &mtn($choiceLabel) . "</td></tr>\n"; |
} |
} |
$result .= "</table>\n\n\n"; |
$result .= "</table>\n\n\n"; |
$result .= $buttons; |
$result .= $buttons; |
Line 1266 sub postprocess {
|
Line 1291 sub postprocess {
|
my $chosenValue = $ENV{'form.' . $self->{'variable'} . '.forminput'}; |
my $chosenValue = $ENV{'form.' . $self->{'variable'} . '.forminput'}; |
|
|
if (!defined($chosenValue) && !$self->{'allowempty'}) { |
if (!defined($chosenValue) && !$self->{'allowempty'}) { |
$self->{ERROR_MSG} = "You must choose one or more choices to" . |
$self->{ERROR_MSG} = |
" continue."; |
&mt("You must choose one or more choices to continue."); |
return 0; |
return 0; |
} |
} |
|
|
Line 1310 the result is stored in.
|
Line 1335 the result is stored in.
|
|
|
=cut |
=cut |
|
|
|
# This really ought to be a sibling class to "choice" which is itself |
|
# a child of some abstract class.... *shrug* |
|
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::dropdown', |
&Apache::lonhelper::register('Apache::lonhelper::dropdown', |
Line 1402 sub render {
|
Line 1431 sub render {
|
$choiceLabel = eval($choiceLabel); |
$choiceLabel = eval($choiceLabel); |
$choiceLabel = &$choiceLabel($helper, $self); |
$choiceLabel = &$choiceLabel($helper, $self); |
} |
} |
$result .= ">" . $choiceLabel . "\n"; |
$result .= ">" . &mtn($choiceLabel) . "\n"; |
} |
} |
$result .= "</select>\n"; |
$result .= "</select>\n"; |
|
|
Line 1471 Example:
|
Line 1500 Example:
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; # A localization nightmare |
|
|
use Time::localtime; |
use Time::localtime; |
|
|
Line 1535 sub render {
|
Line 1565 sub render {
|
} else { |
} else { |
$result .= "<option value='$i'>"; |
$result .= "<option value='$i'>"; |
} |
} |
$result .= $months[$i] . "</option>\n"; |
$result .= &mt($months[$i]) . "</option>\n"; |
} |
} |
$result .= "</select>\n"; |
$result .= "</select>\n"; |
|
|
Line 1565 sub render {
|
Line 1595 sub render {
|
|
|
# Display Hours and Minutes if they are called for |
# Display Hours and Minutes if they are called for |
if ($self->{'hoursminutes'}) { |
if ($self->{'hoursminutes'}) { |
|
# This needs parameterization for times. |
|
my $am = &mt('a.m.'); |
|
my $pm = &mt('p.m.'); |
# Build hour |
# Build hour |
$result .= "<select name='${var}hour'>\n"; |
$result .= "<select name='${var}hour'>\n"; |
$result .= "<option " . ($date->hour == 0 ? 'selected ':'') . |
$result .= "<option " . ($date->hour == 0 ? 'selected ':'') . |
" value='0'>midnight</option>\n"; |
" value='0'>" . &mt('midnight') . "</option>\n"; |
for ($i = 1; $i < 12; $i++) { |
for ($i = 1; $i < 12; $i++) { |
if ($date->hour == $i) { |
if ($date->hour == $i) { |
$result .= "<option selected value='$i'>$i a.m.</option>\n"; |
$result .= "<option selected value='$i'>$i $am</option>\n"; |
} else { |
} else { |
$result .= "<option value='$i'>$i a.m</option>\n"; |
$result .= "<option value='$i'>$i $am</option>\n"; |
} |
} |
} |
} |
$result .= "<option " . ($date->hour == 12 ? 'selected ':'') . |
$result .= "<option " . ($date->hour == 12 ? 'selected ':'') . |
" value='12'>noon</option>\n"; |
" value='12'>" . &mt('noon') . "</option>\n"; |
for ($i = 13; $i < 24; $i++) { |
for ($i = 13; $i < 24; $i++) { |
my $printedHour = $i - 12; |
my $printedHour = $i - 12; |
if ($date->hour == $i) { |
if ($date->hour == $i) { |
$result .= "<option selected value='$i'>$printedHour p.m.</option>\n"; |
$result .= "<option selected value='$i'>$printedHour $pm</option>\n"; |
} else { |
} else { |
$result .= "<option value='$i'>$printedHour p.m.</option>\n"; |
$result .= "<option value='$i'>$printedHour $pm</option>\n"; |
} |
} |
} |
} |
|
|
Line 1622 sub postprocess {
|
Line 1655 sub postprocess {
|
$hour = $ENV{'form.' . $var . 'hour'}; |
$hour = $ENV{'form.' . $var . 'hour'}; |
} |
} |
|
|
my $chosenDate = Time::Local::timelocal(0, $min, $hour, $day, $month, $year); |
my $chosenDate; |
|
eval {$chosenDate = Time::Local::timelocal(0, $min, $hour, $day, $month, $year);}; |
|
my $error = $@; |
|
|
# Check to make sure that the date was not automatically co-erced into a |
# Check to make sure that the date was not automatically co-erced into a |
# valid date, as we want to flag that as an error |
# valid date, as we want to flag that as an error |
# This happens for "Feb. 31", for instance, which is coerced to March 2 or |
# This happens for "Feb. 31", for instance, which is coerced to March 2 or |
# 3, depending on if it's a leapyear |
# 3, depending on if it's a leap year |
my $checkDate = localtime($chosenDate); |
my $checkDate = localtime($chosenDate); |
|
|
if ($checkDate->mon != $month || $checkDate->mday != $day || |
if ($error || $checkDate->mon != $month || $checkDate->mday != $day || |
$checkDate->year + 1900 != $year) { |
$checkDate->year + 1900 != $year) { |
|
unless (Apache::lonlocal::current_language()== ~/^en/) { |
|
$self->{ERROR_MSG} = &mt("Invalid date entry"); |
|
return 0; |
|
} |
|
# LOCALIZATION FIXME: Needs to be parameterized |
$self->{ERROR_MSG} = "Can't use " . $months[$month] . " $day, $year as a " |
$self->{ERROR_MSG} = "Can't use " . $months[$month] . " $day, $year as a " |
. "date because it doesn't exist. Please enter a valid date."; |
. "date because it doesn't exist. Please enter a valid date."; |
|
|
return 0; |
return 0; |
} |
} |
|
|
Line 1667 resources in that sequence, or recurses
|
Line 1709 resources in that sequence, or recurses
|
to false. The "suppressEmptySequences" attribute reflects the |
to false. The "suppressEmptySequences" attribute reflects the |
suppressEmptySequences argument to the render routine, which will cause |
suppressEmptySequences argument to the render routine, which will cause |
folders that have all of their contained resources filtered out to also |
folders that have all of their contained resources filtered out to also |
be filtered out. |
be filtered out. The 'addstatus' attribute, if true, will add the icon |
|
and long status display columns to the display. |
|
|
=head3 SUB-TAGS |
=head3 SUB-TAGS |
|
|
Line 1695 be filtered out.
|
Line 1738 be filtered out.
|
default, the value will be the resource ID of the object ($res->{ID}). |
default, the value will be the resource ID of the object ($res->{ID}). |
|
|
=item * <mapurl>X<mapurl>: If the URL of a map is given here, only that map |
=item * <mapurl>X<mapurl>: If the URL of a map is given here, only that map |
will be displayed, instead of the whole course. |
will be displayed, instead of the whole course. If the attribute |
|
"evaluate" is given and is true, the contents of the mapurl will be |
|
evaluated with "sub { my $helper = shift; my $state = shift;" and |
|
"}", with the return value used as the mapurl. |
|
|
=back |
=back |
|
|
Line 1730 sub start_resource {
|
Line 1776 sub start_resource {
|
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'suppressEmptySequences'} = $token->[2]{'suppressEmptySequences'}; |
$paramHash->{'suppressEmptySequences'} = $token->[2]{'suppressEmptySequences'}; |
$paramHash->{'toponly'} = $token->[2]{'toponly'}; |
$paramHash->{'toponly'} = $token->[2]{'toponly'}; |
|
$paramHash->{'addstatus'} = $token->[2]{'addstatus'}; |
return ''; |
return ''; |
} |
} |
|
|
Line 1806 sub start_mapurl {
|
Line 1853 sub start_mapurl {
|
|
|
my $contents = Apache::lonxml::get_all_text('/mapurl', |
my $contents = Apache::lonxml::get_all_text('/mapurl', |
$parser); |
$parser); |
|
$paramHash->{EVAL_MAP_URL} = $token->[2]{'evaluate'}; |
$paramHash->{MAP_URL} = $contents; |
$paramHash->{MAP_URL} = $contents; |
} |
} |
|
|
Line 1861 BUTTONS
|
Line 1909 BUTTONS
|
my $filterFunc = $self->{FILTER_FUNC}; |
my $filterFunc = $self->{FILTER_FUNC}; |
my $choiceFunc = $self->{CHOICE_FUNC}; |
my $choiceFunc = $self->{CHOICE_FUNC}; |
my $valueFunc = $self->{VALUE_FUNC}; |
my $valueFunc = $self->{VALUE_FUNC}; |
my $mapUrl = $self->{MAP_URL}; |
|
my $multichoice = $self->{'multichoice'}; |
my $multichoice = $self->{'multichoice'}; |
|
|
|
# Evaluate the map url as needed |
|
my $mapUrl; |
|
if ($self->{EVAL_MAP_URL}) { |
|
my $mapUrlFunc = eval('sub { my $helper = shift; my $state = shift; ' . |
|
$self->{MAP_URL} . '}'); |
|
$mapUrl = &$mapUrlFunc($helper, $self); |
|
} else { |
|
$mapUrl = $self->{MAP_URL}; |
|
} |
|
|
# Create the composite function that renders the column on the nav map |
# 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 |
# have to admit any language that lets me do this can't be all bad |
# - Jeremy (Pythonista) ;-) |
# - Jeremy (Pythonista) ;-) |
Line 1895 BUTTONS
|
Line 1952 BUTTONS
|
}; |
}; |
|
|
$ENV{'form.condition'} = !$self->{'toponly'}; |
$ENV{'form.condition'} = !$self->{'toponly'}; |
|
my $cols = [$renderColFunc, Apache::lonnavmaps::resource()]; |
|
if ($self->{'addstatus'}) { |
|
push @$cols, (Apache::lonnavmaps::part_status_summary()); |
|
|
|
} |
$result .= |
$result .= |
&Apache::lonnavmaps::render( { 'cols' => [$renderColFunc, |
&Apache::lonnavmaps::render( { 'cols' => $cols, |
Apache::lonnavmaps::resource()], |
|
'showParts' => 0, |
'showParts' => 0, |
'filterFunc' => $filterFunc, |
'filterFunc' => $filterFunc, |
'resource_no_folder_link' => 1, |
'resource_no_folder_link' => 1, |
Line 1936 package Apache::lonhelper::student;
|
Line 1997 package Apache::lonhelper::student;
|
Student elements display a choice of students enrolled in the current |
Student elements display a choice of students enrolled in the current |
course. Currently it is primitive; this is expected to evolve later. |
course. Currently it is primitive; this is expected to evolve later. |
|
|
Student elements take three attributes: "variable", which means what |
Student elements take the following attributes: |
it usually does, "multichoice", which if true allows the user |
|
to select multiple students, and "coursepersonnel" which if true |
=over 4 |
adds the course personnel to the top of the student selection. |
|
|
=item * B<variable>: |
|
|
|
Does what it usually does: declare which helper variable to put the |
|
result in. |
|
|
|
=item * B<multichoice>: |
|
|
|
If true allows the user to select multiple students. Defaults to false. |
|
|
|
=item * B<coursepersonnel>: |
|
|
|
If true adds the course personnel to the top of the student |
|
selection. Defaults to false. |
|
|
|
=item * B<activeonly>: |
|
|
|
If true, only active students and course personnel will be |
|
shown. Defaults to false. |
|
|
|
=back |
|
|
=cut |
=cut |
|
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; |
|
|
|
|
BEGIN { |
BEGIN { |
Line 1970 sub start_student {
|
Line 2051 sub start_student {
|
$helper->declareVar($paramHash->{'variable'}); |
$helper->declareVar($paramHash->{'variable'}); |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'coursepersonnel'} = $token->[2]{'coursepersonnel'}; |
$paramHash->{'coursepersonnel'} = $token->[2]{'coursepersonnel'}; |
|
$paramHash->{'sctiveonly'} = $token->[2]{'activeonly'}; |
if (defined($token->[2]{'nextstate'})) { |
if (defined($token->[2]{'nextstate'})) { |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
} |
} |
Line 2002 sub render {
|
Line 2084 sub render {
|
} |
} |
} |
} |
} |
} |
|
function checksec(value) { |
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
|
comp = document.forms.helpform.elements.chksec.value; |
|
if (document.forms.helpform.elements[i].value.indexOf(':'+comp+':') != -1) { |
|
document.forms.helpform.elements[i].checked=value; |
|
} |
|
} |
|
} |
|
function checkactive() { |
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
|
if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) { |
|
document.forms.helpform.elements[i].checked=true; |
|
} |
|
} |
|
} |
</script> |
</script> |
SCRIPT |
SCRIPT |
|
|
|
my $selectAllStudents = &mt('Select All Students'); |
|
my $unselectAllStudents = &mt('Unselect All Students'); |
$buttons = <<BUTTONS; |
$buttons = <<BUTTONS; |
<br /> |
<br /> |
<input type="button" onclick="checkall(true, '$var')" value="Select All Students" /> |
<input type="button" onclick="checkactive()" value="Select Only Current Students" /> |
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Students" /> |
<input type="button" onclick="checkall(true, '$var')" value="$selectAllStudents" /> |
|
<input type="button" onclick="checkall(false, '$var')" value="$unselectAllStudents" /> |
|
<input type="button" onclick="checksec(true)" value="Select for Section/Group"> |
|
<input type="text" size="5" name="chksec"> |
|
<input type="button" onclick="checksec(false)" value="Unselect for Section/Group"> |
<br /> |
<br /> |
BUTTONS |
BUTTONS |
} |
} |
Line 2042 BUTTONS
|
Line 2146 BUTTONS
|
# Constants |
# Constants |
my $section = Apache::loncoursedata::CL_SECTION(); |
my $section = Apache::loncoursedata::CL_SECTION(); |
my $fullname = Apache::loncoursedata::CL_FULLNAME(); |
my $fullname = Apache::loncoursedata::CL_FULLNAME(); |
|
my $status = Apache::loncoursedata::CL_STATUS(); |
|
|
# Load up the students |
# Load up the students |
my $classlist = &Apache::loncoursedata::get_classlist(); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
Line 2056 BUTTONS
|
Line 2161 BUTTONS
|
|
|
# username, fullname, section, type |
# username, fullname, section, type |
for (@keys) { |
for (@keys) { |
push @$choices, [$_, $classlist->{$_}->[$fullname], |
# Filter out inactive students if we've set "activeonly" |
$classlist->{$_}->[$section], 'Student']; |
if (!$self->{'activeonly'} || $classlist->{$_}->[$status] eq |
|
'Active') { |
|
push @$choices, [$_, $classlist->{$_}->[$fullname], |
|
$classlist->{$_}->[$section], |
|
$classlist->{$_}->[$status], 'Student']; |
|
} |
} |
} |
|
|
my $name = $self->{'coursepersonnel'} ? 'Name' : 'Student Name'; |
my $name = &mt($self->{'coursepersonnel'} ? 'Name' : 'Student Name'); |
my $type = 'radio'; |
my $type = 'radio'; |
if ($self->{'multichoice'}) { $type = 'checkbox'; } |
if ($self->{'multichoice'}) { $type = 'checkbox'; } |
$result .= "<table cellspacing='2' cellpadding='2' border='0'>\n"; |
$result .= "<table cellspacing='2' cellpadding='2' border='0'>\n"; |
$result .= "<tr><td></td><td align='center'><b>$name</b></td>". |
$result .= "<tr><td></td><td align='center'><b>$name</b></td>". |
"<td align='center'><b>Section</b></td>" . |
"<td align='center'><b>" . &mt('Section') . "</b></td>" . |
"<td align='center'><b>Role</b></td></tr>"; |
"<td align='center'><b>Status</b></td>" . |
|
"<td align='center'><b>" . &mt("Role") . "</b></td></tr>" . |
|
"<td align='center'><b>Username:Domain</b></td></tr>"; |
|
|
my $checked = 0; |
my $checked = 0; |
for my $choice (@$choices) { |
for my $choice (@$choices) { |
Line 2078 BUTTONS
|
Line 2190 BUTTONS
|
$checked = 1; |
$checked = 1; |
} |
} |
$result .= |
$result .= |
" value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2]) |
" value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2] . ':' . $choice->[1] . ':' . $choice->[3]) |
. "' /></td><td>" |
. "' /></td><td>" |
. HTML::Entities::encode($choice->[1]) |
. HTML::Entities::encode($choice->[1]) |
. "</td><td align='center'>" |
. "</td><td align='center'>" |
. HTML::Entities::encode($choice->[2]) |
. HTML::Entities::encode($choice->[2]) |
. "</td>\n<td>" |
. "</td>\n<td>" |
. HTML::Entities::encode($choice->[3]) . "</td></tr>\n"; |
. HTML::Entities::encode($choice->[3]) |
|
. "</td>\n<td>" |
|
. HTML::Entities::encode($choice->[4]) |
|
. "</td>\n<td>" |
|
. HTML::Entities::encode($choice->[0]) |
|
. "</td></tr>\n"; |
} |
} |
|
|
$result .= "</table>\n\n"; |
$result .= "</table>\n\n"; |
Line 2098 sub postprocess {
|
Line 2215 sub postprocess {
|
|
|
my $result = $ENV{'form.' . $self->{'variable'} . '.forminput'}; |
my $result = $ENV{'form.' . $self->{'variable'} . '.forminput'}; |
if (!$result) { |
if (!$result) { |
$self->{ERROR_MSG} = 'You must choose at least one student '. |
$self->{ERROR_MSG} = |
'to continue.'; |
&mt('You must choose at least one student to continue.'); |
return 0; |
return 0; |
} |
} |
|
|
Line 2165 viewing the files.
|
Line 2282 viewing the files.
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; |
|
|
use Apache::lonpubdir; # for getTitleString |
use Apache::lonpubdir; # for getTitleString |
|
|
Line 2283 sub render {
|
Line 2401 sub render {
|
} |
} |
</script> |
</script> |
SCRIPT |
SCRIPT |
|
my $selectAllFiles = &mt("Select All Files"); |
|
my $unselectAllFiles = &mt("Unselect All Files"); |
$buttons = <<BUTTONS; |
$buttons = <<BUTTONS; |
<br /> |
<br /> |
<input type="button" onclick="checkall(true, '$var')" value="Select All Files" /> |
<input type="button" onclick="checkall(true, '$var')" value="$selectAllFiles" /> |
<input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" /> |
<input type="button" onclick="checkall(false, '$var')" value="$unselectAllFiles" /> |
BUTTONS |
BUTTONS |
|
|
|
my $selectAllPublished = &mt("Select All Published"); |
|
my $unselectAllPublished= &mt("UnselectAllPublished"); |
if ($helper->{VARS}->{'construction'}) { |
if ($helper->{VARS}->{'construction'}) { |
$buttons .= <<BUTTONS; |
$buttons .= <<BUTTONS; |
<input type="button" onclick="checkallclass(true, 'Published')" value="Select All Published" /> |
<input type="button" onclick="checkallclass(true, 'Published')" value="$selectAllPublished" /> |
<input type="button" onclick="checkallclass(false, 'Published')" value="Unselect All Published" /> |
<input type="button" onclick="checkallclass(false, 'Published')" value="$unselectAllPublished" /> |
<br /> |
<br /> |
BUTTONS |
BUTTONS |
} |
} |
Line 2302 BUTTONS
|
Line 2424 BUTTONS
|
my @fileList; |
my @fileList; |
|
|
# If the subdirectory is in local CSTR space |
# If the subdirectory is in local CSTR space |
if ($subdir =~ m|/home/([^/]+)/public_html|) { |
my $metadir; |
|
if ($subdir =~ m|/home/([^/]+)/public_html/(.*)|) { |
|
my $user = $1; |
|
my $domain = $Apache::lonnet::perlvar{'lonDefDomain'}; |
|
$metadir='/res/'.$domain.'/'.$user.'/'.$2; |
|
@fileList = &Apache::lonnet::dirlist($subdir, $domain, $user, ''); |
|
} elsif ($subdir =~ m|^~([^/]+)/(.*)$|) { |
|
$subdir='/home/'.$1.'/public_html/'.$2; |
my $user = $1; |
my $user = $1; |
my $domain = $Apache::lonnet::perlvar{'lonDefDomain'}; |
my $domain = $Apache::lonnet::perlvar{'lonDefDomain'}; |
|
$metadir='/res/'.$domain.'/'.$user.'/'.$2; |
@fileList = &Apache::lonnet::dirlist($subdir, $domain, $user, ''); |
@fileList = &Apache::lonnet::dirlist($subdir, $domain, $user, ''); |
} else { |
} else { |
# local library server resource space |
# local library server resource space |
Line 2343 BUTTONS
|
Line 2473 BUTTONS
|
} |
} |
|
|
# Get the title |
# Get the title |
my $title = Apache::lonpubdir::getTitleString($fileName); |
my $title = Apache::lonpubdir::getTitleString(($metadir?$metadir:$subdir) .'/'. $file); |
|
|
# Netscape 4 is stupid and there's nowhere to put the |
# Netscape 4 is stupid and there's nowhere to put the |
# information on the input tag that the file is Published, |
# information on the input tag that the file is Published, |
Line 2381 BUTTONS
|
Line 2511 BUTTONS
|
$result .= "</table>\n"; |
$result .= "</table>\n"; |
|
|
if (!$choices) { |
if (!$choices) { |
$result .= '<font color="#FF0000">There are no files available to select in this directory. Please go back and select another option.</font><br /><br />'; |
$result .= '<font color="#FF0000">There are no files available to select in this directory ('.$subdir.'). Please go back and select another option.</font><br /><br />'; |
} |
} |
|
|
$result .= $buttons; |
$result .= $buttons; |
Line 2860 sub render {
|
Line 2990 sub render {
|
} |
} |
|
|
if (!@results) { |
if (!@results) { |
$result .= ' <li>No changes were made to current settings.</li>'; |
$result .= ' <li>' . |
|
&mt('No changes were made to current settings.') . '</li>'; |
} |
} |
|
|
$result .= '</ul>'; |
$result .= '</ul>'; |
Line 2871 sub render {
|
Line 3002 sub render {
|
if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) { |
if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) { |
$targetURL = '/adm/parmset?overview=1'; |
$targetURL = '/adm/parmset?overview=1'; |
} |
} |
|
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
|
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
$result .= "<center>\n" . |
$result .= "<center>\n" . |
"<form action='/adm/roles' method='post' target='loncapaclient'>\n" . |
"<form action='/adm/roles' method='post' target='loncapaclient'>\n" . |
"<input type='button' onclick='history.go(-1)' value='<- Previous' />" . |
"<input type='button' onclick='history.go(-1)' value='$previous' />" . |
"<input type='hidden' name='orgurl' value='$targetURL' />" . |
"<input type='hidden' name='orgurl' value='$targetURL' />" . |
"<input type='hidden' name='selectrole' value='1' />\n" . |
"<input type='hidden' name='selectrole' value='1' />\n" . |
"<input type='hidden' name='" . $ENV{'request.role'} . |
"<input type='hidden' name='" . $ENV{'request.role'} . |
"' value='1' />\n<input type='submit' value='Finish Course Initialization' />\n" . |
"' value='1' />\n<input type='submit' value='" . |
|
&mt('Finish Course Initialization') . " />\n" . |
"</form></center>"; |
"</form></center>"; |
} |
} |
|
|
Line 2931 sub render {
|
Line 3065 sub render {
|
my $vars = $helper->{VARS}; |
my $vars = $helper->{VARS}; |
|
|
# FIXME: Unify my designators with the standard ones |
# FIXME: Unify my designators with the standard ones |
my %dateTypeHash = ('open_date' => "Opening Date", |
my %dateTypeHash = ('open_date' => "opening date", |
'due_date' => "Due Date", |
'due_date' => "due date", |
'answer_date' => "Answer Date", |
'answer_date' => "answer date", |
'tries' => 'Number of Tries' |
'tries' => 'number of tries', |
|
'weight' => 'problem weight' |
); |
); |
my %parmTypeHash = ('open_date' => "0_opendate", |
my %parmTypeHash = ('open_date' => "0_opendate", |
'due_date' => "0_duedate", |
'due_date' => "0_duedate", |
'answer_date' => "0_answerdate", |
'answer_date' => "0_answerdate", |
'tries' => '0_maxtries' ); |
'tries' => '0_maxtries', |
|
'weight' => '0_weight' ); |
|
|
my $affectedResourceId = ""; |
my $affectedResourceId = ""; |
my $parm_name = $parmTypeHash{$vars->{ACTION_TYPE}}; |
my $parm_name = $parmTypeHash{$vars->{ACTION_TYPE}}; |
Line 2985 sub render {
|
Line 3121 sub render {
|
if ($vars->{ACTION_TYPE} eq 'tries') { |
if ($vars->{ACTION_TYPE} eq 'tries') { |
$result .= ' to <b>' . $vars->{TRIES} . '</b>'; |
$result .= ' to <b>' . $vars->{TRIES} . '</b>'; |
} |
} |
|
if ($vars->{ACTION_TYPE} eq 'weight') { |
|
$result .= ' to <b>' . $vars->{WEIGHT} . '</b>'; |
|
} |
$result .= "</li>\n"; |
$result .= "</li>\n"; |
if ($vars->{ACTION_TYPE} eq 'due_date' || |
if ($vars->{ACTION_TYPE} eq 'due_date' || |
$vars->{ACTION_TYPE} eq 'answer_date') { |
$vars->{ACTION_TYPE} eq 'answer_date') { |
Line 3005 sub render {
|
Line 3144 sub render {
|
} elsif ($vars->{ACTION_TYPE} eq 'tries') { |
} elsif ($vars->{ACTION_TYPE} eq 'tries') { |
$result .= "<input type='hidden' name='pres_value' " . |
$result .= "<input type='hidden' name='pres_value' " . |
"value='" . $vars->{TRIES} . "' />\n"; |
"value='" . $vars->{TRIES} . "' />\n"; |
|
} elsif ($vars->{ACTION_TYPE} eq 'weight') { |
|
$result .= "<input type='hidden' name='pres_value' " . |
|
"value='" . $vars->{WEIGHT} . "' />\n"; |
} |
} |
|
|
$result .= $resourceString; |
$result .= $resourceString; |
Line 3035 sub render {
|
Line 3177 sub render {
|
} |
} |
|
|
# Print value |
# Print value |
if ($vars->{ACTION_TYPE} ne 'tries') { |
if ($vars->{ACTION_TYPE} ne 'tries' && $vars->{ACTION_TYPE} ne 'weight') { |
$result .= "<li>to <b>" . ctime($vars->{PARM_DATE}) . "</b> (" . |
$result .= "<li>to <b>" . ctime($vars->{PARM_DATE}) . "</b> (" . |
Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE}) |
Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE}) |
. ")</li>\n"; |
. ")</li>\n"; |