--- loncom/interface/lonmanagekeys.pm 2003/09/21 21:40:06 1.12
+++ loncom/interface/lonmanagekeys.pm 2004/05/09 00:45:01 1.15
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to manage course access keys
#
-# $Id: lonmanagekeys.pm,v 1.12 2003/09/21 21:40:06 www Exp $
+# $Id: lonmanagekeys.pm,v 1.15 2004/05/09 00:45:01 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -191,8 +191,18 @@ sub handler {
return HTTP_NOT_ACCEPTABLE;
}
if ($ENV{'form.cid'}) {
- my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'});
- if ($ENV{'form.listkeyscsv'}) {
+ my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'});
+ my $keytype='';
+ if ($cenv{'url'} eq '/res/') {
+ ($cenv{'domain'},$cenv{'num'})=split(/\_/,$ENV{'form.cid'});
+ $keytype='auth';
+ } elsif ($cenv{'keyauth'}) {
+ ($cenv{'num'},$cenv{'domain'})=split(/\W/,$cenv{'keyauth'});
+ $keytype='auth';
+ } else {
+ $keytype='course';
+ }
+ if ($ENV{'form.listkeyscsv'}) {
#
# CSV Output
#
@@ -233,12 +243,17 @@ sub handler {
&addcom(%cenv);
}
# --- Menu
- $r->print('
'.&mt('Key Access').'
');
- if ($cenv{'keyaccess'} eq 'yes') {
- $r->print(&mt('Access to this course is key controlled.').
+ if ($keytype eq 'course') {
+ $r->print('
'.&mt('Key Access').'
');
+ if ($cenv{'keyaccess'} eq 'yes') {
+ $r->print(&mt('Access to this course is key controlled.').
' ')
} else {
$r->print(&mt('Access to this course is open, no access keys').' ');
+ }
+ } else {
+ $r->print('