--- loncom/interface/loncreatecourse.pm 2003/11/12 21:37:07 1.39 +++ loncom/interface/loncreatecourse.pm 2003/12/05 15:57:37 1.40 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.39 2003/11/12 21:37:07 albertel Exp $ +# $Id: loncreatecourse.pm,v 1.40 2003/12/05 15:57:37 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -243,6 +243,17 @@ sub print_course_creation_page { &Apache::loncommon::selectcourse_link ('ccrs','clonecourse','clonedomain'); my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript(); + my $date_table = &date_setting_table(); + my ($krbdef,$krbdefdom) = + &Apache::loncommon::get_kerberos_defaults($defdom); + my $javascript_validations=&javascript_validations($krbdefdom); + my %param = ( formname => 'document.ccrs', + kerb_def_dom => $krbdefdom, + kerb_def_auth => $krbdef + ); + my $krbform = &Apache::loncommon::authform_kerberos(%param); + my $intform = &Apache::loncommon::authform_internal(%param); + my $locform = &Apache::loncommon::authform_local(%param); $r->print(<