[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.22 and 1.25

version 1.22, 2002/04/04 17:32:45 version 1.25, 2002/04/16 19:08:49
Line 52 Line 52
 package Apache::londropadd;  package Apache::londropadd;
   
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet();
   use Apache::loncommon();
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
   
 # ================================================================ Print header  # ================================================================ Print header
Line 73  action="/adm/dropadd" name="studentform" Line 74  action="/adm/dropadd" name="studentform"
 ENDHEAD  ENDHEAD
 }  }
   
 # ========================================================= Store uploaded file  
 # needs $ENV{'form.upfile'}  
 # return $datatoken to be put into hidden field  
   
 sub upfile_store {  
     my $r=shift;  
     $ENV{'form.upfile'}=~s/\r/\n/gs;  
     $ENV{'form.upfile'}=~s/\f/\n/gs;  
     $ENV{'form.upfile'}=~s/\n+/\n/gs;  
     $ENV{'form.upfile'}=~s/\n+$//gs;  
         
     my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}.  
   '_enroll_'.$ENV{'request.course.id'}.'_'.time.'_'.$$;  
     {  
        my $fh=Apache::File->new('>'.$r->dir_config('lonDaemons').  
                                    '/tmp/'.$datatoken.'.tmp');  
        print $fh $ENV{'form.upfile'};  
     }  
     return $datatoken;  
 }  
   
 # ================================================= Load uploaded file from tmp  
 # needs $ENV{'form.datatoken'}  
 # sets $ENV{'form.upfile'}  
   
 sub load_tmp_file {  
     my $r=shift;  
     my @studentdata=();  
     {  
       my $fh;  
       if ($fh=Apache::File->new($r->dir_config('lonDaemons').  
   '/tmp/'.$ENV{'form.datatoken'}.'.tmp')) {  
      @studentdata=<$fh>;  
       }  
     }  
     $ENV{'form.upfile'}=join('',@studentdata);  
 }  
   
 # ========================================= Separate uploaded file into records  
 # returns array of records  
   
 sub upfile_record_sep {  
     if ($ENV{'form.upfiletype'} eq 'xml') {  
     } else {  
        return split(/\n/,$ENV{'form.upfile'});  
     }  
 }  
   
 # =============================================== Separate a record into fields  
   
 sub record_sep {  
     my $record=shift;  
     my %components=();  
     if ($ENV{'form.upfiletype'} eq 'xml') {  
     } elsif ($ENV{'form.upfiletype'} eq 'space') {  
         my $i=0;  
         foreach (split(/\s+/,$record)) {  
             my $field=$_;  
             $field=~s/^(\"|\')//;  
             $field=~s/(\"|\')$//;  
             $components{$i}=$field;  
             $i++;  
         }  
     } elsif ($ENV{'form.upfiletype'} eq 'tab') {  
         my $i=0;  
         foreach (split(/\t+/,$record)) {  
             my $field=$_;  
             $field=~s/^(\"|\')//;  
             $field=~s/(\"|\')$//;  
             $components{$i}=$field;  
             $i++;  
         }  
     } else {  
         my @allfields=split(/\,/,$record);  
         my $i=0;  
         my $j;  
         for ($j=0;$j<=$#allfields;$j++) {  
             my $field=$allfields[$j];  
             if ($field=~/^\s*(\"|\')/) {  
  my $delimiter=$1;  
                 while (($field!~/$delimiter$/) && ($j<$#allfields)) {  
     $j++;  
     $field.=','.$allfields[$j];  
  }  
                 $field=~s/^\s*$delimiter//;  
                 $field=~s/$delimiter\s*$//;  
             }  
             $components{$i}=$field;  
     $i++;  
         }  
     }  
     return %components;  
 }  
   
 # =========== Drop student from all sections of a course, except optional $csec  # =========== Drop student from all sections of a course, except optional $csec
   
 sub dropstudent {  sub dropstudent {
      my ($udom,$unam,$courseid,$csec)=@_;      my ($udom,$unam,$courseid,$csec)=@_;
      $courseid=~s/\_/\//g;      $courseid=~s/\_/\//g;
      $courseid=~s/^(\w)/\/$1/;      $courseid=~s/^(\w)/\/$1/;
      foreach (split(/\&/,      foreach (split(/\&/,
     &Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',                     &Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',
      &Apache::lonnet::homeserver($unam,$udom)))) {       &Apache::lonnet::homeserver($unam,$udom)))) {
         my ($key,$value)=split(/\=/,$_);          my ($key,$value)=split(/\=/,$_);
         $key=&Apache::lonnet::unescape($key);          $key=&Apache::lonnet::unescape($key);
         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) && (!$csec)) || ($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
             my $now=time;                                                ($value));
             my $notactive=0;                  my $now=time;
             if ($start) {                  my $notactive=0;
  if ($now<$start) { $notactive=1; }                  if ($start) {
             }                      if ($now<$start) { $notactive=1; }
             if ($end) {                  }
                 if ($now>$end) { $notactive=1; }                  if ($end) {
             }                       if ($now>$end) { $notactive=1; }
             unless ($notactive) {                  } 
                 my $reply=&Apache::lonnet::modifystudent(                  unless ($notactive) {
                                    $udom,$unam,'','','',                      my $reply=&Apache::lonnet::modifystudent
            '','','','',$section,time);                          ($udom,$unam,'','','',
                            '','','','',$section,time);
                   }
             }              }
   }  
         }          }
     }      }
 }  }
