loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2003/09/09 17:26:03	version 1.38, 2003/09/21 21:40:06
Line 47 use Apache::lonnet;	Line 47 use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonratedt;	use Apache::lonratedt;
use Apache::londocs;	use Apache::londocs;
	use Apache::lonlocal;

# -------------------------------------------- Return path to profile directory	# -------------------------------------------- Return path to profile directory

Line 542 sub handler {	Line 543 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;
}	}

if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) {	if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

if ($ENV{'form.phase'} eq 'two') {	if ($ENV{'form.phase'} eq 'two') {