--- loncom/interface/Attic/londropadd.pm	2000/12/28 19:56:31	1.6
+++ loncom/interface/Attic/londropadd.pm	2001/01/01 15:43:46	1.7
@@ -14,7 +14,8 @@
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
 # 12/08,12/12 Gerd Kortemeyer)
 #
-# 12/26,12/27,12/28 Gerd Kortemeyer
+# 12/26,12/27,12/28,
+# 01/01/01 Gerd Kortemeyer
 
 package Apache::londropadd;
 
@@ -392,7 +393,9 @@ ENDPICK
              }
              unless (($domain=~/\W/) || ($amode eq '')) {
               $r->print('<h3>Enrolling Students</h3>');
-              my $count=1;
+              my $count=0;
+              my $flushc=0;
+              my %student=();
 # ----------------------------------------------------------- Get new classlist
               my @studentdata=();
              {
@@ -466,7 +469,13 @@ ENDPICK
                             $r->print(
                              "<p><b>Error enrolling $username: $reply</b><p>");
 			} else {
+                            $count++; $flushc++;
+                            $student{$username}=1;
                             $r->print('. ');
+                            if ($flushc>15) {
+				$r->rflush;
+                                $flushc=0;
+                            }
                         }
                      } else {
                             $r->print(
@@ -475,6 +484,7 @@ ENDPICK
                   }
                  }                 
               } @studentdata;
+              $r->print('<p>Processed Students: '.$count);
 # --------------------------------------------------------------- Drop students
               if ($ENV{'form.fullup'} eq 'yes') {
 		 $r->print('<h3>Dropping Students</h3>');
@@ -487,6 +497,17 @@ ENDPICK
                  my %currentlist=();
                  my $now=time;
                  unless ($classlst=~/^error\:/) {
+                     map {
+                        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;
+                        }
+                     } split(/\&/,$classlst);
+
 	         } else {
                      $r->print(
                   '<font color=red><h3>Could not access classlist: '.$classlst.