--- loncom/interface/groupsort.pm 2004/05/10 08:34:50 1.27 +++ loncom/interface/groupsort.pm 2004/07/12 20:42:31 1.29 @@ -2,7 +2,7 @@ # The LON-CAPA group sort handler # Allows for sorting prior to import into RAT. # -# $Id: groupsort.pm,v 1.27 2004/05/10 08:34:50 taceyjo1 Exp $ +# $Id: groupsort.pm,v 1.29 2004/07/12 20:42:31 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -236,9 +236,10 @@ END $key =~ s/^store_//; $shash{$key} = $hash{'storectr_'.$key}; if (&Apache::lonnet::gettitle($key) eq '') { - $thash{$key} = $hash{'store_'.$key}; } - else { - $thash{$key} = &Apache::lonnet::gettitle($key); } + $thash{$key} = $hash{'store_'.$key}; + } else { + $thash{$key} = &Apache::lonnet::gettitle($key); + } } } if ($ENV{'form.oldval'}) { @@ -318,9 +319,10 @@ END # --- Expand here if "GO BACK" button desired if ($ENV{'form.catalogmode'} eq 'groupimport') { + my $resurl = &Apache::loncommon::lastresurl(); $r->print(<  + onClick="window.location='$resurl?catalogmode=groupimport'" />  END } if ($ENV{'form.catalogmode'} eq 'groupsearch') {