[LON-CAPA-cvs] cvs: loncom /interface lonpdfupload.pm

raeburn raeburn at source.lon-capa.org
Fri Dec 12 09:21:23 EST 2014


raeburn		Fri Dec 12 14:21:23 2014 EDT

  Modified files:              
    /loncom/interface	lonpdfupload.pm 
  Log:
  - Coding style: keys()
  
  
Index: loncom/interface/lonpdfupload.pm
diff -u loncom/interface/lonpdfupload.pm:1.23 loncom/interface/lonpdfupload.pm:1.24
--- loncom/interface/lonpdfupload.pm:1.23	Fri Feb 28 19:20:06 2014
+++ loncom/interface/lonpdfupload.pm	Fri Dec 12 14:21:22 2014
@@ -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 @@
                        '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 @@
     my $r = shift;
 
     $r->print ("<br />-------------------<br />");
-    foreach my $key (sort (keys %env)) {
+    foreach my $key (sort(keys(%env))) {
         $r->print ("<br />$key -> $env{$key}");
     }
     $r->print ("<br />-------------------<br />");
     $r->print ("<br />-------------------<br />");
-    foreach my $key (sort (keys %ENV)) {
+    foreach my $key (sort(keys(%ENV))) {
         $r->print ("<br />$key -> $ENV{$key}");
     }
     $r->print ("<br />-------------------<br />");




More information about the LON-CAPA-cvs mailing list