# The LearningOnline Network # Create a course # (My Desk # # (Internal Server Error Handler # # (Login Screen # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) # # 3/1/1 Gerd Kortemeyer) # # 3/1 Gerd Kortemeyer) # # 2/14 Gerd Kortemeyer # package Apache::loncreatecourse; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; sub handler { my $r = shift; if ($r->header_only) { $r->content_type('text/html'); $r->send_http_header; return OK; } if (&Apache::lonnet::allowed('ccc',$ENV{'user.domain'})) { $r->content_type('text/html'); $r->send_http_header; $r->print(< The LearningOnline Network with CAPA

Create a new Course

ENDDOCUMENT } else { $ENV{'user.error.msg'}= "/adm/createcourse:ccc:0:0:Cannot create courses"; return HTTP_NOT_ACCEPTABLE; } return OK; } 1; __END__