--- loncom/interface/lonpdfupload.pm 2014/02/28 19:20:06 1.23
+++ loncom/interface/lonpdfupload.pm 2014/12/12 14:21:22 1.24
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# PDF Form Upload Handler
#
-# $Id: lonpdfupload.pm,v 1.23 2014/02/28 19:20:06 bisitz Exp $
+# $Id: lonpdfupload.pm,v 1.24 2014/12/12 14:21:22 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -380,7 +380,7 @@ sub parse_grade_answer {
'DRAFT' => &mt('Copy saved but not submitted.'),
);
- foreach my $key (keys %answerhash) {
+ foreach my $key (keys(%answerhash)) {
if($shortcut eq $key) {
return $answerhash{$shortcut};
}
@@ -394,12 +394,12 @@ sub dumpenv {
my $r = shift;
$r->print ("
-------------------
");
- foreach my $key (sort (keys %env)) {
+ foreach my $key (sort(keys(%env))) {
$r->print ("
$key -> $env{$key}");
}
$r->print ("
-------------------
");
$r->print ("
-------------------
");
- foreach my $key (sort (keys %ENV)) {
+ foreach my $key (sort(keys(%ENV))) {
$r->print ("
$key -> $ENV{$key}");
}
$r->print ("
-------------------
");