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

Fri, 03 Dec 2004 22:14:22 -0000

albertel		Fri Dec  3 17:14:22 2004 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - headers on in remoteless CSTR html editing
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.348 loncom/xml/lonxml.pm:1.349

--- loncom/xml/lonxml.pm:1.348	Tue Nov 30 17:57:16 2004
+++ loncom/xml/lonxml.pm	Fri Dec  3 17:14:22 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.348 2004/11/30 22:57:16 albertel Exp $
+# $Id: lonxml.pm,v 1.349 2004/12/03 22:14:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1338,7 +1338,11 @@
 	if ($ENV{'form.editmode'} && (!($ENV{'form.viewmode'}))) {
 	    my $displayfile=$request->uri;
 	    $displayfile=~s/^\/[^\/]*//;
-	    $result='<html><body bgcolor="#FFFFFF">'.
+	    my $bodytag='<body bgcolor="#FFFFFF">';
+	    if ($ENV{'environment.remote'} eq 'off') {
+		$bodytag=&Apache::loncommon::bodytag();
+	    }
+	    $result='<html>'.$bodytag.
 		&Apache::lonxml::message_location().'<h3>'.
 		$displayfile.
 		'</h3></body></html>';



