loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonchatfetch.pm between versions 1.35 and 1.36

version 1.35, 2009/07/26 16:53:40	version 1.36, 2009/10/23 10:21:00
Line 128 sub handler {	Line 128 sub handler {
$contrib=&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.=&mt('[Message not fully displayed due to incorrect embedded TeX]'); }	if ($errors) {
	$contrib.=' <span class="LC_error">'
	.&mt('(Message not fully displayed due to incorrect embedded TeX.)')
	.'</span>';
	}
if ($errors && $snum eq $env{'user.name'} &&	if ($errors && $snum eq $env{'user.name'} &&
$sdom eq $env{'user.domain'} ) {	$sdom eq $env{'user.domain'} ) {
$contrib.='<br />'.&mt('[TeX error message: [_1]',$errors);	$contrib.='<br /><span class="LC_error">'
	.&mt('TeX error message: [_1]',$errors)
	.'</span>';
}	}
$contrib=~s/\n/ /g;	$contrib=~s/\n/ /g;
$contrib=~s/\'/\&\#39\;/g;	$contrib=~s/\'/\&\#39\;/g;
Line 163 sub handler {	Line 169 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="LC_'.$id.'"></a><b>'.	$newstuff.='<span style="color:#'.$color.'"><a name="LC_'.$id.'"></a><b>'.
$sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '.	$sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '.
$contrib."</font><br />";	$contrib."</span><br />";
$bottomid='LC_'.$id;	$bottomid='LC_'.$id;
} else {	} else {
$entry=~/^(\w+)/;	$entry=~/^(\w+)/;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.35
changed lines
	Added in v.1.36