loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2004/01/19 18:17:29	version 1.27, 2004/05/10 08:34:50
Line 39 use Apache::Constants qw(:common);	Line 39 use Apache::Constants qw(:common);
use GDBM_File;	use GDBM_File;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonnet;

my %hash; # variable to tie to user specific database	my %hash; # variable to tie to user specific database
my $iconpath; # variable to be accessible to multiple subroutines	my $iconpath; # variable to be accessible to multiple subroutines
Line 234 END	Line 235 END
my $key = $_;	my $key = $_;
$key =~ s/^store_//;	$key =~ s/^store_//;
$shash{$key} = $hash{'storectr_'.$key};	$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'}) {	if ($ENV{'form.oldval'}) {