--- loncom/interface/lonchatfetch.pm 2002/08/08 13:44:17 1.1
+++ loncom/interface/lonchatfetch.pm 2002/08/14 16:24:00 1.3
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat Fetching
#
-# $Id: lonchatfetch.pm,v 1.1 2002/08/08 13:44:17 www Exp $
+# $Id: lonchatfetch.pm,v 1.3 2002/08/14 16:24:00 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,7 +51,11 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
my $include=0;
my $newstuff='';
- unless ($ENV{'form.lastid'}) { $include=1; }
+ my $bottomid='';
+ unless ($ENV{'form.lastid'}) {
+ $include=1;
+ $newstuff='';
+ }
foreach (@entries) {
if ($include) {
my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));
@@ -67,8 +71,10 @@ sub handler {
my $sender=$snum.' at '.$sdom;
if ($anon) {
}
- $newstuff.=''.$sender.' ('.localtime($msgtime).'): '.
+ $newstuff.=''.
+ $sender.' ('.localtime($msgtime).'): '.
$contrib."
";
+ $bottomid=$id;
} else {
$_=~/^(\w+)/;
if ($1 eq $ENV{'form.lastid'}) { $include=1; }
@@ -83,6 +89,7 @@ sub handler {