grabbing recs one at a time to prevent huge messages
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 4 Sep 2006 20:15:07 +0000 (20:15 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 4 Sep 2006 20:15:07 +0000 (20:15 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5930 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm

index e4dd624..0ae48cd 100644 (file)
@@ -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");