--- loncom/interface/loncommon.pm 2003/12/15 19:23:03 1.159 +++ loncom/interface/loncommon.pm 2004/01/13 18:54:07 1.159.2.1 @@ -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 @@ sub record_sep { } } elsif ($ENV{'form.upfiletype'} eq 'tab') { my $i=0; - foreach (split(/\t+/,$record)) { + foreach (split(/\t/,$record)) { my $field=$_; $field=~s/^(\"|\')//; $field=~s/(\"|\')$//;