loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.164, 2006/08/31 13:25:18	version 1.166, 2006/10/10 20:16:19
Line 53 sub redirect_user {	Line 53 sub redirect_user {
my $swinfo=&Apache::lonmenu::rawconfig();	my $swinfo=&Apache::lonmenu::rawconfig();
my $navwindow;	my $navwindow;
if ($launch_nav eq 'on') {	if ($launch_nav eq 'on') {
$navwindow.=&Apache::lonnavmaps::launch_win('now',undef,undef,	$navwindow.=&Apache::lonnavdisplay::launch_win('now',undef,undef,
($url =~ m-^/adm/whatsnew-));	($url =~ m-^/adm/whatsnew-));
} else {	} else {
$navwindow.=&Apache::lonnavmaps::close();	$navwindow.=&Apache::lonnavmaps::close();
}	}
Line 854 sub build_roletext {	Line 854 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.