--- loncom/interface/loncreatecourse.pm 2002/04/08 19:12:25 1.8 +++ loncom/interface/loncreatecourse.pm 2002/12/23 18:04:54 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.8 2002/04/08 19:12:25 matthew Exp $ +# $Id: loncreatecourse.pm,v 1.16 2002/12/23 18:04:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,13 +44,28 @@ package Apache::loncreatecourse; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; +use Apache::loncommon; +use Apache::lonratedt; +use Apache::londocs; # ===================================================== Phase one: fill-in form -sub phase_one { +sub print_course_creation_page { my $r=shift; + my $defdom=$ENV{'request.role.domain'}; + my %host_servers = &Apache::loncommon::get_library_servers($defdom); + my $course_home = '\n"; + my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); + my $bodytag=&Apache::loncommon::bodytag('Create a New Course'); - my $defdom=$ENV{'user.domain'}; $r->print(<