From 976e6d8b5cce58915c2f9ae7a634bb0bb2f6cb7e Mon Sep 17 00:00:00 2001 From: bob_lyon Date: Tue, 5 Sep 2006 21:26:19 +0000 Subject: [PATCH] Adding ability to return biblios that have no biblio items to avoid making orphan biblios --- misc/plugin/Search.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/misc/plugin/Search.pm b/misc/plugin/Search.pm index 1d9c910a68..1a1b89aa30 100755 --- a/misc/plugin/Search.pm +++ b/misc/plugin/Search.pm @@ -1014,7 +1014,7 @@ sub CatSearch { my $title = lc($search->{'title'}); - if ($type eq 'loose') { + if ($type eq 'loose' || $type eq 'loose_acq') { if ($search->{'author'} ne ''){ my @key=split(' ',$search->{'author'}); my $count=@key; @@ -1297,6 +1297,9 @@ sub CatSearch { $subclass=$bibitemdata->{'subclass'}; $publishercode=$bibitemdata->{'publishercode'}; } + if($type eq 'loose_acq'){ # want to return biblio info for biblios that do not have attached biblioitems + $true=1; + } # print STDERR "$dewey $subclass $publishercode\n"; # FIXME - The Dewey code is a string, not a number. $dewey=~s/\.*0*$//; -- 2.39.5