--- loncom/interface/loncreatecourse.pm 2003/12/05 15:57:37 1.40
+++ loncom/interface/loncreatecourse.pm 2003/12/05 21:59:31 1.42
@@ -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.42 2003/12/05 21:59:31 albertel 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,10 @@ 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 $date_table = &Apache::londropadd::date_setting_table('','','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 +275,7 @@ function openbrowser(formname,elementnam
editbrowser = open(url,title,options,'1');
editbrowser.focus();
}
+$javascript_validations
</script>
$coursebrowserjs
<head>
@@ -403,7 +405,7 @@ value="0" />No
<b>Include retrieval of student photographs?</b> <input type="radio" name="showphotos" value="1" />Yes <input type="radio" name="showphotos" value="0" checked="true" />No
</p><p>
<input type="hidden" name="phase" value="two" />
-<input type="submit" value="Open Course">
+<input type="button" onClick="verify_message(this.form)" value="Open Course">
</p>
</form>
</body>
@@ -411,68 +413,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 (<<ENDPICK);
-function verify_message (vf,foundpwd) {
- var foundatype=0;
- var message='';
- // alert('current.radiovalue = '+current.radiovalue);
- if (current.radiovalue == null || current.radiovalue == 'nochange') {
- // They did not check any of the login radiobuttons.
- alert('You must choose an authentication type');
- return;
- }
- foundatype=1;
- if (current.argfield == null || current.argfield == '') {
- var alertmsg = '';
- switch (current.value) {
- case 'krb':
- alertmsg = 'You need to specify the Kerberos domain';
- break;
- case 'loc':
- case 'fsys':
- alertmsg = 'You need to specify the initial password';
- break;
- case 'fsys':
- alertmsg = '';
- break;
- default:
- alertmsg = '';
- }
- if (alertmsg != '') {
- alert(alertmsg);
- return;
- }
- }
- vf.submit();
-}
-$authheader
-ENDPICK
-}
-
-sub date_setting_table {
- my $starttime = time;
- my $endtime = time+(6*30*24*60*60); # 6 months from now, approx
- my $startform = &Apache::lonhtmlcommon::date_setter('ccrs','startdate',$starttime);
- my $endform = &Apache::lonhtmlcommon::date_setter('ccrs','enddate',$endtime);
- my $perpetual = '<nobr><input type="checkbox" name="no_end_date"/> no ending date</nobr>';
- my $result = '';
- $result .= "<table>\n";
- $result .= '<tr><td align="right">Starting Date</td>'.
- '<td>'.$startform.'</td>'.
- '<td></td>'."</tr>\n";
- $result .= '<tr><td align="right">Ending Date</td>'.
- '<td>'.$endform.'</td>'.
- '<td>'.$perpetual.'</td>'."</tr>\n";
- $result .= "</table>\n";
- return $result;
-}
-
# ====================================================== Phase two: make course
sub create_course {