--- loncom/interface/groupsort.pm 2004/01/19 18:17:29 1.26 +++ 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.26 2004/01/19 18:17:29 albertel Exp $ +# $Id: groupsort.pm,v 1.29 2004/07/12 20:42:31 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,6 +39,7 @@ use Apache::Constants qw(:common); use GDBM_File; use Apache::loncommon; use Apache::lonlocal; +use Apache::lonnet; my %hash; # variable to tie to user specific database my $iconpath; # variable to be accessible to multiple subroutines @@ -234,7 +235,11 @@ END my $key = $_; $key =~ s/^store_//; $shash{$key} = $hash{'storectr_'.$key}; - $thash{$key} = $hash{'store_'.$key}; + if (&Apache::lonnet::gettitle($key) eq '') { + $thash{$key} = $hash{'store_'.$key}; + } else { + $thash{$key} = &Apache::lonnet::gettitle($key); + } } } if ($ENV{'form.oldval'}) { @@ -314,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') {