--- loncom/interface/lonmanagekeys.pm 2006/03/16 22:42:58 1.18
+++ loncom/interface/lonmanagekeys.pm 2009/02/19 22:11:53 1.23
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to manage course access keys
#
-# $Id: lonmanagekeys.pm,v 1.18 2006/03/16 22:42:58 albertel Exp $
+# $Id: lonmanagekeys.pm,v 1.23 2009/02/19 22:11:53 schafran Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -193,7 +193,7 @@ sub handler {
($cenv{'domain'},$cenv{'num'})=split(/\_/,$env{'form.cid'});
$keytype='auth';
} elsif ($cenv{'keyauth'}) {
- ($cenv{'num'},$cenv{'domain'})=split(/\W/,$cenv{'keyauth'});
+ ($cenv{'num'},$cenv{'domain'})=split(/:/,$cenv{'keyauth'});
$keytype='auth';
} else {
$keytype='course';
@@ -223,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'}) {
@@ -259,8 +260,8 @@ Comments/Remarks/Notes:
- Unused keys only
- Used keys only
+
+
ENDKEYMENU
@@ -271,13 +272,15 @@ ENDKEYMENU
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
$r->print(&header().&Apache::loncommon::coursebrowser_javascript());
- $r->print(
- &mt('Course ID of Key Authority').': ');
- $r->print(&mt('Domain').': '.&Apache::loncommon::select_dom_form(
- $env{'request.role.domain'},'domain'));
+ $r->print('
' + .&mt('Course ID of Key Authority').': | ');
$r->print(&Apache::loncommon::selectcourse_link(
- 'keyform','course','domain'));
- $r->print(' '); + 'keyform','course','domain', + undef,undef,undef,'Course')); + $r->print(' |
'.&mt('Domain').': | '.&Apache::loncommon::select_dom_form( + $env{'request.role.domain'},'domain')); + $r->print(' |