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

Wed, 14 Aug 2002 16:24:00 -0000

www		Wed Aug 14 12:24:00 2002 EDT

  Modified files:              
    /loncom/interface	lonchatfetch.pm 
  Log:
  This now scrolls to the bottom of the page. Exploder compatibility not tested.
  
  
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.2 loncom/interface/lonchatfetch.pm:1.3

--- loncom/interface/lonchatfetch.pm:1.2	Wed Aug 14 11:57:53 2002
+++ loncom/interface/lonchatfetch.pm	Wed Aug 14 12:24:00 2002
@@ -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 @@
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
     my $include=0;
     my $newstuff='';
+    my $bottomid='';
     unless ($ENV{'form.lastid'}) { 
        $include=1; 
        $newstuff='<html><body bgcolor="#FFFFFF">';
@@ -73,6 +74,7 @@
 	    $newstuff.='<a name="'.$id.'"><b>'.
                        $sender.'</b> ('.localtime($msgtime).'): '.
                        $contrib."<br>";
+            $bottomid=$id;
         } else {
             $_=~/^(\w+)/;
             if ($1 eq $ENV{'form.lastid'}) { $include=1; }
@@ -87,6 +89,7 @@
 <body bgcolor="#FFFFFF">
 <script>
 parent.chatout.document.writeln('$newstuff');
+parent.chatout.scroll(0,10000000);
 </script>
 </body>
 </html>



