[LON-CAPA-cvs] cvs: loncom /interface lonchatfetch.pm

www lon-capa-cvs@mail.lon-capa.org
Mon, 23 Jun 2003 19:59:54 -0000


www		Mon Jun 23 15:59:54 2003 EDT

  Modified files:              
    /loncom/interface	lonchatfetch.pm 
  Log:
  Bug #1799: Very first message posting of a new participant did not show
  on participant's own screen.
  
  
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.9 loncom/interface/lonchatfetch.pm:1.10
--- loncom/interface/lonchatfetch.pm:1.9	Fri Mar 28 20:39:10 2003
+++ loncom/interface/lonchatfetch.pm	Mon Jun 23 15:59:54 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.9 2003/03/29 01:39:10 www Exp $
+# $Id: lonchatfetch.pm,v 1.10 2003/06/23 19:59:54 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -57,8 +57,15 @@
     my @entries=split(/\:/,
        &Apache::lonnet::reply(
         "chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome));
-    my ($lastid)=($entries[$#entries]=~/^(\w+)/);
-    my ($thentime,$idnum)=split(/\_/,$lastid);
+# Figure out what the last valid entry-id is
+    my ($lastid,$thentime,$idnum);
+    foreach (@entries) {
+	$_=~/^(\w+)/;
+        if ($1 ne 'active_participant') {
+	    $lastid=$1;
+            ($thentime,$idnum)=split(/\_/,$lastid);
+	}
+    }
 # ----------------------------------------------------------- Can see identity?
     my $crs='/'.$ENV{'request.course.id'};
     if ($ENV{'request.course.sec'}) {