--- loncom/interface/loncreatecourse.pm 2003/12/05 15:57:37 1.40 +++ loncom/interface/loncreatecourse.pm 2003/12/09 00:43:47 1.43 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.40 2003/12/05 15:57:37 raeburn Exp $ +# $Id: loncreatecourse.pm,v 1.43 2003/12/09 00:43:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,6 +48,7 @@ use Apache::loncommon; use Apache::lonratedt; use Apache::londocs; use Apache::lonlocal; +use Apache::londropadd; # ================================================ Get course directory listing @@ -243,10 +244,12 @@ 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 $starttime = time; + my $endtime = time+(6*30*24*60*60); # 6 months from now, approx + my $date_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'createcourse'); my ($krbdef,$krbdefdom) = &Apache::loncommon::get_kerberos_defaults($defdom); - my $javascript_validations=&javascript_validations($krbdefdom); + my $javascript_validations=&Apache::londropadd::javascript_validations('createcourse',$krbdefdom); my %param = ( formname => 'document.ccrs', kerb_def_dom => $krbdefdom, kerb_def_auth => $krbdef @@ -274,6 +277,7 @@ function openbrowser(formname,elementnam editbrowser = open(url,title,options,'1'); editbrowser.focus(); } +$javascript_validations $coursebrowserjs
@@ -378,10 +382,10 @@ on information available for this specifAutomated adds -Yes No +Yes No
Automated drops -Yes No +Yes No
Duration of automated classlist updates
$date_table
@@ -398,12 +402,12 @@ $locform
Notification of enrollment changes
Notification to course coordinator via LON-CAPA message when enrollment changes occur during the automated update?
Yes No
+value="0" checked="true" />No
Include retrieval of student photographs? Yes No
- +
@@ -411,68 +415,6 @@ value="0" />No ENDDOCUMENT } -sub javascript_validations { - my ($krbdefdom)=@_; - my %param = ( formname => 'ccrs', - kerb_def_dom => $krbdefdom ); - my $authheader = &Apache::loncommon::authform_header(%param); - my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); - return (<Starting Date | '. - ''.$startform.' | '. - ''." |
Ending Date | '. - ''.$endform.' | '. - ''.$perpetual.' | '."