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

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
index f9ee0ac..5756291 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
@@ -319,7 +319,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;
@@ -327,8 +327,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(