--- loncom/interface/Attic/lonchart.pm	2002/03/02 02:03:47	1.37
+++ loncom/interface/Attic/lonchart.pm	2002/05/09 17:06:09	1.38
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonchart.pm,v 1.37 2002/03/02 02:03:47 minaeibi Exp $
+# $Id: lonchart.pm,v 1.38 2002/05/09 17:06:09 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -120,9 +120,10 @@ sub ExtractStudentData {
 		}
             }
 
-            my $Prob = &Apache::lonnet::declutter( $hash{'map_id_'.$1} ).
+            my $Prob = &Apache::lonnet::symbclean(
+                       &Apache::lonnet::declutter( $hash{'map_id_'.$1} ).
                        '___'.$2.'___'.
-                       &Apache::lonnet::declutter( $hash{'src_'.$ResId} );
+                       &Apache::lonnet::declutter( $hash{'src_'.$ResId} ));
             $Code=' ';
             $Tries = 0;
   	    $LatestVersion = $result{"version:$Prob"};
@@ -148,7 +149,11 @@ sub ExtractStudentData {
 			    $TempHash{"$Part.Code"} = $Code;
 			}
       		    }
-                } 
+                }
+# Actually append problem to output (all parts)
+                $Str.='<a href="/adm/grades?symb='.
+                &Apache::lonnet::escape($Prob).
+                '&student='.$sname.'&domain='.$sdom.'&command=submission">'; 
 		for ( my $n = 0; $n < $PartNo; $n++ ) {		  
 		    my $part = $TempHash{$n};
 		    my $Code = $TempHash{"$part.Code"};
@@ -163,6 +168,7 @@ sub ExtractStudentData {
 		    $Str .= $TempHash{"$part.Code"};
 		    if ( $Code ne 'x' ) {$ProbTotal++;}
 		}
+                $Str.='</a>';
             }   
 	    else {
 		for(my $n=0; $n<$PartNo; $n++) {