version 1.925.2.22, 2010/12/05 17:40:24
|
version 1.925.2.25, 2010/12/06 18:00:41
|
Line 4581 sub bodytag {
|
Line 4581 sub bodytag {
|
my %cicourses; |
my %cicourses; |
my $udom = $env{'user.domain'}; |
my $udom = $env{'user.domain'}; |
my %allnums = &get_faculty_cnums(); |
my %allnums = &get_faculty_cnums(); |
if ($udom ne '' && ref($allnums{$udom} eq 'HASH') { |
if (($udom ne '') && (ref($allnums{$udom}) eq 'HASH')) { |
foreach my $key (%{$allnums{$udom}}) { |
foreach my $key (%{$allnums{$udom}}) { |
$cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key}; |
$cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key}; |
} |
} |
Line 11021 sub needs_gci_custom {
|
Line 11021 sub needs_gci_custom {
|
my %allnums = &get_faculty_cnums(); |
my %allnums = &get_faculty_cnums(); |
my $cnums = $allnums{$udom}; |
my $cnums = $allnums{$udom}; |
return unless (ref($cnums) eq 'HASH'); |
return unless (ref($cnums) eq 'HASH'); |
if ($env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}}) { |
return unless (scalar(keys(%{$cnums})) > 1); |
|
if ($env{"user.role.st./$udom/$cnums->{'review'}"}) { |
my ($start,$end) = |
my ($start,$end) = |
split('.',$env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}}); |
split('.',$env{"user.role.st./$udom/$cnums->{'review'}"}); |
if (((!$start) || ($start && $start <= $now)) && |
if (((!$start) || ($start && $start <= $now)) && |
((!$end) || ($end > $now))) { |
((!$end) || ($end > $now))) { |
$custommenu = 1; |
$custommenu = 1; |
if ($env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}}) { |
if ($env{"user.role.cc./$udom/$cnums->{'review'}"}) { |
my ($ccstart,$ccend) = |
my ($ccstart,$ccend) = |
split('.',$env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}}); |
split('.',$env{"user.role.cc./$udom/$cnums->{'review'}"}); |
if (((!$start) || ($start && $start <= $now)) && |
if (((!$start) || ($start && $start <= $now)) && |
((!$end) || ($end > $now))) { |
((!$end) || ($end > $now))) { |
$custommenu = ''; |
$custommenu = ''; |
Line 11046 sub ci_tabs {
|
Line 11047 sub ci_tabs {
|
my %tabs = ( |
my %tabs = ( |
gci => ['review','submit','managetest','tutorial'], |
gci => ['review','submit','managetest','tutorial'], |
slci => ['review'], |
slci => ['review'], |
|
); |
return $tabs{$domain}; |
return $tabs{$domain}; |
} |
} |
|
|
Line 11072 sub get_faculty_cnums {
|
Line 11074 sub get_faculty_cnums {
|
gci => { |
gci => { |
review => '9615072b469884921gcil1', |
review => '9615072b469884921gcil1', |
submit => '1H96711d710194bfegcil1', |
submit => '1H96711d710194bfegcil1', |
tutorial' => '5422913620b814c90gcil1', |
tutorial => '5422913620b814c90gcil1', |
}, |
}, |
slci => { |
slci => { |
review => '', |
review => '4V80581c93ffc4c38gcil1', |
} |
} |
); |
); |
return %cnums; |
return %cnums; |