|
version 1.309.2.22, 2010/12/05 17:24:13
|
version 1.309.2.23, 2010/12/05 19:44:36
|
|
Line 327 sub gci_secondary_menu {
|
Line 327 sub gci_secondary_menu {
|
| $inventory = $env{'user.domain'}; |
$inventory = $env{'user.domain'}; |
| } |
} |
| my %allnums = &Apache::loncommon::get_faculty_cnums(); |
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
| if ($inventory ne '' && ref($allnums{$inventory} eq 'HASH') { |
if (($inventory ne '') && (ref($allnums{$inventory}) eq 'HASH')) { |
| foreach my $key (%{$allnums{$inventory}}) { |
foreach my $key (%{$allnums{$inventory}}) { |
| $courses{$inventory.'_'.$key} = $allnums{$inventory}->{$key}; |
$courses{$inventory.'_'.$key} = $allnums{$inventory}->{$key}; |
| } |
} |
|
Line 1919 sub utilityfunctions {
|
Line 1919 sub utilityfunctions {
|
| my $udom = $env{'user.domain'}; |
my $udom = $env{'user.domain'}; |
| my %crs_by_caller; |
my %crs_by_caller; |
| if (ref($allnums{$udom}) eq 'HASH') { |
if (ref($allnums{$udom}) eq 'HASH') { |
| foreach my $key (%{$allnums{$udom}}) { |
foreach my $key (keys(%{$allnums{$udom}})) { |
| $crs_by_caller{$allnums{$udom}->{$key}} = 'st./'.$udom.'/'.$key.'=1'; |
$crs_by_caller{$allnums{$udom}->{$key}} = 'st./'.$udom.'/'.$key.'=1'; |
| } |
} |
| } |
} |
| } |
|
| |
|
| $gcimenujs = <<"ENDCUSTOM"; |
$gcimenujs = <<"ENDCUSTOM"; |
| |
|
| function switchpage(caller) { |
function switchpage(caller) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface