--- loncom/interface/lonmanagekeys.pm	2003/04/23 20:29:17	1.5
+++ loncom/interface/lonmanagekeys.pm	2003/05/02 13:00:19	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to manage course access keys 
 #
-# $Id: lonmanagekeys.pm,v 1.5 2003/04/23 20:29:17 www Exp $
+# $Id: lonmanagekeys.pm,v 1.8 2003/05/02 13:00:19 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -54,7 +54,35 @@ ENDHEAD
 
 # =================================================== Show student list to drop
 sub show_key_list {
-    my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;
+    my ($r,$comment,$newonly,$checkonly,%cenv)=@_;
+    $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><th>Enter Additional Comments/Remarks/Notes</th></tr>');
+    foreach (keys %accesskeys) {
+        if ($_=~/^error\:/) {
+	    $r->print('<tr><td>No keys have been generated yet.</td></tr>');
+        } elsif ($accesskeys{$_}=~/$comment/) {
+	    my ($checkout,$com)=split(/\s*\#\s*/,$accesskeys{$_});
+            unless ($checkout) {
+		if ($checkonly) { next; }
+            } else {
+		if ($newonly) { next; }
+            }
+	   $r->print("\n<tr><td><tt>".$_.'</tt></td><td>'.($checkout?
+                     $checkout:'-').'</td><td>'.
+                     join('<br />',split(/\s*\;\s*/,$com)).
+		     '</td><td><input type="text" size="30" name="com_'.$_.
+		     '" /></td></tr>');
+       }
+    }
+    $r->print('</table>');
+    $r->print('<input type="submit" name="addcom" value="Add Above Comments to Keys" />');
+    return '';
+#
+# Junk below
+#
+    my ($mode,$linkto,$action,$statusmode,$classlist,$keylist);
 #
 # Just junk so that this compiles
 #
@@ -201,7 +229,8 @@ sub handler {
                 $r->print($msg.'<br />');
 	    }
             if ($ENV{'form.listkeys'}) {
-		&show_key_list($ENV{'form.listcom'},%cenv);
+		&show_key_list($r,$ENV{'form.listcom'},
+                          $ENV{'form.newonly'},$ENV{'form.checkonly'},%cenv);
             }
 # --- Menu
 	    $r->print('<h3>Key Access</h3>');
@@ -216,8 +245,10 @@ Number of keys to be generated: <input t
 Comments/Remarks/Notes: <input type="text" name="comments" size="30" /><br />
 <input type="submit" name="genkeys" value="Generate Keys" />
 <hr /><h3>List Keys</h3>
-Comments/Remarks/Notes/Batch Number:
+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="submit" name="listkeys" value="List Keys" />
 ENDKEYMENU
 	    $r->print('</form></body></html>');