[BACK]Return to loncreatecourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreatecourse.pm between versions 1.40 and 1.42

version 1.40, 2003/12/05 15:57:37 version 1.42, 2003/12/05 21:59:31
Line 48  use Apache::loncommon; Line 48  use Apache::loncommon;
 use Apache::lonratedt;  use Apache::lonratedt;
 use Apache::londocs;  use Apache::londocs;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::londropadd;
   
 # ================================================ Get course directory listing  # ================================================ Get course directory listing
   
Line 243  sub print_course_creation_page { Line 244  sub print_course_creation_page {
      &Apache::loncommon::selectcourse_link       &Apache::loncommon::selectcourse_link
      ('ccrs','clonecourse','clonedomain');       ('ccrs','clonecourse','clonedomain');
     my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript();      my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript();
     my $date_table = &date_setting_table();      my $date_table = &Apache::londropadd::date_setting_table('','','createcourse');
     my ($krbdef,$krbdefdom) =      my ($krbdef,$krbdefdom) =
     &Apache::loncommon::get_kerberos_defaults($defdom);      &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',      my %param = ( formname => 'document.ccrs',
                    kerb_def_dom => $krbdefdom,                     kerb_def_dom => $krbdefdom,
                    kerb_def_auth => $krbdef                     kerb_def_auth => $krbdef
Line 274  function openbrowser(formname,elementnam Line 275  function openbrowser(formname,elementnam
     editbrowser = open(url,title,options,'1');      editbrowser = open(url,title,options,'1');
     editbrowser.focus();      editbrowser.focus();
 }  }
   $javascript_validations
 </script>  </script>
 $coursebrowserjs  $coursebrowserjs
 <head>  <head>
Line 403  value="0" />No Line 405  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  <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>  </p><p>
 <input type="hidden" name="phase" value="two" />  <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>  </p>
 </form>  </form>
 </body>  </body>
Line 411  value="0" />No Line 413  value="0" />No
 ENDDOCUMENT  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  # ====================================================== Phase two: make course
   
 sub create_course {  sub create_course {
Removed from v.1.40  
changed lines
  Added in v.1.42

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>