--- loncom/interface/loncreatecourse.pm 2002/08/18 21:43:59 1.11 +++ loncom/interface/loncreatecourse.pm 2002/08/31 00:43:12 1.12 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.11 2002/08/18 21:43:59 www Exp $ +# $Id: loncreatecourse.pm,v 1.12 2002/08/31 00:43:12 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,7 +44,7 @@ package Apache::loncreatecourse; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; - +use Apache::loncommon; # ===================================================== Phase one: fill-in form sub print_course_creation_page { @@ -58,6 +58,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(<