--- loncom/interface/lonchatfetch.pm 2006/05/30 12:46:08 1.25
+++ loncom/interface/lonchatfetch.pm 2006/06/27 00:01:15 1.26
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat Fetching
#
-# $Id: lonchatfetch.pm,v 1.25 2006/05/30 12:46:08 www Exp $
+# $Id: lonchatfetch.pm,v 1.26 2006/06/27 00:01:15 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -107,6 +107,11 @@ sub handler {
{'only_body' => 1,
'bgcolor' => '#FFFFFF',
'js_ready' => 1,});
+ # removing the CSS reference for now
+ # see BUG# 4839
+ # to fix, need to either write the whole webpage to the bottom frame
+ # everytime or store the page in a js variable somewhere.
+ $newstuff =~ s|()||;
}
my @participants=();
foreach (@entries) {
@@ -159,10 +164,10 @@ sub handler {
$color=substr($color,0,6);
my $timestamp=localtime($msgtime);
my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/);
- $newstuff.=''.
+ $newstuff.=''.
$sender.' ('.$mhour.':'.$mmin.':'.$msec.'): '.
- $contrib."
";
- $bottomid=$id;
+ $contrib."
";
+ $bottomid='LC_'.$id;
} else {
$_=~/^(\w+)/;
if ($1 eq $env{'form.lastid'}) { $include=1; }
@@ -171,7 +176,7 @@ sub handler {
my $participant_output=join('
',sort @participants);
my $refresh_cmd = "/adm/chatfetch?lastid=$lastid";
if (defined($group)) {
- $refresh_cmd .= "&group=$group";
+ $refresh_cmd .= "&group=$group";
}
my $start_page =
&Apache::loncommon::start_page('Chat',undef,