[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

version 1.90, 2003/11/07 21:04:37 version 1.91, 2003/12/05 21:27:59
Line 146  sub print_main_menu { Line 146  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 170  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>
   <font size="+1">
       <a href="/adm/populate">$Text{'populate'}</a>
   </font>
 END  END
 }  }
   
Line 237  sub javascript_validations { Line 241  sub javascript_validations {
         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);
     }      }
       
     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 256  function verify_message (vf,founduname,f Line 265  function verify_message (vf,founduname,f
 END  END
     my $auth_checks = (<<END);      my $auth_checks = (<<END);
     var foundatype=0;      var foundatype=0;
   END
       unless ($mode eq 'createcourse') {
           $auth_checks .= (<<END);
     if (founduname==0) {      if (founduname==0) {
  alert('$alert{'username'}');   alert('$alert{'username'}');
         return;          return;
     }      }
   END
       }
       $auth_checks .= (<<END);
     // alert('current.radiovalue = '+current.radiovalue);      // alert('current.radiovalue = '+current.radiovalue);
     if (current.radiovalue == null || current.radiovalue == 'nochange') {      if (current.radiovalue == null || current.radiovalue == 'nochange') {
         // They did not check any of the login radiobuttons.          // They did not check any of the login radiobuttons.
Line 289  END Line 304  END
         }          }
     }      }
 END  END
     my $optional_checks = (<<END);      my $optional_checks = '';
       if ($mode eq 'createcourse') {
           $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 345  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') ) {
         $result .= $auth_checks;          $result .= $auth_checks;
     }      }
     $result .= $optional_checks;      $result .= $optional_checks;
     if ($mode eq 'auth') {      if ( ($mode eq 'auth') || ($mode eq 'createcourse') ) {
         $result .= $authheader;          $result .= $authheader;
     }      }
     return $result;      return $result;
Line 674  sub enroll_single_student { Line 696  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 723  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 744  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

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