--- loncom/auth/lonroles.pm 2003/02/13 18:11:26 1.52 +++ loncom/auth/lonroles.pm 2003/03/23 01:46:51 1.53 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.52 2003/02/13 18:11:26 www Exp $ +# $Id: lonroles.pm,v 1.53 2003/03/23 01:46:51 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -93,6 +93,41 @@ sub handler { if ($tstatus eq 'is') { $where=~s/^\///; my ($cdom,$cnum,$csec)=split(/\//,$where); +# check for keyed access + if (($role eq 'st') && + ($ENV{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) { + unless (&Apache::lonnet::validate_access_key( + $ENV{'environment.key.'.$cdom.'_'.$cnum}, + $cdom,$cnum)) { +# there is no valid key + if ($ENV{'form.newkey'}) { +# student attempts to register a new key + } else { +# print form to enter a new key + $r->content_type('text/html'); + &Apache::loncommon::no_cache($r); + $r->send_http_header; + my $swinfo=&Apache::lonmenu::rawconfig(); + my $bodytag=&Apache::loncommon::bodytag + ('Enter Access Key to Unlock this Course'); + $r->print(<Entering Course Access Key + + +$bodytag + +
+ + + +
+ +ENDENTERKEY + } + } + } &Apache::lonnet::appenv('request.role' => $trolecode, 'request.role.domain' => $cdom, 'request.course.sec' => $csec);