[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[bisitz]

bisitz		Tue May 26 14:06:23 2009 EDT

  Modified files:              
    /loncom/xml	londefdef.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/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.405 loncom/xml/londefdef.pm:1.406
--- loncom/xml/londefdef.pm:1.405	Fri May 15 18:06:20 2009
+++ loncom/xml/londefdef.pm	Tue May 26 14:06:23 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.405 2009/05/15 18:06:20 bisitz Exp $
+# $Id: londefdef.pm,v 1.406 2009/05/26 14:06:23 bisitz Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -538,6 +538,17 @@
 	
 	my $extra_head = &generate_css_links();
 
+    # Breadcrumbs
+    &Apache::lonhtmlcommon::clear_breadcrumbs();
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'Construction Space',
+        'href'  => '', # FIXME Add link to /priv/[user]
+    });
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'HTML Editor',
+        'href'  => '',
+    });    
+
 	$currentstring = 
 	    &Apache::loncommon::start_page($Apache::londefdef::title,
 					   $Apache::londefdef::head
@@ -546,6 +557,10 @@
 #					    'no_title'       => 1,
 					    'force_register' => 1});
 
+    $currentstring .= &Apache::lonhtmlcommon::breadcrumbs()
+                     .&Apache::loncommon::head_subbox(
+                          &Apache::loncommon::CSTR_pageheader()); 
+
 	if ($env{'request.state'} ne 'published') {
 	    $currentstring.=&Apache::lonmenu::constspaceform();
 	    $currentstring.=&Apache::londefdef::edit_controls();