[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.28 and 1.29

version 1.28, 2002/04/22 15:26:46 version 1.29, 2002/04/23 21:03:59
Line 166  function verify_message (vf,founduname,f Line 166  function verify_message (vf,founduname,f
  alert('You need to specify the username field');   alert('You need to specify the username field');
         return;          return;
     }      }
     if (vf.login.value == null) {      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.
         alert('You must choose an authentication type');          alert('You must choose an authentication type');
         return;          return;
     }      }
     foundatype=1;      foundatype=1;
     if (vf.login.argfield.value == '') {      if (current.argfield == null || current.argfield == '') {
         var alertmsg = '';          var alertmsg = '';
         switch (vf.login.value) {          switch (current.value) {
             case 'krb':               case 'krb': 
                 alertmsg = 'You need to specify the Kerberos domain';                  alertmsg = 'You need to specify the Kerberos domain';
                 break;                  break;
Line 382  sub phase_two_end { Line 382  sub phase_two_end {
     my $krbform = &Apache::loncommon::authform_kerberos(%param);      my $krbform = &Apache::loncommon::authform_kerberos(%param);
     my $intform = &Apache::loncommon::authform_internal(%param);      my $intform = &Apache::loncommon::authform_internal(%param);
     my $locform = &Apache::loncommon::authform_local(%param);      my $locform = &Apache::loncommon::authform_local(%param);
       # Set up domain selection form
       my $domform = &Apache::loncommon::select_dom_form($defdom,'lcdomain');    
     $r->print(<<ENDPICK);      $r->print(<<ENDPICK);
 </table>  </table>
 <input type=hidden name=nfields value=$i>  <input type=hidden name=nfields value=$i>
Line 398  $intform Line 400  $intform
 $locform  $locform
 </p>  </p>
 <h3>LON-CAPA Domain for Students</h3>  <h3>LON-CAPA Domain for Students</h3>
 LON-CAPA domain: <input type=text size=10 value=$defdom name=lcdomain><p>  LON-CAPA domain: $domform <p>
 <h3>Starting and Ending Dates</h3>  <h3>Starting and Ending Dates</h3>
 <input type="hidden" value=''          name="pres_value"  >  <input type="hidden" value=''          name="pres_value"  >
 <input type="hidden" value=''          name="pres_type"   >  <input type="hidden" value=''          name="pres_type"   >
Line 472  sub menu_phase_two_upload { Line 474  sub menu_phase_two_upload {
 sub enroll_single_student {  sub enroll_single_student {
     my $r=shift;      my $r=shift;
     $r->print('<h3>Enrolling Student</h3>');      $r->print('<h3>Enrolling Student</h3>');
       $r->print($ENV{'form.cuname'}." in domain ".$ENV{'form.cdomain'}.": ");
     if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&      if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&
         ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) {          ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) {
  my $amode='';   my $amode='';
Line 519  sub menu_phase_two_enroll { Line 522  sub menu_phase_two_enroll {
     my $krbform = &Apache::loncommon::authform_kerberos(%param);      my $krbform = &Apache::loncommon::authform_kerberos(%param);
     my $intform = &Apache::loncommon::authform_internal(%param);      my $intform = &Apache::loncommon::authform_internal(%param);
     my $locform = &Apache::loncommon::authform_local(%param);      my $locform = &Apache::loncommon::authform_local(%param);
       # Set up domain selection form
       my $domform = &Apache::loncommon::select_dom_form($defdom,'cdomain');    
     # Print it all out      # Print it all out
     $r->print(<<ENDSENROLL);      $r->print(<<ENDSENROLL);
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
Line 569  Generation:  <input type="text" name="cg Line 574  Generation:  <input type="text" name="cg
   
 <h3>Login Data</h3>  <h3>Login Data</h3>
 <p>Username: <input type="text" name="cuname"  size="15"></p>  <p>Username: <input type="text" name="cuname"  size="15"></p>
 <p>Domain:   <input type="text" name="cdomain" size="10" value="$defdom"></p>  <p>Domain:   $domform</p>
 <p>Note: login settings below  will not take effect if the user already exists  <p>Note: login settings below  will not take effect if the user already exists
 </p><p>  </p><p>
 $krbform  $krbform
Removed from v.1.28  
changed lines
  Added in v.1.29

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