--- loncom/xml/lonxml.pm	2003/09/08 19:00:09	1.274
+++ loncom/xml/lonxml.pm	2003/09/11 22:37:54	1.275
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.274 2003/09/08 19:00:09 albertel Exp $
+# $Id: lonxml.pm,v 1.275 2003/09/11 22:37:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -184,6 +184,7 @@ sub xmlend {
        }                 
        $crs=~s/\_/\//g;
        my $seeid=&Apache::lonnet::allowed('rin',$crs);
+       my $viewgrades=&Apache::lonnet::allowed('vgr',$crs);
        unless ($symb) {
            $symb=&Apache::lonnet::symbread();
        }
@@ -250,7 +251,11 @@ sub xmlend {
 			  $sender='<i>'.$screenname.'</i>';
                       }
                   }
-		  $discussion.='<p><b>'.$sender.'</b> ('.
+		  my $vgrlink;
+		  if ($viewgrades) {
+		      $vgrlink=&Apache::loncommon::submlink('Submissions',$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$symb);
+		  }
+		  $discussion.='<p><b>'.$sender.'</b> '.$vgrlink.' ('.
                       localtime($contrib{$idx.':timestamp'}).
                       '):<blockquote>'.$message.
                       '</blockquote></p>';