[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm
www
lon-capa-cvs-allow@mail.lon-capa.org
Sat, 11 Aug 2007 14:22:20 -0000
www Sat Aug 11 10:22:20 2007 EDT
Modified files:
/loncom/interface loncommon.pm
Log:
Ignore whitespace around separator, e.g.,
"Entry 1", "Entry 2", "Entry 3", ...
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.559 loncom/interface/loncommon.pm:1.560
--- loncom/interface/loncommon.pm:1.559 Wed Aug 8 15:13:43 2007
+++ loncom/interface/loncommon.pm Sat Aug 11 10:22:14 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.559 2007/08/08 19:13:43 albertel Exp $
+# $Id: loncommon.pm,v 1.560 2007/08/11 14:22:14 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -5996,9 +5996,9 @@
} else {
my @allfields;
if ($env{'form.upfiletype'} eq 'semisv') {
- @allfields=split(/;/,$record,-1);
+ @allfields=split(/\s*;\s*/,$record,-1);
} else {
- @allfields=split(/\,/,$record,-1);
+ @allfields=split(/\s*\,\s*/,$record,-1);
}
my $i=0;
my $j;