--- loncom/interface/loncommon.pm	2005/01/25 00:27:59	1.247
+++ loncom/interface/loncommon.pm	2005/02/12 03:27:57	1.248
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.247 2005/01/25 00:27:59 albertel Exp $
+# $Id: loncommon.pm,v 1.248 2005/02/12 03:27:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3105,7 +3105,12 @@ needs $ENV{'form.upfile'} and $ENV{'form
 sub upfile_record_sep {
     if ($ENV{'form.upfiletype'} eq 'xml') {
     } else {
-	return split(/\n/,$ENV{'form.upfile'});
+	my @records;
+	foreach my $line (split(/\n/,$ENV{'form.upfile'})) {
+	    if ($line=~/^\s*$/) { next; }
+	    push(@records,$line);
+	}
+	return @records;
     }
 }