--- loncom/interface/statistics/lonstathelpers.pm	2020/09/12 20:21:30	1.79
+++ loncom/interface/statistics/lonstathelpers.pm	2023/07/12 15:09:41	1.81
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstathelpers.pm,v 1.79 2020/09/12 20:21:30 raeburn Exp $
+# $Id: lonstathelpers.pm,v 1.81 2023/07/12 15:09:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,7 +73,7 @@ use LONCAPA;
 
 Input: a navmaps resource
 
-Retunrs: a scalar containing html for a rendering of the problem
+Returns: a scalar containing html for a rendering of the problem
 within a table.
 
 =cut
@@ -85,7 +85,7 @@ sub render_resource {
     ##
     ## Render the problem
     my ($base) = ($resource->src =~ m|^(.*/)[^/]*$|);
-    $base="http://".$ENV{'SERVER_NAME'}.$base;
+    $base=&Apache::lonnet::absolute_url().$base;
     my ($src,$symb)=($resource->link,&escape($resource->shown_symb));
     my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb);
     $rendered_problem =~ s/<\s*form\s*/<nop /g;
@@ -198,7 +198,7 @@ sub problem_selector {
             my %partsseen;
             foreach my $part (@{$res->parts}) {
                 my (@response_ids,@response_types);
-                if ($res->is_tool) {
+                if (($include_tools) && ($res->is_tool)) {
                     @response_ids = ();
                     @response_types = ('tool');
                 } else {