[open-ils-commits] r12818 - branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-04-08 00:24:09 -0400 (Wed, 08 Apr 2009)
New Revision: 12818

Modified:
   branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
Backport r12816 from trunk: Fix open-ils.ingest.full.biblio.record_list
 * Pass a reference to the list, rather than a scalar
 * Fix the return value by returning a true count, rather than a sum of the processed IDs


Modified: branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-04-08 04:22:23 UTC (rev 12817)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-04-08 04:24:09 UTC (rev 12818)
@@ -319,7 +319,7 @@
 	my $cstore = OpenSRF::AppSession->connect( 'open-ils.cstore' );
 	$cstore->request('open-ils.cstore.transaction.begin')->gather(1);
 
-	my $r = $cstore->request( 'open-ils.cstore.direct.biblio.record_entry.search.atomic' => { id => $rec } )->gather(1);
+	my $r = $cstore->request( 'open-ils.cstore.direct.biblio.record_entry.search.atomic' => { id => \@rec } )->gather(1);
 
 	$cstore->request('open-ils.cstore.transaction.rollback')->gather(1);
 	$cstore->disconnect;
@@ -327,8 +327,11 @@
 	return undef unless ($r and @$r);
 
 	my $count = 0;
-	$count += ($self->method_lookup("open-ils.ingest.full.biblio.object")->run($_))[0] for (@$r);
-
+	for (@$r) {
+		if (($self->method_lookup("open-ils.ingest.full.biblio.object")->run($_))[0]) {
+			$count++
+		}
+	}
 	return $count;
 }
 __PACKAGE__->register_method(