--- loncom/interface/loncreatecourse.pm 2002/04/08 19:12:25 1.8 +++ loncom/interface/loncreatecourse.pm 2002/04/23 21:05:45 1.9 @@ -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.9 2002/04/23 21:05:45 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,8 +49,8 @@ use Apache::lonnet; sub phase_one { my $r=shift; - my $defdom=$ENV{'user.domain'}; + my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); $r->print(<