loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125, 2003/09/09 18:46:28	version 1.126, 2003/09/21 21:40:06
Line 1809 sub handler {	Line 1809 sub handler {
my $r=shift;	my $r=shift;

if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}
Line 1820 sub handler {	Line 1820 sub handler {
if (($ENV{'request.course.id'}) &&	if (($ENV{'request.course.id'}) &&
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {

$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};	$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};