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

[bisitz]

bisitz		Tue May 26 16:08:00 2009 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.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/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.258 loncom/publisher/lonpublisher.pm:1.259
--- loncom/publisher/lonpublisher.pm:1.258	Thu May 14 11:13:49 2009
+++ loncom/publisher/lonpublisher.pm	Tue May 26 16:08:00 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.258 2009/05/14 11:13:49 bisitz Exp $
+# $Id: lonpublisher.pm,v 1.259 2009/05/26 16:08:00 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2163,10 +2163,25 @@
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     
+    # Breadcrumbs
+    &Apache::lonhtmlcommon::clear_breadcrumbs();
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'Construction Space',
+        'href'  => '', # FIXME Add link to /priv/[user]
+    });
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'Resource Publication',
+        'href'  => '',
+    });
+
     my $js='<script type="text/javascript">'.
 	&Apache::loncommon::browser_and_searcher_javascript().
 	'</script>';
-    $r->print(&Apache::loncommon::start_page('Resource Publication',$js));
+    $r->print(&Apache::loncommon::start_page('Resource Publication',$js)
+             .&Apache::lonhtmlcommon::breadcrumbs()
+             .&Apache::loncommon::head_subbox(
+                  &Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?
+    );
 
 
     my $thisfn=$fn;