loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2009/02/25 16:39:54	version 1.34.8.1, 2010/11/18 23:23:01
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;
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 Room 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:',$endblocktime).'<br /><br />';
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++) {