|
version 1.925.2.22, 2010/12/05 17:40:24
|
version 1.925.2.23, 2010/12/05 19:35:38
|
|
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 11046 sub ci_tabs {
|
Line 11046 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 11073 sub get_faculty_cnums {
|
| gci => { |
gci => { |
| review => '9615072b469884921gcil1', |
review => '9615072b469884921gcil1', |
| submit => '1H96711d710194bfegcil1', |
submit => '1H96711d710194bfegcil1', |
| tutorial' => '5422913620b814c90gcil1', |
tutorial => '5422913620b814c90gcil1', |
| }, |
}, |
| slci => { |
slci => { |
| review => '', |
review => '', |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface