version 1.116, 2005/10/01 02:28:55
|
version 1.144, 2006/05/09 21:39:47
|
Line 184 use Apache::lonxml;
|
Line 184 use Apache::lonxml;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
|
|
|
# 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 573 sub display {
|
Line 574 sub display {
|
} |
} |
|
|
# Phase 4: Display. |
# Phase 4: Display. |
my $html=&Apache::lonxml::xmlbegin(); |
|
my $stateTitle=&mt($state->title()); |
my $stateTitle=&mt($state->title()); |
my $helperTitle = &mt($self->{TITLE}); |
my $browser_searcher_js = |
my $bodytag = &Apache::loncommon::bodytag($helperTitle,'',''); |
'<script type="text/javascript">'."\n". |
|
&Apache::loncommon::browser_and_searcher_javascript(). |
|
"\n".'</script>'; |
|
|
|
$result .= &Apache::loncommon::start_page($self->{TITLE}, |
|
$browser_searcher_js); |
|
|
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
# FIXME: This should be parameterized, not concatenated - Jeremy |
# FIXME: This should be parameterized, not concatenated - Jeremy |
my $loncapaHelper = &mt("LON-CAPA Helper:"); |
|
|
|
$result .= <<HEADER; |
|
$html |
|
<head> |
|
<title>$loncapaHelper: $helperTitle</title> |
|
</head> |
|
$bodytag |
|
HEADER |
|
if (!$state->overrideForm()) { $result.="<form name='helpform' method='POST'>"; } |
if (!$state->overrideForm()) { $result.="<form name='helpform' method='POST'>"; } |
$result .= <<HEADER; |
$result .= <<HEADER; |
<table border="0" width='100%'><tr><td> |
<table border="0" width='100%'><tr><td> |
Line 651 HEADER
|
Line 650 HEADER
|
</tr> |
</tr> |
</table> |
</table> |
</form> |
</form> |
</body> |
|
</html> |
|
FOOTER |
FOOTER |
|
|
|
$result .= &Apache::loncommon::end_page(); |
# Handle writing out the vars to the file |
# Handle writing out the vars to the file |
my $file = Apache::File->new('>'.$self->{FILENAME}); |
my $file = Apache::File->new('>'.$self->{FILENAME}); |
print $file $self->_varsInFile(); |
print $file $self->_varsInFile(); |
Line 1072 will be the state transistioned to if th
|
Line 1070 will be the state transistioned to if th
|
the choice is not multichoice. This will override the nextstate |
the choice is not multichoice. This will override the nextstate |
passed to the parent C<choices> tag. |
passed to the parent C<choices> tag. |
|
|
|
<choice> may optionally contain a 'relatedvalue' attribute, which |
|
if present will cause a text entry to appear to the right of the |
|
selection. The value of the relatedvalue attribute is a variable |
|
into which the text entry will be stored e.g.: |
|
<choice computer='numberprovided" relatedvalue="num">Type the number in:</choice> |
|
|
|
<choice> may contain a relatededefault atribute which, if the |
|
relatedvalue attribute is present will be the initial value of the input |
|
box. |
|
|
=back |
=back |
|
|
To create the choices programmatically, either wrap the choices in |
To create the choices programmatically, either wrap the choices in |
Line 1162 sub start_choice {
|
Line 1170 sub start_choice {
|
my $computer = $token->[2]{'computer'}; |
my $computer = $token->[2]{'computer'}; |
my $human = &mt(&Apache::lonxml::get_all_text('/choice', |
my $human = &mt(&Apache::lonxml::get_all_text('/choice', |
$parser)); |
$parser)); |
my $nextstate = $token->[2]{'nextstate'}; |
my $nextstate = $token->[2]{'nextstate'}; |
my $evalFlag = $token->[2]{'eval'}; |
my $evalFlag = $token->[2]{'eval'}; |
|
my $relatedVar = $token->[2]{'relatedvalue'}; |
|
my $relatedDefault = $token->[2]{'relateddefault'}; |
push @{$paramHash->{CHOICES}}, [&mtn($human), $computer, $nextstate, |
push @{$paramHash->{CHOICES}}, [&mtn($human), $computer, $nextstate, |
$evalFlag]; |
$evalFlag, $relatedVar, $relatedDefault]; |
return ''; |
return ''; |
} |
} |
|
|
Line 1275 BUTTONS
|
Line 1285 BUTTONS
|
} |
} |
$result .= qq{id="id$id"}; |
$result .= qq{id="id$id"}; |
my $choiceLabel = $choice->[0]; |
my $choiceLabel = $choice->[0]; |
if ($choice->[4]) { # if we need to evaluate this choice |
if ($choice->[3]) { # if we need to evaluate this choice |
$choiceLabel = "sub { my $helper = shift; my $state = shift;" . |
$choiceLabel = "sub { my $helper = shift; my $state = shift;" . |
$choiceLabel . "}"; |
$choiceLabel . "}"; |
$choiceLabel = eval($choiceLabel); |
$choiceLabel = eval($choiceLabel); |
$choiceLabel = &$choiceLabel($helper, $self); |
$choiceLabel = &$choiceLabel($helper, $self); |
} |
} |
$result .= "/></td><td> ".qq{<label for="id$id">}. |
$result .= "/></td><td> ".qq{<label for="id$id">}. |
$choiceLabel. "</label></td></tr>\n"; |
$choiceLabel. "</label></td>"; |
|
if ($choice->[4]) { |
|
$result .='<td><input type="text" size="5" name="' |
|
.$choice->[4].'.forminput" value="' |
|
.$choice->[5].'" /></td>'; |
|
} |
|
$result .= "</tr>\n"; |
} |
} |
$result .= "</table>\n\n\n"; |
$result .= "</table>\n\n\n"; |
$result .= $buttons; |
$result .= $buttons; |
Line 1316 sub postprocess {
|
Line 1332 sub postprocess {
|
$helper->changeState($choice->[2]); |
$helper->changeState($choice->[2]); |
} |
} |
} |
} |
|
if ($choice->[4]) { |
|
my $varname = $choice->[4]; |
|
$helper->{'VARS'}->{$varname} = $env{'form.'."$varname.forminput"}; |
|
} |
} |
} |
return 1; |
return 1; |
} |
} |
Line 1536 sub start_date {
|
Line 1556 sub start_date {
|
$paramHash->{'variable'} = $token->[2]{'variable'}; |
$paramHash->{'variable'} = $token->[2]{'variable'}; |
$helper->declareVar($paramHash->{'variable'}); |
$helper->declareVar($paramHash->{'variable'}); |
$paramHash->{'hoursminutes'} = $token->[2]{'hoursminutes'}; |
$paramHash->{'hoursminutes'} = $token->[2]{'hoursminutes'}; |
|
$paramHash->{'anytime'} = $token->[2]{'anytime'}; |
} |
} |
|
|
sub end_date { |
sub end_date { |
Line 1554 sub render {
|
Line 1575 sub render {
|
my $var = $self->{'variable'}; |
my $var = $self->{'variable'}; |
|
|
my $date; |
my $date; |
|
|
|
my $time=time; |
|
my ($anytime,$onclick); |
|
|
|
|
|
# first check VARS for a valid new value from the user |
|
# then check DEFAULT_VALUE for a valid default time value |
|
# otherwise pick now as reasonably good time |
|
|
|
if (defined($helper->{VARS}{$var}) |
|
&& $helper->{VARS}{$var} > 0) { |
|
$date = localtime($helper->{VARS}{$var}); |
|
} elsif (defined($self->{DEFAULT_VALUE})) { |
|
my $valueFunc = eval($self->{DEFAULT_VALUE}); |
|
die('Error in default value code for variable ' . |
|
$self->{'variable'} . ', Perl said: ' . $@) if $@; |
|
$time = &$valueFunc($helper, $self); |
|
if (lc($time) eq 'anytime') { |
|
$anytime=1; |
|
$date = localtime(time); |
|
$date->min(0); |
|
} elsif (defined($time) && $time ne 0) { |
|
$date = localtime($time); |
|
} else { |
|
# leave date undefined so it'll default to now |
|
} |
|
} |
|
|
|
if (!defined($date)) { |
|
$date = localtime(time); |
|
$date->min(0); |
|
} |
|
|
|
&Apache::lonnet::logthis("date mode "); |
|
|
|
if ($anytime) { |
|
$onclick = "onclick=\"javascript:updateCheck(this.form,'${var}anytime',false)\""; |
|
} |
# Default date: The current hour. |
# Default date: The current hour. |
$date = localtime(); |
|
$date->min(0); |
|
|
|
if (defined $self->{ERROR_MSG}) { |
if (defined $self->{ERROR_MSG}) { |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
Line 1565 sub render {
|
Line 1621 sub render {
|
|
|
# Month |
# Month |
my $i; |
my $i; |
$result .= "<select name='${var}month'>\n"; |
$result .= "<select $onclick name='${var}month'>\n"; |
for ($i = 0; $i < 12; $i++) { |
for ($i = 0; $i < 12; $i++) { |
if ($i == $date->mon) { |
if ($i == $date->mon) { |
$result .= "<option value='$i' selected='selected'>"; |
$result .= "<option value='$i' selected='selected'>"; |
Line 1577 sub render {
|
Line 1633 sub render {
|
$result .= "</select>\n"; |
$result .= "</select>\n"; |
|
|
# Day |
# Day |
$result .= "<select name='${var}day'>\n"; |
$result .= "<select $onclick name='${var}day'>\n"; |
for ($i = 1; $i < 32; $i++) { |
for ($i = 1; $i < 32; $i++) { |
if ($i == $date->mday) { |
if ($i == $date->mday) { |
$result .= '<option selected="selected">'; |
$result .= '<option selected="selected">'; |
Line 1589 sub render {
|
Line 1645 sub render {
|
$result .= "</select>,\n"; |
$result .= "</select>,\n"; |
|
|
# Year |
# Year |
$result .= "<select name='${var}year'>\n"; |
$result .= "<select $onclick name='${var}year'>\n"; |
for ($i = 2000; $i < 2030; $i++) { # update this after 64-bit dates |
for ($i = 2000; $i < 2030; $i++) { # update this after 64-bit dates |
if ($date->year + 1900 == $i) { |
if ($date->year + 1900 == $i) { |
$result .= "<option selected='selected'>"; |
$result .= "<option selected='selected'>"; |
Line 1606 sub render {
|
Line 1662 sub render {
|
my $am = &mt('a.m.'); |
my $am = &mt('a.m.'); |
my $pm = &mt('p.m.'); |
my $pm = &mt('p.m.'); |
# Build hour |
# Build hour |
$result .= "<select name='${var}hour'>\n"; |
$result .= "<select $onclick name='${var}hour'>\n"; |
$result .= "<option " . ($date->hour == 0 ? 'selected="selected" ':'') . |
$result .= "<option " . ($date->hour == 0 ? 'selected="selected" ':'') . |
" value='0'>" . &mt('midnight') . "</option>\n"; |
" value='0'>" . &mt('midnight') . "</option>\n"; |
for ($i = 1; $i < 12; $i++) { |
for ($i = 1; $i < 12; $i++) { |
Line 1629 sub render {
|
Line 1685 sub render {
|
|
|
$result .= "</select> :\n"; |
$result .= "</select> :\n"; |
|
|
$result .= "<select name='${var}minute'>\n"; |
$result .= "<select $onclick name='${var}minute'>\n"; |
for ($i = 0; $i < 60; $i++) { |
my $selected=0; |
|
for my $i ((0,15,30,45,59,undef,0..59)) { |
my $printedMinute = $i; |
my $printedMinute = $i; |
if ($i < 10) { |
if (defined($i) && $i < 10) { |
$printedMinute = "0" . $printedMinute; |
$printedMinute = "0" . $printedMinute; |
} |
} |
if ($date->min == $i) { |
if (!$selected && $date->min == $i) { |
$result .= "<option selected='selected'>"; |
$result .= "<option selected='selected'>"; |
|
$selected=1; |
} else { |
} else { |
$result .= "<option>"; |
$result .= "<option>"; |
} |
} |
Line 1644 sub render {
|
Line 1702 sub render {
|
} |
} |
$result .= "</select>\n"; |
$result .= "</select>\n"; |
} |
} |
|
if ($self->{'anytime'}) { |
|
$result.=(<<CHECK); |
|
<script type="text/javascript"> |
|
// <!-- |
|
function updateCheck(form,name,value) { |
|
var checkbox=form[name]; |
|
checkbox.checked = value; |
|
} |
|
// --> |
|
</script> |
|
CHECK |
|
$result.=" or <label><input type='checkbox' "; |
|
if ($anytime) { |
|
$result.=' checked="checked" ' |
|
} |
|
$result.="name='${var}anytime'/>".&mt('Any time').'</label>' |
|
} |
return $result; |
return $result; |
|
|
} |
} |
Line 1652 sub render {
|
Line 1726 sub render {
|
sub postprocess { |
sub postprocess { |
my $self = shift; |
my $self = shift; |
my $var = $self->{'variable'}; |
my $var = $self->{'variable'}; |
my $month = $env{'form.' . $var . 'month'}; |
if ($env{'form.' . $var . 'anytime'}) { |
my $day = $env{'form.' . $var . 'day'}; |
$helper->{VARS}->{$var} = undef; |
my $year = $env{'form.' . $var . 'year'}; |
} else { |
my $min = 0; |
my $month = $env{'form.' . $var . 'month'}; |
my $hour = 0; |
my $day = $env{'form.' . $var . 'day'}; |
if ($self->{'hoursminutes'}) { |
my $year = $env{'form.' . $var . 'year'}; |
$min = $env{'form.' . $var . 'minute'}; |
my $min = 0; |
$hour = $env{'form.' . $var . 'hour'}; |
my $hour = 0; |
} |
if ($self->{'hoursminutes'}) { |
|
$min = $env{'form.' . $var . 'minute'}; |
|
$hour = $env{'form.' . $var . 'hour'}; |
|
} |
|
|
|
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 |
|
# 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 |
|
# 3, depending on if it's a leap year |
|
my $checkDate = localtime($chosenDate); |
|
|
|
if ($error || $checkDate->mon != $month || $checkDate->mday != $day || |
|
$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 " |
|
. "date because it doesn't exist. Please enter a valid date."; |
|
|
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 |
|
# 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 |
|
# 3, depending on if it's a leap year |
|
my $checkDate = localtime($chosenDate); |
|
|
|
if ($error || $checkDate->mon != $month || $checkDate->mday != $day || |
|
$checkDate->year + 1900 != $year) { |
|
unless (Apache::lonlocal::current_language()== ~/^en/) { |
|
$self->{ERROR_MSG} = &mt("Invalid date entry"); |
|
return 0; |
return 0; |
} |
} |
# LOCALIZATION FIXME: Needs to be parameterized |
$helper->{VARS}->{$var} = $chosenDate; |
$self->{ERROR_MSG} = "Can't use " . $months[$month] . " $day, $year as a " |
|
. "date because it doesn't exist. Please enter a valid date."; |
|
|
|
return 0; |
|
} |
} |
|
|
$helper->{VARS}->{$var} = $chosenDate; |
if (defined($self->{VALIDATOR})) { |
|
my $validator = eval($self->{VALIDATOR}); |
|
die 'Died during evaluation of validator code; Perl said: ' . $@ if $@; |
|
my $invalid = &$validator($helper, $state, $self, $self->getValue()); |
|
if ($invalid) { |
|
$self->{ERROR_MSG} = $invalid; |
|
return 0; |
|
} |
|
} |
|
|
if (defined($self->{NEXTSTATE})) { |
if (defined($self->{NEXTSTATE})) { |
$helper->changeState($self->{NEXTSTATE}); |
$helper->changeState($self->{NEXTSTATE}); |
Line 1982 BUTTONS
|
Line 2069 BUTTONS
|
$mapUrl = $self->{MAP_URL}; |
$mapUrl = $self->{MAP_URL}; |
} |
} |
|
|
|
my %defaultSymbs; |
|
if (defined($self->{DEFAULT_VALUE})) { |
|
my $valueFunc = eval($self->{DEFAULT_VALUE}); |
|
die 'Error in default value code for variable ' . |
|
$self->{'variable'} . ', Perl said: ' . $@ if $@; |
|
my @defaultSymbs = &$valueFunc($helper, $self); |
|
if (!$multichoice && @defaultSymbs) { # only allowed 1 |
|
@defaultSymbs = ($defaultSymbs[0]); |
|
} |
|
%defaultSymbs = map { if ($_) {($_,1) } } @defaultSymbs; |
|
delete($defaultSymbs{''}); |
|
} |
|
|
# 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 |
Line 2030 BUTTONS
|
Line 2129 BUTTONS
|
} |
} |
|
|
$col .= "<td align='center'><input type='$inputType' name='${var}.forminput' "; |
$col .= "<td align='center'><input type='$inputType' name='${var}.forminput' "; |
if (!$checked && !$multichoice) { |
if (%defaultSymbs) { |
$col .= "checked='checked' "; |
my $symb=$resource->symb(); |
$checked = 1; |
if (exists($defaultSymbs{$symb})) { |
} |
$col .= "checked='checked' "; |
if ($multichoice) { # all resources start checked; see bug 1174 |
$checked = 1; |
$col .= "checked='checked' "; |
} |
$checked = 1; |
} else { |
|
if (!$checked && !$multichoice) { |
|
$col .= "checked='checked' "; |
|
$checked = 1; |
|
} |
|
if ($multichoice) { # all resources start checked; see bug 1174 |
|
$col .= "checked='checked' "; |
|
$checked = 1; |
|
} |
} |
} |
$col .= "value='" . $resource_name . "' /></td>"; |
$col .= "value='" . $resource_name . "' /></td>"; |
|
|
Line 2154 selection. Defaults to false.
|
Line 2261 selection. Defaults to false.
|
If true, only active students and course personnel will be |
If true, only active students and course personnel will be |
shown. Defaults to false. |
shown. Defaults to false. |
|
|
|
=item * B<emptyallowed>: |
|
|
|
If true, the selection of no users is allowed. Defaults to false. |
|
|
=back |
=back |
|
|
=cut |
=cut |
Line 2164 use strict;
|
Line 2275 use strict;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
|
|
# |
|
# Utility function used when rendering the <student> tag. |
|
# This function renders a segment of course personel |
|
# Personel are broken up by the helper into past, current and |
|
# future...each one gets is own subpage of selection. |
|
# This sub renders one of these pages. |
|
# Parameters: |
|
# $sections - Set of sections in the course (hash reference). |
|
# $students - Students in the section. (ref to array of references |
|
# to arrays). |
|
# $formprefix - form path prefix for form element names |
|
# This is used to make each form element |
|
# so that the segments having to do with each |
|
# set of students won't collide. |
|
# $defaultusers - reference to a hash containng |
|
# the set of users that should be on or off. |
|
# $multiselect - True if multiselect allowed. |
|
# $resultname - Name of result variable. |
|
# Returns: |
|
# HTML text to add to the rendering of the helper. |
|
# |
|
sub render_student_list { |
|
my ( |
|
$sections, $students, $formprefix, $defaultusers, |
|
$multiselect, $resultname) = @_; |
|
|
|
my $result = ""; |
|
|
|
# If multiple selections are allowed, we have a listbox |
|
# at the top which allows quick selections from each section |
|
# as well as from categories of personnel. |
|
|
|
if ($multiselect) { |
|
$result .= '<table><tr><td>'; |
|
|
|
my $size = scalar(keys(%$sections)); |
|
$size += 3; # We have allstudents allpersonel nosection too. |
|
if ($size > 5) { |
|
$size = 5; |
|
} |
|
$result .= '<select multiple name="'.$formprefix |
|
.'.chosensections" size="'.$size.'">'."\n"; |
|
$result .= '<option name="allstudents">All Students</option>'; |
|
$result .= '<option name="allpersonnel">All Course Personnel</option>'; |
|
$result .= '<option name="nosection">No Section</option>'; |
|
$result .= "\n"; |
|
foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%$sections))) { |
|
$result .= '<option name="'.$sec.'">'.$sec.'</option>'."\n"; |
|
} |
|
$result .= '</td><td valign="top">'; |
|
$result .= '<input type="button" name="'.$formprefix.'.select" value="Select" onclick=' |
|
."'selectSections(\"$formprefix.chosensections\", \"$formprefix\")'".' /></td>'; |
|
$result .= '<td valign="top"><input type="button" name="'.$formprefix |
|
.'.unselect" value="Unselect" onclick='. |
|
"'unselectSections(\"$formprefix.chosensections\", \"$formprefix\")' ".' /></td></tr></table>'; |
|
} |
|
|
|
# Now we list the students, but the form element type |
|
# will depend on whether or not multiselect is true. |
|
# True -> checkboxes. |
|
# False -> radiobuttons. |
|
|
|
$result .= "<table border=\"2\">\n"; |
|
$result .= '<tr><th></th><th align="center">Name</th>'."\n"; |
|
$result .= ' <th align="center">Section</th>'."\n"; |
|
$result .= ' <th align="center">Status</th>'."\n"; |
|
$result .= ' <th align="center">Role</th>'."\n"; |
|
$result .= ' <th align="center">Username : Domain</th></tr>'."\n"; |
|
|
|
my $input_type; |
|
if ($multiselect) { |
|
$input_type = "checkbox"; |
|
} else { |
|
$input_type = "radio"; |
|
} |
|
|
|
my $checked = 0; |
|
for my $student (@$students) { |
|
$result .= '<tr><td><input type="'.$input_type.'" name="'. |
|
$resultname.".forminput".'"'; |
|
my $user = $student->[0]; |
|
|
|
# Figure out which students are checked by default... |
|
|
|
if(%$defaultusers) { |
|
if (exists ($defaultusers->{$user})) { |
|
$result .= ' checked ="checked" '; |
|
$checked = 1; |
|
} |
|
} elsif (!$multiselect && !$checked) { |
|
$result .= ' checked="checked" '; |
|
$checked = 1; # First one for radio if no default specified. |
|
} |
|
$result .= ' value="'. HTML::Entities::encode($user . ':' |
|
.$student->[2] . ':' |
|
.$student->[1] . ':' |
|
.$student->[3] . ':' |
|
.$student->[4] . ":" |
|
.$formprefix, "<>&\"'") |
|
."\" /></td><td>\n"; |
|
$result .= HTML::Entities::encode($student->[1], '<>&"') |
|
. '</td><td align="center" >'."\n"; |
|
$result .= HTML::Entities::encode($student->[2], '<>&"') |
|
. '</td><td align="center">'."\n"; |
|
$result .= HTML::Entities::encode($student->[3], '<>&"') |
|
. '</td><td align="center">'."\n"; |
|
$result .= HTML::Entities::encode($student->[4], '<>&"') |
|
. '</td><td align="center">'."\n"; |
|
$result .= HTML::Entities::encode($student->[0], '<>&"') |
|
. '</td></tr>'."\n"; |
|
} |
|
$result .=" </table> <br /> <hr />\n"; |
|
|
|
return $result; |
|
} |
|
|
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::student', |
&Apache::lonhelper::register('Apache::lonhelper::student', |
('student')); |
('student')); |
Line 2189 sub start_student {
|
Line 2416 sub start_student {
|
if (defined($token->[2]{'nextstate'})) { |
if (defined($token->[2]{'nextstate'})) { |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
} |
} |
|
$paramHash->{'emptyallowed'} = $token->[2]{'emptyallowed'}; |
|
|
} |
} |
|
|
Line 2211 sub render {
|
Line 2439 sub render {
|
$result = <<SCRIPT; |
$result = <<SCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
// <!-- |
// <!-- |
function checkall(value, checkName) { |
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
function findElement(name) { |
ele = document.forms.helpform.elements[i]; |
var i; |
if (ele.name == checkName + '.forminput') { |
var ele; |
document.forms.helpform.elements[i].checked=value; |
for(i =0; i < document.forms.helpform.elements.length; i++) { |
} |
ele = document.forms.helpform.elements[i]; |
} |
if(ele.name == name) { |
} |
return ele; |
function checksec(value) { |
} |
for (i=0; i<document.forms.helpform.elements.length; i++) { |
} |
comp = document.forms.helpform.elements.chksec.value; |
return null; |
if (document.forms.helpform.elements[i].value.indexOf(':'+comp+':') != -1) { |
|
if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) { |
|
document.forms.helpform.elements[i].checked=value; |
|
} |
|
} |
|
} |
|
} |
} |
function checkactive() { |
function isStudent(element) { |
for (i=0; i<document.forms.helpform.elements.length; i++) { |
if(element.value.indexOf(":Student") != -1) { |
if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) { |
return 1; |
document.forms.helpform.elements[i].checked=true; |
} |
} |
return 0; |
} |
|
} |
} |
function uncheckexpired() { |
function section(element) { |
for (i=0; i<document.forms.helpform.elements.length; i++) { |
var i; |
if (document.forms.helpform.elements[i].value.indexOf(':Expired') != -1) { |
var info; |
document.forms.helpform.elements[i].checked=false; |
if (element.value.indexOf(':') != -1) { |
} |
info = element.value.split(':'); |
} |
return info[2]; |
|
} else { |
|
return ""; |
|
} |
} |
} |
function getDesiredState() { // Return desired person state radio value. |
function rightSubForm(element, which) { |
numRadio = document.forms.helpform.personstate.length; |
if (element.value.indexOf(which) != -1) { |
for (i =0; i < numRadio; i++) { |
return true; |
if (document.forms.helpform.personstate[i].checked) { |
} else { |
return document.forms.helpform.personstate[i].value; |
return false; |
} |
} |
} |
|
return ""; |
|
} |
} |
|
|
function checksections(value) { // Check selected sections. |
function setAllStudents(value, which) { |
numSections = document.forms.helpform.chosensections.length; |
var i; |
desiredState = getDesiredState(); |
var ele; |
|
for (i =0; i < document.forms.helpform.elements.length; i++) { |
for (var option = 0; option < numSections; option++) { |
ele = document.forms.helpform.elements[i]; |
if(document.forms.helpform.chosensections.options[option].selected) { |
if(isStudent(ele) && rightSubForm(ele, which)) { |
section = document.forms.helpform.chosensections.options[option].text; |
ele.checked=value; |
if (section == "none") { |
} |
section =""; |
} |
|
} |
|
function setAllCoursePersonnel(value, which) { |
|
var i; |
|
var ele; |
|
for (i =0; i < document.forms.helpform.elements.length; i++) { |
|
ele = document.forms.helpform.elements[i]; |
|
if(!isStudent(ele) && rightSubForm(ele, which)) { |
|
ele.checked = value; |
|
} |
|
} |
|
} |
|
function setSection(which, value, subform) { |
|
var i; |
|
var ele; |
|
for (i =0; i < document.forms.helpform.elements.length; i++) { |
|
ele = document.forms.helpform.elements[i]; |
|
if (ele.value.indexOf(':') != -1) { |
|
if ((section(ele) == which) && rightSubForm(ele, subform)) { |
|
ele.checked = value; |
} |
} |
for (i = 0; i < document.forms.helpform.elements.length; i++ ) { |
} |
if (document.forms.helpform.elements[i].value.indexOf(':') != -1) { |
} |
info = document.forms.helpform.elements[i].value.split(':'); |
} |
hisSection = info[2]; |
|
hisState = info[4]; |
function setCheckboxes(listbox, which, value) { |
if (desiredState == hisState || |
var k; |
desiredState == "All") { |
var elem; |
if(hisSection == section || |
var what; |
section =="" ) { |
elem = findElement(listbox); |
document.forms.helpform.elements[i].checked = value; |
if (elem != null) { |
} |
for (k = 0; k < elem.length; k++) { |
} |
if (elem.options[k].selected) { |
|
what = elem.options[k].text; |
|
if (what == 'All Students') { |
|
setAllStudents(value, which); |
|
} else if (what == 'All Course Personnel') { |
|
setAllCoursePersonnel(value, which); |
|
} else if (what == 'No Section') { |
|
setSection('',value, which); |
|
} else { |
|
setSection(what, value, which); |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
function selectSections(listbox, which) { |
|
setCheckboxes(listbox, which, true); |
|
|
|
} |
|
function unselectSections(listbox, which) { |
|
setCheckboxes(listbox, which, false); |
|
} |
|
|
// --> |
// --> |
</script> |
</script> |
SCRIPT |
SCRIPT |
Line 2304 SCRIPT
|
Line 2562 SCRIPT
|
</table> |
</table> |
<br /> |
<br /> |
BUTTONS |
BUTTONS |
} |
# $result .= $buttons; |
|
|
|
} |
|
|
if (defined $self->{ERROR_MSG}) { |
if (defined $self->{ERROR_MSG}) { |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
} |
} |
|
|
my $choices = []; |
my %defaultUsers; |
|
if (defined($self->{DEFAULT_VALUE})) { |
|
my $valueFunc = eval($self->{DEFAULT_VALUE}); |
|
die 'Error in default value code for variable ' . |
|
$self->{'variable'} . ', Perl said: ' . $@ if $@; |
|
my @defaultUsers = &$valueFunc($helper, $self); |
|
if (!$self->{'multichoice'} && @defaultUsers) { # only allowed 1 |
|
@defaultUsers = ($defaultUsers[0]); |
|
} |
|
%defaultUsers = map { if ($_) {($_,1) } } @defaultUsers; |
|
delete($defaultUsers{''}); |
|
} |
|
|
|
|
|
|
|
# my $choices = []; |
|
|
|
# |
|
# We need to parcel out the personel in to three arrays: |
|
# $current_members[] - Contains those whose roles are currently active. |
|
# $expired_members[] - Contains those whose roles have expired. |
|
# $future_members[] - Contains those whose roles will become active in the |
|
# future. |
|
# |
|
# Constants |
|
my $section = &Apache::loncoursedata::CL_SECTION(); |
|
my $fullname = &Apache::loncoursedata::CL_FULLNAME(); |
|
my $status = &Apache::loncoursedata::CL_STATUS(); |
|
my $start_date = &Apache::loncoursedata::CL_START(); |
|
|
|
my $current_members = []; |
|
my $expired_members = []; |
|
my $future_members = []; |
|
|
|
|
# Load up the non-students, if necessary |
# Load up the non-students, if necessary |
if ($self->{'coursepersonnel'}) { |
if ($self->{'coursepersonnel'}) { |
Line 2327 BUTTONS
|
Line 2620 BUTTONS
|
@people = sort { $a->[0] cmp $b->[0] } @people; |
@people = sort { $a->[0] cmp $b->[0] } @people; |
|
|
for my $person (@people) { |
for my $person (@people) { |
push @$choices, [join(':', @$person), $person->[0], '', $_]; |
push @$current_members, [join(':', @$person), $person->[0], '', $_]; |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
# Constants |
|
my $section = Apache::loncoursedata::CL_SECTION(); |
|
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 2348 BUTTONS
|
Line 2637 BUTTONS
|
} |
} |
return $classlist->{$a}->[$fullname] cmp $classlist->{$b}->[$fullname]; |
return $classlist->{$a}->[$fullname] cmp $classlist->{$b}->[$fullname]; |
} @keys; |
} @keys; |
|
|
|
|
|
|
|
|
# username, fullname, section, type |
|
for (@keys) { |
for (@keys) { |
# Filter out inactive students if we've set "activeonly" |
|
if (!$self->{'activeonly'} || $classlist->{$_}->[$status] eq |
if ( $classlist->{$_}->[$status] eq |
'Active') { |
'Active') { |
push @$choices, [$_, $classlist->{$_}->[$fullname], |
push @$current_members, [$_, $classlist->{$_}->[$fullname], |
$classlist->{$_}->[$section], |
$classlist->{$_}->[$section], |
$classlist->{$_}->[$status], 'Student']; |
$classlist->{$_}->[$status], 'Student']; |
|
} else { |
|
# Need to figure out if this user is future or |
|
# Expired... If the start date is in the future |
|
# the user is future...else expired. |
|
|
|
my $now = time; |
|
if ($classlist->{$_}->[$start_date] > $now) { |
|
push @$future_members, [$_, $classlist->{$_}->[$fullname], |
|
$classlist->{$_}->[$section], |
|
"Future", "Student"]; |
|
} else { |
|
push @$expired_members, [$_, $classlist->{$_}->[$fullname], |
|
$classlist->{$_}->[$section], |
|
"Expired", "Student"]; |
|
} |
|
|
} |
} |
} |
} |
|
|
my $name = $self->{'coursepersonnel'} ? &mt('Name') : &mt('Student Name'); |
|
my $type = 'radio'; |
|
if ($self->{'multichoice'}) { $type = 'checkbox'; } |
|
$result .= "<table cellspacing='2' cellpadding='2' border='0'>\n"; |
|
$result .= "<tr><td></td><td align='center'><b>$name</b></td>". |
|
"<td align='center'><b>" . &mt('Section') . "</b></td>" . |
|
"<td align='center'><b>".&mt('Status')."</b></td>" . |
|
"<td align='center'><b>" . &mt("Role") . "</b></td>" . |
|
"<td align='center'><b>".&mt('Username').":".&mt('Domain')."</b></td></tr>"; |
|
|
|
my $checked = 0; |
# Create a list of the sections that can be used to create the section |
for my $choice (@$choices) { |
# selection list boxes: |
$result .= "<tr><td><input type='$type' name='" . |
# |
$self->{'variable'} . '.forminput' . "'"; |
my %sections; |
|
for my $key (@keys) { |
if (!$self->{'multichoice'} && !$checked) { |
my $section_name = $classlist->{$key}->[$section]; |
$result .= " checked='checked' "; |
if ($section_name ne "") { |
$checked = 1; |
$sections{$section_name} = 1; |
} |
} |
$result .= |
|
" value='" . HTML::Entities::encode($choice->[0] . ':' |
|
.$choice->[2] . ':' |
|
.$choice->[1] . ':' |
|
.$choice->[3], "<>&\"'") |
|
. "' /></td><td>" |
|
. HTML::Entities::encode($choice->[1],'<>&"') |
|
. "</td><td align='center'>" |
|
. HTML::Entities::encode($choice->[2],'<>&"') |
|
. "</td>\n<td>" |
|
. 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 .= $buttons; |
|
# |
|
# now add the fancy section choice... first enumerate the sections: |
|
if ($self->{'multichoice'}) { |
if ($self->{'multichoice'}) { |
my %sections; |
|
for my $key (@keys) { |
|
my $section_name = $classlist->{$key}->[$section]; |
|
if ($section_name ne "") { |
|
$sections{$section_name} = 1; |
|
} |
|
} |
|
# The variable $choice_widget will have the html to make the choice |
# The variable $choice_widget will have the html to make the choice |
# selector. |
# selector. |
my $size=5; |
my $size=5; |
if (scalar(keys(%sections)) < 5) { |
if (scalar(keys(%sections)) < 5) { |
$size=scalar(keys(%sections)); |
$size=scalar(keys(%sections)); |
} |
} |
my $choice_widget = '<select multiple name="chosensections" size="'.$size.'">'."\n"; |
my $result = '<select multiple name="chosensections" size="'.$size.'">'."\n"; |
foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) { |
foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) { |
$choice_widget .= "<option name=\"$sec\">$sec</option>\n"; |
$result .= "<option name=\"$sec\">$sec</option>\n"; |
} |
} |
$choice_widget .= "<option>none</option></select>\n"; |
$result .= "<option>none</option></select>\n"; |
|
|
# Build a table without any borders to contain the section based |
|
# selection: |
|
|
|
my $section_selectors =<<SECTIONSELECT; |
|
<table border="0"> |
|
<tr valign="top"> |
|
<td>For Sections:</td><td>$choice_widget</td> |
|
<td><label><input type="radio" name="personstate" value="Active" checked /> |
|
Current Students</label></td> |
|
<td><label><input type="radio" name="personstate" value="All" /> |
|
All students</label></td> |
|
<td><label><input type="radio" name="personstate" value="Expired" /> |
|
Expired Students</label></td> |
|
</tr> |
|
<tr> |
|
<td><input type="button" value="Select" onclick="checksections(true);" /></td> |
|
<td><input type="button" value="Unselect" onclick="checksections(false);" /></td></tr> |
|
</table> |
|
<br /> |
|
SECTIONSELECT |
|
$result .= $section_selectors; |
|
} |
} |
|
|
|
# Current personel |
|
|
|
$result .= &render_student_list(\%sections, |
|
$current_members, |
|
"current", |
|
\%defaultUsers, |
|
$self->{'multichoice'}, |
|
$self->{'variable'}); |
|
|
|
|
|
# If activeonly is not set then we can also give the expired students: |
|
# |
|
if (!$self->{'activeonly'} && ((scalar @$expired_members) > 0)) { |
|
|
|
# And future. |
|
|
|
$result .= &render_student_list(\%sections, |
|
$future_members, |
|
"future", |
|
\%defaultUsers, |
|
$self->{'multichoice'}, |
|
$self->{'variable'}); |
|
# Past |
|
|
|
$result .= &render_student_list(\%sections, |
|
$expired_members, |
|
"past", |
|
\%defaultUsers, |
|
$self->{'multichoice'}, |
|
$self->{'variable'}); |
|
} |
|
|
|
|
|
|
return $result; |
return $result; |
} |
} |
|
|
Line 2450 sub postprocess {
|
Line 2738 sub postprocess {
|
my $self = shift; |
my $self = shift; |
|
|
my $result = $env{'form.' . $self->{'variable'} . '.forminput'}; |
my $result = $env{'form.' . $self->{'variable'} . '.forminput'}; |
if (!$result) { |
if (!$result && !$self->{'emptyallowed'}) { |
$self->{ERROR_MSG} = |
if ($self->{'coursepersonnel'}) { |
&mt('You must choose at least one student to continue.'); |
$self->{ERROR_MSG} = |
|
&mt('You must choose at least one user to continue.'); |
|
} else { |
|
$self->{ERROR_MSG} = |
|
&mt('You must choose at least one student to continue.'); |
|
} |
return 0; |
return 0; |
} |
} |
|
|
Line 2832 package Apache::lonhelper::section;
|
Line 3125 package Apache::lonhelper::section;
|
<section> allows the user to choose one or more sections from the current |
<section> allows the user to choose one or more sections from the current |
course. |
course. |
|
|
It takes the standard attributes "variable", "multichoice", and |
It takes the standard attributes "variable", "multichoice", |
"nextstate", meaning what they do for most other elements. |
"allowempty" and "nextstate", meaning what they do for most other |
|
elements. |
|
|
|
also takes a boolean 'onlysections' whcih will restrict this to only |
|
have sections and not include groups |
|
|
=cut |
=cut |
|
|
Line 2863 sub start_section {
|
Line 3160 sub start_section {
|
$paramHash->{'variable'} = $token->[2]{'variable'}; |
$paramHash->{'variable'} = $token->[2]{'variable'}; |
$helper->declareVar($paramHash->{'variable'}); |
$helper->declareVar($paramHash->{'variable'}); |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
$paramHash->{'multichoice'} = $token->[2]{'multichoice'}; |
|
$paramHash->{'allowempty'} = $token->[2]{'allowempty'}; |
if (defined($token->[2]{'nextstate'})) { |
if (defined($token->[2]{'nextstate'})) { |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
} |
} |
Line 2872 sub start_section {
|
Line 3170 sub start_section {
|
|
|
my $section = Apache::loncoursedata::CL_SECTION(); |
my $section = Apache::loncoursedata::CL_SECTION(); |
my $classlist = Apache::loncoursedata::get_classlist(); |
my $classlist = Apache::loncoursedata::get_classlist(); |
foreach (keys %$classlist) { |
foreach my $user (keys(%$classlist)) { |
my $sectionName = $classlist->{$_}->[$section]; |
my $section_name = $classlist->{$user}[$section]; |
if (!$sectionName) { |
if (!$section_name) { |
$choices{"No section assigned"} = ""; |
$choices{"No section assigned"} = ""; |
} else { |
} else { |
$choices{$sectionName} = $sectionName; |
$choices{$section_name} = $section_name; |
} |
} |
} |
} |
|
|
for my $sectionName (sort(keys(%choices))) { |
if (exists($choices{"No section assigned"})) { |
|
push(@{$paramHash->{CHOICES}}, |
push @{$paramHash->{CHOICES}}, [$sectionName, $sectionName]; |
['No section assigned','No section assigned']); |
|
delete($choices{"No section assigned"}); |
|
} |
|
for my $section_name (sort {lc($a) cmp lc($b) } (keys(%choices))) { |
|
push @{$paramHash->{CHOICES}}, [$section_name, $section_name]; |
|
} |
|
return if ($token->[2]{'onlysections'}); |
|
|
|
# add in groups to the end of the list |
|
my %curr_groups = &Apache::loncommon::coursegroups(); |
|
foreach my $group_name (sort(keys(%curr_groups))) { |
|
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |
} |
} |
} |
} |
|
|
Line 2897 sub end_section {
|
Line 3206 sub end_section {
|
} |
} |
1; |
1; |
|
|
|
package Apache::lonhelper::group; |
|
|
|
=pod |
|
|
|
=head2 Element: groupX<group, helper element> |
|
|
|
<group> allows the user to choose one or more groups from the current course. |
|
|
|
It takes the standard attributes "variable", "multichoice", |
|
"allowempty" 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::group', |
|
('group')); |
|
} |
|
|
|
sub new { |
|
my $ref = Apache::lonhelper::choices->new(); |
|
bless($ref); |
|
} |
|
|
|
sub start_group { |
|
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'}; |
|
$paramHash->{'allowempty'} = $token->[2]{'allowempty'}; |
|
if (defined($token->[2]{'nextstate'})) { |
|
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
|
} |
|
|
|
# Populate the CHOICES element |
|
my %choices; |
|
|
|
my %curr_groups = &Apache::loncommon::coursegroups(); |
|
foreach my $group_name (sort {lc($a) cmp lc($b)} (keys(%curr_groups))) { |
|
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |
|
} |
|
} |
|
|
|
sub end_group { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
|
if ($target ne 'helper') { |
|
return ''; |
|
} |
|
Apache::lonhelper::group->new(); |
|
} |
|
1; |
|
|
package Apache::lonhelper::string; |
package Apache::lonhelper::string; |
|
|
=pod |
=pod |
Line 2990 sub postprocess {
|
Line 3363 sub postprocess {
|
|
|
if (defined($self->{VALIDATOR})) { |
if (defined($self->{VALIDATOR})) { |
my $validator = eval($self->{VALIDATOR}); |
my $validator = eval($self->{VALIDATOR}); |
die 'Died during evaluation of evaulation code; Perl said: ' . $@ if $@; |
die 'Died during evaluation of validator code; Perl said: ' . $@ if $@; |
my $invalid = &$validator($helper, $state, $self, $self->getValue()); |
my $invalid = &$validator($helper, $state, $self, $self->getValue()); |
if ($invalid) { |
if ($invalid) { |
$self->{ERROR_MSG} = $invalid; |
$self->{ERROR_MSG} = $invalid; |
Line 3278 sub render {
|
Line 3651 sub render {
|
} |
} |
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); |
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
my $next = HTML::Entities::encode(&mt("Next ->"), '<>&"'); |
|
my $target = " target='loncapaclient'"; |
|
if (($env{'browser.interface'} eq 'textual') || |
|
($env{'environment.remote'} eq 'off')) { $target=''; } |
$result .= "<center>\n" . |
$result .= "<center>\n" . |
"<form action='".$actionURL."' method='post' target='loncapaclient'>\n" . |
"<form action='".$actionURL."' method='post' $target>\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" . |
Line 3480 sub render {
|
Line 3856 sub render {
|
$result .= '<li>'.&mt('for section [_1]',"<b>$section</b>").'</li>'; |
$result .= '<li>'.&mt('for section [_1]',"<b>$section</b>").'</li>'; |
$result .= "<input type='hidden' name='csec' value='" . |
$result .= "<input type='hidden' name='csec' value='" . |
HTML::Entities::encode($section,"'<>&\"") . "' />\n"; |
HTML::Entities::encode($section,"'<>&\"") . "' />\n"; |
|
} elsif ($vars->{TARGETS} eq 'group') { |
|
my $group = $vars->{GROUP_NAME}; |
|
$result .= '<li>'.&mt('for group [_1]',"<b>$group</b>").'</li>'; |
|
$result .= "<input type='hidden' name='cgroup' value='" . |
|
HTML::Entities::encode($group,"'<>&\"") . "' />\n"; |
} else { |
} else { |
# FIXME: This is probably wasteful! Store the name! |
# FIXME: This is probably wasteful! Store the name! |
my $classlist = Apache::loncoursedata::get_classlist(); |
my $classlist = Apache::loncoursedata::get_classlist(); |