[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;