--- loncom/interface/loncommon.pm 2007/01/23 20:00:38 1.503 +++ loncom/interface/loncommon.pm 2007/01/24 21:42:01 1.504 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.503 2007/01/23 20:00:38 raeburn Exp $ +# $Id: loncommon.pm,v 1.504 2007/01/24 21:42:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5394,9 +5394,9 @@ sub record_sep { } else { my @allfields; if ($env{'form.upfiletype'} eq 'semisv') { - @allfields=split(/;/,$record); + @allfields=split(/;/,$record,-1); } else { - @allfields=split(/\,/,$record); + @allfields=split(/\,/,$record,-1); } my $i=0; my $j;