--- loncom/interface/lonmanagekeys.pm	2009/04/15 11:16:44	1.24
+++ loncom/interface/lonmanagekeys.pm	2014/12/11 01:48:54	1.27
@@ -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.27 2014/12/11 01:48:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,7 +41,13 @@ use Apache::lonlocal;
 ###############################################################
 ###############################################################
 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"  
@@ -72,11 +78,11 @@ sub show_key_list {
 <th>Comments/Remarks/Notes</th>
 <th>Enter Additional Comments/Remarks/Notes<br />
 <input type="text" size="40" name="copyall" />
-<input type="button" value="Copy to All" onClick="copyallcom(this.form);" />
+<input type="button" value="Copy to All" onclick="copyallcom(this.form);" />
 </th></tr>
 ENDTABLEHEADER
     }
-    foreach (keys %accesskeys) {
+    foreach (keys(%accesskeys)) {
         if ($_=~/^error\:/) {
 	    $r->print('<tr><td>No keys have been generated yet.</td></tr>');
         } elsif ($accesskeys{$_}=~/$comment/) {
@@ -153,7 +159,7 @@ sub addcom {
     my %cenv=@_;
     my %newcomment=();
     undef %newcomment;
-    foreach (keys %env) {
+    foreach (keys(%env)) {
 	if ($_=~/^form\.com\_(.+)$/) {
             my $key=$1;
 	    my $comment=$env{$_};
@@ -272,6 +278,7 @@ ENDKEYMENU
 	&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="" />'