--- loncom/interface/lonmanagekeys.pm	2003/05/01 20:26:28	1.7
+++ loncom/interface/lonmanagekeys.pm	2003/05/02 16:58:56	1.10
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to manage course access keys 
 #
-# $Id: lonmanagekeys.pm,v 1.7 2003/05/01 20:26:28 www Exp $
+# $Id: lonmanagekeys.pm,v 1.10 2003/05/02 16:58:56 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,7 +58,25 @@ sub show_key_list {
     $comment=~s/\W/\./g;
     my %accesskeys=&Apache::lonnet::dump
 	('accesskeys',$cenv{'domain'},$cenv{'num'});
-    $r->print('<table border="2"><tr><th>Key</th><th>Checked Out</th><th>Comments/Remarks/Notes</th></tr>');
+    $r->print(<<ENDTABLEHEADER);
+<script>
+    function copyallcom(tf) {
+	for (i=0; i<tf.elements.length; i++) {
+            if  (tf.elements[i].name.indexOf('com_')==0) {
+	      tf.elements[i].value+=tf.copyall.value;
+            }
+        }
+
+    }
+</script>
+<h3>List of Keys/Enter New Comments</h3>
+<table border="2"><tr><th>Key</th><th>Checked Out</th>
+<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);" />
+</th></tr>
+ENDTABLEHEADER
     foreach (keys %accesskeys) {
         if ($_=~/^error\:/) {
 	    $r->print('<tr><td>No keys have been generated yet.</td></tr>');
@@ -71,10 +89,13 @@ sub show_key_list {
             }
 	   $r->print("\n<tr><td><tt>".$_.'</tt></td><td>'.($checkout?
                      $checkout:'-').'</td><td>'.
-                     join('<br />',split(/\s*\;\s*/,$com)).'</td></tr>');
+                     join('<br />',split(/\s*\;\s*/,$com)).
+		     '</td><td><input type="text" size="40" name="com_'.$_.
+		     '" value="" /></td></tr>');
        }
     }
     $r->print('</table>');
+    $r->print('<input type="submit" name="addcom" value="Add Above Comments to Keys" /><hr />');
     return '';
 #
 # Junk below
@@ -174,6 +195,25 @@ sub genkeys {
     $num.' access keys (Batch Number: '.$batchnumber.')',$batchnumber;
 }
 
+# ---------------------------------------------------------------- Add comments
+
+sub addcom {
+    my %cenv=@_;
+    my %newcomment=();
+    undef %newcomment;
+    foreach (keys %ENV) {
+	if ($_=~/^form\.com\_(.+)$/) {
+            my $key=$1;
+	    my $comment=$ENV{$_};
+            $comment=~s/^\s+//gs;
+            if ($comment) {
+               &Apache::lonnet::comment_access_key
+		   ($key,$cenv{'domain'},$cenv{'num'},$comment); 
+	   }
+	}
+    }
+    return '';
+}
 ###################################################################
 ###################################################################
 sub handler {
@@ -229,6 +269,9 @@ sub handler {
 		&show_key_list($r,$ENV{'form.listcom'},
                           $ENV{'form.newonly'},$ENV{'form.checkonly'},%cenv);
             }
+            if ($ENV{'form.addcom'}) {
+		&addcom(%cenv);
+            }
 # --- Menu
 	    $r->print('<h3>Key Access</h3>');
 	    if ($cenv{'keyaccess'} eq 'yes') {
@@ -245,7 +288,7 @@ Comments/Remarks/Notes: <input type="tex
 Comments/Remarks/Notes/User/Batch Number:
 <input type="text" name="listcom" size="30" value="$batchnumber" /><br />
 <input type="checkbox" name="newonly" /> Unused keys only<br />
-<input type="checkbox" name="checkonly" />Used keys only<br />
+<input type="checkbox" name="checkonly" /> Used keys only<br />
 <input type="submit" name="listkeys" value="List Keys" />
 ENDKEYMENU
 	    $r->print('</form></body></html>');