version 1.72, 2003/09/18 20:10:18
|
version 1.74, 2003/10/04 18:13:36
|
Line 56 use Apache::lonlocal;
|
Line 56 use Apache::lonlocal;
|
sub redirect_user { |
sub redirect_user { |
my ($r,$title,$url,$msg) = @_; |
my ($r,$title,$url,$msg) = @_; |
$msg = $title if (! defined($msg)); |
$msg = $title if (! defined($msg)); |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'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(); |
Line 131 sub handler {
|
Line 131 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'); |
&Apache::loncommon::content_type($r,'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(); |
Line 230 ENDENTERKEY
|
Line 230 ENDENTERKEY
|
|
|
# =============================================================== No Roles Init |
# =============================================================== No Roles Init |
|
|
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
Line 346 ENDHEADER
|
Line 346 ENDHEADER
|
$tstatus='future'; |
$tstatus='future'; |
if ($tstart<$now) { $tstatus='will'; } |
if ($tstart<$now) { $tstatus='will'; } |
} |
} |
$tpstart=localtime($tstart); |
$tpstart=&Apache::lonlocal::locallocaltime($tstart); |
} |
} |
if ($tend) { |
if ($tend) { |
if ($tend<$then) { |
if ($tend<$then) { |
Line 354 ENDHEADER
|
Line 354 ENDHEADER
|
} elsif ($tend<$now) { |
} elsif ($tend<$now) { |
$tstatus='will_not'; |
$tstatus='will_not'; |
} |
} |
$tpend=localtime($tend); |
$tpend=&Apache::lonlocal::locallocaltime($tend); |
} |
} |
if ($ENV{'request.role'} eq $trolecode) { |
if ($ENV{'request.role'} eq $trolecode) { |
$tstatus='selected'; |
$tstatus='selected'; |