loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.158, 2006/06/22 23:22:47	version 1.160, 2006/06/26 21:41:09
Line 362 ENDENTERKEY	Line 362 ENDENTERKEY
my $start_page=&Apache::loncommon::start_page('User Roles');	my $start_page=&Apache::loncommon::start_page('User Roles');
my $standby=&mt('Role selected. Please stand by.');	my $standby=&mt('Role selected. Please stand by.');
$standby=~s/\n/\\n/g;	$standby=~s/\n/\\n/g;
my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,undef,undef,undef,undef,,&mt("Click here for help")).'</td></td></tr></table>';	my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','',1,undef,undef,undef,undef,,&mt("Click here for help")).'</td></td></tr></table>';
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
$start_page	$start_page
$helptag<br />	$helptag<br />
Line 516 ENDHEADER	Line 516 ENDHEADER
if ($tremark) { $tremark.='<br />'; }	if ($tremark) { $tremark.='<br />'; }
$tremark.=&mt('Defined by ').$rauthor.	$tremark.=&mt('Defined by ').$rauthor.
&mt(' at ').$rdomain.'.';	&mt(' at ').$rdomain.'.';
$trole=$rrole;	}
} else {	$trole=Apache::lonnet::plaintext($role);
$trole=Apache::lonnet::plaintext($role);
}
my $ttype;	my $ttype;
my $twhere;	my $twhere;
my ($tdom,$trest,$tsection)=	my ($tdom,$trest,$tsection)=