--- loncom/interface/loncreatecourse.pm 2008/11/11 16:40:43 1.111 +++ loncom/interface/loncreatecourse.pm 2008/12/15 08:11:32 1.113 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.111 2008/11/11 16:40:43 jms Exp $ +# $Id: loncreatecourse.pm,v 1.113 2008/12/15 08:11:32 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,33 +39,21 @@ courses and assign course coordinators. This is part of the LearningOnline Network with CAPA project described at http://www.lon-capa.org. -=head1 HANDLER SUBROUTINE - -handler() - -=head1 OTHER SUBROUTINES +=head1 SUBROUTINES =over -=item * - -print_course_creation_page() - -=item * - -create_course() - -=item * +=item handler() -print_intro_page() +=item print_course_creation_page() -=item * +=item create_course() -upload_batchfile() +=item print_intro_page() -=item * +=item upload_batchfile() -process_batchfile() +=item process_batchfile() =back @@ -270,7 +258,7 @@ END $r->print($start_page.$crumbs); if ($crstype eq 'Course') { - $r->print('
' + $r->print('
' .&Apache::lonhtmlcommon::start_pick_box() .&Apache::lonhtmlcommon::row_headline() @@ -509,6 +497,7 @@ END ); $r->print(<