--- loncom/interface/lonfeedback.pm	2004/09/13 18:20:38	1.99.2.6
+++ loncom/interface/lonfeedback.pm	2004/09/15 20:29:37	1.99.2.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.99.2.6 2004/09/13 18:20:38 albertel Exp $
+# $Id: lonfeedback.pm,v 1.99.2.7 2004/09/15 20:29:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -115,13 +115,10 @@ sub list_discussion {
     }
 
 # Get discussion display default settings for user
-    my %userenv = &Apache::lonnet::get('environment',['discdisplay','discmarkread'],$ENV{'user.domain'},$ENV{'user.name'});
-    my $discdisplay=$userenv{'discdisplay'};
-    if ($discdisplay eq 'unread') {
+    if ($ENV{'environment.discdisplay'} eq 'unread') {
         $showonlyunread = 1;
     }
-    my $discmarkread=$userenv{'discmarkread'};
-    if ($discmarkread eq 'ondisp') {
+    if ($ENV{'environment.discmarkread'} eq 'ondisp') {
         $markondisp = 1;
     }
 
@@ -229,13 +226,14 @@ sub list_discussion {
 		    if ($hidden) {
 			$message='<font color="#888888">'.$message.'</font>';
 		    }
-		    my $screenname=&Apache::loncommon::screenname(
-					    $contrib{$idx.':sendername'},
-					    $contrib{$idx.':senderdomain'});
-		    my $plainname=&Apache::loncommon::nickname(
-					    $contrib{$idx.':sendername'},
-					    $contrib{$idx.':senderdomain'});
-		    
+#		    my $screenname=&Apache::loncommon::screenname(
+#					    $contrib{$idx.':sendername'},
+#					    $contrib{$idx.':senderdomain'});
+#		    my $plainname=&Apache::loncommon::nickname(
+#					    $contrib{$idx.':sendername'},
+#					    $contrib{$idx.':senderdomain'});
+		    ($$screenname,$$plainname)=($$contrib{$idx.':screenname'},
+						$$contrib{$idx.':plainname'});
 		    my $sender=&mt('Anonymous');
 		    if ((!$contrib{$idx.':anonymous'}) || ($seeid)) {
 			$sender=&Apache::loncommon::aboutmewrapper(