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

[raeburn]

raeburn		Thu Dec 11 01:22:26 2014 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - Coding style: keys()
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.192 loncom/interface/lonhelper.pm:1.193
--- loncom/interface/lonhelper.pm:1.192	Mon Feb 17 19:36:34 2014
+++ loncom/interface/lonhelper.pm	Thu Dec 11 01:22:26 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.192 2014/02/17 19:36:34 bisitz Exp $
+# $Id: lonhelper.pm,v 1.193 2014/12/11 01:22:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -651,7 +651,7 @@
     $result .= $buttons;
 
 
-    #foreach my $key (keys %{$self->{VARS}}) {
+    #foreach my $key (keys(%{$self->{VARS}})) {
     #    $result .= "|$key| -> " . $self->{VARS}->{$key} . "<br />";
     #}
 
@@ -3634,7 +3634,7 @@
     my @results;
 
     # Collect all the results
-    for my $stateName (keys %{$helper->{STATES}}) {
+    for my $stateName (keys(%{$helper->{STATES}})) {
         my $state = $helper->{STATES}->{$stateName};
         
         for my $element (@{$state->{ELEMENTS}}) {