[LON-CAPA-cvs] cvs: loncom /interface lonchatfetch.pm
www
lon-capa-cvs@mail.lon-capa.org
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>