[LON-CAPA-cvs] cvs: loncom /homework lonsimpleproblemedit.pm /interface londocs.pm

www lon-capa-cvs@mail.lon-capa.org
Tue, 04 Nov 2003 19:18:16 -0000


www		Tue Nov  4 14:18:16 2003 EDT

  Modified files:              
    /loncom/homework	lonsimpleproblemedit.pm 
    /loncom/interface	londocs.pm 
  Log:
  Undef global in lonhomework that we are parsing a problem after bypassing
  the normal rendering calls.
  
  
Index: loncom/homework/lonsimpleproblemedit.pm
diff -u loncom/homework/lonsimpleproblemedit.pm:1.7 loncom/homework/lonsimpleproblemedit.pm:1.8
--- loncom/homework/lonsimpleproblemedit.pm:1.7	Tue Nov  4 11:44:50 2003
+++ loncom/homework/lonsimpleproblemedit.pm	Tue Nov  4 14:18:16 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Problem Parameter Setting "Editor"
 #
-# $Id: lonsimpleproblemedit.pm,v 1.7 2003/11/04 16:44:50 www Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.8 2003/11/04 19:18:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,6 +61,7 @@
     $ENV{'user.name'}=time;
     $ENV{'user.domain'}=time;
     my $result = &Apache::lonxml::xmlparse($request,'web', $problem);
+    undef($Apache::lonhomework::parsing_a_problem);
     $ENV{'user.name'}=$uname;
     $ENV{'user.domain'}=$udom;
     $result=~s/^.*\<body[^\>]*\>//si;
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.93 loncom/interface/londocs.pm:1.94
--- loncom/interface/londocs.pm:1.93	Wed Oct 29 16:50:41 2003
+++ loncom/interface/londocs.pm	Tue Nov  4 14:18:16 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.93 2003/10/29 21:50:41 www Exp $
+# $Id: londocs.pm,v 1.94 2003/11/04 19:18:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -510,6 +510,7 @@
                  &Apache::lonxml::xmlparse($r,'web',
                    &Apache::lonnet::getfile(
                     &Apache::lonnet::filelocation('',$url)));
+		 undef($Apache::lonhomework::parsing_a_problem);
 		 $ENV{'request.filename'}=$oldpath;
                  if (($Apache::lonxml::errorcount) ||
                      ($Apache::lonxml::warningcount)) {