--- loncom/interface/lonfeedback.pm	2001/12/27 18:37:32	1.20
+++ loncom/interface/lonfeedback.pm	2002/01/01 15:02:31	1.21
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.20 2001/12/27 18:37:32 www Exp $
+# $Id: lonfeedback.pm,v 1.21 2002/01/01 15:02:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,7 +39,7 @@
 # 2/13 Guy Albertelli
 # 7/25 Gerd Kortemeyer
 # 7/26 Guy Albertelli
-# 7/26,8/10,10/1,11/5,11/6,12/27 Gerd Kortemeyer
+# 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer
 
 
 package Apache::lonfeedback;
@@ -323,6 +323,11 @@ sub adddiscuss {
         &Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},
                      $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
 		     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+        my %storenewentry=($symb => time);
+        $status.='<br>Updating discussion time: '.
+        &Apache::lonnet::put('discussiontimes',\%storenewentry,
+                     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+		     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
     }
     my %record=&Apache::lonnet::restore('_discussion');
     my ($temp)=keys %record;
@@ -330,7 +335,8 @@ sub adddiscuss {
        my %newrecord=();
        $newrecord{'resource'}=$symb;
        $newrecord{'subnumber'}=$record{'subnumber'}+1;
-       $status.=' '.&Apache::lonnet::cstore(\%newrecord,'_discussion');
+       $status.='<br>Registering: '.
+               &Apache::lonnet::cstore(\%newrecord,'_discussion');
     }
     } else {
 	$status.='Failed.';