--- loncom/homework/grades.pm	2007/06/15 22:12:49	1.408
+++ loncom/homework/grades.pm	2007/06/15 22:16:13	1.409
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.408 2007/06/15 22:12:49 albertel Exp $
+# $Id: grades.pm,v 1.409 2007/06/15 22:16:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6160,7 +6160,7 @@ sub gather_adv_clicker_ids {
     my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
-    foreach my $element (sort keys %coursepersonnel) {
+    foreach my $element (sort(keys(%coursepersonnel))) {
         foreach my $person (split(/\,/,$coursepersonnel{$element})) {
             my ($puname,$pudom)=split(/\:/,$person);
             my $clickers =
@@ -6321,7 +6321,7 @@ sub process_clicker_file {
 	($errormsg,$number)=&iclicker_eval(\@questiontitles,\%responses);
     }
     $result.='<br />'.&mt('Found [_1] questions',$number).'<br />';
-    foreach my $id (keys %responses) {
+    foreach my $id (keys(%responses)) {
 	$result.='<br />'.$id.' - '.$responses{$id};
     }
     return $result.&show_grading_menu_form($symb);