--- loncom/interface/lonfeedback.pm	2004/05/07 12:03:53	1.82
+++ loncom/interface/lonfeedback.pm	2004/05/11 10:42:41	1.83
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.82 2004/05/07 12:03:53 albertel Exp $
+# $Id: lonfeedback.pm,v 1.83 2004/05/11 10:42:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -84,6 +84,14 @@ sub list_discussion {
         $prevread = $dischash{$lastkey};
     }
 
+# Get discussion display default setting for user
+    my %userenv = &Apache::lonnet::get('environment',['discdisplay'],$ENV{'user.domain'},$ENV{'user.name'});
+    my $discdisplay=$userenv{'discdisplay'};
+    if ($discdisplay eq 'unread') {
+        $showonlyunread = 1;
+    }
+
+# Override user's default if user specified display setting for this discussion 
     if (defined($dischash{$showkey})) {
         $showonlyunread = $dischash{$showkey};
     }