From f65bb647a1925342dae686c84b7855940ef2dabd Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 1 Mar 2005 20:45:41 +0000 Subject: [PATCH] go directly to the table in question git-svn-id: svn://svn.open-ils.org/ILS/trunk@163 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Storage/Publisher/biblio.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm index 6a4acab313..adcd5d6754 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm @@ -184,8 +184,13 @@ sub get_record_nodeset { for my $id ( @ids ) { next unless ($id); - my $rec = biblio::record_entry->retrieve($id); - $client->respond( $self->_cdbi_list2AoH( $rec->nodes ) ) if ($rec); + $client->respond( + $self->_cdbi_list2AoH( + biblio::record_node->search( + owner_doc => $id, { order_by => 'intra_doc_id' } + ) + ) + ); last if ($self->api_name !~ /list/o); } -- 2.43.2