\n";
$result .= " | $name | ".
"" . &mt('Section') . " | " .
- "Status | " .
- "" . &mt("Role") . " |
" .
- "Username:Domain | ";
+ "".&mt('Status')." | " .
+ "" . &mt("Role") . " | " .
+ "".&mt('Username').":".&mt('Domain')." | ";
my $checked = 0;
for my $choice (@$choices) {
@@ -2190,17 +2230,17 @@ BUTTONS
$checked = 1;
}
$result .=
- " value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2] . ':' . $choice->[1] . ':' . $choice->[3])
+ " 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])
+ . HTML::Entities::encode($choice->[3],'<>&"')
. " | \n"
- . HTML::Entities::encode($choice->[4])
+ . HTML::Entities::encode($choice->[4],'<>&"')
. " | \n"
- . HTML::Entities::encode($choice->[0])
+ . HTML::Entities::encode($choice->[0],'<>&"')
. " | \n";
}
@@ -2401,20 +2441,22 @@ sub render {
}
SCRIPT
- my $selectAllFiles = &mt("Select All Files");
- my $unselectAllFiles = &mt("Unselect All Files");
- $buttons = < "Select All Files",
+ 'uaf' => "Unselect All Files");
+ $buttons = <
-
-
+
+
BUTTONS
- my $selectAllPublished = &mt("Select All Published");
- my $unselectAllPublished= &mt("UnselectAllPublished");
+ my %lt=&Apache::lonlocal::texthash(
+ 'sap' => "Select All Published",
+ 'uap' => "Unselect All Published");
if ($helper->{VARS}->{'construction'}) {
- $buttons .= <
-
+ $buttons .= <
+
BUTTONS
}
@@ -2496,7 +2538,7 @@ BUTTONS
}
$result .= '" .
"&"').
"'";
if (!$self->{'multichoice'} && $choices == 0) {
$result .= ' checked';
@@ -3164,7 +3206,7 @@ sub render {
$result .= "for section $section";
$level -= 3;
$result .= "\n";
+ HTML::Entities::encode($section,'<>&"') . "' />\n";
} else {
# FIXME: This is probably wasteful! Store the name!
my $classlist = Apache::loncoursedata::get_classlist();
@@ -3176,9 +3218,9 @@ sub render {
$level -= 6;
my ($uname, $udom) = split /:/, $vars->{USER_NAME};
$result .= "\n";
+ HTML::Entities::encode($uname,'<>&"') . "' />\n";
$result .= "\n";
+ HTML::Entities::encode($udom,'<>&"') . "' />\n";
}
# Print value
|