--- loncom/interface/spreadsheet/assesscalc.pm	2006/05/01 06:17:16	1.53
+++ loncom/interface/spreadsheet/assesscalc.pm	2006/05/01 17:30:20	1.54
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.53 2006/05/01 06:17:16 raeburn Exp $
+# $Id: assesscalc.pm,v 1.54 2006/05/01 17:30:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -343,7 +343,7 @@ sub parmval {
         return $useropt{$ucourselevel}  if (defined($useropt{$ucourselevel}));
     }
     # check groups
-    if (defined($groups) && ref($groups eq 'ARRAY')) {
+    if (defined($groups) && ref($groups) eq 'ARRAY') {
         foreach my $group (@{$groups}) {
             foreach my $level ($symbparm,$mapparm,$what) {
                 my $item = $courseprefix.'.['.$group.'].'.$level;