loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2009/02/25 18:44:29	version 1.35, 2009/07/26 16:53:40
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,};