Line 206  sub dropstudent { Line 114  sub dropstudent {
   
 sub menu_phase_one {  sub menu_phase_one {
     my $r=shift;      my $r=shift;
       my $upfile_select=&Apache::loncommon::upfile_select_html();
     $r->print(<<ENDUPFORM);      $r->print(<<ENDUPFORM);
 <input type=hidden name=phase value=two>  <input type=hidden name=phase value=two>
 <hr>  <hr>
 <h3>Upload a courselist</h3>  <h3>Upload a courselist</h3>
 <input type=file name=upfile size=50>  $upfile_select
 <br>Type: <select name=upfiletype>  
 <option value=csv>CSV (comma separated values, spreadsheet)</option>  
 <option value=space>Space separated</option>  
 <option value=tab>Tabulator separated</option>  
 <option value=xml>HTML/XML</option>  
 </select>  
 <p><input type=submit name=fileupload value="Upload Courselist">  <p><input type=submit name=fileupload value="Upload Courselist">
 <hr>  <hr>
 <h3>Enroll a single student</h3>  <h3>Enroll a single student</h3>
Line 227  sub menu_phase_one { Line 130  sub menu_phase_one {
 ENDUPFORM  ENDUPFORM
 }  }
   
 # ======================================================= Menu Phase Two Upload  
   
 sub menu_phase_two_upload {  
     my $r=shift;  
   
     my $datatoken=&upfile_store($r);  
   
     my @records=&upfile_record_sep();  
     my $total=$#records;  
     my $distotal=$total+1;  
       
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;  
     my $krbdefdom=$1;  
     $krbdefdom=~tr/a-z/A-Z/;  
   
     my $today=time;  
     my $halfyear=$today+15552000;  
   
     my $defdom=$r->dir_config('lonDefDomain');  
   
   sub phase_two_header {
       my ($r,$datatoken,$distotal,$krbdefdom)=@_;
       my $javascript;
       if ($ENV{'form.upfile_associate'} eq 'reverse') {
    $javascript=&phase_two_javascript_reverse_associate();
       } else {
    $javascript=&phase_two_javascript_forward_associate();
       }
       my $javascript_validations=&javascript_validations($krbdefdom);
     $r->print(<<ENDPICK);      $r->print(<<ENDPICK);
 <input type=hidden name=phase value=three>  
 <input type=hidden name=datatoken value="$datatoken">  
 <input type=hidden name=upfiletype value=$ENV{'form.upfiletype'}>  
 <hr>  <hr>
 <h3>Identify fields</h3>  <h3>Identify fields</h3>
 Total number of records found in file: $distotal <hr />  Total number of records found in file: $distotal <hr />
 Enter as many fields as you can. The system will inform you and bring you back  Enter as many fields as you can. The system will inform you and bring you back
 to this page if the data selected is insufficient to run your class.<hr />  to this page if the data selected is insufficient to run your class.<hr />
   <input type="submit" name="associate" value="Reverse Association" />
   <input type="hidden" name="phase" value="three" />
   <input type="hidden" name="datatoken" value="$datatoken" />
   <input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" />
   <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />
   <input type="hidden" name="upfile_associate" value="$ENV{'form.upfile_associate'}" />
   <hr />
 <script>  <script>
 function verify(vf) {  $javascript
     var founduname=0;  
     var foundpwd=0;  $javascript_validations
     var foundname=0;  </script>
     var foundid=0;  ENDPICK
     var foundsec=0;  }
   
   sub javascript_validations {
       my ($krbdefdom)=@_;
       return (<<ENDPICK);
   function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) {
     var foundatype=0;      var foundatype=0;
     var tw;  
     var message='';      var message='';
     for (i=0;i<=vf.nfields.value;i++) {  
         tw=eval('vf.f'+i+'.selectedIndex');  
         if (tw==1) { founduname=1; }  
         if ((tw>=2) && (tw<=6)) { foundname=1; }  
         if (tw==7) { foundid=1; }  
         if (tw==8) { foundsec=1; }   
         if (tw==9) { foundpwd=1; }  
     }  
     if (founduname==0) {      if (founduname==0) {
  alert('You need to specify at least the username field');   alert('You need to specify at least the username field');
         return;          return;
Line 324  function verify(vf) { Line 217  function verify(vf) {
     } else {      } else {
       pclose();        pclose();
       vf.submit();        vf.submit();
     }         }
 }  
   
 function flip(vf,tf) {  
    var nw=eval('vf.f'+tf+'.selectedIndex');  
    var i;  
    for (i=0;i<=vf.nfields.value;i++) {  
       if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {  
           eval('vf.f'+i+'.selectedIndex=0;')        
       }   
    }  
    if (nw==2) {  
       for (i=0;i<=vf.nfields.value;i++) {  
          if ((eval('vf.f'+i+'.selectedIndex')>=3) &&  
              (eval('vf.f'+i+'.selectedIndex')<=6)) {  
              eval('vf.f'+i+'.selectedIndex=0;')  
          }  
       }        
    }  
    if ((nw>=3) && (nw<=6)) {  
       for (i=0;i<=vf.nfields.value;i++) {  
          if (eval('vf.f'+i+'.selectedIndex')==2) {  
              eval('vf.f'+i+'.selectedIndex=0;')  
          }  
       }        
    }  
    if (nw==9) {  
        vf.login[1].checked=true;  
        vf.intpwd.value='';  
        vf.krbdom.value='';  
        vf.locarg.value='';  
    }  
   
 }  
   
 function clearpwd(vf) {  
     var i;  
     for (i=0;i<=vf.nfields.value;i++) {  
         if (eval('vf.f'+i+'.selectedIndex')==9) {  
             eval('vf.f'+i+'.selectedIndex=0;')  
         }  
     }        
 }  }
   
 function setkrb(vf) {  function setkrb(vf) {
Line 374  function setkrb(vf) { Line 226  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 382  function setint(vf) { Line 235  function setint(vf) {
        clearpwd(vf);         clearpwd(vf);
        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='';
    }     }
 }  }
   
Line 389  function clickkrb(vf) { Line 251  function clickkrb(vf) {
     vf.krbdom.value='$krbdefdom';      vf.krbdom.value='$krbdefdom';
     clearpwd(vf);      clearpwd(vf);
     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 422  function clickint(vf) { Line 291  function clickint(vf) {
         pclose();          pclose();
     }      }
   
 </script>  
 <table border=2><tr><th>Field</th><th>Samples</th></tr>  
 ENDPICK  ENDPICK
              my %sone; my %stwo; my %sthree;  }
              my $i=0;  
   sub phase_two_javascript_forward_associate {
       return(<<ENDPICK);
   function verify(vf) {
       var founduname=0;
       var foundpwd=0;
       var foundname=0;
       var foundid=0;
       var foundsec=0;
       var tw;
       for (i=0;i<=vf.nfields.value;i++) {
           tw=eval('vf.f'+i+'.selectedIndex');
           if (tw==1) { founduname=1; }
           if ((tw>=2) && (tw<=6)) { foundname=1; }
           if (tw==7) { foundid=1; }
           if (tw==8) { foundsec=1; }
           if (tw==9) { foundpwd=1; }
       }
       verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
   }
   
   
   function flip(vf,tf) {
      var nw=eval('vf.f'+tf+'.selectedIndex');
      var i;
      for (i=0;i<=vf.nfields.value;i++) {
         if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {
             eval('vf.f'+i+'.selectedIndex=0;')
         }
      }
      if (tf==1 && nw!=0) {
         for (i=2;i<=5;i++) {
            eval('vf.f'+i+'.selectedIndex=0;')
         }
      }
      if (nw==2) {
         for (i=0;i<=vf.nfields.value;i++) {
            if ((eval('vf.f'+i+'.selectedIndex')>=3) &&
                (eval('vf.f'+i+'.selectedIndex')<=6)) {
                eval('vf.f'+i+'.selectedIndex=0;')
            }
         }
      }
      if ((nw>=3) && (nw<=6)) {
         for (i=0;i<=vf.nfields.value;i++) {
            if (eval('vf.f'+i+'.selectedIndex')==2) {
                eval('vf.f'+i+'.selectedIndex=0;')
            }
         }
      }
      if (nw==9) {
          vf.login[1].checked=true;
          vf.intpwd.value='';
          vf.krbdom.value='';
          vf.locarg.value='';
      }
   }
   
   function clearpwd(vf) {
       var i;
       for (i=0;i<=vf.nfields.value;i++) {
           if (eval('vf.f'+i+'.selectedIndex')==9) {
               eval('vf.f'+i+'.selectedIndex=0;')
           }
       }
   }
   
   ENDPICK
   }
   
   sub phase_two_javascript_reverse_associate {
       return(<<ENDPICK);
   function verify(vf) {
       var founduname=0;
       var foundpwd=0;
       var foundname=0;
       var foundid=0;
       var foundsec=0;
       var tw;
       for (i=0;i<=vf.nfields.value;i++) {
           tw=eval('vf.f'+i+'.selectedIndex');
           if (i==0 && tw!=0) { founduname=1; }
           if (((i>=1) && (i<=5)) && tw!=0 ) { foundname=1; }
           if (i==6 && tw!=0) { foundid=1; }
           if (i==7 && tw!=0) { foundsec=1; }
           if (i==8 && tw!=0) { foundpwd=1; }
       }
       verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
   }
   
   function flip(vf,tf) {
      var nw=eval('vf.f'+tf+'.selectedIndex');
      var i;
      // picked the all one one name field, reset the other name ones to blank
      if (tf==1 && nw!=0) {
         for (i=2;i<=5;i++) {
            eval('vf.f'+i+'.selectedIndex=0;')
         }
      }
      //picked one of the piecewise name fields, reset the all in
      //one field to blank
      if ((tf>=2) && (tf<=5) && (nw!=0)) {
         eval('vf.f1.selectedIndex=0;')
      }
      // intial password specified, pick internal authentication
      if (tf==8 && nw!=0) {
          vf.login[1].checked=true;
          vf.intpwd.value='';
          vf.krbdom.value='';
          vf.locarg.value='';
      }
   }
   
   function clearpwd(vf) {
       var i;
       if (eval('vf.f8.selectedIndex')!=0) {
           eval('vf.f8.selectedIndex=0;')
       }
   }
   ENDPICK
   }
   
              if ($total>=0) {  sub phase_two_end {
                 %sone=&record_sep($records[0]);      my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_;
                 if ($total>=1) {      $r->print(<<ENDPICK);
                    %stwo=&record_sep($records[1]);  
                      
         }  
                 if ($total>=2) {  
                    %sthree=&record_sep($records[2]);  
         }  
                 foreach (sort keys %sone) {  
                    $r->print('<tr><td><select name=f'.$i.  
                        ' onChange="flip(this.form,'.$i.');">');  
                    foreach ('none: ','username:Username',  
                       'names:Last Name, First Names',  
                       'fname:First Name','mname:Middle Names/Initials',  
                       'lname:Last Name','gen:Generation',  
                       'id:ID/Student Number','sec:Group/Section',  
                       'ipwd:Initial Password') {  
       my ($value,$display)=split(/\:/,$_);  
                       $r->print('<option value='.$value.'>'.$display.  
                               '</option>');  
                    }  
                    $r->print('</select></td><td>');  
                    if (defined($sone{$_})) {   
                       $r->print($sone{$_}."</br>\n");   
                    }  
            if (defined($stwo{$_})) {   
                       $r->print($stwo{$_}."</br>\n");   
                    }  
            if (defined($sthree{$_})) {   
                       $r->print($sthree{$_}."</br>\n");   
                    }  
                    $r->print('</td></tr>');  
                    $i++;  
        }  
        $i--;  
      }  
              my $keyfields=join(',',sort keys %sone);  
              $r->print(<<ENDPICK);  
 </table>  </table>
 <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">
Line 514  Note: for large courses, this operation Line 465  Note: for large courses, this operation
 ENDPICK  ENDPICK
 }  }
   
   # ======================================================= Menu Phase Two Upload
   
   sub menu_phase_two_upload {
       my $r=shift;
       my $datatoken;
       if (!$ENV{'form.datatoken'}) {
           $datatoken=&Apache::loncommon::upfile_store($r);
       } else {
           $datatoken=$ENV{'form.datatoken'};
           &Apache::loncommon::load_tmp_file($r);
       }
       my @records=&Apache::loncommon::upfile_record_sep();
       my $total=$#records;
       my $distotal=$total+1;
       $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
       my $krbdefdom=$1;
       $krbdefdom=~tr/a-z/A-Z/;
       my $today=time;
       my $halfyear=$today+15552000;
       my $defdom=$r->dir_config('lonDefDomain');
       &phase_two_header($r,$datatoken,$distotal,$krbdefdom);
       my $i;
       my $keyfields;
       if ($total>=0) {
    my @d=(['username','Username'],['names','Last Name, First Names'],
          ['fname','First Name'],['mname','Middle Names/Initials'],
          ['lname','Last Name'],['gen','Generation'],
          ['id','ID/Student Number'],['sec','Group/Section'],
          ['ipwd','Initial Password']);
    if ($ENV{'form.upfile_associate'} eq 'reverse') {
       &Apache::loncommon::csv_print_samples($r,\@records);
       $i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d);
       foreach (@d) { $keyfields.=$_->[0].','; }
       chop($keyfields);
    } else {
       unshift(@d,['none','']);
       $i=&Apache::loncommon::csv_samples_select_table($r,\@records,\@d);
       my %sone=&Apache::loncommon::record_sep($records[0]);
       $keyfields=join(',',sort(keys(%sone)));
    }
       }
       &phase_two_end($r,$i,$keyfields,$defdom,$today,$halfyear);
   }
   
 # ======================================================= Enroll single student  # ======================================================= Enroll single student
   
 sub enroll_single_student {  sub enroll_single_student {
Line 524  sub enroll_single_student { Line 519  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='krb4';              $amode='krb4';
            $genpwd=$ENV{'form.krbdom'};              $genpwd=$ENV{'form.krbdom'};
         } 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') {          }  elsif ($ENV{'form.login'} eq 'loc') {
     $amode='localauth';      $amode='localauth';
     $genpwd=$ENV{'form.locarg'};      $genpwd=$ENV{'form.locarg'};
     if (!$genpwd) { $genpwd=" "; }      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'});
           $r->print(&Apache::lonnet::modifystudent(              $r->print(&Apache::lonnet::modifystudent
                       $ENV{'form.cdomain'},$ENV{'form.cuname'},                        ($ENV{'form.cdomain'},$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'},$ENV{'form.enddate'},
                       $ENV{'form.startdate'},$ENV{'form.forceid'}));                         $ENV{'form.startdate'},$ENV{'form.forceid'}));
  } else {   } else {
            $r->print('Invalid login mode or password');                  $r->print('Invalid login mode or password');    
         }                    }          
     } else {      } else {
         $r->print('Invalid username or domain');          $r->print('Invalid username or domain');
     }          }
 }  }
   
 # ======================================================= Menu Phase Two Enroll  # ======================================================= Menu Phase Two Enroll
   
 sub menu_phase_two_enroll {  sub menu_phase_two_enroll {
     my $r=shift;      my $r=shift;
       
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;      $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
     my $krbdefdom=$1;      my $krbdefdom=$1;
     $krbdefdom=~tr/a-z/A-Z/;      $krbdefdom=~tr/a-z/A-Z/;
   
     my $today=time;      my $today=time;
     my $halfyear=$today+15552000;      my $halfyear=$today+15552000;
   
     my $defdom=$r->dir_config('lonDefDomain');      my $defdom=$r->dir_config('lonDefDomain');
       my $javascript_validations=&javascript_validations($krbdefdom);
     $r->print(<<ENDSENROLL);      $r->print(<<ENDSENROLL);
 <script>  <script>
 function verify(vf) {  function verify(vf) {
Line 574  function verify(vf) { Line 566  function verify(vf) {
     var foundname=0;      var foundname=0;
     var foundid=0;      var foundid=0;
     var foundsec=0;      var foundsec=0;
     var foundatype=0;  
     var tw;      var tw;
     var message='';  
     if ((typeof(vf.cuname.value)!="undefined") && (vf.cuname.value!='') &&       if ((typeof(vf.cuname.value)!="undefined") && (vf.cuname.value!='') && 
  (typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) {   (typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) {
         founduname=1;          founduname=1;
Line 595  function verify(vf) { Line 585  function verify(vf) {
  alert('You need to specify at least the username and domain fields');   alert('You need to specify at least the username and domain fields');
         return;          return;
     }      }
     if (vf.login[0].checked) {      verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
  foundatype=1;  
         if (vf.krbdom.value=='') {  
     alert('You need to specify the Kerberos domain');  
             return;  
         }  
     }  
     if (vf.login[1].checked) {  
  foundatype=1;  
         if ((vf.intpwd.value=='') && (foundpwd==0)) {  
     alert('You need to specify the initial password');  
             return;  
         }  
     }  
     if (vf.login[2].checked) {  
  foundatype=1;  
  //An argument is not required  
     }  
     if (foundatype==0) {  
  alert('You need to set the login type');  
         return;  
     }  
     if (foundname==0) { message='No first and last name specified. '; }  
     if (foundid==0) { message+='No ID or student number field specified. '; }  
     if (foundsec==0) { message+='No section or group field specified. '; }  
     if (vf.startdate.value=='') {  
  message+='No starting date set. ';  
     }  
     if (vf.enddate.value=='') {  
         message+='No ending date set. ';  
     }  
     if ((vf.enddate.value!='') && (vf.startdate.value!='')) {  
        if (Math.round(vf.enddate.value)<Math.round(vf.startdate.value)) {  
           alert('Ending date is before starting date');  
           return;  
        }  
     }  
     if (message!='') {  
        message+='Continue enrollment?';  
        if (confirm(message)) {  
   pclose();  
   vf.submit();  
        }  
     } else {  
       pclose();  
       vf.submit();  
     }     
 }  
   
 function setkrb(vf) {  
     if (vf.krbdom.value!='') {  
        vf.login[0].checked=true;  
        vf.krbdom.value=vf.krbdom.value.toUpperCase();  
        vf.intpwd.value='';  
        vf.locarg.value='';  
    }  
 }  
   
 function setint(vf) {  
     if (vf.intpwd.value!='') {  
        vf.login[1].checked=true;  
        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) {  $javascript_validations
     vf.krbdom.value='$krbdefdom';  
     vf.intpwd.value='';  
     vf.locarg.value='';  
 }  
   
 function clickint(vf) {  function clearpwd(vf) {
     vf.krbdom.value='';      //nothing else needs clearing
     vf.locarg.value='';  
 }  
   
 function clickloc(vf) {  
     vf.krbdom.value='';  
     vf.intpwd.value='';  
 }  }
   
     function pclose() {  
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
         parmwin.close();  
     }  
   
     function pjump(type,dis,value,marker,ret,call) {  
         parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)  
                  +"&value="+escape(value)+"&marker="+escape(marker)  
                  +"&return="+escape(ret)  
                  +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
   
     }  
   
     function dateset() {  
         if (document.studentform.pres_marker.value=='end') {  
            document.studentform.enddate.value=  
        document.studentform.pres_value.value;  
         }  
         if (document.studentform.pres_marker.value=='start') {  
            document.studentform.startdate.value=  
        document.studentform.pres_value.value;  
         }  
         pclose();  
     }  
   
 </script>  </script>
 <h3>Personal Data</h3>  <h3>Personal Data</h3>
 First Name: <input type=text name=cfirst size=15><br>  First Name: <input type=text name=cfirst size=15><br>
Line 766  ENDSENROLL Line 648  ENDSENROLL
 sub menu_phase_two_drop {  sub menu_phase_two_drop {
     my $r=shift;      my $r=shift;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
                  my $classlst=&Apache::lonnet::reply      my $classlst=&Apache::lonnet::reply
                  ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.          ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.
                   $ENV{'course.'.$cid.'.num'}.':classlist',           $ENV{'course.'.$cid.'.num'}.':classlist',
                   $ENV{'course.'.$cid.'.home'});           $ENV{'course.'.$cid.'.home'});
                  my %currentlist=();      my %currentlist=();
                  my $now=time;      my $now=time;
                  unless ($classlst=~/^error\:/) {      unless ($classlst=~/^error\:/) {
                      foreach (split(/\&/,$classlst)) {          foreach (split(/\&/,$classlst)) {
                         my ($name,$value)=split(/\=/,$_);              my ($name,$value)=split(/\=/,$_);
                         my ($end,$start)=split(/\:/,              my ($end,$start)=split(/\:/,
                                             &Apache::lonnet::unescape($value));                                     &Apache::lonnet::unescape($value));
                         my $active=1;              my $active=1;
                         if (($end) && ($now>$end)) { $active=0; }              if (($end) && ($now>$end)) { $active=0; }
                         if ($active) {              if ($active) {
            $currentlist{&Apache::lonnet::unescape($name)}=1;                  $currentlist{&Apache::lonnet::unescape($name)}=1;
                         }              }
                      }          }
 # ----------------------------------------------------------- Print out choices  # ----------------------------------------------------------- Print out choices
                      &show_drop_list($r,%currentlist);          &show_drop_list($r,%currentlist);
          } else {      } else {
                      $r->print(          $r->print('<font color=red><h3>Could not access classlist: '.$classlst.
                   '<font color=red><h3>Could not access classlist: '.$classlst.  
                   '</h3></font>');                    '</h3></font>');
                  }      }
 }  }
   
 # =================================================== Show student list to drop  # =================================================== Show student list to drop
Line 799  sub show_drop_list { Line 680  sub show_drop_list {
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
   
     $r->print('<input type=hidden name=phase value=four>');      $r->print('<input type=hidden name=phase value=four>');
                      $r->print('<table border=2>');      $r->print('<table border=2>');
                      foreach (sort keys %currentlist) {      foreach (sort keys %currentlist) {
                          my ($sname,$sdom)=split(/\:/,$_);          my ($sname,$sdom)=split(/\:/,$_);
                          my %reply=&Apache::lonnet::idrget($sdom,$sname);          my %reply=&Apache::lonnet::idrget($sdom,$sname);
                          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
                          my @reply=split(/[\&\=]/,&Apache::lonnet::reply(          my @reply=split(/[\&\=]/,&Apache::lonnet::reply
                            'get:'.$sdom.':'.$sname.                          ('get:'.$sdom.':'.$sname.
       ':environment:firstname&middlename&lastname&generation',                           ':environment:firstname&middlename&lastname&generation',
                            &Apache::lonnet::homeserver($sname,$sdom)));                           &Apache::lonnet::homeserver($sname,$sdom)));
   $r->print(          $r->print('<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.
                   '<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.                    $sname.'</td><td>'.$sdom.'</td><td>'.
                                    $sname.'</td><td>'.$sdom.'</td><td>'.                    $reply{$sname}.'</td><td>'.
                                    $reply{$sname}.'</td><td>'.                    &Apache::lonnet::unescape($reply[2]).' '.
                                    &Apache::lonnet::unescape($reply[2]).' '.                    &Apache::lonnet::unescape($reply[3]).', '.
                                    &Apache::lonnet::unescape($reply[3]).', '.                    &Apache::lonnet::unescape($reply[0]).' '.
                                    &Apache::lonnet::unescape($reply[0]).' '.                    &Apache::lonnet::unescape($reply[1]).
                                    &Apache::lonnet::unescape($reply[1]).                    '</td><td>'.
                                    '</td><td>'.                    $ssec."</td></tr>\n");
                                    $ssec."</td></tr>\n");      }
                      }      $r->print('</table><br>');
                      $r->print('</table><br>');      $r->print('<input type=submit value="Drop Students">');
                      $r->print('<input type=submit value="Drop Students">');  
 }  }
   
 # ================================================= Drop/Add from uploaded file  # ================================================= Drop/Add from uploaded file
   
 sub upfile_drop_add {  sub upfile_drop_add {
     my $r=shift;      my $r=shift;
       &Apache::loncommon::load_tmp_file($r);
     &load_tmp_file($r);      my @studentdata=&Apache::loncommon::upfile_record_sep();
     my @studentdata=&upfile_record_sep();  
   
     my @keyfields=split(/\,/,$ENV{'form.keyfields'});      my @keyfields=split(/\,/,$ENV{'form.keyfields'});
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
       my %fields=();
              my %fields=();      for (my $i=0;$i<=$ENV{'form.nfields'};$i++) {
              for (my $i=0;$i<=$ENV{'form.nfields'};$i++) {          if ($ENV{'form.upfile_associate'} eq 'reverse') {
                  $fields{$ENV{'form.f'.$i}}=$keyfields[$i];              if ($ENV{'form.f'.$i} ne 'none') {
              }                  $fields{$keyfields[$i]}=$ENV{'form.f'.$i};
              my $startdate=$ENV{'form.startdate'};              }
              my $enddate=$ENV{'form.enddate'};          } else {
              if ($startdate=~/\D/) { $startdate=''; }              $fields{$ENV{'form.f'.$i}}=$keyfields[$i];
              if ($enddate=~/\D/) { $enddate=''; }          }
              my $domain=$ENV{'form.lcdomain'};      }
              my $amode='';      my $startdate=$ENV{'form.startdate'};
              my $genpwd='';      my $enddate=$ENV{'form.enddate'};
              if ($ENV{'form.login'} eq 'krb') {      if ($startdate=~/\D/) { $startdate=''; }
                  $amode='krb4';      if ($enddate=~/\D/) { $enddate=''; }
                  $genpwd=$ENV{'form.krbdom'};      my $domain=$ENV{'form.lcdomain'};
              } elsif ($ENV{'form.login'} eq 'int') {      my $amode='';
                  $amode='internal';      my $genpwd='';
                  if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {      if ($ENV{'form.login'} eq 'krb') {
      $genpwd=$ENV{'form.intpwd'};          $amode='krb4';
                  }          $genpwd=$ENV{'form.krbdom'};
              } elsif ($ENV{'form.login'} eq 'loc') {      } elsif ($ENV{'form.login'} eq 'int') {
  $amode='localauth';          $amode='internal';
  if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {          if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {
      $genpwd=$ENV{'form.locarg'};              $genpwd=$ENV{'form.intpwd'};
                  }          }
      }      } elsif ($ENV{'form.login'} eq 'loc') {
              unless (($domain=~/\W/) || ($amode eq '')) {          $amode='localauth';
               $r->print('<h3>Enrolling Students</h3>');          if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
               my $count=0;              $genpwd=$ENV{'form.locarg'};
               my $flushc=0;          }
               my %student=();      }
       unless (($domain=~/\W/) || ($amode eq '')) {
           $r->print('<h3>Enrolling Students</h3>');
           my $count=0;
           my $flushc=0;
           my %student=();
 # ----------------------------------------------------------- Get new classlist  # ----------------------------------------------------------- Get new classlist
 # --------------------------------------------------------- Enroll new students  # --------------------------------------------------------- Enroll new students
       foreach (@studentdata) {          foreach (@studentdata) {
   my %entries=&record_sep($_);              my %entries=&Apache::loncommon::record_sep($_);
               unless (($entries{$fields{'username'}} eq '') ||
                 unless (($entries{$fields{'username'}} eq '') ||                      (!defined($entries{$fields{'username'}}))) {
                         (!defined($entries{$fields{'username'}}))) {                  my $fname=''; my $mname=''; my $lname=''; my $gen='';
                   my $fname=''; my $mname=''; my $lname=''; my $gen='';                  if (defined($fields{'names'})) {
                   if (defined($fields{'names'})) {                      ($lname,$fname,$mname)=
       ($lname,$fname,$mname)=                          ($entries{$fields{'names'}}=~/([^\,]+)\,\s*(\w+)\s*(.*)$/);
             ($entries{$fields{'names'}}=~/([^\,]+)\,\s*(\w+)\s*(.*)$/);                  } else {
                   } else {                      if (defined($fields{'fname'})) {
                       if (defined($fields{'fname'})) {                          $fname=$entries{$fields{'fname'}};
          $fname=$entries{$fields{'fname'}};                      }
       }                      if (defined($fields{'mname'})) {
                       if (defined($fields{'mname'})) {                          $mname=$entries{$fields{'mname'}};
          $mname=$entries{$fields{'mname'}};                      }
       }                      if (defined($fields{'lname'})) {
                       if (defined($fields{'lname'})) {                          $lname=$entries{$fields{'lname'}};
          $lname=$entries{$fields{'lname'}};                      }
       }                      if (defined($fields{'gen'})) {
                       if (defined($fields{'gen'})) {                          $gen=$entries{$fields{'gen'}};
          $gen=$entries{$fields{'gen'}};                      }
       }                  }
                   }                  if ($entries{$fields{'username'}}=~/\W/) {
                   if ($entries{$fields{'username'}}=~/\W/) {                      $r->print('<p><b>Unacceptable username: '.
                      $r->print('<p><b>Unacceptable username: '.  
                               $entries{$fields{'username'}}.' for user '.                                $entries{$fields{'username'}}.' for user '.
                               $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');                                $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');
   } else {                  } else {
                       my $sec='';                      my $sec='';
                       my $username=$entries{$fields{'username'}};                      my $username=$entries{$fields{'username'}};
                       if (defined($fields{'sec'})) {                      if (defined($fields{'sec'})) {
                          if (defined($entries{$fields{'sec'}})) {                          if (defined($entries{$fields{'sec'}})) {
      $sec=$entries{$fields{'sec'}};                              $sec=$entries{$fields{'sec'}};
                          }                          }
                       }                      }
                       my $id='';                      my $id='';
                       if (defined($fields{'id'})) {                      if (defined($fields{'id'})) {
                          if (defined($entries{$fields{'id'}})) {                          if (defined($entries{$fields{'id'}})) {
      $id=$entries{$fields{'id'}};                              $id=$entries{$fields{'id'}};
                          }                          }
                          $id=~tr/A-Z/a-z/;                          $id=~tr/A-Z/a-z/;
                       }                      }
                       my $password='';                      my $password='';
                       if ($genpwd) {                       if ($genpwd) { 
                          $password=$genpwd;                           $password=$genpwd; 
       } else {                      } else {
                          if (defined($fields{'ipwd'})) {                          if (defined($fields{'ipwd'})) {
      if ($entries{$fields{'ipwd'}}) {                              if ($entries{$fields{'ipwd'}}) {
  $password=$entries{$fields{'ipwd'}};                                  $password=$entries{$fields{'ipwd'}};
                              }                              }
                          }                          }
                       }                      }
                       if ($password) {                      if ($password) {
  &dropstudent($domain,$username,$cid,$sec);                          &dropstudent($domain,$username,$cid,$sec);
                          my $reply=&Apache::lonnet::modifystudent(                          my $reply=&Apache::lonnet::modifystudent
                           $domain,$username,$id,$amode,$password,                              ($domain,$username,$id,$amode,$password,
    $fname,$mname,$lname,$gen,$sec,$enddate,$startdate,                               $fname,$mname,$lname,$gen,$sec,$enddate,
                            $ENV{'form.forceid'});                               $startdate,$ENV{'form.forceid'});
                          unless ($reply eq 'ok') {                          unless ($reply eq 'ok') {
                             $r->print(                              $r->print(
                              "<p><b>Error enrolling $username: $reply</b><p>");                               "<p><b>Error enrolling $username: $reply</b><p>");
           } else {            } else {
Line 936  sub upfile_drop_add { Line 818  sub upfile_drop_add {
                                 $flushc=0;                                  $flushc=0;
                             }                              }
                         }                          }
                      } else {                      } else {
                             $r->print(                          $r->print("<p><b>No password for $username</b><p>");
                              "<p><b>No password for $username</b><p>");                      }
                      }                  }
                   }              }                 
                  }                           }
               }          $r->print('<p>Processed Students: '.$count);
               $r->print('<p>Processed Students: '.$count);  
 # --------------------------------------------------------------- Drop students  # --------------------------------------------------------------- Drop students
               if ($ENV{'form.fullup'} eq 'yes') {          if ($ENV{'form.fullup'} eq 'yes') {
  $r->print('<h3>Dropping Students</h3>');              $r->print('<h3>Dropping Students</h3>');
 # ------------------------------------------------------- Get current classlist  # ------------------------------------------------------- Get current classlist
                  my $classlst=&Apache::lonnet::reply              my $classlst=&Apache::lonnet::reply
                  ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.                  ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.
                   $ENV{'course.'.$cid.'.num'}.':classlist',                           $ENV{'course.'.$cid.'.num'}.':classlist',
                   $ENV{'course.'.$cid.'.home'});                           $ENV{'course.'.$cid.'.home'});
                  my %currentlist=();              my %currentlist=();
                  my $now=time;              my $now=time;
                  unless ($classlst=~/^error\:/) {              unless ($classlst=~/^error\:/) {
                      foreach (split(/\&/,$classlst)) {                  foreach (split(/\&/,$classlst)) {
                         my ($name,$value)=split(/\=/,$_);                      my ($name,$value)=split(/\=/,$_);
                         my ($end,$start)=split(/\:/,                      my ($end,$start)=split(/\:/,
                                             &Apache::lonnet::unescape($value));                                             &Apache::lonnet::unescape($value));
                         my $active=1;                      my $active=1;
                         if (($end) && ($now>$end)) { $active=0; }                      if (($end) && ($now>$end)) { $active=0; }
                         if ($active) {                      if ($active) {
            $currentlist{&Apache::lonnet::unescape($name)}=1;                          $currentlist{&Apache::lonnet::unescape($name)}=1;
                         }                      }
                      }                  }
 # ------------------------------------------------ Now got up-to-date classlist  # ------------------------------------------------ Now got up-to-date classlist
                      foreach (@studentdata) {                  foreach (@studentdata) {
                  my %entries=&record_sep($_);                      my %entries=&Apache::loncommon::record_sep($_);
                         unless (($entries{$fields{'username'}} eq '') ||                      unless (($entries{$fields{'username'}} eq '') ||
                           (!defined($entries{$fields{'username'}}))) {                              (!defined($entries{$fields{'username'}}))) {
    delete($currentlist{                          delete($currentlist{
                             $entries{$fields{'username'}}.':'.                              $entries{$fields{'username'}}.':'.
                             $domain});                                  $domain});
         }                      }
                      }                  }
 # ----------------------------------------------------------- Print out choices  # ----------------------------------------------------------- Print out choices
                      &show_drop_list($r,%currentlist);                  &show_drop_list($r,%currentlist);
          } else {              } else {
                      $r->print(                  $r->print('<font color=red><h3>Could not access classlist: '.
                   '<font color=red><h3>Could not access classlist: '.$classlst.                            $classlst.'</h3></font>');
                   '</h3></font>');              }
                  }          }
      }  
 # ------------------------------------------------------------------------ Done  # ------------------------------------------------------------------------ Done
       }
   }  
 }  }
   
 # ================================================================== Phase four  # ================================================================== Phase four
Line 1009  sub drop_student_list { Line 888  sub drop_student_list {
   
 sub handler {  sub handler {
    my $r=shift;     my $r=shift;
      $Apache::lonxml::debug=1;
    if ($r->header_only) {     if ($r->header_only) {
       $r->content_type('text/html');        $r->content_type('text/html');
       $r->send_http_header;        $r->send_http_header;
       return OK;        return OK;
    }     }
   
 # ----------------------------------------------------- Needs to be in a course  # ----------------------------------------------------- Needs to be in a course
   
    if (($ENV{'request.course.fn'}) &&      if (($ENV{'request.course.fn'}) && 
        (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {         (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {
   
 # ------------------------------------------------------------------ Start page  # ------------------------------------------------------------------ Start page
       $r->content_type('text/html');         $r->content_type('text/html');
       $r->send_http_header;         $r->send_http_header;
       &header($r);         &header($r);
   
 # --------------------------------------------------- Phase one, initial screen  # --------------------------------------------------- Phase one, initial screen
       unless ($ENV{'form.phase'}) {         unless ($ENV{'form.phase'}) {
   &menu_phase_one($r);             &menu_phase_one($r);
       }         }
 # ------------------------------------------------------------------- Phase two  # ------------------------------------------------------------------- Phase two
       if ($ENV{'form.phase'} eq 'two') {         if ($ENV{'form.associate'} eq 'Reverse Association') {
  if ($ENV{'form.fileupload'}) {             $ENV{'form.phase'} = 'two';
      &menu_phase_two_upload($r);             if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {
          } elsif ($ENV{'form.enroll'}) {                 $ENV{'form.upfile_associate'} = 'reverse';
              &menu_phase_two_enroll($r);             } else {
          } elsif ($ENV{'form.drop'}) {                 $ENV{'form.upfile_associate'} = 'forward';
              &menu_phase_two_drop($r);             }
          }         }
       }         if ($ENV{'form.phase'} eq 'two') {
              if ($ENV{'form.fileupload'}) {
                  &menu_phase_two_upload($r);
              } elsif ($ENV{'form.enroll'}) {
                  &menu_phase_two_enroll($r);
              } elsif ($ENV{'form.drop'}) {
                  &menu_phase_two_drop($r);
              }
          }
 # ----------------------------------------------------------------- Phase three  # ----------------------------------------------------------------- Phase three
       if ($ENV{'form.phase'} eq 'three') {         if ($ENV{'form.phase'} eq 'three') {
   if ($ENV{'form.datatoken'}) {             if ($ENV{'form.datatoken'}) {
       &upfile_drop_add($r);                 &upfile_drop_add($r);
           }             }
       }         }
 # ------------------------------------------------------------------ Phase four  
       if ($ENV{'form.phase'} eq 'four') {  
   &drop_student_list($r);  
       }  
 # ------------------------------------------------------------------ Phase four  # ------------------------------------------------------------------ Phase four
       if ($ENV{'form.phase'} eq 'five') {         if ($ENV{'form.phase'} eq 'four') {
   &enroll_single_student($r);             &drop_student_list($r);
       }         }
   # ------------------------------------------------------------------ Phase five
          if ($ENV{'form.phase'} eq 'five') {
              &enroll_single_student($r);
          }
 # ------------------------------------------------------------------------- End  # ------------------------------------------------------------------------- End
       $r->print('</form></body></html>');         $r->print('</form></body></html>');
    } else {     } else {
 # ----------------------------- Not in a course, or not allowed to modify parms  # ----------------------------- Not in a course, or not allowed to modify parms
       $ENV{'user.error.msg'}=         $ENV{'user.error.msg'}=
         "/adm/dropadd:cst:0:0:Cannot drop or add students";             "/adm/dropadd:cst:0:0:Cannot drop or add students";
       return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE; 
    }     }
    return OK;     return OK;
 }  }
Line 1072  sub handler { Line 951  sub handler {
 1;  1;
 __END__  __END__
   
   
   
   
Removed from v.1.22  
changed lines
  Added in v.1.25

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