version 1.53, 2003/03/23 01:46:51
|
version 1.54, 2003/03/24 14:45:09
|
Line 104 sub handler {
|
Line 104 sub handler {
|
# student attempts to register a new key |
# student attempts to register a new key |
} else { |
} else { |
# print form to enter a new key |
# print form to enter a new key |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $bodytag=&Apache::loncommon::bodytag |
my $bodytag=&Apache::loncommon::bodytag |
('Enter Access Key to Unlock this Course'); |
('Enter Access Key to Unlock this Course'); |
$r->print(<<ENDENTERKEY); |
$r->print(<<ENDENTERKEY); |
<head><title>Entering Course Access Key</title> |
<head><title>Entering Course Access Key</title> |
</head> |
</head> |
<html> |
<html> |
Line 125 $swinfo
|
Line 125 $swinfo
|
</form> |
</form> |
</body></html> |
</body></html> |
ENDENTERKEY |
ENDENTERKEY |
|
return OK; |
} |
} |
} |
} |
} |
} |