[LON-CAPA-cvs] cvs: loncom /interface lonmanagekeys.pm

[bisitz]

bisitz		Thu Oct 29 14:23:23 2009 EDT

  Modified files:              
    /loncom/interface	lonmanagekeys.pm 
  Log:
  - Added breadcrumbs
  - Added simple line feed -> padding between header and content
  
  
Index: loncom/interface/lonmanagekeys.pm
diff -u loncom/interface/lonmanagekeys.pm:1.24 loncom/interface/lonmanagekeys.pm:1.25
--- loncom/interface/lonmanagekeys.pm:1.24	Wed Apr 15 11:16:44 2009
+++ loncom/interface/lonmanagekeys.pm	Thu Oct 29 14:23:23 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to manage course access keys 
 #
-# $Id: lonmanagekeys.pm,v 1.24 2009/04/15 11:16:44 bisitz Exp $
+# $Id: lonmanagekeys.pm,v 1.25 2009/10/29 14:23:23 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,7 +41,13 @@
 ###############################################################
 ###############################################################
 sub header {
-    my $start_page=&Apache::loncommon::start_page('Access Key Management');
+    # Breadcrumbs
+    my $brcrum = [{'href' => '/adm/managekeys',
+                   'text' => 'Access Key Management'}];
+
+    my $start_page=&Apache::loncommon::start_page('Access Key Management',
+                                                  undef,
+                                                  {'bread_crumbs' => $brcrum,});
     return(<<ENDHEAD);
 $start_page
 <form method="post" enctype="multipart/form-data"  
@@ -272,6 +278,7 @@
 	&Apache::loncommon::content_type($r,'text/html');
 	$r->send_http_header;
 	$r->print(&header().&Apache::loncommon::coursebrowser_javascript());
+        $r->print('<br />');
         $r->print(&Apache::lonhtmlcommon::start_pick_box()
                  .&Apache::lonhtmlcommon::row_title(&mt('Course ID of Key Authority'))
                  .'<input input type="text" size="25" name="course" value="" />'