--- loncom/interface/loncreatecourse.pm 2001/02/17 23:15:35 1.3
+++ loncom/interface/loncreatecourse.pm 2001/07/06 14:17:48 1.4
@@ -12,7 +12,7 @@
#
# 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;
@@ -39,6 +39,8 @@ sub phase_one {
Top-level Map
+Course ID/Number (optional)
+
Course Cooordinator
Username:
Domain:
@@ -84,7 +86,20 @@ ENDENHEAD
my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'},
$cdescr,$curl);
- $r->print('New Course ID: '.$courseid.'
');
+ $r->print('New LON-CAPA Course ID: '.$courseid.'
');
+#
+# Set optional courseid
+#
+ my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/);
+ my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom);
+ $r->print('Created on: '.$crsuhome.'
');
+ 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).'
');
+ }
#
# Make current user course adminstrator
#