--- loncom/interface/lonhelper.pm 2014/02/11 19:11:24 1.191 +++ loncom/interface/lonhelper.pm 2015/08/14 15:34:01 1.194 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # .helper XML handler to implement the LON-CAPA helper # -# $Id: lonhelper.pm,v 1.191 2014/02/11 19:11:24 bisitz Exp $ +# $Id: lonhelper.pm,v 1.194 2015/08/14 15:34:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -651,7 +651,7 @@ sub display { $result .= $buttons; - #foreach my $key (keys %{$self->{VARS}}) { + #foreach my $key (keys(%{$self->{VARS}})) { # $result .= "|$key| -> " . $self->{VARS}->{$key} . "
"; #} @@ -2396,7 +2396,7 @@ BUTTONS $result .= "$text"; } } - $result .= ''.&mt('Select').''; + $result .= ''.&Apache::lonlocal::mt('Select').''; $result .= ""; # Close off the extra row and start a new one. $headings_done = 1; } @@ -2493,9 +2493,9 @@ BUTTONS &HTML::Entities::encode(&$valueFunc($resource),"<>&\"'"); if ($addparts && (scalar(@{$resource->parts}) > 1)) { $col .= ""; } @@ -3634,7 +3634,7 @@ sub render { 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}}) {