loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2006/11/29 19:45:55	version 1.33, 2009/02/25 16:39:54
Line 186 sub handler {	Line 186 sub handler {
$headarg = {'redirect' => [5,$refresh_cmd,1],	$headarg = {'redirect' => [5,$refresh_cmd,1],
'only_body' => 1,};	'only_body' => 1,};
}	}
my $start_page = &Apache::loncommon::start_page('Chat',undef,$headarg);	my $start_page = &Apache::loncommon::start_page('Chat Room',undef,$headarg);
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
$start_page	$start_page
Line 223 sub blockstatus {	Line 223 sub blockstatus {
if ($startblock && $endblock) {	if ($startblock && $endblock) {
$blocked = 1;	$blocked = 1;
my $endblocktime = &Apache::lonlocal::locallocaltime($endblock);	my $endblocktime = &Apache::lonlocal::locallocaltime($endblock);
$output .= &mt('Chat will be unavailable to you until [_1] because communication is blocked in one or more of your courses: <br/><br />',$endblocktime);	$output .= &mt('Chat Room will be unavailable to you until [_1] because communication is blocked in one or more of your courses: <br /><br />',$endblocktime);
foreach my $course (keys(%setters)) {	foreach my $course (keys(%setters)) {
my %courseinfo=&Apache::lonnet::coursedescription($course);	my %courseinfo=&Apache::lonnet::coursedescription($course);
for (my $i=0; $i<@{$setters{$course}{staff}}; $i++) {	for (my $i=0; $i<@{$setters{$course}{staff}}; $i++) {