[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Tue Oct 18 17:49:38 2005 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - allow 'raw' access to an html file
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.384 loncom/xml/lonxml.pm:1.385
--- loncom/xml/lonxml.pm:1.384	Tue Oct 18 17:46:19 2005
+++ loncom/xml/lonxml.pm	Tue Oct 18 17:49:37 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.384 2005/10/18 21:46:19 albertel Exp $
+# $Id: lonxml.pm,v 1.385 2005/10/18 21:49:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1393,13 +1393,16 @@
 	    }
 #
 # we are in construction space, see if edit mode forced
-            &Apache::loncommon::get_unprocessed_cgi
-                          ($ENV{'QUERY_STRING'},['editmode']);
+            &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+						    ['editmode']);
 	}
 	if (!$env{'form.editmode'} || $env{'form.viewmode'}) {
 	    $result = &Apache::lonxml::xmlparse($request,$target,$filecontents,
 						'',%mystyle);
 	    undef($Apache::lonhomework::parsing_a_task);
+	    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+						    ['rawmode']);
+	    if ($env{'rawmode'}) { $result = $filecontents; }
 	}
     }