From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 12 Mar 2010 19:03:43 +0000 (+0000)
Subject: Backport r15830: scale the response rate with the number of records processed so far
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=46348551f891274bc38eeee7c476142b0d540836;p=Evergreen.git

Backport r15830: scale the response rate with the number of records processed so far

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_0@15832 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
index 640d059275..ed81948af0 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
@@ -238,6 +238,7 @@ sub process_spool {
 	my $batch = new MARC::Batch ($marctype, $filename);
 	$batch->strict_off;
 
+	my $response_scale = 10;
 	my $count = 0;
 	my $r = -1;
 	while (try { $r = $batch->next } otherwise { $r = -1 }) {
@@ -261,7 +262,8 @@ sub process_spool {
 			} else {
 				_add_auth_rec( $e, $xml, $queue_id, $purpose ) or return $e->die_event;
 			}
-			$client->respond($count) if (++$count % 10) == 0;
+			$client->respond($count) if (++$count % $response_scale) == 0;
+			$response_scale *= 10 if ($count == ($response_scale * 10));
 		} catch Error with {
 			my $error = shift;
 			$logger->warn("Encountered a bad record at Vandelay ingest: ".$error);