loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.73, 2013/07/15 14:32:44	version 1.74, 2014/12/11 00:31:05
Line 59 sub update_actions_hash {	Line 59 sub update_actions_hash {
$ac++;	$ac++;
}	}
# sorting through the actions and changing the global database hash	# sorting through the actions and changing the global database hash
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {	foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys(%ahash))) {
if ($ahash{$key} eq '1') {	if ($ahash{$key} eq '1') {
$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}=	$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}=
$hash->{'pre_'.$key.'_title'};	$hash->{'pre_'.$key.'_title'};