--- loncom/interface/loncreatecourse.pm 2016/10/06 16:20:05 1.164 +++ loncom/interface/loncreatecourse.pm 2017/08/07 20:22:13 1.166 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.164 2016/10/06 16:20:05 raeburn Exp $ +# $Id: loncreatecourse.pm,v 1.166 2017/08/07 20:22:13 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,7 +106,8 @@ sub print_course_creation_page { $course_home .= qq{>$server $host_servers{$server}}; } $course_home .= "\n\n"; - my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); + my ($trustedref,$untrustedref) = &Apache::lonnet::trusted_domains('enroll',$defdom); + my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain',undef,undef,undef,$trustedref,$untrustedref); my $cloneform=&Apache::loncommon::select_dom_form ($env{'request.role.domain'},'clonedomain'). &Apache::loncommon::selectcourse_link @@ -1416,7 +1417,7 @@ sub handler { } $r->print($start_page.$crumbs."\n".'
'. &Apache::loncoursequeueadmin::display_queued_requests( - $context,$env{'request.role.domain'},undef,).'
'. + $context,$env{'request.role.domain'}).''. &Apache::loncommon::end_page()); } elsif (($permission->{'create'}) && ($env{'form.phase'} eq 'requestchange') && ($show_all_choices)) {