--- loncom/interface/lonmainmenu.pm	2010/12/05 16:39:33	1.8.4.11
+++ loncom/interface/lonmainmenu.pm	2010/12/05 19:43:10	1.8.4.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # displays the main menu
 #
-# $Id: lonmainmenu.pm,v 1.8.4.11 2010/12/05 16:39:33 raeburn Exp $
+# $Id: lonmainmenu.pm,v 1.8.4.12 2010/12/05 19:43:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,7 +59,7 @@ sub handler {
     my %cicourses;
     my $udom = $env{'user.domain'};
     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}}) {
             $cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};
         }