--- loncom/interface/loncoursegroups.pm 2014/06/18 16:34:39 1.126 +++ loncom/interface/loncoursegroups.pm 2014/12/11 01:19:07 1.127 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursegroups.pm,v 1.126 2014/06/18 16:34:39 raeburn Exp $ +# $Id: loncoursegroups.pm,v 1.127 2014/12/11 01:19:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1587,7 +1587,7 @@ sub group_members { future => 0, ); my $totalmembers = 0; - foreach my $member (keys %memberhash) { + foreach my $member (keys(%memberhash)) { $totalmembers ++; my ($end,$start) = split(/:/,$memberhash{$member}); unless ($start == -1) { @@ -1702,7 +1702,7 @@ sub groupsettings_options { if ($remnum) { $halfnum ++; } - my @allfunctions = sort(keys (%{$functions})); + my @allfunctions = sort(keys(%{$functions})); $r->print(&Apache::lonhtmlcommon::row_title($lt{'func'}) .'
'