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

www lon-capa-cvs@mail.lon-capa.org
Wed, 14 Aug 2002 15:57:53 -0000


www		Wed Aug 14 11:57:53 2002 EDT

  Modified files:              
    /loncom/interface	lonchatfetch.pm 
  Log:
  Background color and setting anchors
  
  
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.1 loncom/interface/lonchatfetch.pm:1.2
--- loncom/interface/lonchatfetch.pm:1.1	Thu Aug  8 09:44:17 2002
+++ loncom/interface/lonchatfetch.pm	Wed Aug 14 11:57:53 2002
@@ -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 @@
     &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 @@
             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+)/;