--- 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}}) {