loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2003/06/23 21:30:42	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=