[LON-CAPA-cvs] cvs: loncom /interface/statistics lonstathelpers.pm
raeburn
raeburn at source.lon-capa.org
Thu Oct 8 08:02:07 EDT 2020
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;
More information about the LON-CAPA-cvs
mailing list