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.10 and 1.12

version 1.10, 2003/06/23 19:59:54	version 1.12, 2003/07/24 17:53:59
Line 29	Line 29
package Apache::lonchatfetch;	package Apache::lonchatfetch;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common :http);
use Apache::lontexconvert;	use Apache::lontexconvert;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
Line 37 use Apache::lonnet;	Line 37 use Apache::lonnet;
sub handler {	sub handler {
my $r = shift;	my $r = shift;

	if (! &Apache::lonnet::allowed('pch',$ENV{'request.course.id'}.
	($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))
	) {
	return HTTP_NOT_ACCEPTABLE;
	}

my $loaderror=&Apache::lonnet::overloaderror($r);	my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }
$loaderror=	$loaderror=
Line 96 sub handler {	Line 102 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='';

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

Removed from v.1.10
changed lines
	Added in v.1.12