--- 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('
Error enrolling $username: $reply
"); } 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('
Processed Students: '.$count); # --------------------------------------------------------------- Drop students if ($ENV{'form.fullup'} eq 'yes') { $r->print('