version 1.8.4.10, 2010/11/08 19:42:10
|
version 1.8.4.11, 2010/12/05 16:39:33
|
Line 55 sub handler {
|
Line 55 sub handler {
|
|
|
my $custommenu = &Apache::loncommon::needs_gci_custom(); |
my $custommenu = &Apache::loncommon::needs_gci_custom(); |
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
my %gcicourses = ( |
|
gci_9615072b469884921gcil1 => 'review', |
my %cicourses; |
gci_1H96711d710194bfegcil1 => 'submit', |
my $udom = $env{'user.domain'}; |
gci_5422913620b814c90gcil1 => 'tutorial', |
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
); |
if ($udom ne '' && ref($allnums{$udom} eq 'HASH') { |
if (($custommenu && $cid ne '' && ($gcicourses{$cid} || $env{'request.role'} !~ m{^cc\./gcitest/})) || |
foreach my $key (%{$allnums{$udom}}) { |
($cid ne '' && $env{'user.domain'} eq 'gcitest')) { |
$cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key}; |
|
} |
|
} |
|
|
|
if (($custommenu && $cid ne '' && ($cicourses{$cid} || $env{'request.role'} !~ m{^cc\./\Q$udom\Etest/})) || |
|
($cid ne '' && $env{'user.domain'} =~ /^\w+citest$/)) { |
$r->internal_redirect('/adm/navmaps'); |
$r->internal_redirect('/adm/navmaps'); |
return OK; |
return OK; |
} |
} |
Line 90 ENDSCRIPT
|
Line 95 ENDSCRIPT
|
my ($nocrumbs,$args); |
my ($nocrumbs,$args); |
if ($custommenu) { |
if ($custommenu) { |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
unless ($gcicourses{$env{'request.course.id'}}) { |
unless ($cicourses{$env{'request.course.id'}}) { |
$nocrumbs = 1; |
$nocrumbs = 1; |
} |
} |
} else { |
} else { |
Line 105 ENDSCRIPT
|
Line 110 ENDSCRIPT
|
|
|
my ($rolecount,$numcourses) = (0,0); |
my ($rolecount,$numcourses) = (0,0); |
my $now = time; |
my $now = time; |
unless (($custommenu) || ($env{'user.domain'} eq 'gcitest')) { |
unless (($custommenu) || ($env{'user.domain'} =~ /^\w+citest$/)) { |
foreach my $envkey (keys(%env)) { |
foreach my $envkey (keys(%env)) { |
next unless ($envkey =~ /^user\.role\./); |
next unless ($envkey =~ /^user\.role\./); |
my ($start,$end) = split(/\./,$env{$envkey}); |
my ($start,$end) = split(/\./,$env{$envkey}); |