loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.51, 2003/02/04 16:25:37	version 1.52, 2003/02/13 18:11:26
Line 115 sub handler {	Line 115 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 146 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>