--- loncom/interface/loncreatecourse.pm 2002/08/31 00:43:12 1.12
+++ loncom/interface/loncreatecourse.pm 2008/11/18 19:14:22 1.112
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.12 2002/08/31 00:43:12 www Exp $
+# $Id: loncreatecourse.pm,v 1.112 2008/11/18 19:14:22 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,44 +25,202 @@
#
# http://www.lon-capa.org/
#
-# (My Desk
-#
-# (Internal Server Error Handler
-#
-# (Login Screen
-# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
-# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
-#
-# 3/1/1 Gerd Kortemeyer)
-#
-# 3/1 Gerd Kortemeyer)
-#
-# 2/14,2/16,2/17,7/6 Gerd Kortemeyer
-#
+###
+
+=head1 NAME
+
+Apache::loncreatecourse.pm
+
+=head1 SYNOPSIS
+
+Allows domain coordinators to create new
+courses and assign course coordinators.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 SUBROUTINES
+
+=over
+
+=item handler()
+
+=item print_course_creation_page()
+
+=item create_course()
+
+=item print_intro_page()
+
+=item upload_batchfile()
+
+=item process_batchfile()
+
+=back
+
+=cut
+
package Apache::loncreatecourse;
use strict;
use Apache::Constants qw(:common :http);
use Apache::lonnet;
use Apache::loncommon;
+use Apache::londocs;
+use Apache::lonlocal;
+use Apache::lonuserutils;
+use Apache::lonclonecourse;
+use LONCAPA::batchcreatecourse;
+use LONCAPA;
+
# ===================================================== Phase one: fill-in form
sub print_course_creation_page {
my $r=shift;
- my $defdom=$ENV{'request.role.domain'};
- my %host_servers = &Apache::loncommon::get_library_servers($defdom);
+ my $crstype = 'Group';
+ if ($env{'form.phase'} eq 'courseone') {
+ $crstype = 'Course';
+ }
+ my $defdom=$env{'request.role.domain'};
+ my %host_servers = &Apache::lonnet::get_servers($defdom,'library');
my $course_home = '\n";
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
- my $bodytag=&Apache::loncommon::bodytag('Create a New Course');
-
- $r->print(<
-Course Title: - -
-Map: - -Browse -
-Do NOT generate as standard course -(only check if you know what you are doing): - -
-Course Home Server:$course_home -
-Course ID/Number (optional) - -
-Open all assessments: - +
-Set course policy feedback to Course Coordinator: - +
-Set content feedback to Course Coordinator: - +
- -$lt{'cngr'} | $lt{'cegr'} |
---|---|
-Username: + +$lt{'smap'}
-Domain: $domform
+
+
-Immediately expire own role as Course Coordinator:
-
+$lt{'fres'} |
+
+ + + + + + + +$lt{'asov'}. + |
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
++
+
- - + +
++ + +
-