version 1.22, 2006/03/29 21:16:18
|
version 1.27, 2006/06/27 00:12:23
|
Line 33 use Apache::Constants qw(:common :http);
|
Line 33 use Apache::Constants qw(:common :http);
|
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::longroup; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 48 sub handler {
|
Line 52 sub handler {
|
$group) ) { |
$group) ) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
my %curr_groups; |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
if (%curr_groups) { |
$cnum,$group); |
|
if ($numgroups) { |
|
my %group_info = |
my %group_info = |
&Apache::loncommon::get_group_settings($curr_groups{$group}); |
&Apache::longroup::get_group_settings($curr_groups{$group}); |
$grouptitle = |
$grouptitle = |
'<b>'.&Apache::lonnet::unescape($group_info{description}). |
'<b>'.&unescape($group_info{description}). |
'</b><br />'; |
'</b><br />'; |
} |
} |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
Line 105 sub handler {
|
Line 107 sub handler {
|
{'only_body' => 1, |
{'only_body' => 1, |
'bgcolor' => '#FFFFFF', |
'bgcolor' => '#FFFFFF', |
'js_ready' => 1,}); |
'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. |
|
# although in tryng both of these ideas, the .scroll to |
|
# the bottom seems to fail. |
|
$newstuff =~ s|(<link.*?/>)||; |
} |
} |
my @participants=(); |
my @participants=(); |
foreach (@entries) { |
foreach (@entries) { |
my ($id,$msg,$udom)=split(/\:/,&Apache::lonnet::unescape($_)); |
my ($id,$msg,$udom)=split(/\:/,&unescape($_)); |
if ($id eq 'active_participant') { |
if ($id eq 'active_participant') { |
chomp($udom); |
chomp($udom); |
my $participant= &Apache::loncommon::nickname($msg,$udom); |
my $participant= &Apache::loncommon::nickname($msg,$udom); |
Line 118 sub handler {
|
Line 127 sub handler {
|
chomp($msg); |
chomp($msg); |
my ($msgtime,$msgnum)=split(/\_/,$id); |
my ($msgtime,$msgnum)=split(/\_/,$id); |
my ($sdom,$snum,$anon,$contrib)=split(/\:/, |
my ($sdom,$snum,$anon,$contrib)=split(/\:/, |
&Apache::lonnet::unescape($msg)); |
&unescape($msg)); |
$contrib=&Apache::lonnet::unescape($contrib); |
$contrib=&unescape($contrib); |
&Apache::lonfeedback::newline_to_br(\$contrib); |
&Apache::lonfeedback::newline_to_br(\$contrib); |
($contrib,my $errors)=&Apache::lontexconvert::msgtexconverted($contrib); |
($contrib,my $errors)=&Apache::lontexconvert::msgtexconverted($contrib); |
if ($errors) { $contrib.="[Message not fully displayed due to incorrect embedded TeX]"; } |
if ($errors) { $contrib.="[Message not fully displayed due to incorrect embedded TeX]"; } |
Line 157 sub handler {
|
Line 166 sub handler {
|
$color=substr($color,0,6); |
$color=substr($color,0,6); |
my $timestamp=localtime($msgtime); |
my $timestamp=localtime($msgtime); |
my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/); |
my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/); |
$newstuff.='<font color="#'.$color.'"><a name="'.$id.'"><b>'. |
$newstuff.='<font color="#'.$color.'"><a name="LC_'.$id.'"></a><b>'. |
$sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '. |
$sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '. |
$contrib."</font><br>"; |
$contrib."</font><br />"; |
$bottomid=$id; |
$bottomid='LC_'.$id; |
} else { |
} else { |
$_=~/^(\w+)/; |
$_=~/^(\w+)/; |
if ($1 eq $env{'form.lastid'}) { $include=1; } |
if ($1 eq $env{'form.lastid'}) { $include=1; } |
Line 169 sub handler {
|
Line 178 sub handler {
|
my $participant_output=join('<br />',sort @participants); |
my $participant_output=join('<br />',sort @participants); |
my $refresh_cmd = "/adm/chatfetch?lastid=$lastid"; |
my $refresh_cmd = "/adm/chatfetch?lastid=$lastid"; |
if (defined($group)) { |
if (defined($group)) { |
$refresh_cmd .= "&group=$group"; |
$refresh_cmd .= "&group=$group"; |
} |
} |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Chat',undef, |
&Apache::loncommon::start_page('Chat',undef, |