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

[albertel]

albertel		Tue Nov 15 11:04:15 2005 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - er typos
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.290 loncom/interface/loncommon.pm:1.291
--- loncom/interface/loncommon.pm:1.290	Tue Nov 15 10:52:51 2005
+++ loncom/interface/loncommon.pm	Tue Nov 15 11:04:14 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.290 2005/11/15 15:52:51 albertel Exp $
+# $Id: loncommon.pm,v 1.291 2005/11/15 16:04:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3128,7 +3128,7 @@
         my $now = time;
         foreach my $student (keys(%{$classlist})) {
             my $match = 0;
-            if (ref($sections) eq 'ARRAY') && (@{$sections} > 0) {
+            if ((ref($sections) eq 'ARRAY') && (@{$sections} > 0)) {
 		unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/,
 			    @{$sections})) {
 		    next;
@@ -3207,8 +3207,8 @@
     my ($udom,$uname,$idx,$userdata) = @_;
     $$userdata{$uname.':'.$udom}[$$idx{fullname}] = 
 	&plainname($uname,$udom,'lastname');
-    $$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname
-    $$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom
+    $$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname;
+    $$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom;
     return;
 }