loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.127, 2005/07/13 19:56:17	version 1.129, 2005/09/16 19:47:42
Line 50 sub redirect_user {	Line 50 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');	$navwindow.=&Apache::lonnavmaps::launch_win('now',undef,undef,
	($url eq '/adm/whatsnew'));
} else {	} else {
$navwindow.=&Apache::lonnavmaps::close();	$navwindow.=&Apache::lonnavmaps::close();
}	}
Line 595 ENDHEADER	Line 596 ENDHEADER
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.	'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
&mt('Remarks and Calendar Announcements').'</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 ('Domain','Construction Space','Course','System') {
my $haverole=0;	my $haverole=0;
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {	foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {	if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {