--- loncom/publisher/lonpubmenu.pm	2005/04/07 06:56:27	1.3
+++ loncom/publisher/lonpubmenu.pm	2009/02/13 17:20:32	1.5
@@ -1,6 +1,8 @@
 # The LearningOnline Network with CAPA
 # Construction Space Buttons for Top Frame 
 #
+# $Id: lonpubmenu.pm,v 1.5 2009/02/13 17:20:32 bisitz Exp $
+#
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -68,10 +70,7 @@ sub handler {
     if ($env{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {
         $defaultdir = '/priv/'.$1.'/';
     }
-    $r->print(<<"ENDONE");
-<html>
-<head>
-<title>LON-CAPA Publishing Frame</title>
+    my $js=
 <script type="text/javascript">
 //<!--
 function frameloc() {
@@ -166,7 +165,7 @@ function getpostdata() {
 ENDONE
 
     if ($disp eq 'dir') {
-        $r->print(<<"ENDDIR");
+        $js .= <<"ENDDIR";
 function getdirname() {
     document.publishdir.filename.value=frameloc();
     pubdir(document.publishdir)
@@ -201,7 +200,7 @@ function forcepub(theform) {
 }
 ENDDIR
     } else {
-        $r->print(<<"ENDRES");
+        $js.=<<"ENDRES";
 function getfilename() {
     document.publisher.filename.value=frameloc();
     if ((document.publisher.filename.value.charAt(
@@ -230,11 +229,13 @@ function getdelfilename() {
 }
 ENDRES
     }
+    my $start_page = 
+	&Apache::loncommon::start_page('Publishing Frame',$js,
+				       {'only_body' => 1,});
+    my $end_page = 
+	&Apache::loncommon::end_page();
     $r->print(<<"END");
-//-->
-</script>
-    </head>
-    <body bgcolor="#ccffdd" text='#002200' link='#003333' vlink='#006666'>
+$start_page
 	<table border="0" align="center"><tr><th bgcolor="#004400" height="20">
 	      <table border="0" cellspacing="2" cellpadding="2"><tr valign="middle">
 		  <td bgcolor="#ccddaa" align="center">
@@ -351,8 +352,7 @@ ENDPROBOPS
 	    </th>
 	  </tr>
 	</table>
-    </body>
-  </html>
+$end_page
 ENDPAGE
 }
 
