loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8.4.8, 2010/10/04 18:54:46	version 1.8.4.9, 2010/10/07 15:25:08
Line 61 sub handler {	Line 61 sub handler {
gci_5422913620b814c90gcil1 => 'tutorial',	gci_5422913620b814c90gcil1 => 'tutorial',
);	);
if (($custommenu && $cid ne '' && ($gcicourses{$cid} \|\| $env{'request.role'} !~ m{^cc\./gcitest/})) \|\|	if (($custommenu && $cid ne '' && ($gcicourses{$cid} \|\| $env{'request.role'} !~ m{^cc\./gcitest/})) \|\|
($env{'user.domain'} eq 'gcitest')) {	($cid ne '' && $env{'user.domain'} eq 'gcitest')) {
$r->internal_redirect('/adm/navmaps');	$r->internal_redirect('/adm/navmaps');
return OK;	return OK;
}	}
Line 95 ENDSCRIPT	Line 95 ENDSCRIPT
$r->print(&Apache::loncommon::start_page('Main Menu',$script_tag,$args));	$r->print(&Apache::loncommon::start_page('Main Menu',$script_tag,$args));

my ($rolecount,$numcourses) = (0,0);	my ($rolecount,$numcourses) = (0,0);
	my $now = time;
unless (($custommenu) \|\| ($env{'user.domain'} eq 'gcitest')) {	unless (($custommenu) \|\| ($env{'user.domain'} eq 'gcitest')) {
foreach my $envkey (keys(%env)) {	foreach my $envkey (keys(%env)) {
next unless ($envkey =~ /^user\.role\./);	next unless ($envkey =~ /^user\.role\./);
$rolecount ++;	my ($start,$end) = split(/\./,$env{$envkey});
	if (($start eq '' \|\| $start <= $now) && ($end eq '' \|\| $end > $now)) {
	$rolecount ++;
	}
}	}
}	}
if ($custommenu) {	if ($custommenu) {