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/) { |