From 26b51ae1b8ceba6e4e3ad5b905f7daec53b0ca40 Mon Sep 17 00:00:00 2001 From: dbs Date: Wed, 8 Apr 2009 04:08:08 +0000 Subject: [PATCH] Fix open-ils.ingest.full.biblio.record_list by passing a reference to the list, rather than a scalar Fix the return value of open-ils.ingest.full.biblio.record_list by returning a true count, rather than a sum of the processed IDs git-svn-id: svn://svn.open-ils.org/ILS/trunk@12816 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm index 5b957722b1..f8260ed8c4 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm @@ -371,7 +371,7 @@ sub rw_biblio_ingest_record_list { 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; @@ -379,8 +379,11 @@ sub rw_biblio_ingest_record_list { 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( -- 2.11.0