loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.51, 2007/06/15 19:18:45	version 1.52, 2007/06/29 22:41:24
Line 65 sub readfromdb {	Line 65 sub readfromdb {
foreach (sort {$achash{$a} <=> $achash{$b}} (keys %ahash)) {	foreach (sort {$achash{$a} <=> $achash{$b}} (keys %ahash)) {
my $key = $_;	my $key = $_;
if ($ahash{$key} eq '1') {	if ($ahash{$key} eq '1') {
	if ($hash{'pre_'.$key.'_title'} eq 'Not_retrieved') {
	$hash{'pre_'.$key.'_title'} = &Apache::lonnet::gettitle($hash{'pre_'.$key.'_link'},'title');
	}
$hash{'store_'.$hash{'pre_'.$key.'_link'}} =	$hash{'store_'.$hash{'pre_'.$key.'_link'}} =
$hash{'pre_'.$key.'_title'};	$hash{'pre_'.$key.'_title'};
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}} =	$hash{'storectr_'.$hash{'pre_'.$key.'_link'}} =