\n";
$result .= " | $name | ".
- "Section | " .
- "Role |
";
+ "" . &mt('Section') . " | " .
+ "".&mt('Status')." | " .
+ "" . &mt("Role") . " | " .
+ "".&mt('Username').":".&mt('Domain')." | ";
my $checked = 0;
for my $choice (@$choices) {
@@ -2162,13 +2345,21 @@ BUTTONS
$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";
@@ -2182,8 +2373,8 @@ sub postprocess {
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,6 +2440,7 @@ viewing the files.
no strict;
@ISA = ("Apache::lonhelper::element");
use strict;
+use Apache::lonlocal;
use Apache::lonpubdir; # for getTitleString
@@ -2324,6 +2516,13 @@ sub start_filefilter {
sub end_filefilter { return ''; }
+{
+ # used to generate unique id attributes for