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

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.90 and 1.91.2.2

version 1.90, 2003/11/07 21:04:37 version 1.91.2.2, 2004/01/21 00:29:56
Line 43  use Apache::lonhtmlcommon(); Line 43  use Apache::lonhtmlcommon();
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
 use Spreadsheet::WriteExcel;  use Spreadsheet::WriteExcel;
 use Apache::lonlocal;  use Apache::lonlocal;
   use localenroll();
   
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
Line 146  sub print_main_menu { Line 147  sub print_main_menu {
          'enrollone' => 'Enroll a single student',           'enrollone' => 'Enroll a single student',
          'modify'    => 'Modify student data',           'modify'    => 'Modify student data',
          'view'      => 'View Class List',           'view'      => 'View Class List',
          'drop'      => 'Drop Students');           'drop'      => 'Drop Students',
            'populate'  => 'Automated Enrollment Manager');
   
     $r->print(<<END);      $r->print(<<END);
 <p>  <p>
Line 169  sub print_main_menu { Line 171  sub print_main_menu {
 <font size="+1">  <font size="+1">
     <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>      <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
 </font>  </font>
 </p>  </p><p>
   END
       if (&localenroll::run() ) {
    $r->print(<<END);
   <font size="+1">
       <a href="/adm/populate">$Text{'populate'}</a>
   </font>
 END  END
       }
 }  }
   
 ###############################################################  ###############################################################
