--- loncom/publisher/lonpubdir.pm	2009/05/19 10:16:02	1.120
+++ loncom/publisher/lonpubdir.pm	2009/05/19 22:52:29	1.121
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.120 2009/05/19 10:16:02 bisitz Exp $
+# $Id: lonpubdir.pm,v 1.121 2009/05/19 22:52:29 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -199,26 +199,21 @@ sub startpage {
 
     my $formaction='/priv/'.$uname.$thisdisfn.'/';
     $formaction=~s|/+|/|g;
-    my $pagetitle .= &Apache::loncommon::help_open_menu('','',3,'Authoring').
-        '<font face="Arial, Helvetica, sans-serif" size="+1"><b>'.&mt('Construction Space').'</b>:</font>&nbsp;'.
-        '<form name="dirs" method="post" action="'.$formaction.
-        '" target="_parent"><tt><b>'.
-        &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />".
-        &Apache::lonhtmlcommon::select_recent('construct','recent',
-                 'this.form.action=this.form.recent.value;this.form.submit()').
-              '</form>';
     &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
+
     if ($env{'environment.remote'} eq 'off') {
-	$env{'request.noversionuri'}=$currdir.'/';
-	$r->print(&Apache::loncommon::start_page('Construction Space',undef,
-						 {'body_title' =>
-						      $pagetitle,}));
+        $env{'request.noversionuri'}=$currdir.'/';
+        $r->print(&Apache::loncommon::start_page('Construction Space',undef));
     } else {
-	$r->print(&Apache::loncommon::start_page('Construction Space',undef,
-						 { 'only_body' => 1,}));
-	$r->print($pagetitle);
+        $r->print(&Apache::loncommon::start_page('Construction Space',undef,
+                                                 { 'only_body' => 1,}));
     }
 
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs()); # FIXME add breadcrumbs
+
+    $r->print(&Apache::loncommon::head_subbox(
+                &Apache::loncommon::CSTR_pageheader(1)));
+
     my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);
     my $doctitle = 'LON-CAPA '.&mt('Construction Space');
     my $newname = &mt('New Name');