--- loncom/auth/lonroles.pm 2004/03/05 01:55:01 1.87
+++ loncom/auth/lonroles.pm 2004/05/08 14:12:16 1.89
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.87 2004/03/05 01:55:01 www Exp $
+# $Id: lonroles.pm,v 1.89 2004/05/08 14:12:16 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -109,12 +109,46 @@ sub handler {
# check for keyed access
if (($role eq 'st') &&
($ENV{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) {
- unless (&Apache::lonnet::validate_access_key(
+# who is key authority?
+ my $authdom=$cdom;
+ my $authnum=$cnum;
+ if ($ENV{'course.'.$cdom.'_'.$cnum.'.keyauth'}) {
+ ($authnum,$authdom)=
+ split(/\W/,$ENV{'course.'.$cdom.'_'.$cnum.'.keyauth'});
+ }
+# check with key authority
+ unless (&Apache::lonnet::validate_access_key(
$ENV{'environment.key.'.$cdom.'_'.$cnum},
- $cdom,$cnum)) {
+ $authdom,$authnum)) {
# there is no valid key
if ($ENV{'form.newkey'}) {
# student attempts to register a new key
+ &Apache::loncommon::content_type($r,'text/html');
+ &Apache::loncommon::no_cache($r);
+ $r->send_http_header;
+ my $swinfo=&Apache::lonmenu::rawconfig();
+ my $bodytag=&Apache::loncommon::bodytag
+ ('Verifying Access Key to Unlock this Course');
+ my $buttontext=&mt('Re-Enter Key');
+ my $message=&mt('Key Verification Failed').'
'.
+ &mt('Logout').'';
+ $r->print(<Verifying Course Access Key
+
+
+$bodytag
+
+
+