loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.41, 2005/02/28 22:37:28	version 1.43, 2005/03/10 16:58:52
Line 68 use Storable qw(freeze thaw);	Line 68 use Storable qw(freeze thaw);

=item &render_resource($resource)	=item &render_resource($resource)

Input: a resource generated from	Input: a navmaps resource
&Apache::loncoursedata::get_sequence_assessment_data().

Retunrs: a scalar containing html for a rendering of the problem	Retunrs: a scalar containing html for a rendering of the problem
within a table.	within a table.
Line 82 sub render_resource {	Line 81 sub render_resource {
my ($resource) = @_;	my ($resource) = @_;
##	##
## Render the problem	## Render the problem
my $base;	my ($base) = ($resource->src =~ m\|^(./)[^/]$\|);
($base,undef) = ($resource->{'src'} =~ m\|(./)[^/]$\|);	$base="http://".$ENV{'SERVER_NAME'}.$base;
$base = "http://".$ENV{'SERVER_NAME'}.$base;
my ($src,$symb)=($resource->src,&Apache::lonnet::escape($resource->symb));	my ($src,$symb)=($resource->src,&Apache::lonnet::escape($resource->symb));
my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb);	my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb);
$rendered_problem =~ s/<\sform\s/<nop /g;	$rendered_problem =~ s/<\sform\s/<nop /g;