--- loncom/interface/lonchatfetch.pm 2009/10/23 10:21:00 1.36 +++ loncom/interface/lonchatfetch.pm 2010/11/18 23:18:39 1.38 @@ -1,7 +1,7 @@ # The LearningOnline Network # Chat Fetching # -# $Id: lonchatfetch.pm,v 1.36 2009/10/23 10:21:00 bisitz Exp $ +# $Id: lonchatfetch.pm,v 1.38 2010/11/18 23:18:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,19 +63,12 @@ sub handler { ''.&unescape($group_info{description}). '
'; } - } 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'}:'')) ) { return HTTP_NOT_ACCEPTABLE; } - my $loaderror=&Apache::lonnet::overloaderror($r); - if ($loaderror) { return $loaderror; } - $loaderror= - &Apache::lonnet::overloaderror($r, - $env{'course.'.$env{'request.course.id'}.'.home'}); - if ($loaderror) { return $loaderror; } - &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only;