--- loncom/interface/lonchatfetch.pm 2002/08/14 15:57:53 1.2 +++ 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.2 2002/08/14 15:57:53 www Exp $ +# $Id: lonchatfetch.pm,v 1.3 2002/08/14 16:24:00 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -51,6 +51,7 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']); my $include=0; my $newstuff=''; + my $bottomid=''; unless ($ENV{'form.lastid'}) { $include=1; $newstuff=''; @@ -73,6 +74,7 @@ sub handler { $newstuff.=''. $sender.' ('.localtime($msgtime).'): '. $contrib."
"; + $bottomid=$id; } else { $_=~/^(\w+)/; if ($1 eq $ENV{'form.lastid'}) { $include=1; } @@ -87,6 +89,7 @@ sub handler {