--- loncom/interface/groupsort.pm 2004/01/19 18:17:29 1.26 +++ loncom/interface/groupsort.pm 2004/05/10 08:34:50 1.27 @@ -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.27 2004/05/10 08:34:50 taceyjo1 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,10 @@ 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'}) {