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

[matthew]

matthew		Fri Jun 13 16:27:17 2003 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemstatistics.pm 
  Log:
  Bug 1611 - links to problems on stats page now work.
  
  
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.52 loncom/interface/statistics/lonproblemstatistics.pm:1.53
--- loncom/interface/statistics/lonproblemstatistics.pm:1.52	Tue Jun 10 15:19:57 2003
+++ loncom/interface/statistics/lonproblemstatistics.pm	Fri Jun 13 16:27:17 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemstatistics.pm,v 1.52 2003/06/10 19:19:57 matthew Exp $
+# $Id: lonproblemstatistics.pm,v 1.53 2003/06/13 20:27:17 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -707,8 +707,7 @@
             }
         $row .= '>';
         if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
-            $row .= '<a href="'.$data->{$field->{'name'}.'.link'}.
-                ' target="_blank">';
+            $row .= '<a href="'.$data->{$field->{'name'}.'.link'}.'">';
         }
         if (exists($field->{'format'})) {
             $row .= sprintf($field->{'format'},$data->{$field->{'name'}});
@@ -882,7 +881,8 @@
     $data->{'problem_num'} = $problem_num;
     $data->{'container'}   = $sequence->{'title'};
     $data->{'title'}       = $resource->{'title'};
-    $data->{'title.link'}  = $resource->{'src'};
+    $data->{'title.link'}  = $resource->{'src'}.'?symb='.
+        &Apache::lonnet::escape($resource->{'symb'});
     #
     return $data;
 }