version 1.3, 2001/02/17 23:15:35
|
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 39 sub phase_one {
|
Line 39 sub phase_one {
|
<input type=text size=50 name=title> |
<input type=text size=50 name=title> |
<h3>Top-level Map</h3> |
<h3>Top-level Map</h3> |
<input type=text size=50 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 value=$defdom> |
Domain: <input type=text size=15 name=ccdomain value=$defdom> |
Line 84 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 |
# |
# |