version 1.9, 2003/03/29 01:39:10
|
version 1.11, 2003/06/23 21:30:42
|
Line 57 sub handler {
|
Line 57 sub handler {
|
my @entries=split(/\:/, |
my @entries=split(/\:/, |
&Apache::lonnet::reply( |
&Apache::lonnet::reply( |
"chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome)); |
"chatretr:$cdom:$cnum:$ENV{'user.domain'}:$ENV{'user.name'}",$chome)); |
my ($lastid)=($entries[$#entries]=~/^(\w+)/); |
# Figure out what the last valid entry-id is |
my ($thentime,$idnum)=split(/\_/,$lastid); |
my ($lastid,$thentime,$idnum); |
|
foreach (@entries) { |
|
$_=~/^(\w+)/; |
|
if ($1 ne 'active_participant') { |
|
$lastid=$1; |
|
($thentime,$idnum)=split(/\_/,$lastid); |
|
} |
|
} |
# ----------------------------------------------------------- Can see identity? |
# ----------------------------------------------------------- Can see identity? |
my $crs='/'.$ENV{'request.course.id'}; |
my $crs='/'.$ENV{'request.course.id'}; |
if ($ENV{'request.course.sec'}) { |
if ($ENV{'request.course.sec'}) { |
Line 89 sub handler {
|
Line 96 sub handler {
|
&Apache::lonnet::unescape($msg)); |
&Apache::lonnet::unescape($msg)); |
$contrib=&Apache::lonnet::unescape($contrib); |
$contrib=&Apache::lonnet::unescape($contrib); |
$contrib=~s/\n/\<br \/\>/g; |
$contrib=~s/\n/\<br \/\>/g; |
$contrib=&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 && $snum eq $ENV{'user.name'} && |
|
$sdom eq $ENV{'user.domain'} ) { |
|
$contrib.="<br />[TeX error message: $errors]"; |
|
} |
$contrib=~s/\n/ /g; |
$contrib=~s/\n/ /g; |
$contrib=~s/\'/\&\#39\;/g; |
$contrib=~s/\'/\&\#39\;/g; |
my $sender=''; |
my $sender=''; |