version 1.52, 2003/02/13 18:11:26
|
version 1.53, 2003/03/23 01:46:51
|
Line 93 sub handler {
|
Line 93 sub handler {
|
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$where=~s/^\///; |
$where=~s/^\///; |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
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(<<ENDENTERKEY); |
|
<head><title>Entering Course Access Key</title> |
|
</head> |
|
<html> |
|
$bodytag |
|
<script> |
|
$swinfo |
|
</script> |
|
<form method="post"> |
|
<input type="hidden" name="selectrole" value="$ENV{'form.selectrole'}" /> |
|
<input type="text" size="20" name="newkey" value="$ENV{'form.newkey'}" /> |
|
<input type="submit" value="Enter key" /> |
|
</form> |
|
</body></html> |
|
ENDENTERKEY |
|
} |
|
} |
|
} |
&Apache::lonnet::appenv('request.role' => $trolecode, |
&Apache::lonnet::appenv('request.role' => $trolecode, |
'request.role.domain' => $cdom, |
'request.role.domain' => $cdom, |
'request.course.sec' => $csec); |
'request.course.sec' => $csec); |