--- loncom/interface/statistics/lonstathelpers.pm 2004/12/03 21:20:28 1.33 +++ loncom/interface/statistics/lonstathelpers.pm 2004/12/07 16:04:06 1.34 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstathelpers.pm,v 1.33 2004/12/03 21:20:28 albertel Exp $ +# $Id: lonstathelpers.pm,v 1.34 2004/12/07 16:04:06 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -86,7 +86,7 @@ sub render_resource { ($base,undef) = ($resource->{'src'} =~ m|(.*/)[^/]*$|); $base = "http://".$ENV{'SERVER_NAME'}.$base; my $rendered_problem = - &Apache::lonnet::ssi_body($resource->{'src'}); + &Apache::lonnet::ssi_body($resource->{'src'}.'?symb='.&Apache::lonnet::escape($resource->{'symb'})); $rendered_problem =~ s/<\s*form\s*/)|<\/nop>|g; return '\n"; $rb_count++; } @@ -308,7 +310,8 @@ sub new_accumulator { 'value="'.&Apache::lonnet::escape($res->symb).'" />'. ' '.$res->compTitle.''. (' 'x2).'view'. + 'href="'.$res->src.'?symb='. + &Apache::lonnet::escape($res->{'symb'}).'">view'. ''.$/; } else { if (defined($target)) {
'. @@ -149,8 +149,10 @@ sub ProblemSelector { if (scalar(@{$partdata->{'ResponseIds'}}) > 1) { $seq_str .= &mt('response').' '.$respid; } + my $link = $res->{'src'}.'?symb='. + &Apache::lonnet::escape($res->{'symb'}); $seq_str .= (' 'x2). - qq{view}; + qq{view}; $seq_str .= "