loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.164 and 1.167

version 1.164, 2006/08/31 13:25:18	version 1.167, 2006/10/13 21:28:50
Line 40 use Apache::lonhtmlcommon;	Line 40 use Apache::lonhtmlcommon;
use Apache::lonannounce;	use Apache::lonannounce;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonpageflip();	use Apache::lonpageflip();
	use Apache::lonnavdisplay();
use GDBM_File;	use GDBM_File;
use LONCAPA;	use LONCAPA;

Line 53 sub redirect_user {	Line 54 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 855 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.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.164
changed lines
	Added in v.1.167