--- loncom/interface/lonhtmlcommon.pm 2013/12/31 01:17:34 1.355
+++ loncom/interface/lonhtmlcommon.pm 2014/12/20 15:35:40 1.358
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.355 2013/12/31 01:17:34 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.358 2014/12/20 15:35:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1227,7 +1227,7 @@ ENDEDITOR
-
+
@@ -3250,7 +3250,7 @@ sub jump_to_editres {
if ($forcereg) {
$cfile .= '®ister=1';
}
- $jscall = "need_switchserver('$cfile');";
+ $jscall = "need_switchserver('".&Apache::loncommon::escape_single($cfile)."');";
}
} else {
unless ($cfile =~ m{^/priv/}) {
@@ -3281,7 +3281,7 @@ sub jump_to_editres {
$cfile .= (($cfile=~/\?/)?'&':'?').'todocs=1';
}
}
- $jscall = "go('$cfile')";
+ $jscall = "go('".&Apache::loncommon::escape_single($cfile)."')";
}
return $jscall;
}
@@ -3348,7 +3348,7 @@ END
sub htmltag{
return
qq|<$_[0]|
- . join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} } keys %{ $_[2] } )
+ . join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} } keys(%{ $_[2] }) )
. ($_[1] ? qq|>$_[1]$_[0]>| : qq|/>|). "\n";
};