version 1.1, 2001/02/15 00:57:41
|
version 1.3, 2001/02/17 23:15:35
|
Line 12
|
Line 12
|
# |
# |
# 3/1 Gerd Kortemeyer) |
# 3/1 Gerd Kortemeyer) |
# |
# |
# 2/14 Gerd Kortemeyer |
# 2/14,2/16,2/17 Gerd Kortemeyer |
# |
# |
package Apache::loncreatecourse; |
package Apache::loncreatecourse; |
|
|
Line 20 use strict;
|
Line 20 use strict;
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet; |
use Apache::lonnet; |
|
|
sub handler { |
# ===================================================== Phase one: fill-in form |
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; |
|
|
|
|
sub phase_one { |
|
my $r=shift; |
|
|
|
my $defdom=$ENV{'user.domain'}; |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
|
<img align=right src=/adm/lonIcons/lonlogos.gif> |
<h1>Create a new Course</h1> |
<h1>Create a new Course</h1> |
<img src="/adm/lonKaputt/lonconstruct.gif"> |
<form action=/adm/createcourse method=post> |
|
<h3>Course Title</h3> |
|
<input type=text size=50 name=title> |
|
<h3>Top-level Map</h3> |
|
<input type=text size=50 name=topmap> |
|
<h3>Course Cooordinator</h3> |
|
Username: <input type=text size=15 name=ccuname><br> |
|
Domain: <input type=text size=15 name=ccdomain value=$defdom> |
|
<input type=hidden name=phase value=two><p> |
|
<input type=submit value="Open Course"> |
|
</form> |
</body> |
</body> |
</html> |
</html> |
ENDDOCUMENT |
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(<<ENDENHEAD); |
|
<html> |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
</head> |
|
<body bgcolor="#FFFFFF"> |
|
<img align=right src=/adm/lonIcons/lonlogos.gif> |
|
<h1>Create a new Course</h1> |
|
ENDENHEAD |
|
# |
|
# Verify data |
|
# |
|
if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { |
|
$r->print('No such user '.$ccuname.' at '.$ccdomain.'</body></html>'); |
|
return; |
|
} |
|
|
|
# |
|
# Open course |
|
# |
|
my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'}, |
|
$cdescr,$curl); |
|
|
|
$r->print('New Course ID: '.$courseid.'<br>'); |
|
# |
|
# 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').'<br>'); |
|
# |
|
# Make additional user course administrator |
|
# |
|
$r->print('Assigning role of course coordinator to '. |
|
$ccuname.' at '.$ccdomain.': '. |
|
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>'); |
|
$r->print('Roles will be active at next login.</body></html>'); |
|
} |
|
|
|
# ===================================================================== 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 { |
} else { |
$ENV{'user.error.msg'}= |
$ENV{'user.error.msg'}= |
"/adm/createcourse:ccc:0:0:Cannot create courses"; |
"/adm/createcourse:ccc:0:0:Cannot create courses"; |