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

Fri, 20 Jun 2003 15:30:13 -0000

www		Fri Jun 20 11:30:13 2003 EDT

  Modified files:              
    /loncom/publisher	loncfile.pm 
  Log:
  Put in uniform headers.
  
  
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.32 loncom/publisher/loncfile.pm:1.33

--- loncom/publisher/loncfile.pm:1.32	Thu Jun 19 17:04:37 2003
+++ loncom/publisher/loncfile.pm	Fri Jun 20 11:30:13 2003
@@ -9,7 +9,7 @@
 #  and displays a page showing the results of the action.
 #
 #
-# $Id: loncfile.pm,v 1.32 2003/06/19 21:04:37 albertel Exp $
+# $Id: loncfile.pm,v 1.33 2003/06/20 15:30:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,6 +92,7 @@
 use Apache::loncacc;
 use Apache::Log ();
 use Apache::lonnet;
+use Apache::loncommon();
 
 my $DEBUG=0;
 my $r;				# Needs to be global for some stuff RF.
@@ -1282,8 +1283,7 @@
 
   $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
 
-  $r->print(
-   '<body bgcolor="#FFFFFF"><img align="right" src="/adm/lonIcons/lonlogos.gif" />');
+  $r->print(&Apache::loncommon::bodytag('File Operation'));
 
   
   $r->print('<h1>Construction Space <tt>'.$fn.'</tt></h1>');



