[LON-CAPA-cvs] cvs: loncom /interface/spreadsheet assesscalc.pm

[raeburn]

raeburn		Mon May  1 13:30:20 2006 EDT

  Modified files:              
    /loncom/interface/spreadsheet	assesscalc.pm 
  Log:
  typo
  
  
Index: loncom/interface/spreadsheet/assesscalc.pm
diff -u loncom/interface/spreadsheet/assesscalc.pm:1.53 loncom/interface/spreadsheet/assesscalc.pm:1.54
--- loncom/interface/spreadsheet/assesscalc.pm:1.53	Mon May  1 02:17:16 2006
+++ loncom/interface/spreadsheet/assesscalc.pm	Mon May  1 13:30:20 2006
@@ -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 @@
         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;