From b3a936c6791a0f014951530bf836d0477d793262 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 5 Sep 2006 03:33:18 +0000 Subject: [PATCH] made title_is_empty call more efficient git-svn-id: svn://svn.open-ils.org/ILS/trunk@5940 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index adcd295483..749f5749a1 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -896,13 +896,18 @@ sub merge { sub title_is_empty { my( $editor, $rid ) = @_; + return 0 if $rid == OILS_PRECAT_RECORD; + my $cnlist = $editor->search_asset_call_number( { record => $rid, deleted => 'f' }, { idlist => 1 } ); return 1 unless @$cnlist; for my $cn (@$cnlist) { my $copylist = $editor->search_asset_copy( - { call_number => $cn, deleted => 'f' }, { idlist => 1 }); + [ + { call_number => $cn, deleted => 'f' }, + { limit => 1 }, + ], { idlist => 1 }); return 0 if @$copylist; # false if we find any copies } -- 2.43.2