--- loncom/interface/loncommon.pm	2005/01/25 00:27:59	1.247
+++ loncom/interface/loncommon.pm	2005/02/14 01:44:02	1.249
@@ -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.249 2005/02/14 01:44:02 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1142,7 +1142,7 @@ sub select_dom_form {
     my $selectdomain = "<select name=\"$name\" size=\"1\">\n";
     foreach (@domains) {
         $selectdomain.="<option value=\"$_\" ".
-            ($_ eq $defdom ? 'selected' : '').
+            ($_ eq $defdom ? 'selected="selected"' : '').
                 ">$_</option>\n";
     }
     $selectdomain.="</select>";
@@ -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;
     }
 }
 
@@ -3914,7 +3919,7 @@ sub icon {
 		$curfext.".gif";
 	}
     }
-    return $iconname;
+    return &lonhttpdurl($iconname);
 } 
 
 sub lonhttpdurl {