--- loncom/interface/lonchatfetch.pm	2002/09/16 20:15:10	1.6
+++ loncom/interface/lonchatfetch.pm	2003/03/28 20:40:52	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.6 2002/09/16 20:15:10 www Exp $
+# $Id: lonchatfetch.pm,v 1.7 2003/03/28 20:40:52 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -76,46 +76,50 @@ sub handler {
     }
     foreach (@entries) {
 	if ($include) {
-            my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));
-            chomp($msg);
-            my ($msgtime,$msgnum)=split(/\_/,$id);
-            my ($sdom,$snum,$anon,$contrib)=split(/\:/,
+	    my ($id,$msg,$uname)=split(/\:/,&Apache::lonnet::unescape($_));
+	    if ($id eq 'active_participant') {
+		$newstuff.='participant: '.$msg.' '.$uname;
+	    } else {
+		chomp($msg);
+		my ($msgtime,$msgnum)=split(/\_/,$id);
+		my ($sdom,$snum,$anon,$contrib)=split(/\:/,
                                               &Apache::lonnet::unescape($msg));
-            $contrib=&Apache::lonnet::unescape($contrib);
-            $contrib=~s/\n/\<br \/\>/g;
-	    $contrib=&Apache::lontexconvert::msgtexconverted($contrib);
-            $contrib=~s/\n/ /g;
-            $contrib=~s/\'/\&\#39\;/g;
-            my $sender='';
-            if ($seeid) {
-               $sender=&Apache::loncommon::plainname($snum,$sdom);
-               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"; }
-            }
-            $sender=~s/\'/\"/g;
-            my $color=$sender;
-            $color=~tr/a-j/0-9/;
-            $color=~tr/A-J/0-9/;
-            $color=~tr/k-t/0-9/;
-            $color=~tr/K-T/0-9/;
-            $color=~tr/u-z/0-5/;
-            $color=~tr/U-Z/0-5/;
-            $color=~s/\D//g;
-            $color=substr($color,0,6);
-            my $timestamp=localtime($msgtime);
-            my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/);
-	    $newstuff.='<font color="#'.$color.'"><a name="'.$id.'"><b>'.
-                       $sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '.
-                       $contrib."</font><br>";
-            $bottomid=$id;
+		$contrib=&Apache::lonnet::unescape($contrib);
+		$contrib=~s/\n/\<br \/\>/g;
+		$contrib=&Apache::lontexconvert::msgtexconverted($contrib);
+		$contrib=~s/\n/ /g;
+		$contrib=~s/\'/\&\#39\;/g;
+		my $sender='';
+		if ($seeid) {
+		    $sender=&Apache::loncommon::plainname($snum,$sdom);
+		    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"; }
+		}
+		$sender=~s/\'/\"/g;
+		my $color=$sender;
+		$color=~tr/a-j/0-9/;
+		$color=~tr/A-J/0-9/;
+		$color=~tr/k-t/0-9/;
+		$color=~tr/K-T/0-9/;
+		$color=~tr/u-z/0-5/;
+		$color=~tr/U-Z/0-5/;
+		$color=~s/\D//g;
+		$color=substr($color,0,6);
+		my $timestamp=localtime($msgtime);
+		my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/);
+		$newstuff.='<font color="#'.$color.'"><a name="'.$id.'"><b>'.
+		    $sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '.
+		    $contrib."</font><br>";
+		$bottomid=$id;
+	    }
         } else {
             $_=~/^(\w+)/;
             if ($1 eq $ENV{'form.lastid'}) { $include=1; }