version 1.27, 2001/07/06 15:11:19
|
version 1.30, 2001/10/31 17:47:55
|
Line 9
|
Line 9
|
# 12/08,12/28, |
# 12/08,12/28, |
# 01/15/01 Gerd Kortemeyer |
# 01/15/01 Gerd Kortemeyer |
# 02/27/01 Scott Harrison |
# 02/27/01 Scott Harrison |
# 03/02,05/03,05/25,05/30,06/01,07/06 Gerd Kortemeyer |
# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer |
|
|
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 19 use Apache::lonuserstate();
|
Line 19 use Apache::lonuserstate();
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File(); |
use Apache::File(); |
use Apache::lonmenu; |
use Apache::lonmenu; |
|
use Apache::loncommon; |
|
|
sub handler { |
sub handler { |
|
|
Line 76 sub handler {
|
Line 77 sub handler {
|
'<h1><font color=red>Could not initialize top-level map.</font></h1>'; |
'<h1><font color=red>Could not initialize top-level map.</font></h1>'; |
} |
} |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
|
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $swinfo=&Apache::lonmenu::rawconfig; |
my $swinfo=&Apache::lonmenu::rawconfig; |
print (<<ENDREDIR); |
print (<<ENDREDIR); |
Line 104 ENDREDIR
|
Line 106 ENDREDIR
|
# =============================================================== No Roles Init |
# =============================================================== No Roles Init |
|
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
|
&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; |
|
|
my $swinfo=&Apache::lonmenu::rawconfig; |
my $swinfo=&Apache::lonmenu::rawconfig; |
|
|
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
Line 285 ENDHEADER
|
Line 287 ENDHEADER
|
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$r->print('<td><input type=submit value=Select name="'. |
$r->print('<td><input type=submit value=Select name="'. |
$trolecode.'"></td>'); |
$trolecode.'"></td>'); |
|
} elsif ($ENV{'user.adv'}) { |
|
$r->print( |
|
'<td><input type=submit value="Re-Initialize" name="'. |
|
$trolecode.'"></td>'); |
} else { |
} else { |
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |