From a409c8c5f6f55cf870ddb4bbe360531e8d5d4441 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 4 Sep 2006 20:15:07 +0000 Subject: [PATCH] grabbing recs one at a time to prevent huge messages git-svn-id: svn://svn.open-ils.org/ILS/trunk@5930 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Search/Biblio.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index e4dd624521..0ae48cd25a 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -711,7 +711,15 @@ sub biblio_mrid_make_modsbatch { # grab all of the sub-records and shove them into the batch my @ids = grep { $_ ne $masterid } @$ids; - my $subrecs = (@ids) ? $e->batch_retrieve_biblio_record_entry(\@ids) : []; + #my $subrecs = (@ids) ? $e->batch_retrieve_biblio_record_entry(\@ids) : []; + + my $subrecs = []; + if(@$ids) { + for my $i (@$ids) { + my $r = $e->retrieve_biblio_record_entry($i); + push( @$subrecs, $r ) if $r; + } + } for(@$subrecs) { $logger->debug("adding record ".$_->id." to mods batch for metarecord=$mrid"); -- 2.43.2