--- loncom/interface/Attic/londropadd.pm	2001/02/13 21:24:18	1.10
+++ loncom/interface/Attic/londropadd.pm	2002/04/04 17:32:45	1.22
@@ -1,12 +1,37 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
+# $Id: londropadd.pm,v 1.22 2002/04/04 17:32:45 albertel Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
 # (Handler to set parameters for assessments
 #
 # (Handler to resolve ambiguous file locations
 #
 # (TeX Content Handler
 #
+# YEAR=2000
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)
 #
 # 10/11,10/12,10/16 Gerd Kortemeyer)
@@ -15,7 +40,14 @@
 # 12/08,12/12 Gerd Kortemeyer)
 #
 # 12/26,12/27,12/28,
-# 01/01/01,01/15,02/10,02/13 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
+# 12/19 Guy Albertelli
+# YEAR=2002
+# 1/4 Gerd Kortemeyer
 
 package Apache::londropadd;
 
@@ -97,22 +129,22 @@ sub record_sep {
     if ($ENV{'form.upfiletype'} eq 'xml') {
     } elsif ($ENV{'form.upfiletype'} eq 'space') {
         my $i=0;
-        map {
+        foreach (split(/\s+/,$record)) {
             my $field=$_;
             $field=~s/^(\"|\')//;
             $field=~s/(\"|\')$//;
             $components{$i}=$field;
             $i++;
-        } split(/\s+/,$record);
+        }
     } elsif ($ENV{'form.upfiletype'} eq 'tab') {
         my $i=0;
-        map {
+        foreach (split(/\t+/,$record)) {
             my $field=$_;
             $field=~s/^(\"|\')//;
             $field=~s/(\"|\')$//;
             $components{$i}=$field;
             $i++;
-        } split(/\t+/,$record);        
+        }
     } else {
         my @allfields=split(/\,/,$record);
         my $i=0;
@@ -141,13 +173,15 @@ sub dropstudent {
      my ($udom,$unam,$courseid,$csec)=@_;
      $courseid=~s/\_/\//g;
      $courseid=~s/^(\w)/\/$1/;
-     map {
+     foreach (split(/\&/,
+		    &Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',
+			     &Apache::lonnet::homeserver($unam,$udom)))) {
         my ($key,$value)=split(/\=/,$_);
         $key=&Apache::lonnet::unescape($key);
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {
           my $section=$1;
           if ($key eq $courseid.'_st') { $section=''; }
-          if ($section ne $csec) {
+          if (((!$section) && (!$csec)) || ($section ne $csec)) {
 	    my ($dummy,$end,$start)=split(/\_/,
                                     &Apache::lonnet::unescape($value));
             my $now=time;
@@ -165,8 +199,7 @@ sub dropstudent {
             }
 	  }
         }
-    } split(/\&/,&Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',
-                                 &Apache::lonnet::homeserver($unam,$udom)));
+    }
 }
 
 # ============================================================== Menu Phase One
@@ -189,8 +222,8 @@ sub menu_phase_one {
 <h3>Enroll a single student</h3>
 <p><input type=submit name=enroll value="Enroll Student">
 <hr>
-<h3>Drop a student</h3>
-<p><input type=submit name=drop value="Drop Student">
+<h3>Drop students</h3>
+<p><input type=submit name=drop value="Selection List">
 ENDUPFORM
 }
 
@@ -220,7 +253,9 @@ sub menu_phase_two_upload {
 <input type=hidden name=upfiletype value=$ENV{'form.upfiletype'}>
 <hr>
 <h3>Identify fields</h3>
-Total number of records found in file: $distotal
+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
+to this page if the data selected is insufficient to run your class.<hr />
 <script>
 function verify(vf) {
     var founduname=0;
@@ -257,6 +292,10 @@ function verify(vf) {
             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;
@@ -315,6 +354,7 @@ function flip(vf,tf) {
        vf.login[1].checked=true;
        vf.intpwd.value='';
        vf.krbdom.value='';
+       vf.locarg.value='';
    }
 
 }
@@ -397,32 +437,32 @@ ENDPICK
                 if ($total>=2) {
                    %sthree=&record_sep($records[2]);
 	        }
-                map {
+                foreach (sort keys %sone) {
                    $r->print('<tr><td><select name=f'.$i.
                        ' onChange="flip(this.form,'.$i.');">');
-                   map {
-                      my ($value,$display)=split(/\:/,$_);
-                      $r->print('<option value='.$value.'>'.$display.
-                              '</option>');
-                   } ('none: ','username:Username',
+                   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');
+                      'ipwd:Initial Password') {
+		      my ($value,$display)=split(/\:/,$_);
+                      $r->print('<option value='.$value.'>'.$display.
+                              '</option>');
+                   }
                    $r->print('</select></td><td>');
-                   if (defined($sone{$i})) { 
-                      $r->print($sone{$i}."</br>\n"); 
+                   if (defined($sone{$_})) { 
+                      $r->print($sone{$_}."</br>\n"); 
                    }
-	           if (defined($stwo{$i})) { 
-                      $r->print($stwo{$i}."</br>\n"); 
+	           if (defined($stwo{$_})) { 
+                      $r->print($stwo{$_}."</br>\n"); 
                    }
-	           if (defined($sthree{$i})) { 
-                      $r->print($sthree{$i}."</br>\n"); 
+	           if (defined($sthree{$_})) { 
+                      $r->print($sthree{$_}."</br>\n"); 
                    }
                    $r->print('</td></tr>');
                    $i++;
-	       } sort keys %sone;
+	       }
 	       $i--;
 	     }
              my $keyfields=join(',',sort keys %sone);
@@ -431,12 +471,22 @@ ENDPICK
 <input type=hidden name=nfields value=$i>
 <input type=hidden name=keyfields value="$keyfields">
 <h3>Login Type</h3>
-<input type=radio name=login value=krb onClick="clickkrb(this.form);">
+<p>Note: this will not take effect if the user already exists</p>
+<p>
+<input type=radio name=login value=krb onClick="clickkrb(this.form);" />
 Kerberos authenticated with domain
-<input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p>
-<input type=radio name=login value=int onClick="clickint(this.form);"> 
+<input type=text size=10 name=krbdom onChange="setkrb(this.form);" />
+</p>
+<p>
+<input type=radio name=login value=int onClick="clickint(this.form);" />
 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>
 LON-CAPA domain: <input type=text size=10 value=$defdom name=lcdomain><p>
 <h3>Starting and Ending Dates</h3>
@@ -454,29 +504,329 @@ LON-CAPA domain: <input type=text size=1
 >Set Ending Date</a><p>
 <h3>Full Update</h3>
 <input type=checkbox name=fullup value=yes> Full update 
-(also dropping students)<p>
+(also print list of users not enrolled anymore)<p>
+<h3>ID/Student Number</h3>
+<input type=checkbox name=forceid value=yes> 
+Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
+(only do if you know what you are doing)<p>
 <input type=button onClick="verify(this.form)" value="Update Courselist"><br>
 Note: for large courses, this operation might be time consuming.
 ENDPICK
 }
 
+# ======================================================= Enroll single student
+
+sub enroll_single_student {
+    my $r=shift;
+    $r->print('<h3>Enrolling Student</h3>');
+    if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&
+        ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) {
+	my $amode='';
+        my $genpwd='';
+        if ($ENV{'form.login'} eq 'krb') {
+           $amode='krb4';
+           $genpwd=$ENV{'form.krbdom'};
+        } elsif ($ENV{'form.login'} eq 'int') {
+           $amode='internal';
+           $genpwd=$ENV{'form.intpwd'};
+        }  elsif ($ENV{'form.login'} eq 'loc') {
+	    $amode='localauth';
+	    $genpwd=$ENV{'form.locarg'};
+	    if (!$genpwd) { $genpwd=" "; }
+	}
+        if (($amode) && ($genpwd)) {
+ 	  &dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'},
+		       $ENV{'request.course.id'},$ENV{'form.csec'});
+          $r->print(&Apache::lonnet::modifystudent(
+                      $ENV{'form.cdomain'},$ENV{'form.cuname'},
+                      $ENV{'form.cstid'},$amode,$genpwd,
+ 	              $ENV{'form.cfirst'},$ENV{'form.cmiddle'},
+                      $ENV{'form.clast'},$ENV{'form.cgen'},
+                      $ENV{'form.csec'},$ENV{'form.enddate'},
+                      $ENV{'form.startdate'},$ENV{'form.forceid'}));
+	} else {
+           $r->print('Invalid login mode or password');    
+        }          
+    } else {
+        $r->print('Invalid username or domain');
+    }    
+}
+
 # ======================================================= Menu Phase Two Enroll
 
 sub menu_phase_two_enroll {
     my $r=shift;
+    
+    $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');
+
+    $r->print(<<ENDSENROLL);
+<script>
+function verify(vf) {
+    var founduname=0;
+    var foundpwd=0;
+    var foundname=0;
+    var foundid=0;
+    var foundsec=0;
+    var foundatype=0;
+    var tw;
+    var message='';
+    if ((typeof(vf.cuname.value)!="undefined") && (vf.cuname.value!='') && 
+	(typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) {
+        founduname=1;
+    }
+    if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&
+	(typeof(vf.clast.value)!="undefined") && (vf.clast.value!='')) {
+        foundname=1;
+    }
+    if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {
+        foundsec=1;
+    }
+    if ((typeof(vf.cstid.value)!="undefined") && (vf.cstid.value!='')) {
+	foundid=1;
+    }
+    if (founduname==0) {
+	alert('You need to specify at least the username and domain fields');
+        return;
+    }
+    if (vf.login[0].checked) {
+	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) {
+    vf.krbdom.value='$krbdefdom';
+    vf.intpwd.value='';
+    vf.locarg.value='';
+}
+
+function clickint(vf) {
+    vf.krbdom.value='';
+    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>
+<h3>Personal Data</h3>
+First Name: <input type=text name=cfirst size=15><br>
+Middle Name: <input type=text name=cmiddle size=15><br>
+Last Name: <input type=text name=clast size=15><br>
+Generation: <input type=text name=cgen size=5><p>
+
+ID/Student Number: <input type=text name=cstid size=10><p>
+
+Group/Section: <input type=text name=csec size=5><p>
+
+<h3>Login Data</h3>
+Username: <input type=text name=cuname size=15><p>
+Domain: <input type=text size=10 value=$defdom name=cdomain><p>
+Note: login settings below  will not take effect if the user already exists<p>
+
+<input type=radio name=login value=krb onClick="clickkrb(this.form);">
+Kerberos authenticated with domain
+<input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p>
+<input type=radio name=login value=int onClick="clickint(this.form);"> 
+Internally authenticated (with initial password 
+<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>
+<input type="hidden" value='' name="pres_value">
+<input type="hidden" value='' name="pres_type">
+<input type="hidden" value='' name="pres_marker">
+<input type="hidden" value='$today' name=startdate>
+<input type="hidden" value='$halfyear' name=enddate>
+<a 
+ href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
+>Set Starting Date</a><p>
+
+<a 
+ href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"
+>Set Ending Date</a><p>
+<h3>ID/Student Number</h3>
+<input type=checkbox name=forceid value=yes> 
+Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
+(only do if you know what you are doing)<p>
+<input type=button onClick="verify(this.form)" value="Enroll as student"><br>
+<input type=hidden name=phase value=five>
+ENDSENROLL
 }
 
 # ========================================================= Menu Phase Two Drop
 
 sub menu_phase_two_drop {
     my $r=shift;
+    my $cid=$ENV{'request.course.id'};
+                 my $classlst=&Apache::lonnet::reply
+                 ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.
+	                  $ENV{'course.'.$cid.'.num'}.':classlist',
+	                  $ENV{'course.'.$cid.'.home'});
+                 my %currentlist=();
+                 my $now=time;
+                 unless ($classlst=~/^error\:/) {
+                     foreach (split(/\&/,$classlst)) {
+                        my ($name,$value)=split(/\=/,$_);
+                        my ($end,$start)=split(/\:/,
+                                            &Apache::lonnet::unescape($value));
+                        my $active=1;
+                        if (($end) && ($now>$end)) { $active=0; }
+                        if ($active) {
+		           $currentlist{&Apache::lonnet::unescape($name)}=1;
+                        }
+                     }
+# ----------------------------------------------------------- Print out choices
+                     &show_drop_list($r,%currentlist);
+	         } else {
+                     $r->print(
+                  '<font color=red><h3>Could not access classlist: '.$classlst.
+                  '</h3></font>');
+                 }
+}
+
+# =================================================== Show student list to drop
+
+sub show_drop_list {
+    my ($r,%currentlist)=@_;
+    my $cid=$ENV{'request.course.id'};
+
+    $r->print('<input type=hidden name=phase value=four>');
+                     $r->print('<table border=2>');
+                     foreach (sort keys %currentlist) {
+                         my ($sname,$sdom)=split(/\:/,$_);
+                         my %reply=&Apache::lonnet::idrget($sdom,$sname);
+                         my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
+                         my @reply=split(/[\&\=]/,&Apache::lonnet::reply(
+                           'get:'.$sdom.':'.$sname.
+		      ':environment:firstname&middlename&lastname&generation',
+                           &Apache::lonnet::homeserver($sname,$sdom)));
+ 			 $r->print(
+                  '<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.
+                                   $sname.'</td><td>'.$sdom.'</td><td>'.
+                                   $reply{$sname}.'</td><td>'.
+                                   &Apache::lonnet::unescape($reply[2]).' '.
+                                   &Apache::lonnet::unescape($reply[3]).', '.
+                                   &Apache::lonnet::unescape($reply[0]).' '.
+                                   &Apache::lonnet::unescape($reply[1]).
+                                   '</td><td>'.
+                                   $ssec."</td></tr>\n");
+                     }
+                     $r->print('</table><br>');
+                     $r->print('<input type=submit value="Drop Students">');
 }
 
 # ================================================= Drop/Add from uploaded file
 
 sub upfile_drop_add {
     my $r=shift;
-    $r->print('<input type=hidden name=phase value=four>');
 
     &load_tmp_file($r);
     my @studentdata=&upfile_record_sep();
@@ -503,7 +853,12 @@ sub upfile_drop_add {
                  if ((defined($ENV{'form.intpwd'})) && ($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 '')) {
               $r->print('<h3>Enrolling Students</h3>');
               my $count=0;
@@ -511,7 +866,7 @@ sub upfile_drop_add {
               my %student=();
 # ----------------------------------------------------------- Get new classlist
 # --------------------------------------------------------- Enroll new students
-	      map {
+	      foreach (@studentdata) {
 		  my %entries=&record_sep($_);
 
                 unless (($entries{$fields{'username'}} eq '') ||
@@ -567,7 +922,8 @@ sub upfile_drop_add {
 			 &dropstudent($domain,$username,$cid,$sec);
                          my $reply=&Apache::lonnet::modifystudent(
                           $domain,$username,$id,$amode,$password,
-			   $fname,$mname,$lname,$gen,$sec,$enddate,$startdate);
+			   $fname,$mname,$lname,$gen,$sec,$enddate,$startdate,
+                           $ENV{'form.forceid'});
                          unless ($reply eq 'ok') {
                             $r->print(
                              "<p><b>Error enrolling $username: $reply</b><p>");
@@ -586,7 +942,7 @@ sub upfile_drop_add {
                      }
                   }
                  }                 
-              } @studentdata;
+              }
               $r->print('<p>Processed Students: '.$count);
 # --------------------------------------------------------------- Drop students
               if ($ENV{'form.fullup'} eq 'yes') {
@@ -599,7 +955,7 @@ sub upfile_drop_add {
                  my %currentlist=();
                  my $now=time;
                  unless ($classlst=~/^error\:/) {
-                     map {
+                     foreach (split(/\&/,$classlst)) {
                         my ($name,$value)=split(/\=/,$_);
                         my ($end,$start)=split(/\:/,
                                             &Apache::lonnet::unescape($value));
@@ -608,9 +964,9 @@ sub upfile_drop_add {
                         if ($active) {
 		           $currentlist{&Apache::lonnet::unescape($name)}=1;
                         }
-                     } split(/\&/,$classlst);
+                     }
 # ------------------------------------------------ Now got up-to-date classlist
-                     map {
+                     foreach (@studentdata) {
  	                my %entries=&record_sep($_);
                         unless (($entries{$fields{'username'}} eq '') ||
                           (!defined($entries{$fields{'username'}}))) {
@@ -618,28 +974,9 @@ sub upfile_drop_add {
                             $entries{$fields{'username'}}.':'.
                             $domain});
 		        }
-                     } @studentdata;
+                     }
 # ----------------------------------------------------------- Print out choices
-                     $r->print('<table border=2>');
-                     map {
-                         my ($sname,$sdom)=split(/\:/,$_);
-                         my %reply=&Apache::lonnet::idrget($sdom,$sname);
-                         my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
-                         my @reply=split(/[\&\=]/,&Apache::lonnet::reply(
-                           'get:'.$sdom.':'.$sname.
-		      ':environment:firstname&middlename&lastname&generation',
-                           &Apache::lonnet::homeserver($sname,$sdom)));
- 			 $r->print(
-                  '<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.
-                                   $sname.'</td><td>'.$sdom.'</td><td>'.
-                                   $reply{$sname}.'</td><td>'.
-                                   $reply[2].' '.$reply[3],', '.$reply[0].' '.
-                                   $reply[1].'</td><td>'.
-                                   $ssec."</td></tr>\n");
-                     } sort keys %currentlist;
-                     $r->print('</table><br>');
-                     $r->print('<input type=submit value="Drop Students">');
-
+                     &show_drop_list($r,%currentlist);
 	         } else {
                      $r->print(
                   '<font color=red><h3>Could not access classlist: '.$classlst.
@@ -651,6 +988,23 @@ sub upfile_drop_add {
 	  }
 }
 
+# ================================================================== Phase four
+
+sub drop_student_list {
+    my $r=shift;
+    my $count=0;
+    foreach (keys %ENV) {
+	if ($_=~/^form\.drop\:/) {
+	    my ($dummy,$uname,$udom)=split(/\:/,$_);
+            &dropstudent($udom,$uname,$ENV{'request.course.id'});
+            $r->print('Dropped '.$uname.' at '.$udom.'<br>');
+            $count++;
+        }
+    }
+    $r->print('<p><b>Dropped '.$count.' student(s).</b>');
+    $r->print('<p>Re-enrollment will re-activate data.');
+}
+
 # ================================================================ Main Handler
 
 sub handler {
@@ -696,6 +1050,14 @@ sub handler {
 	      &upfile_drop_add($r);
           }
       }
+# ------------------------------------------------------------------ Phase four
+      if ($ENV{'form.phase'} eq 'four') {
+	  &drop_student_list($r);
+      }
+# ------------------------------------------------------------------ Phase four
+      if ($ENV{'form.phase'} eq 'five') {
+	  &enroll_single_student($r);
+      }
 # ------------------------------------------------------------------------- End
       $r->print('</form></body></html>');
    } else {