loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8.4.11, 2010/12/05 16:39:33	version 1.8.4.12, 2010/12/05 19:43:10
Line 59 sub handler {	Line 59 sub handler {
my %cicourses;	my %cicourses;
my $udom = $env{'user.domain'};	my $udom = $env{'user.domain'};
my %allnums = &Apache::loncommon::get_faculty_cnums();	my %allnums = &Apache::loncommon::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};
}	}