--- loncom/interface/lonchatfetch.pm 2002/09/09 21:01:58 1.4 +++ loncom/interface/lonchatfetch.pm 2002/09/13 19:32:09 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network # Chat Fetching # -# $Id: lonchatfetch.pm,v 1.4 2002/09/09 21:01:58 www Exp $ +# $Id: lonchatfetch.pm,v 1.5 2002/09/13 19:32:09 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -79,9 +79,15 @@ sub handler { $contrib=~s/\n/ /g; $contrib=~s/\'/\&\#39\;/g; my $sender=''; - unless (($anon) && (!$seeid)) { + if ($seeid) { $sender=&Apache::loncommon::plainname($snum,$sdom); - if ($anon) { $sender.=' [Anon]' }; + my $nick=&Apache::loncommon::nickname($snum,$sdom); + if (($nick) && ($nick ne $sender)) { + $sender.=' '.$nick; + } + if ($anon) { $sender.=' [Anon]' }; + } elsif (!$anon) { + $sender=&Apache::loncommon::nickname($snum,$sdom); } else { $sender=&Apache::loncommon::screenname($snum,$sdom); unless ($sender) { $sender="Anonymous"; }