--- loncom/publisher/loncleanup.pm	2005/07/13 21:43:02	1.6
+++ loncom/publisher/loncleanup.pm	2006/04/06 22:15:18	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to cleanup XML files
 #
-# $Id: loncleanup.pm,v 1.6 2005/07/13 21:43:02 www Exp $
+# $Id: loncleanup.pm,v 1.7 2006/04/06 22:15:18 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -364,10 +364,7 @@ sub handler {
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 
-    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(&Apache::loncommon::start_page('Cleanup XML Document'));
     $r->print('<h2>'.$fn.'</h2>'.
               '<form action="/adm/cleanup" method="post">'.
               '<input type="hidden" name="filename" value="'.$env{'form.filename'}.'" />');
@@ -387,7 +384,7 @@ sub handler {
     $r->print('</form>'.
 	      '<br /><a href="/priv/'.$uname.'/'.$fn.'">'.&mt('Back to Source File').'</a>'.
               '<br /><a href="/priv/'.$uname.'/'.$dir.'">'.&mt('Back to Source Directory').'</a>'.
-	      '</body></html>');
+	      &Apache::loncommon::end_page());
     return OK;  
 }
 
