loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.92, 2004/05/21 19:16:35	version 1.93, 2004/07/03 19:44:53
Line 50 sub redirect_user {	Line 50 sub redirect_user {
# Note to style police:	# Note to style police:
# This must only replace the spaces, nothing else, or it bombs elsewhere.	# This must only replace the spaces, nothing else, or it bombs elsewhere.
$url=~s/ /\%20/g;	$url=~s/ /\%20/g;
$r->print (<<ENDREDIR);	$r->print(<<ENDREDIR);
<head><title>$title</title>	<head><title>$title</title>
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">	<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">
</head>	</head>
Line 280 ENDENTERKEY	Line 280 ENDENTERKEY

my $swinfo=&Apache::lonmenu::rawconfig();	my $swinfo=&Apache::lonmenu::rawconfig();
my $bodytag=&Apache::loncommon::bodytag('User Roles');	my $bodytag=&Apache::loncommon::bodytag('User Roles');
my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_topic	my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,'').'</td></td></tr></table>';
("General_Intro",&mt("Click here for help")).'</td><td>'.
&Apache::loncommon::help_open_faq(1,&mt('Click here for FAQ')).'</td><td>'.
&Apache::loncommon::help_open_bug('',&mt('Click here to report bugs')).'</td></tr></table>';
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>