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

[www]

www		Thu May  9 13:06:09 2002 EDT

  Modified files:              
    /loncom/interface	lonchart.pm 
  Log:
  Implemented links according to bug 421.
  Also, inserted &symbclean on artificially created symb to "de-version"
  
  
Index: loncom/interface/lonchart.pm
diff -u loncom/interface/lonchart.pm:1.37 loncom/interface/lonchart.pm:1.38
--- loncom/interface/lonchart.pm:1.37	Fri Mar  1 21:03:47 2002
+++ loncom/interface/lonchart.pm	Thu May  9 13:06:09 2002
@@ -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 @@
 		}
             }
 
-            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 @@
 			    $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 @@
 		    $Str .= $TempHash{"$part.Code"};
 		    if ( $Code ne 'x' ) {$ProbTotal++;}
 		}
+                $Str.='</a>';
             }   
 	    else {
 		for(my $n=0; $n<$PartNo; $n++) {