--- loncom/interface/lonmanagekeys.pm 2005/04/07 06:56:23 1.17 +++ loncom/interface/lonmanagekeys.pm 2006/04/26 14:52:22 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to manage course access keys # -# $Id: lonmanagekeys.pm,v 1.17 2005/04/07 06:56:23 albertel Exp $ +# $Id: lonmanagekeys.pm,v 1.19 2006/04/26 14:52:22 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,14 +41,9 @@ use Apache::lonlocal; ############################################################### ############################################################### sub header { - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag('Access Key Management'); + my $start_page=&Apache::loncommon::start_page('Access Key Management'); return(< -LON-CAPA Access Key Management - -$bodytag +$start_page
ENDHEAD @@ -228,7 +223,8 @@ sub handler { # --- Actions if ($env{'form.toggle'}) { $r->print(&togglekeyaccess(%cenv).'
'); - %cenv=&Apache::lonnet::coursedescription($env{'form.cid'}); + %cenv=&Apache::lonnet::coursedescription($env{'form.cid'}, + {'freshen_cache'=> 1}); } my $batchnumber=''; if ($env{'form.genkeys'}) { @@ -269,7 +265,7 @@ Comments/Remarks/Notes/User/Batch Number ENDKEYMENU - $r->print('
'); + $r->print(''.&Apache::loncommon::end_page()); } } else { # Start page no course id @@ -283,7 +279,7 @@ ENDKEYMENU $r->print(&Apache::loncommon::selectcourse_link( 'keyform','course','domain')); $r->print('
'); - $r->print(''); + $r->print(''.&Apache::loncommon::end_page()); } return OK; }