Line 231  sub print_upload_manager_header { Line 240  sub print_upload_manager_header {
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub javascript_validations {  sub javascript_validations {
     my ($mode,$krbdefdom)=@_;      my ($mode,$krbdefdom,$curr_authtype,$curr_authfield)=@_;
     my $authheader;      my $authheader;
     if ($mode eq 'auth') {      if ($mode eq 'auth') {
         my %param = ( formname => 'studentform',          my %param = ( formname => 'studentform',
                       kerb_def_dom => $krbdefdom );                        kerb_def_dom => $krbdefdom );
         $authheader = &Apache::loncommon::authform_header(%param);          $authheader = &Apache::loncommon::authform_header(%param);
       } elsif ($mode eq 'createcourse') {
           my %param = ( formname => 'ccrs',
                     kerb_def_dom => $krbdefdom );
           $authheader = &Apache::loncommon::authform_header(%param);
       } elsif ($mode eq 'modifycourse') {
           my %param = ( formname => 'cmod',
                     kerb_def_dom => $krbdefdom,
                     mode => 'modifycourse',
                     curr_authtype => $curr_authtype,
                     curr_autharg => $curr_authfield );
           $authheader = &Apache::loncommon::authform_header(%param);
     }      }
   
       
     my %alert = &Apache::lonlocal::texthash      my %alert = &Apache::lonlocal::texthash
         (username => 'You need to specify the username field.',          (username => 'You need to specify the username field.',
          authen   => 'You must choose an authentication type.',           authen   => 'You must choose an authentication type.',
Line 254  sub javascript_validations { Line 276  sub javascript_validations {
     my $function_name =(<<END);      my $function_name =(<<END);
 function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {  function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {
 END  END
     my $auth_checks = (<<END);      my $auth_checks;
       if ($mode eq 'createcourse') {
           $auth_checks .= (<<END);
       if (vf.autoadds[0].checked == true) {
           if (current.radiovalue == null || current.radiovalue == 'nochange') {
               alert('$alert{'authen'}');
               return;
           }
       }
   END
       } else {
           $auth_checks .= (<<END);
     var foundatype=0;      var foundatype=0;
     if (founduname==0) {      if (founduname==0) {
  alert('$alert{'username'}');   alert('$alert{'username'}');
Line 266  END Line 299  END
         alert('$alert{'authen'}');          alert('$alert{'authen'}');
         return;          return;
     }      }
   END
       }
       if ($mode eq 'createcourse') {
           $auth_checks .= "
       if ( (vf.autoadds[0].checked == true) &&
            (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '') ) {
   ";
       } elsif ($mode eq 'modifycourse') {
           $auth_checks .= " 
       if (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '') {
   ";
       }
       if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
           $auth_checks .= (<<END);
           var alertmsg = '';
           switch (current.radiovalue) {
               case 'krb':
                   alertmsg = '$alert{'krb'}';
                   break;
               default:
                   alertmsg = '';
           }
           if (alertmsg != '') {
               alert(alertmsg);
               return;
           }
       }
   END
       } else {
           $auth_checks .= (<<END);
     foundatype=1;      foundatype=1;
     if (current.argfield == null || current.argfield == '') {      if (current.argfield == null || current.argfield == '') {
         var alertmsg = '';          var alertmsg = '';
Line 289  END Line 352  END
         }          }
     }      }
 END  END
     my $optional_checks = (<<END);      }
       my $optional_checks = '';
       if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
           $optional_checks = (<<END);
       vf.submit();
   }
   END
       } else {
           $optional_checks = (<<END);
     var message='';      var message='';
     if (foundname==0) {       if (foundname==0) { 
         message='$alert{'name'}';          message='$alert{'name'}';
Line 323  END Line 394  END
         vf.submit();          vf.submit();
     }      }
 }  }
   
 END  END
       }
     my $result = $function_name;      my $result = $function_name;
     if ($mode eq 'auth') {      if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse')  ) {
         $result .= $auth_checks;          $result .= $auth_checks;
     }      }
     $result .= $optional_checks;      $result .= $optional_checks;
     if ($mode eq 'auth') {      if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse')  ) {
         $result .= $authheader;          $result .= $authheader;
     }      }
     return $result;      return $result;
Line 674  sub enroll_single_student { Line 745  sub enroll_single_student {
 }  }
   
 sub setup_date_selectors {  sub setup_date_selectors {
     my ($starttime,$endtime) = @_;      my ($starttime,$endtime,$mode) = @_;
     if (! defined($starttime)) {      if (! defined($starttime)) {
         $starttime = time;          $starttime = time;
         if (exists($ENV{'course.'.$ENV{'request.course.id'}.          unless ($mode eq 'createcourse') {
               if (exists($ENV{'course.'.$ENV{'request.course.id'}.
                             '.default_enrollment_start_date'})) {                              '.default_enrollment_start_date'})) {
             $starttime = $ENV{'course.'.$ENV{'request.course.id'}.                  $starttime = $ENV{'course.'.$ENV{'request.course.id'}.
                                   '.default_enrollment_start_date'};                                    '.default_enrollment_start_date'};
               }
         }          }
     }      }
     if (! defined($endtime)) {      if (! defined($endtime)) {
         $endtime = time+(6*30*24*60*60); # 6 months from now, approx          $endtime = time+(6*30*24*60*60); # 6 months from now, approx
         if (exists($ENV{'course.'.$ENV{'request.course.id'}.          unless ($mode eq 'createcourse') {
               if (exists($ENV{'course.'.$ENV{'request.course.id'}.
                             '.default_enrollment_end_date'})) {                              '.default_enrollment_end_date'})) {
             $endtime = $ENV{'course.'.$ENV{'request.course.id'}.                  $endtime = $ENV{'course.'.$ENV{'request.course.id'}.
                                 '.default_enrollment_end_date'};                                  '.default_enrollment_end_date'};
               }
         }          }
     }      }
     my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',      my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',
Line 697  sub setup_date_selectors { Line 772  sub setup_date_selectors {
     my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',      my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
                                                           'enddate',                                                            'enddate',
                                                           $endtime);                                                            $endtime);
       if ($mode eq 'createcourse') {
           $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                               'startdate',
                                                               $starttime);
           $enddateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                             'enddate',
                                                             $endtime);
       }
     return ($startdateform,$enddateform);      return ($startdateform,$enddateform);
 }  }
   
Line 710  sub get_dates_from_form { Line 793  sub get_dates_from_form {
 }  }
   
 sub date_setting_table {  sub date_setting_table {
     my ($starttime,$endtime) = @_;      my ($starttime,$endtime,$mode) = @_;
     my ($startform,$endform)=&setup_date_selectors($starttime,$endtime);      my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);
     my $dateDefault = '<nobr>'.      my $dateDefault = '<nobr>'.
         '<input type="checkbox" name="makedatesdefault" />'.          '<input type="checkbox" name="makedatesdefault" />'.
         ' make these dates the default for future enrollment';          ' make these dates the default for future enrollment';
       if ($mode eq 'createcourse') {
           $dateDefault = '&nbsp;';
       }
     my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';      my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';
     if (defined($endtime) && $endtime == 0) {      if (defined($endtime) && $endtime == 0) {
         $perpetual .= ' checked';          $perpetual .= ' checked';
Removed from v.1.90  
changed lines
  Added in v.1.91.2.2

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