--- loncom/interface/loncoursequeueadmin.pm 2010/12/05 21:57:33 1.12.2.10 +++ loncom/interface/loncoursequeueadmin.pm 2010/12/07 04:19:59 1.12.2.11 @@ -1,7 +1,7 @@ # The LearningOnline Network # Utilities to administer domain course requests and course self-enroll requests # -# $Id: loncoursequeueadmin.pm,v 1.12.2.10 2010/12/05 21:57:33 raeburn Exp $ +# $Id: loncoursequeueadmin.pm,v 1.12.2.11 2010/12/07 04:19:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -466,7 +466,7 @@ sub update_request_queue { my $uhome = &Apache::lonnet::homeserver($uname,$udom); if ($uhome ne 'no_host') { if (exists($requesthash{$uname.':'.$udom})) { - if ($cdom ne '' && ref($allnums{$cdom} eq 'HASH') { + if (($cdom ne '') && (ref($allnums{$cdom}) eq 'HASH')) { my ($addothers,@others); foreach my $key (%{$allnums{$cdom}}) { if ($key eq $cnum) {