loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.162.2.1, 2006/06/29 17:51:37	version 1.162.2.3, 2006/10/10 01:55:33
Line 364 ENDENTERKEY	Line 364 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',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 />	<br />
<script>	<script>
$swinfo	$swinfo
window.focus();	window.focus();
Line 851 sub build_roletext {	Line 851 sub build_roletext {
$roletext.='<td'.$rowspan.'> </td>';	$roletext.='<td'.$rowspan.'> </td>';
}	}
}	}
$tremark.=&Apache::lonannounce::showday(time,1,	if ($trolecode !~ m/^(dc\|ca\|au\|aa)\./) {
&Apache::lonannounce::readcalendar($tdom.'_'.$trest));	$tremark.=&Apache::lonannounce::showday(time,1,
	&Apache::lonannounce::readcalendar($tdom.'_'.$trest));
	}
$roletext.='<td><font color="'.$tfont.'">'.$trole.	$roletext.='<td><font color="'.$tfont.'">'.$trole.
'</font></td><td><font color="'.$tfont.'">'.$twhere.	'</font></td><td><font color="'.$tfont.'">'.$twhere.
'</font></td><td><font color="'.$tfont.'">'.$tpstart.	'</font></td><td><font color="'.$tfont.'">'.$tpstart.