--- loncom/interface/lonhelper.pm 2011/12/18 17:15:03 1.188 +++ loncom/interface/lonhelper.pm 2014/12/11 01:22:26 1.193 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # .helper XML handler to implement the LON-CAPA helper # -# $Id: lonhelper.pm,v 1.188 2011/12/18 17:15:03 raeburn 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 @@ 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 .= "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 .= ""; } @@ -2540,7 +2540,8 @@ RADIO 'closeAllPages' => $self->{'closeallpages'}, 'suppressEmptySequences' => $self->{'suppressEmptySequences'}, 'include_top_level_map' => $self->{'include_top_level_map'}, - 'iterator_map' => $mapUrl } + 'iterator_map' => $mapUrl, + 'map_no_edit_link' => 1, } ); $result .= $buttons; @@ -2988,7 +2989,7 @@ BUTTONS $subdir=$londocroot.$subdir; } my ($user,$domain)= - &Apache::loncacc::constructaccess($subdir); + &Apache::lonnet::constructaccess($subdir); $metadir='/res/'.$domain.'/'.$user.'/'.$innerpath; ($listref,$listerror) = &Apache::lonnet::dirlist($subdir,$domain,$user,undef,undef,'/'); @@ -3633,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}}) {