[Koha-cvs] koha/acqui neworderbiblio.pl
Robert Lyon
bob at katipo.co.nz
Tue Sep 5 23:21:21 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Robert Lyon <bob_lyon> 06/09/05 21:21:21
Modified files:
acqui : neworderbiblio.pl
Log message:
Adding ability to return biblio results from acquisition search that contain no items
- to aviod making orphan biblios
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/neworderbiblio.pl?cvsroot=koha&r1=1.1&r2=1.2
Patches:
Index: neworderbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui/neworderbiblio.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- neworderbiblio.pl 2 Aug 2006 07:55:19 -0000 1.1
+++ neworderbiblio.pl 5 Sep 2006 21:21:21 -0000 1.2
@@ -81,6 +81,7 @@
#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 @@
FrontSearch( undef, 'intra', \%search, $num, $offset );
}
elsif ( $search{'author'} || $search{'title'} ) {
+ 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;
More information about the Koha-cvs
mailing list