[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemanalysis.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Fri, 10 Oct 2003 13:47:48 -0000
matthew Fri Oct 10 09:47:48 2003 EDT
Modified files:
/loncom/interface/statistics lonproblemanalysis.pm
Log:
Fix '</form>' in rendered problem.
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.29 loncom/interface/statistics/lonproblemanalysis.pm:1.30
--- loncom/interface/statistics/lonproblemanalysis.pm:1.29 Fri Oct 10 09:35:43 2003
+++ loncom/interface/statistics/lonproblemanalysis.pm Fri Oct 10 09:47:48 2003
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemanalysis.pm,v 1.29 2003/10/10 13:35:43 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.30 2003/10/10 13:47:48 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -64,8 +64,8 @@
$base = "http://".$ENV{'SERVER_NAME'}.$base;
my $rendered_problem =
&Apache::lonnet::ssi_body($resource->{'src'});
- $rendered_problem =~ s/<form /<nop /g;
- $rendered_problem =~ s/<\s*\/form\s>/<\/nop>/g;
+ $rendered_problem =~ s/<\s*form\s*/<nop /g;
+ $rendered_problem =~ s|(<\s*/form\s*>)|<\/nop>|g;
$r->print('<table bgcolor="ffffff"><tr><td>'.
'<base href="'.$base.'" />'.
$rendered_problem.