[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.12 and 1.16

version 1.12, 2001/02/14 22:51:48 version 1.16, 2001/09/25 18:12:43
Line 7 Line 7
 #  #
 # (TeX Content Handler  # (TeX Content Handler
 #  #
   # YEAR=2000
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)  # 05/29/00,05/30,10/11 Gerd Kortemeyer)
 #  #
 # 10/11,10/12,10/16 Gerd Kortemeyer)  # 10/11,10/12,10/16 Gerd Kortemeyer)
Line 15 Line 16
 # 12/08,12/12 Gerd Kortemeyer)  # 12/08,12/12 Gerd Kortemeyer)
 #  #
 # 12/26,12/27,12/28,  # 12/26,12/27,12/28,
 # 01/01/01,01/15,02/10,02/13,02/14 Gerd Kortemeyer  # YEAR=2001
   # 01/01/01,01/15,02/10,02/13,02/14,02/22 Gerd Kortemeyer
   # 8/6 Scott Harrison
   # Guy Albertelli
   # 9/25 Gerd Kortemeyer
   
 package Apache::londropadd;  package Apache::londropadd;
   
Line 147  sub dropstudent { Line 152  sub dropstudent {
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {          if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {
           my $section=$1;            my $section=$1;
           if ($key eq $courseid.'_st') { $section=''; }            if ($key eq $courseid.'_st') { $section=''; }
           if ($section ne $csec) {            if (((!$section) && (!$csec)) || ($section ne $csec)) {
     my ($dummy,$end,$start)=split(/\_/,      my ($dummy,$end,$start)=split(/\_/,
                                     &Apache::lonnet::unescape($value));                                      &Apache::lonnet::unescape($value));
             my $now=time;              my $now=time;
Line 257  function verify(vf) { Line 262  function verify(vf) {
             return;              return;
         }          }
     }      }
       if (vf.login[2].checked) {
    foundatype=1;
    //An argument is not required
       }
     if (foundatype==0) {      if (foundatype==0) {
  alert('You need to set the login type');   alert('You need to set the login type');
         return;          return;
Line 315  function flip(vf,tf) { Line 324  function flip(vf,tf) {
        vf.login[1].checked=true;         vf.login[1].checked=true;
        vf.intpwd.value='';         vf.intpwd.value='';
        vf.krbdom.value='';         vf.krbdom.value='';
          vf.locarg.value='';
    }     }
   
 }  }
Line 411  ENDPICK Line 421  ENDPICK
                       'id:ID/Student Number','sec:Group/Section',                        'id:ID/Student Number','sec:Group/Section',
                       'ipwd:Initial Password');                        'ipwd:Initial Password');
                    $r->print('</select></td><td>');                     $r->print('</select></td><td>');
                    if (defined($sone{$i})) {                      if (defined($sone{$_})) { 
                       $r->print($sone{$i}."</br>\n");                         $r->print($sone{$_}."</br>\n"); 
                    }                     }
            if (defined($stwo{$i})) {              if (defined($stwo{$_})) { 
                       $r->print($stwo{$i}."</br>\n");                         $r->print($stwo{$_}."</br>\n"); 
                    }                     }
            if (defined($sthree{$i})) {              if (defined($sthree{$_})) { 
                       $r->print($sthree{$i}."</br>\n");                         $r->print($sthree{$_}."</br>\n"); 
                    }                     }
                    $r->print('</td></tr>');                     $r->print('</td></tr>');
                    $i++;                     $i++;
Line 431  ENDPICK Line 441  ENDPICK
 <input type=hidden name=nfields value=$i>  <input type=hidden name=nfields value=$i>
 <input type=hidden name=keyfields value="$keyfields">  <input type=hidden name=keyfields value="$keyfields">
 <h3>Login Type</h3>  <h3>Login Type</h3>
 Note: this will not take effect if the user already exists<p>  <p>Note: this will not take effect if the user already exists</p>
 <input type=radio name=login value=krb onClick="clickkrb(this.form);">  <p>
   <input type=radio name=login value=krb onClick="clickkrb(this.form);" />
 Kerberos authenticated with domain  Kerberos authenticated with domain
 <input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p>  <input type=text size=10 name=krbdom onChange="setkrb(this.form);" />
 <input type=radio name=login value=int onClick="clickint(this.form);">   </p>
   <p>
   <input type=radio name=login value=int onClick="clickint(this.form);" />
 Internally authenticated (with initial password   Internally authenticated (with initial password 
 <input type=text size=10 name=intpwd onChange="setint(this.form);">)  <input type=text size=10 name=intpwd onChange="setint(this.form);" />)
   </p>
   <p>
   <input type=radio name=login value=loc onClick="clickloc(this.form);" />
   Local Authentication with argument
   <input type=text size=10 name=locarg onChange="setloc(this.form);" />
   </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: <input type=text size=10 value=$defdom name=lcdomain><p>
 <h3>Starting and Ending Dates</h3>  <h3>Starting and Ending Dates</h3>
Line 476  sub enroll_single_student { Line 495  sub enroll_single_student {
         } elsif ($ENV{'form.login'} eq 'int') {          } elsif ($ENV{'form.login'} eq 'int') {
            $amode='internal';             $amode='internal';
            $genpwd=$ENV{'form.intpwd'};             $genpwd=$ENV{'form.intpwd'};
         }          }  elsif ($ENV{'form.login'} eq 'loc') {
       $amode='localauth';
       $genpwd=$ENV{'form.locarg'};
       if (!$genpwd) { $genpwd=" "; }
    }
         if (($amode) && ($genpwd)) {          if (($amode) && ($genpwd)) {
    &dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'},     &dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'},
        $ENV{'request.course.id'},$ENV{'form.csec'});         $ENV{'request.course.id'},$ENV{'form.csec'});
Line 520  function verify(vf) { Line 543  function verify(vf) {
     var foundatype=0;      var foundatype=0;
     var tw;      var tw;
     var message='';      var message='';
     if ((vf.cuname.value!=undefined) && (vf.cuname.value!='') &&       if ((typeof(vf.cuname.value)!="undefined") && (vf.cuname.value!='') && 
  (vf.cdomain.value!=undefined) && (vf.cdomain.value!='')) {   (typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) {
         founduname=1;          founduname=1;
     }      }
     if ((vf.cfirst.value!=undefined) && (vf.cfirst.value!='') &&      if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&
  (vf.clast.value!=undefined) && (vf.clast.value!='')) {   (typeof(vf.clast.value)!="undefined") && (vf.clast.value!='')) {
         foundname=1;          foundname=1;
     }      }
     if ((vf.csec.value!=undefined) && (vf.csec.value!='')) {      if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {
         foundsec=1;          foundsec=1;
     }      }
     if ((vf.cstid.value!=undefined) && (vf.cstid.value!='')) {      if ((typeof(vf.cstid.value)!="undefined") && (vf.cstid.value!='')) {
  foundid=1;   foundid=1;
     }      }
     if (founduname==0) {      if (founduname==0) {
Line 552  function verify(vf) { Line 575  function verify(vf) {
             return;              return;
         }          }
     }      }
       if (vf.login[2].checked) {
    foundatype=1;
    //An argument is not required
       }
     if (foundatype==0) {      if (foundatype==0) {
  alert('You need to set the login type');   alert('You need to set the login type');
         return;          return;
Line 588  function setkrb(vf) { Line 615  function setkrb(vf) {
        vf.login[0].checked=true;         vf.login[0].checked=true;
        vf.krbdom.value=vf.krbdom.value.toUpperCase();         vf.krbdom.value=vf.krbdom.value.toUpperCase();
        vf.intpwd.value='';         vf.intpwd.value='';
          vf.locarg.value='';
    }     }
 }  }
   
Line 595  function setint(vf) { Line 623  function setint(vf) {
     if (vf.intpwd.value!='') {      if (vf.intpwd.value!='') {
        vf.login[1].checked=true;         vf.login[1].checked=true;
        vf.krbdom.value='';         vf.krbdom.value='';
          vf.locarg.value='';
      }
   }
   
   function setloc(vf) {
       if (vf.locarg.value!='') {
          vf.login[2].checked=true;
          vf.krbdom.value='';
          vf.intpwd.value='';
    }     }
 }  }
   
 function clickkrb(vf) {  function clickkrb(vf) {
     vf.krbdom.value='$krbdefdom';      vf.krbdom.value='$krbdefdom';
     vf.intpwd.value='';      vf.intpwd.value='';
       vf.locarg.value='';
 }  }
   
 function clickint(vf) {  function clickint(vf) {
     vf.krbdom.value='';      vf.krbdom.value='';
       vf.locarg.value='';
   }
   
   function clickloc(vf) {
       vf.krbdom.value='';
       vf.intpwd.value='';
 }  }
   
     function pclose() {      function pclose() {
Line 656  Kerberos authenticated with domain Line 700  Kerberos authenticated with domain
 <input type=radio name=login value=int onClick="clickint(this.form);">   <input type=radio name=login value=int onClick="clickint(this.form);"> 
 Internally authenticated (with initial password   Internally authenticated (with initial password 
 <input type=text size=10 name=intpwd onChange="setint(this.form);">)  <input type=text size=10 name=intpwd onChange="setint(this.form);">)
   <p>
   <input type=radio name=login value=loc onClick="clickloc(this.form);" />
   Local Authentication with argument
   <input type=text size=10 name=locarg onChange="setloc(this.form);" />
   </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 767  sub upfile_drop_add { Line 815  sub upfile_drop_add {
                  if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {                   if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {
      $genpwd=$ENV{'form.intpwd'};       $genpwd=$ENV{'form.intpwd'};
                  }                   }
              }               } elsif ($ENV{'form.login'} eq 'loc') {
    $amode='localauth';
    if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
        $genpwd=$ENV{'form.locarg'};
                    }
        }
              unless (($domain=~/\W/) || ($amode eq '')) {               unless (($domain=~/\W/) || ($amode eq '')) {
               $r->print('<h3>Enrolling Students</h3>');                $r->print('<h3>Enrolling Students</h3>');
               my $count=0;                my $count=0;
Removed from v.1.12  
changed lines
  Added in v.1.16

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