[LON-CAPA-cvs] cvs: loncom /interface lonchatfetch.pm
www
lon-capa-cvs@mail.lon-capa.org
Sun, 27 Jun 2004 17:36:58 -0000
www Sun Jun 27 13:36:58 2004 EDT
Modified files:
/loncom/interface lonchatfetch.pm
Log:
Bug #3086: show username in CHAT for nameless folks
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.13 loncom/interface/lonchatfetch.pm:1.14
--- loncom/interface/lonchatfetch.pm:1.13 Sun Jun 27 13:14:28 2004
+++ loncom/interface/lonchatfetch.pm Sun Jun 27 13:36:57 2004
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat Fetching
#
-# $Id: lonchatfetch.pm,v 1.13 2004/06/27 17:14:28 www Exp $
+# $Id: lonchatfetch.pm,v 1.14 2004/06/27 17:36:57 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -93,8 +93,9 @@
my ($id,$msg,$udom)=split(/\:/,&Apache::lonnet::unescape($_));
if ($id eq 'active_participant') {
chomp($udom);
- $participants[$#participants+1]=
- &Apache::loncommon::nickname($msg,$udom);
+ my $participant= &Apache::loncommon::nickname($msg,$udom);
+ unless ($participant=~/\w/) { $participant=$msg.'@'.$udom; }
+ $participants[$#participants+1]=$participant;
} elsif ($include) {
chomp($msg);
my ($msgtime,$msgnum)=split(/\_/,$id);
@@ -117,9 +118,11 @@
if (($nick) && ($nick ne $sender)) {
$sender.=' '.$nick;
}
+ unless ($sender) { $sender=$snum.'@'.$sdom; }
if ($anon) { $sender.=' [Anon]' };
} elsif (!$anon) {
$sender=&Apache::loncommon::nickname($snum,$sdom);
+ unless ($sender) { $sender=$snum.'@'.$sdom; }
} else {
$sender=&Apache::loncommon::screenname($snum,$sdom);
unless ($sender) { $sender="Anonymous"; }