--- loncom/interface/groupsort.pm 2003/10/07 20:30:13 1.24
+++ 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.24 2003/10/07 20:30:13 matthew 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(<