From 212b12972f27f00510fe0e0917ab3f09377a0fbe Mon Sep 17 00:00:00 2001 From: bob_lyon Date: Tue, 5 Sep 2006 21:21:21 +0000 Subject: [PATCH] Adding ability to return biblio results from acquisition search that contain no items - to aviod making orphan biblios --- acqui/neworderbiblio.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/acqui/neworderbiblio.pl b/acqui/neworderbiblio.pl index d1efba0fb6..fa0f199834 100755 --- a/acqui/neworderbiblio.pl +++ b/acqui/neworderbiblio.pl @@ -81,6 +81,7 @@ my $input = new CGI; #whether it is called from the opac of the intranet my $type = $input->param('type'); +my $acq_search = $input->param('acq_search'); if ( $type eq '' ) { $type = 'intra'; } @@ -145,7 +146,11 @@ elsif ( $search{'front'} ne '' ) { FrontSearch( undef, 'intra', \%search, $num, $offset ); } elsif ( $search{'author'} || $search{'title'} ) { - ( $count, @results ) = CatSearch( undef, 'loose', \%search, $num, $offset ); + if($acq_search == 1){ + ( $count, @results ) = CatSearch( undef, 'loose_acq', \%search, $num, $offset ); + } else { + ( $count, @results ) = CatSearch( undef, 'loose', \%search, $num, $offset ); + } } else { $invalidsearch = 1; -- 2.39.5