loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.97, 2004/08/03 18:53:27	version 1.99, 2004/09/02 13:15:54
Line 84 sub handler {	Line 84 sub handler {


# ================================================================== Roles Init	# ================================================================== Roles Init

if ($ENV{'form.selectrole'}) {	if ($ENV{'form.selectrole'}) {
if ($ENV{'request.course.id'}) {	if ($ENV{'request.course.id'}) {
my %temp=('logout_'.$ENV{'request.course.id'} => time);	my %temp=('logout_'.$ENV{'request.course.id'} => time);
Line 606 ENDHEADER	Line 605 ENDHEADER
unless ($nochoose) { $r->print('<th> </th>'); }	unless ($nochoose) { $r->print('<th> </th>'); }
$r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').	$r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.	'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
&mt('Remark').'</th></tr>'."\n");	&mt('Remarks and Calendar Announcements').'</th></tr>'."\n");
my $doheaders=-1;	my $doheaders=-1;
foreach my $type ('Construction Space','Course','Domain','System') {	foreach my $type ('Construction Space','Course','Domain','System') {
my $haverole=0;	my $haverole=0;