--- loncom/interface/lonhelper.pm 2004/03/08 17:31:37 1.65
+++ loncom/interface/lonhelper.pm 2004/03/31 05:23:59 1.67
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.65 2004/03/08 17:31:37 www Exp $
+# $Id: lonhelper.pm,v 1.67 2004/03/31 05:23:59 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -462,11 +462,11 @@ sub _saveVars {
my $self = shift;
my $result = "";
$result .= '\n";
+ HTML::Entities::encode($self->{STATE},'<>&"') . "\" />\n";
$result .= '\n";
$result .= '\n";
+ HTML::Entities::encode($self->{RETURN_PAGE},'<>&"') . "\" />\n";
return $result;
}
@@ -1264,7 +1264,7 @@ BUTTONS
$result .= "
\n | \n";
$result .= "&"')
. "'";
if ($checkedChoices{$choice->[1]}) {
$result .= " checked ";
@@ -1419,7 +1419,7 @@ sub render {
$result .= " | ";
return $col;
}
@@ -1962,6 +1963,7 @@ BUTTONS
'showParts' => 0,
'filterFunc' => $filterFunc,
'resource_no_folder_link' => 1,
+ 'closeAllPages' => $self->{'closeallpages'},
'suppressEmptySequences' => $self->{'suppressEmptySequences'},
'iterator_map' => $mapUrl }
);
@@ -2190,17 +2192,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";
}
@@ -2496,7 +2498,7 @@ BUTTONS
}
$result .= '" .
"&"').
"'";
if (!$self->{'multichoice'} && $choices == 0) {
$result .= ' checked';
@@ -3164,7 +3166,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 +3178,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
|