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

Diff for /loncom/interface/lonmanagekeys.pm between versions 1.17 and 1.19

version 1.17, 2005/04/07 06:56:23 version 1.19, 2006/04/26 14:52:22
Line 41  use Apache::lonlocal; Line 41  use Apache::lonlocal;
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub header {  sub header {
     my $html=&Apache::lonxml::xmlbegin();      my $start_page=&Apache::loncommon::start_page('Access Key Management');
     my $bodytag=&Apache::loncommon::bodytag('Access Key Management');  
     return(<<ENDHEAD);      return(<<ENDHEAD);
 $html  $start_page
 <head>  
 <title>LON-CAPA Access Key Management</title>  
 </head>  
 $bodytag  
 <form method="post" enctype="multipart/form-data"    <form method="post" enctype="multipart/form-data"  
       action="/adm/managekeys" name="keyform">        action="/adm/managekeys" name="keyform">
 ENDHEAD  ENDHEAD
Line 228  sub handler { Line 223  sub handler {
 # --- Actions  # --- Actions
     if ($env{'form.toggle'}) {      if ($env{'form.toggle'}) {
  $r->print(&togglekeyaccess(%cenv).'<br />');   $r->print(&togglekeyaccess(%cenv).'<br />');
  %cenv=&Apache::lonnet::coursedescription($env{'form.cid'});   %cenv=&Apache::lonnet::coursedescription($env{'form.cid'},
    {'freshen_cache'=> 1});
     }      }
             my $batchnumber='';              my $batchnumber='';
     if ($env{'form.genkeys'}) {      if ($env{'form.genkeys'}) {
Line 269  Comments/Remarks/Notes/User/Batch Number Line 265  Comments/Remarks/Notes/User/Batch Number
 <input type="submit" name="listkeys" value="List Keys/Add Comments" />  <input type="submit" name="listkeys" value="List Keys/Add Comments" />
 <input type="submit" name="listkeyscsv" value="CSV List of Keys" />  <input type="submit" name="listkeyscsv" value="CSV List of Keys" />
 ENDKEYMENU  ENDKEYMENU
     $r->print('</form></body></html>');      $r->print('</form>'.&Apache::loncommon::end_page());
  }   }
     } else {      } else {
  # Start page no course id   # Start page no course id
Line 283  ENDKEYMENU Line 279  ENDKEYMENU
         $r->print(&Apache::loncommon::selectcourse_link(          $r->print(&Apache::loncommon::selectcourse_link(
         'keyform','course','domain'));          'keyform','course','domain'));
         $r->print('<br /><input type="submit" value="'.&mt('Manage Access Keys').'" />');          $r->print('<br /><input type="submit" value="'.&mt('Manage Access Keys').'" />');
  $r->print('</form></body></html>');   $r->print('</form>'.&Apache::loncommon::end_page());
     }      }
     return OK;      return OK;
 }  }
Removed from v.1.17  
changed lines
  Added in v.1.19

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