version 1.8.4.8, 2010/10/04 18:54:46
|
version 1.8.4.10, 2010/11/08 19:42:10
|
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 87 ENDSCRIPT
|
Line 87 ENDSCRIPT
|
$env{'environment.remote'}='off'; |
$env{'environment.remote'}='off'; |
|
|
# Breadcrumbs |
# Breadcrumbs |
my $args; |
my ($nocrumbs,$args); |
unless ($custommenu && !$env{'request.course.id'}) { |
if ($custommenu) { |
|
if ($env{'request.course.id'}) { |
|
unless ($gcicourses{$env{'request.course.id'}}) { |
|
$nocrumbs = 1; |
|
} |
|
} else { |
|
$nocrumbs = 1; |
|
} |
|
} |
|
unless ($nocrumbs) { |
my $brcrum = []; |
my $brcrum = []; |
$args = {bread_crumbs => $brcrum}; |
$args = {bread_crumbs => $brcrum}; |
} |
} |
$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) { |