version 1.2, 2001/02/17 22:25:19
|
version 1.4, 2001/07/06 14:17:48
|
Line 12
|
Line 12
|
# |
# |
# 3/1 Gerd Kortemeyer) |
# 3/1 Gerd Kortemeyer) |
# |
# |
# 2/14,2/16,2/17 Gerd Kortemeyer |
# 2/14,2/16,2/17,7/6 Gerd Kortemeyer |
# |
# |
package Apache::loncreatecourse; |
package Apache::loncreatecourse; |
|
|
Line 25 use Apache::lonnet;
|
Line 25 use Apache::lonnet;
|
sub phase_one { |
sub phase_one { |
my $r=shift; |
my $r=shift; |
|
|
|
my $defdom=$ENV{'user.domain'}; |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<head> |
<head> |
Line 35 sub phase_one {
|
Line 36 sub phase_one {
|
<h1>Create a new Course</h1> |
<h1>Create a new Course</h1> |
<form action=/adm/createcourse method=post> |
<form action=/adm/createcourse method=post> |
<h3>Course Title</h3> |
<h3>Course Title</h3> |
<input type=text size=40 name=title> |
<input type=text size=50 name=title> |
<h3>Top-level Map</h3> |
<h3>Top-level Map</h3> |
<input type=text size=40 name=topmap> |
<input type=text size=50 name=topmap> |
|
<h3>Course ID/Number (optional)</h3> |
|
<input type=text size=30 name=crsid> |
<h3>Course Cooordinator</h3> |
<h3>Course Cooordinator</h3> |
Username: <input type=text size=15 name=ccuname><br> |
Username: <input type=text size=15 name=ccuname><br> |
Domain: <input type=text size=15 name=ccdomain> |
Domain: <input type=text size=15 name=ccdomain value=$defdom> |
<input type=hidden name=phase value=two><p> |
<input type=hidden name=phase value=two><p> |
<input type=submit value="Open Course"> |
<input type=submit value="Open Course"> |
</form> |
</form> |
Line 73 ENDENHEAD
|
Line 76 ENDENHEAD
|
# Verify data |
# Verify data |
# |
# |
if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { |
if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { |
$r->print('No such user '.$ccuname.' at '.$ccdomain); |
$r->print('No such user '.$ccuname.' at '.$ccdomain.'</body></html>'); |
return; |
return; |
} |
} |
|
|
Line 83 ENDENHEAD
|
Line 86 ENDENHEAD
|
my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'}, |
my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'}, |
$cdescr,$curl); |
$cdescr,$curl); |
|
|
$r->print('New Course ID: '.$courseid.'<br>'); |
$r->print('New LON-CAPA Course ID: '.$courseid.'<br>'); |
|
# |
|
# Set optional courseid |
|
# |
|
my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/); |
|
my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom); |
|
$r->print('Created on: '.$crsuhome.'<br>'); |
|
if ($ENV{'form.crsid'}) { |
|
$r->print('Setting optional Course ID/Number: '. |
|
&Apache::lonnet::reply('put:'.$crsudom.':'. |
|
$crsunum.':environment:courseid='. |
|
&Apache::lonnet::escape($ENV{'form.crsid'}), |
|
$crsuhome).'<br>'); |
|
} |
# |
# |
# Make current user course adminstrator |
# Make current user course adminstrator |
# |
# |
Line 95 ENDENHEAD
|
Line 111 ENDENHEAD
|
# |
# |
$r->print('Assigning role of course coordinator to '. |
$r->print('Assigning role of course coordinator to '. |
$ccuname.' at '.$ccdomain.': '. |
$ccuname.' at '.$ccdomain.': '. |
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<br>'); |
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>'); |
$r->print('</body></html>'); |
$r->print('Roles will be active at next login.</body></html>'); |
} |
} |
|
|
# ===================================================================== Handler |
# ===================================================================== Handler |