--- loncom/interface/Attic/lonspreadsheet.pm	2001/11/05 18:22:24	1.73
+++ loncom/interface/Attic/lonspreadsheet.pm	2001/11/06 10:43:57	1.74
@@ -1262,7 +1262,10 @@ sub updatestudentassesssheet {
                        '">Evaluation</a>',
                        '_tutoring' =>
 	              '<a href="/adm/assesscalc?usymb=_tutoring'.$adduserstr.
-                       '">Tutoring</a>'
+                       '">Tutoring</a>',
+                       '_discussion' =>
+	              '<a href="/adm/assesscalc?usymb=_discussion'.$adduserstr.
+                       '">Discussion</a>'
         );
 
         map {
@@ -1716,6 +1719,11 @@ sub forcedrecalc {
 sub exportsheet {
  my ($uname,$udom,$stype,$usymb,$fn)=@_;
  my @exportarr=();
+
+ if (($usymb=~/^\_(\w+)/) && (!$fn)) {
+    $fn='default_'.$1;
+ }
+
 #
 # Check if cached
 #