[BACK]Return to lonmanagekeys.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmanagekeys.pm between versions 1.7 and 1.8

version 1.7, 2003/05/01 20:26:28 version 1.8, 2003/05/02 13:00:19
Line 58  sub show_key_list { Line 58  sub show_key_list {
     $comment=~s/\W/\./g;      $comment=~s/\W/\./g;
     my %accesskeys=&Apache::lonnet::dump      my %accesskeys=&Apache::lonnet::dump
  ('accesskeys',$cenv{'domain'},$cenv{'num'});   ('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) {      foreach (keys %accesskeys) {
         if ($_=~/^error\:/) {          if ($_=~/^error\:/) {
     $r->print('<tr><td>No keys have been generated yet.</td></tr>');      $r->print('<tr><td>No keys have been generated yet.</td></tr>');
Line 71  sub show_key_list { Line 71  sub show_key_list {
             }              }
    $r->print("\n<tr><td><tt>".$_.'</tt></td><td>'.($checkout?     $r->print("\n<tr><td><tt>".$_.'</tt></td><td>'.($checkout?
                      $checkout:'-').'</td><td>'.                       $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('</table>');
       $r->print('<input type="submit" name="addcom" value="Add Above Comments to Keys" />');
     return '';      return '';
 #  #
 # Junk below  # Junk below
Line 245  Comments/Remarks/Notes: <input type="tex Line 248  Comments/Remarks/Notes: <input type="tex
 Comments/Remarks/Notes/User/Batch Number:  Comments/Remarks/Notes/User/Batch Number:
 <input type="text" name="listcom" size="30" value="$batchnumber" /><br />  <input type="text" name="listcom" size="30" value="$batchnumber" /><br />
 <input type="checkbox" name="newonly" /> Unused keys only<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" />  <input type="submit" name="listkeys" value="List Keys" />
 ENDKEYMENU  ENDKEYMENU
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
Removed from v.1.7  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>