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

[bisitz]

bisitz		Tue May 26 16:29:56 2009 EDT

  Modified files:              
    /loncom/publisher	loncfile.pm 
  Log:
  Changes related to modification of LON-CAPA screen header.
  start_page call:
  - Added breadcrumbs
  - Added head_subbox and included CSTR standard header
    (crumbs in header doesn't work here - will be checked and changed later)
  
  
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.98 loncom/publisher/loncfile.pm:1.99
--- loncom/publisher/loncfile.pm:1.98	Thu May 14 14:24:18 2009
+++ loncom/publisher/loncfile.pm	Tue May 26 16:29:56 2009
@@ -9,7 +9,7 @@
 #  and displays a page showing the results of the action.
 #
 #
-# $Id: loncfile.pm,v 1.98 2009/05/14 14:24:18 bisitz Exp $
+# $Id: loncfile.pm,v 1.99 2009/05/26 16:29:56 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1387,9 +1387,25 @@
 	$loaditem{'onload'} = "writeDone()";
     }
     
+    # Breadcrumbs
+    &Apache::lonhtmlcommon::clear_breadcrumbs();
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'Construction Space',
+        'href'  => '', # FIXME Add link to /priv/[user]
+    });
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'File Operation',
+        'title' => 'Construction Space File Operation',
+        'href'  => '',
+    });
+
     $r->print(&Apache::loncommon::start_page('Construction Space File Operation',
 					     $js,
-					     {'add_entries' => \%loaditem,}));
+					     {'add_entries' => \%loaditem,})
+             .&Apache::lonhtmlcommon::breadcrumbs()
+             .&Apache::loncommon::head_subbox(
+                  &Apache::loncommon::CSTR_pageheader())
+    );
   
     $r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>');