[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.45.6.2 and 1.46

version 1.45.6.2, 2002/09/13 18:59:53 version 1.46, 2002/08/21 17:18:08
Line 59  use Apache::Constants qw(:common :http R Line 59  use Apache::Constants qw(:common :http R
 # ================================================================ Print header  # ================================================================ Print header
   
 sub header {  sub header {
       my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
     return(<<ENDHEAD);      return(<<ENDHEAD);
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA Enrollment Manager</title>  <title>LON-CAPA Enrollment Manager</title>
 </head>  </head>
 <body bgcolor="#FFFFFF">  $bodytag
 <img align=right src=/adm/lonIcons/lonlogos.gif>  
 <h1>$ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h1>  
 <h2>Enrollment Manager</h2>  
 <form method="post" enctype="multipart/form-data"    <form method="post" enctype="multipart/form-data"  
       action="/adm/dropadd" name="studentform">        action="/adm/dropadd" name="studentform">
 ENDHEAD  ENDHEAD
Line 327  function verify(vf) { Line 325  function verify(vf) {
     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);      verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
 }  }
   
 //  
 // vf = this.form  
 // tf = column number  
 //  
 // values of nw  
 //  
 // 0 = none  
 // 1 = username  
 // 2 = names (lastname, firstnames)  
 // 3 = fname (firstname)  
 // 4 = mname (middlename)  
 // 5 = lname (lastname)  
 // 6 = gen   (generation)  
 // 7 = id  
 // 8 = section  
 // 9 = ipwd  (password)  
 //  
 function flip(vf,tf) {  function flip(vf,tf) {
    var nw=eval('vf.f'+tf+'.selectedIndex');     var nw=eval('vf.f'+tf+'.selectedIndex');
    var i;     var i;
    // make sure no other columns are labeled the same as this one  
    for (i=0;i<=vf.nfields.value;i++) {     for (i=0;i<=vf.nfields.value;i++) {
       if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {        if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {
           eval('vf.f'+i+'.selectedIndex=0;')            eval('vf.f'+i+'.selectedIndex=0;')
       }        }
    }     }
    // If we set this to 'lastname, firstnames', clear out all the ones     if (tf==1 && nw!=0) {
    // set to 'fname','mname','lname','gen' (3,4,5,6) currently.        for (i=2;i<=5;i++) {
            eval('vf.f'+i+'.selectedIndex=0;')
         }
      }
    if (nw==2) {     if (nw==2) {
       for (i=0;i<=vf.nfields.value;i++) {        for (i=0;i<=vf.nfields.value;i++) {
          if ((eval('vf.f'+i+'.selectedIndex')>=3) &&           if ((eval('vf.f'+i+'.selectedIndex')>=3) &&
Line 363  function flip(vf,tf) { Line 346  function flip(vf,tf) {
          }           }
       }        }
    }     }
    // If we set this to one of 'fname','mname','lname','gen' (3,4,5,6),  
    // clear out any that are set to 'lastname, firstnames' (2)  
    if ((nw>=3) && (nw<=6)) {     if ((nw>=3) && (nw<=6)) {
       for (i=0;i<=vf.nfields.value;i++) {        for (i=0;i<=vf.nfields.value;i++) {
          if (eval('vf.f'+i+'.selectedIndex')==2) {           if (eval('vf.f'+i+'.selectedIndex')==2) {
Line 372  function flip(vf,tf) { Line 353  function flip(vf,tf) {
          }           }
       }        }
    }     }
    // If we set the password, make the password form below correspond to   
    // the new value.  
    if (nw==9) {     if (nw==9) {
        changed_radio('int',document.studentform);         changed_radio('int',document.studentform);
        set_auth_radio_buttons('int',document.studentform);         set_auth_radio_buttons('int',document.studentform);
Line 567  sub enroll_single_student { Line 546  sub enroll_single_student {
  my $amode='';   my $amode='';
         my $genpwd='';          my $genpwd='';
         if ($ENV{'form.login'} eq 'krb') {          if ($ENV{'form.login'} eq 'krb') {
            $amode='krb';             $amode='krb4';
    $amode.=$ENV{'form.krbver'};  
            $genpwd=$ENV{'form.krbarg'};             $genpwd=$ENV{'form.krbarg'};
         } elsif ($ENV{'form.login'} eq 'int') {          } elsif ($ENV{'form.login'} eq 'int') {
            $amode='internal';             $amode='internal';
Line 950  sub upfile_drop_add { Line 928  sub upfile_drop_add {
     my $amode  = '';      my $amode  = '';
     my $genpwd = '';      my $genpwd = '';
     if ($ENV{'form.login'} eq 'krb') {      if ($ENV{'form.login'} eq 'krb') {
         $amode='krb';          $amode='krb4';
  $amode.=$ENV{'form.krbver'};  
         $genpwd=$ENV{'form.krbarg'};          $genpwd=$ENV{'form.krbarg'};
     } elsif ($ENV{'form.login'} eq 'int') {      } elsif ($ENV{'form.login'} eq 'int') {
         $amode='internal';          $amode='internal';
Removed from v.1.45.6.2  
changed lines
  Added in v.1.46

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