\n";
$result .= " | $name | ".
- "Section | " .
- "Role |
";
+ "" . &mt('Section') . " | " .
+ "".&mt('Status')." | " .
+ "" . &mt("Role") . " | " .
+ "".&mt('Username').":".&mt('Domain')." | ";
my $checked = 0;
for my $choice (@$choices) {
@@ -2158,17 +2350,25 @@ BUTTONS
$self->{'variable'} . '.forminput' . "'";
if (!$self->{'multichoice'} && !$checked) {
- $result .= " checked ";
+ $result .= " checked='checked' ";
$checked = 1;
}
$result .=
- " value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2])
+ " value='" . HTML::Entities::encode($choice->[0] . ':'
+ .$choice->[2] . ':'
+ .$choice->[1] . ':'
+ .$choice->[3], "<>&\"'")
. "' />"
- . HTML::Entities::encode($choice->[1])
+ . HTML::Entities::encode($choice->[1],'<>&"')
. " | "
- . HTML::Entities::encode($choice->[2])
+ . HTML::Entities::encode($choice->[2],'<>&"')
+ . " | \n"
+ . HTML::Entities::encode($choice->[3],'<>&"')
. " | \n"
- . HTML::Entities::encode($choice->[3]) . " | \n";
+ . HTML::Entities::encode($choice->[4],'<>&"')
+ . "\n"
+ . HTML::Entities::encode($choice->[0],'<>&"')
+ . " | \n";
}
$result .= "
\n\n";
@@ -2180,10 +2380,10 @@ BUTTONS
sub postprocess {
my $self = shift;
- my $result = $ENV{'form.' . $self->{'variable'} . '.forminput'};
+ my $result = $env{'form.' . $self->{'variable'} . '.forminput'};
if (!$result) {
- $self->{ERROR_MSG} = 'You must choose at least one student '.
- 'to continue.';
+ $self->{ERROR_MSG} =
+ &mt('You must choose at least one student to continue.');
return 0;
}
@@ -2249,7 +2449,8 @@ viewing the files.
no strict;
@ISA = ("Apache::lonhelper::element");
use strict;
-
+use Apache::lonlocal;
+use Apache::lonnet;
use Apache::lonpubdir; # for getTitleString
BEGIN {
@@ -2324,6 +2525,13 @@ sub start_filefilter {
sub end_filefilter { return ''; }
+{
+ # used to generate unique id attributes for