--- loncom/interface/lonparmset.pm 2008/12/03 21:20:57 1.418 +++ loncom/interface/lonparmset.pm 2009/02/24 18:20:49 1.435 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.418 2008/12/03 21:20:57 schafran Exp $ +# $Id: lonparmset.pm,v 1.435 2009/02/24 18:20:49 hauer Exp $ # # Copyright Michigan State University Board of Trustees # @@ -848,12 +848,13 @@ sub plink { my ($hour,$min,$sec,$val)=&preset_defaults($parmname); unless (defined($winvalue)) { $winvalue=$val; } my $valout = &valout($value,$type,1); + my $unencmarker = $marker; foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call, \$hour, \$min, \$sec) { $$item = &HTML::Entities::encode($$item,'"<>&'); $$item =~ s/\'/\\\'/g; } - return '
'.
+ return '
|