--- loncom/interface/loncreatecourse.pm 2001/02/15 00:57:41 1.1 +++ loncom/interface/loncreatecourse.pm 2001/02/17 22:25:19 1.2 @@ -12,7 +12,7 @@ # # 3/1 Gerd Kortemeyer) # -# 2/14 Gerd Kortemeyer +# 2/14,2/16,2/17 Gerd Kortemeyer # package Apache::loncreatecourse; @@ -20,19 +20,10 @@ 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; +# ===================================================== Phase one: fill-in form +sub phase_one { + my $r=shift; $r->print(< @@ -40,12 +31,93 @@ sub handler { The LearningOnline Network with CAPA +

Create a new Course

- +
+

Course Title

+ +

Top-level Map

+ +

Course Cooordinator

+Username:
+Domain: +

+ +

ENDDOCUMENT +} + +# ====================================================== Phase two: make course + +sub phase_two { + my $r=shift; + my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'}); + my $ccuname=$ENV{'form.ccuname'}; + my $ccdomain=$ENV{'form.ccdomain'}; + $ccuname=~s/\W//g; + $ccdomain=~s/\W//g; + my $cdescr=$ENV{'form.title'}; + my $curl=$ENV{'form.topmap'}; + $r->print(< + +The LearningOnline Network with CAPA + + + +

Create a new Course

+ENDENHEAD +# +# Verify data +# + if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { + $r->print('No such user '.$ccuname.' at '.$ccdomain); + return; + } + +# +# Open course +# + my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'}, + $cdescr,$curl); + + $r->print('New Course ID: '.$courseid.'
'); +# +# Make current user course adminstrator +# + $r->print('Assigning role of course coordinator to self: '. + &Apache::lonnet::assignrole( + $ENV{'user.domain'},$ENV{'user.name'},$courseid,'cc').'
'); +# +# Make additional user course administrator +# + $r->print('Assigning role of course coordinator to '. + $ccuname.' at '.$ccdomain.': '. + &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'
'); + $r->print(''); +} + +# ===================================================================== Handler +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; + if ($ENV{'form.phase'} eq 'two') { + &phase_two($r); + } else { + &phase_one($r); + } } else { $ENV{'user.error.msg'}= "/adm/createcourse:ccc:0:0:Cannot create courses";