--- loncom/interface/lonchatfetch.pm 2002/08/08 13:44:17 1.1
+++ loncom/interface/lonchatfetch.pm 2002/08/14 15:57:53 1.2
@@ -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.2 2002/08/14 15:57:53 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,7 +51,10 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
my $include=0;
my $newstuff='';
- unless ($ENV{'form.lastid'}) { $include=1; }
+ unless ($ENV{'form.lastid'}) {
+ $include=1;
+ $newstuff='<html><body bgcolor="#FFFFFF">';
+ }
foreach (@entries) {
if ($include) {
my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));
@@ -67,7 +70,8 @@ sub handler {
my $sender=$snum.' at '.$sdom;
if ($anon) {
}
- $newstuff.='<b>'.$sender.'</b> ('.localtime($msgtime).'): '.
+ $newstuff.='<a name="'.$id.'"><b>'.
+ $sender.'</b> ('.localtime($msgtime).'): '.
$contrib."<br>";
} else {
$_=~/^(\w+)/;