--- loncom/interface/groupsort.pm	2005/06/10 20:43:10	1.37
+++ loncom/interface/groupsort.pm	2006/02/07 19:46:30	1.39
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.37 2005/06/10 20:43:10 www Exp $
+# $Id: groupsort.pm,v 1.39 2006/02/07 19:46:30 albertel Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -195,6 +195,7 @@ sub cleanup {
 	    &Apache::lonnet::logthis('Failed cleanup groupsort: hash');
         }
     }
+    return OK;
 }
 
 # -------------------------------------------------------------- Read from file
@@ -351,7 +352,7 @@ END
 
     my $ctr = 0;
     my $clen = scalar(keys %shash);
-    if ($clen > 1) {
+    if (($clen > 1) || ($env{'form.readfile'})) {
 	my %lt=&Apache::lonlocal::texthash(
 		'fin'=> 'Finalize order of resources',
 		'gb' => 'Go Back',
@@ -421,7 +422,7 @@ END
 	my $key=$_;
 	$ctr++;
 	my $iconname=&Apache::loncommon::icon($key);
-	if ($clen > 1) {
+	if (($clen > 1) || ($env{'form.readfile'})) {
 	    $r->print("<tr><td bgcolor='$fileclr'>");
             if ($env{'form.readfile'}) {
 		$r->print(&checkbox($ctr-1));
@@ -430,7 +431,7 @@ END
 	    }
 	}
 	$r->print(&hidden($ctr-1,$thash{$key},$key));
-	if ($clen > 1) {
+	if (($clen > 1)  || ($env{'form.readfile'})) {
 	    $r->print("</td>");
             unless ($env{'form.readfile'}) {
 		$r->print("<td bgcolor='$fileclr'>".
@@ -444,7 +445,7 @@ END
 	    $r->print("$key</td></tr>\n");
 	} 
     }
-    if ($clen > 1) {
+    if (($clen > 1) || ($env{'form.readfile'})) {
 	$r->print("</table></td></tr></table></form>");
     } else {
 	$r->print(<<END);