--- loncom/interface/groupsort.pm 2005/06/10 20:43:10 1.37 +++ loncom/interface/groupsort.pm 2005/06/11 01:06:54 1.38 @@ -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.38 2005/06/11 01:06:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -351,7 +351,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 +421,7 @@ END my $key=$_; $ctr++; my $iconname=&Apache::loncommon::icon($key); - if ($clen > 1) { + if (($clen > 1) || ($env{'form.readfile'})) { $r->print(""); if ($env{'form.readfile'}) { $r->print(&checkbox($ctr-1)); @@ -430,7 +430,7 @@ END } } $r->print(&hidden($ctr-1,$thash{$key},$key)); - if ($clen > 1) { + if (($clen > 1) || ($env{'form.readfile'})) { $r->print(""); unless ($env{'form.readfile'}) { $r->print("". @@ -444,7 +444,7 @@ END $r->print("$key\n"); } } - if ($clen > 1) { + if (($clen > 1) || ($env{'form.readfile'})) { $r->print(""); } else { $r->print(<