[LON-CAPA-cvs] cvs: loncom(version_1_0_1) /xml londefdef.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sat, 30 Aug 2003 02:41:26 -0000
albertel Fri Aug 29 22:41:26 2003 EDT
Modified files: (Branch: version_1_0_1)
/loncom/xml londefdef.pm
Log:
- backport 1.170
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.158.4.3 loncom/xml/londefdef.pm:1.158.4.4
--- loncom/xml/londefdef.pm:1.158.4.3 Wed Aug 27 11:00:43 2003
+++ loncom/xml/londefdef.pm Fri Aug 29 22:41:26 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Tags Default Definition Module
#
-# $Id: londefdef.pm,v 1.158.4.3 2003/08/27 15:00:43 albertel Exp $
+# $Id: londefdef.pm,v 1.158.4.4 2003/08/30 02:41:26 albertel Exp $
#
#
# Copyright Michigan State University Board of Trustees
@@ -462,6 +462,10 @@
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';
if ($target eq 'web') {
+ if ($Apache::lonhomework::parsing_a_problem) {
+ &Apache::lonxml::warning("<body> tag found inside of <problem> tag this can cause problems.");
+ return '';
+ }
if (!$Apache::lonxml::registered) {
$currentstring.='<head>'.
&Apache::lonmenu::registerurl(undef,$target).'</head>';