--- loncom/interface/loncreatecourse.pm 2002/08/08 20:37:37 1.10 +++ loncom/interface/loncreatecourse.pm 2002/09/05 19:37:00 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.10 2002/08/08 20:37:37 matthew Exp $ +# $Id: loncreatecourse.pm,v 1.13 2002/09/05 19:37:00 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,6 +44,9 @@ 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 @@ -58,6 +61,8 @@ sub print_course_creation_page { } $course_home .= "\n\n"; my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); + my $bodytag=&Apache::loncommon::bodytag('Create a New Course'); + $r->print(<