version 1.51, 2003/02/04 16:25:37
|
version 1.54, 2003/03/24 14:45:09
|
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 |
|
return OK; |
|
} |
|
} |
|
} |
&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); |
Line 115 sub handler {
|
Line 151 sub handler {
|
$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($r); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $bodytag=&Apache::loncommon::bodytag('Switching Role'); |
my $bodytag=&Apache::loncommon::bodytag('Switching Role'); |
print (<<ENDREDIR); |
print (<<ENDREDIR); |
<head><title>Entering Course</title> |
<head><title>Entering Course</title> |
Line 146 ENDREDIR
|
Line 182 ENDREDIR
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $swinfo=&Apache::lonmenu::rawconfig($r); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $helptag=&Apache::loncommon::help_open_topic |
my $helptag=&Apache::loncommon::help_open_topic |
("General_Intro","<font size='+1'><b>CLICK HERE FOR HELP</b></font>"); |
("General_Intro","Click here for help"); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |