albertel Fri Jun 15 18:16:16 2007 EDT
Modified files:
/loncom/homework grades.pm
Log:
- style police
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.408 loncom/homework/grades.pm:1.409
--- loncom/homework/grades.pm:1.408 Fri Jun 15 18:12:49 2007
+++ loncom/homework/grades.pm Fri Jun 15 18:16:13 2007
@@ -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 @@
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 @@
($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);