loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34.8.1, 2010/11/18 23:23:01	version 1.35, 2009/07/26 16:53:40
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('plc',$env{'request.course.id'}.	} elsif (! &Apache::lonnet::allowed('pch',$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;
Line 178 sub handler {	Line 178 sub handler {
$refresh_cmd .= "&group=$group";	$refresh_cmd .= "&group=$group";
}	}
my $headarg;	my $headarg;
my ($blocked,$blocktext) = &blockstatus();	my ($blocked,$blocktext) = blockstatus();
if ($blocked) {	if ($blocked) {
$newstuff = $blocktext;	$newstuff = $blocktext;
$headarg = {'only_body' => 1,};	$headarg = {'only_body' => 1,};

	$r->print(<<ENDSCRIPT);
	<script type="text/javascript">
	parent.location.href="/adm/blockingstatus/?activity=chat"
	</script>
	ENDSCRIPT
} else {	} else {
$headarg = {'redirect' => [5,$refresh_cmd,1],	$headarg = {'redirect' => [5,$refresh_cmd,1],
'only_body' => 1,};	'only_body' => 1,};