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

[bisitz]

bisitz		Tue May 26 11:21:47 2009 EDT

  Modified files:              
    /loncom/publisher	lonrights.pm 
  Log:
  Changes related to modification of LON-CAPA screen header.
  start_page call:
  - Added breadcrumbs
  - Added head_subbox and included CSTR standard header
  
  
Index: loncom/publisher/lonrights.pm
diff -u loncom/publisher/lonrights.pm:1.25 loncom/publisher/lonrights.pm:1.26
--- loncom/publisher/lonrights.pm:1.25	Mon May 25 14:31:00 2009
+++ loncom/publisher/lonrights.pm	Tue May 26 11:21:47 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to show and edit custom distribution rights
 #
-# $Id: lonrights.pm,v 1.25 2009/05/25 14:31:00 bisitz Exp $
+# $Id: lonrights.pm,v 1.26 2009/05/26 11:21:47 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -55,9 +55,24 @@
   &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'  => 'Custom Rights Editor',
+      'title' => 'Custom Distribution Rights Editor',
+      'href'  => '',});
+
   my $js = &Apache::loncommon::coursebrowser_javascript().
       &Apache::loncommon::studentbrowser_javascript();
-  $r->print(&Apache::loncommon::start_page('Custom Distribution Rights',$js));
+  $r->print(&Apache::loncommon::start_page('Custom Distribution Rights',$js)
+           .&Apache::lonhtmlcommon::breadcrumbs()
+           .&Apache::loncommon::head_subbox(
+                &Apache::loncommon::CSTR_pageheader())
+  );
   $r->rflush();
 
   my $uri=$r->uri;