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

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

version 1.6, 2003/05/01 02:12:43 version 1.7, 2003/05/01 20:26:28
Line 54  ENDHEAD Line 54  ENDHEAD
   
 # =================================================== Show student list to drop  # =================================================== Show student list to drop
 sub show_key_list {  sub show_key_list {
     my ($r,$comment,%cenv)=@_;      my ($r,$comment,$newonly,$checkonly,%cenv)=@_;
       $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>');
     foreach (keys %accesskeys) {      foreach (keys %accesskeys) {
  $r->print($_.' '.$accesskeys{$_}.'<br />');          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></tr>');
          }
     }      }
       $r->print('</table>');
     return '';      return '';
 #  #
 # Junk below  # Junk below
Line 212  sub handler { Line 226  sub handler {
                 $r->print($msg.'<br />');                  $r->print($msg.'<br />');
     }      }
             if ($ENV{'form.listkeys'}) {              if ($ENV{'form.listkeys'}) {
  &show_key_list($r,$ENV{'form.listcom'},%cenv);   &show_key_list($r,$ENV{'form.listcom'},
                             $ENV{'form.newonly'},$ENV{'form.checkonly'},%cenv);
             }              }
 # --- Menu  # --- Menu
     $r->print('<h3>Key Access</h3>');      $r->print('<h3>Key Access</h3>');
Line 227  Number of keys to be generated: <input t Line 242  Number of keys to be generated: <input t
 Comments/Remarks/Notes: <input type="text" name="comments" size="30" /><br />  Comments/Remarks/Notes: <input type="text" name="comments" size="30" /><br />
 <input type="submit" name="genkeys" value="Generate Keys" />  <input type="submit" name="genkeys" value="Generate Keys" />
 <hr /><h3>List Keys</h3>  <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="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" />  <input type="submit" name="listkeys" value="List Keys" />
 ENDKEYMENU  ENDKEYMENU
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
Removed from v.1.6  
changed lines
  Added in v.1.7

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