loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.36, 2009/10/23 10:21:00	version 1.38, 2010/11/18 23:18:39
Line 63 sub handler {	Line 63 sub handler {
'<b>'.&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('plc',$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
) {	) {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}

my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }
$loaderror=
&Apache::lonnet::overloaderror($r,
$env{'course.'.$env{'request.course.id'}.'.home'});
if ($loaderror) { return $loaderror; }

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;