--- loncom/interface/groupsort.pm 2015/03/12 02:12:40 1.68.6.7
+++ loncom/interface/groupsort.pm 2013/01/09 16:30:19 1.72
@@ -2,7 +2,7 @@
# The LON-CAPA group sort handler
# Allows for sorting prior to import into RAT.
#
-# $Id: groupsort.pm,v 1.68.6.7 2015/03/12 02:12:40 raeburn Exp $
+# $Id: groupsort.pm,v 1.72 2013/01/09 16:30:19 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -59,7 +59,7 @@ sub update_actions_hash {
$ac++;
}
# 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') {
$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}=
$hash->{'pre_'.$key.'_title'};
@@ -339,8 +339,8 @@ END
if ($env{'form.recover'}) {
$r->print(<