[LON-CAPA-cvs] cvs: loncom(version_1_2_X) /interface lonfeedback.pm

[albertel]

albertel		Wed Sep 15 16:29:37 2004 EDT

  Modified files:              (Branch: version_1_2_X)
    /loncom/interface	lonfeedback.pm 
  Log:
  - backport 1.126
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.99.2.6 loncom/interface/lonfeedback.pm:1.99.2.7
--- loncom/interface/lonfeedback.pm:1.99.2.6	Mon Sep 13 14:20:38 2004
+++ loncom/interface/lonfeedback.pm	Wed Sep 15 16:29:37 2004
@@ -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 @@
     }
 
 # 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 @@
 		    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(