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) { |