loncom/interface/longroupchat.pm - diff

Return to longroupchat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2006/03/29 21:14:23	version 1.3, 2006/04/11 19:06:15
Line 49 sub handler {	Line 49 sub handler {
}	}
}	}
my $html = &Apache::lonxml::xmlbegin();	my $html = &Apache::lonxml::xmlbegin();
my $head = &Apache::loncommon::head($grouptitle);	my $start_page =
	&Apache::loncommon::start_page($grouptitle,undef,
	{'frameset' => 1,
	'add_entries' => {
	'rows' => "80,100,*",
	'border' => "0"},});
	my $end_page =
	&Apache::loncommon::end_page({'frameset' => 1});

$r->print(<<"END");	$r->print(<<"END");
$html	$start_page
$head
<frameset border="0" rows="80,100,*">
<frame name="chatacc" src="/adm/chatfetch?group=$group">	<frame name="chatacc" src="/adm/chatfetch?group=$group">
<frame name="chatpost" src="/adm/chat?group=$group">	<frame name="chatpost" src="/adm/chat?group=$group">
<frame name="chatout" src="/adm/rat/empty.html">	<frame name="chatout" src="/adm/rat/empty.html">
</frameset>	$end_page
</html>
END	END

}	}