[LON-CAPA-cvs] cvs: loncom /publisher loncleanup.pm

Tue, 31 May 2005 17:41:42 -0000

albertel		Tue May 31 13:41:42 2005 EDT

  Modified files:              
    /loncom/publisher	loncleanup.pm 
  Log:
  - shouldn't emit <html> by hadn
  
  
Index: loncom/publisher/loncleanup.pm
diff -u loncom/publisher/loncleanup.pm:1.4 loncom/publisher/loncleanup.pm:1.5

--- loncom/publisher/loncleanup.pm:1.4	Sat May 28 21:46:16 2005
+++ loncom/publisher/loncleanup.pm	Tue May 31 13:41:38 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to cleanup XML files
 #
-# $Id: loncleanup.pm,v 1.4 2005/05/29 01:46:16 www Exp $
+# $Id: loncleanup.pm,v 1.5 2005/05/31 17:41:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -363,7 +363,8 @@
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 
-    $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
+    my $html=&Apache::lonxml::xmlbegin();
+    $r->print($html.'<head><title>LON-CAPA Construction Space</title></head>');
 
     $r->print(&Apache::loncommon::bodytag('Cleanup XML Document'));
     $r->print('<h2>'.$fn.'</h2>'.



