--- loncom/homework/lonhomework.pm 2004/05/25 21:25:53 1.175 +++ loncom/homework/lonhomework.pm 2004/05/26 22:45:57 1.176 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.175 2004/05/25 21:25:53 albertel Exp $ +# $Id: lonhomework.pm,v 1.176 2004/05/26 22:45:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -434,7 +434,7 @@ sub analyze_header { '.&mt("Analyzing a problem").' '.&Apache::lonxml::message_location().'
+ &HTML::Entities::encode($ENV{'request.uri'},'<>&"').'">
@@ -554,7 +554,7 @@ sub editxmlmode { $result.=''. &Apache::lonxml::message_location().' + &HTML::Entities::encode($ENV{'request.uri'},'<>&"').'"> @@ -669,8 +669,8 @@ sub newproblem { copy($templatefilename,$dest); &renderpage($request,$dest); } else { - my $url=$request->uri; - my $shownurl=$url; + my $url=&HTML::Entities::encode($request->uri,'<>&"'); + my $shownurl=$url; $shownurl=~s-^/~-/priv/-; my $dest = &Apache::lonnet::filelocation("",$request->uri); my $errormsg; @@ -709,7 +709,7 @@ ENDNEWPROBLEM sub view_or_edit_menu { my ($request) = @_; - my $url=$request->uri; + my $url=&HTML::Entities::encode($request->uri,'<>&"'); my %lt=&Apache::lonlocal::texthash( 'would' => 'Would you like to', 'view' => 'View', 'Edit' => 'edit',