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

[www]

www		Fri May  2 09:00:19 2003 EDT

  Modified files:              
    /loncom/interface	lonmanagekeys.pm 
  Log:
  Input fields for comments.
  
  
Index: loncom/interface/lonmanagekeys.pm
diff -u loncom/interface/lonmanagekeys.pm:1.7 loncom/interface/lonmanagekeys.pm:1.8
--- loncom/interface/lonmanagekeys.pm:1.7	Thu May  1 16:26:28 2003
+++ loncom/interface/lonmanagekeys.pm	Fri May  2 09:00:19 2003
@@ -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.8 2003/05/02 13:00:19 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,7 +58,7 @@
     $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('<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>');
@@ -71,10 +71,13 @@
             }
 	   $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="30" name="com_'.$_.
+		     '" /></td></tr>');
        }
     }
     $r->print('</table>');
+    $r->print('<input type="submit" name="addcom" value="Add Above Comments to Keys" />');
     return '';
 #
 # Junk below
@@ -245,7 +248,7 @@
 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>');