[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.66 and 1.67

version 1.66, 2003/05/21 16:06:09 version 1.67, 2003/06/20 18:34:52
Line 599  sub enroll_single_student { Line 599  sub enroll_single_student {
             &modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'},              &modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'},
                            $ENV{'request.course.id'},$ENV{'form.csec'},                             $ENV{'request.course.id'},$ENV{'form.csec'},
                             $desiredhost);                              $desiredhost);
               my $startdate = 
                   &Apache::lonhtmlcommon::get_date_from_form('startdate');
               my $enddate   = 
                   &Apache::lonhtmlcommon::get_date_from_form('enddate');
               &Apache::lonnet::logthis('startdate = '.$startdate);
               &Apache::lonnet::logthis('enddate = '.$enddate);
             my $login_result = &Apache::lonnet::modifystudent              my $login_result = &Apache::lonnet::modifystudent
                 ($ENV{'form.lcdomain'},$ENV{'form.cuname'},                  ($ENV{'form.lcdomain'},$ENV{'form.cuname'},
                  $ENV{'form.cstid'},$amode,$genpwd,                   $ENV{'form.cstid'},$amode,$genpwd,
                  $ENV{'form.cfirst'},$ENV{'form.cmiddle'},                   $ENV{'form.cfirst'},$ENV{'form.cmiddle'},
                  $ENV{'form.clast'},$ENV{'form.cgen'},                   $ENV{'form.clast'},$ENV{'form.cgen'},
                  $ENV{'form.csec'},$ENV{'form.enddate'},                   $ENV{'form.csec'},$enddate,
                  $ENV{'form.startdate'},$ENV{'form.forceid'},                   $startdate,$ENV{'form.forceid'},
                  $desiredhost);                   $desiredhost);
             if ($login_result =~ /^ok/) {              if ($login_result =~ /^ok/) {
                 $r->print($login_result);                  $r->print($login_result);
Line 644  sub print_enroll_single_student_form { Line 650  sub print_enroll_single_student_form {
     my $locform = &Apache::loncommon::authform_local(%param);      my $locform = &Apache::loncommon::authform_local(%param);
     # Set up domain selection form      # Set up domain selection form
     my $domform = &domain_form($defdom);      my $domform = &domain_form($defdom);
       my $starttime = 'now';
       if (exists($ENV{'course.'.$ENV{'request.course.id'}.
                           '.default_enrollment_start_date'})) {
           $starttime = $ENV{'course.'.$ENV{'request.course.id'}.
                                 '.default_enrollment_start_date'};
       }
       my $endtime = time+(6*30*24*60*60); # 6 months from now, approx
       if (exists($ENV{'course.'.$ENV{'request.course.id'}.
                           '.default_enrollment_end_date'})) {
           $endtime = $ENV{'course.'.$ENV{'request.course.id'}.
                               '.default_enrollment_end_date'};
       }
       my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',
                                                               'startdate',
                                                               $starttime);
       my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
                                                             'enddate',
                                                             $endtime);
     # Print it all out      # Print it all out
     $r->print(<<END);      $r->print(<<END);
 <input type="hidden" name="action" value="enrollstudent">  <input type="hidden" name="action" value="enrollstudent">
Line 716  $locform Line 740  $locform
 <input type="hidden" name="startdate"   value='$today'    />  <input type="hidden" name="startdate"   value='$today'    />
 <input type="hidden" name="enddate"     value='$halfyear' />  <input type="hidden" name="enddate"     value='$halfyear' />
 </p><p>  </p><p>
 <a   <table>
  href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"  <tr><td align="right" ><b>Starting Date</b></td><td>$startdateform</td></tr>
 >Set Starting Date</a>  <tr><td align="right" ><b>Ending Date</b></td><td>$enddateform</td></tr>
 </p><p>  </table>
 <a   
  href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"  
 >Set Ending Date</a>  
 </p>  </p>
 <h3>ID/Student Number</h3>  <h3>ID/Student Number</h3>
 <p>  <p>
Removed from v.1.66  
changed lines
  Added in v.1.67

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