--- loncom/interface/lonfeedback.pm	2004/06/03 14:28:39	1.88
+++ loncom/interface/lonfeedback.pm	2004/06/03 20:06:15	1.89
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.88 2004/06/03 14:28:39 www Exp $
+# $Id: lonfeedback.pm,v 1.89 2004/06/03 20:06:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,11 +39,15 @@ use Apache::lonhtmlcommon();
 
 sub list_discussion {
     my ($mode,$status,$symb)=@_;
-#    &Apache::lonnet::logthis("status is $status");
+
     if (!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER'
 	  || $status eq 'OPEN')) {
 	return '';
     }
+    my $close=&Apache::lonnet::EXT('resource.0.discussend');
+    if (defined($close) && $close ne '' && $close < time) {
+	return ''
+    }
 
     my @bgcols = ("#cccccc","#eeeeee");
     my $discussiononly=0;