--- loncom/interface/lonchatfetch.pm	2003/03/28 20:40:52	1.7
+++ loncom/interface/lonchatfetch.pm	2003/03/28 23:16:25	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.7 2003/03/28 20:40:52 www Exp $
+# $Id: lonchatfetch.pm,v 1.8 2003/03/28 23:16:25 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -55,7 +55,8 @@ sub handler {
     my $chome=$ENV{'course.'.$ENV{'request.course.id'}.'.home'};
 
     my @entries=split(/\:/,
-                       &Apache::lonnet::reply("chatretr:$cdom:$cnum",$chome));
+       &Apache::lonnet::reply(
+        "chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome));
     my ($lastid)=($entries[$#entries]=~/^(\w+)/);
     my ($thentime,$idnum)=split(/\_/,$lastid);
 # ----------------------------------------------------------- Can see identity?
@@ -78,7 +79,7 @@ sub handler {
 	if ($include) {
 	    my ($id,$msg,$uname)=split(/\:/,&Apache::lonnet::unescape($_));
 	    if ($id eq 'active_participant') {
-		$newstuff.='participant: '.$msg.' '.$uname;
+#		$newstuff.='participant: '.$msg.' '.$uname;
 	    } else {
 		chomp($msg);
 		my ($msgtime,$msgnum)=split(/\_/,$id);