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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 13 Jan 2004 18:54:07 -0000


albertel		Tue Jan 13 13:54:07 2004 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/interface	loncommon.pm 
  Log:
  - bacport 1.171
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.159 loncom/interface/loncommon.pm:1.159.2.1
--- loncom/interface/loncommon.pm:1.159	Mon Dec 15 14:23:03 2003
+++ loncom/interface/loncommon.pm	Tue Jan 13 13:54:07 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.159 2003/12/15 19:23:03 www Exp $
+# $Id: loncommon.pm,v 1.159.2.1 2004/01/13 18:54:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2472,7 +2472,7 @@
         }
     } elsif ($ENV{'form.upfiletype'} eq 'tab') {
         my $i=0;
-        foreach (split(/\t+/,$record)) {
+        foreach (split(/\t/,$record)) {
             my $field=$_;
             $field=~s/^(\"|\')//;
             $field=~s/(\"|\')$//;