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

[raeburn]

raeburn		Thu Oct  8 12:02:07 2020 EDT

  Modified files:              
    /loncom/interface/statistics	lonstathelpers.pm 
  Log:
  - Bug 6941
  
  
Index: loncom/interface/statistics/lonstathelpers.pm
diff -u loncom/interface/statistics/lonstathelpers.pm:1.79 loncom/interface/statistics/lonstathelpers.pm:1.80
--- loncom/interface/statistics/lonstathelpers.pm:1.79	Sat Sep 12 20:21:30 2020
+++ loncom/interface/statistics/lonstathelpers.pm	Thu Oct  8 12:02:07 2020
@@ -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.80 2020/10/08 12:02:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,7 +73,7 @@
 
 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 @@
     ##
     ## 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;