[Koha-cvs] koha/acqui neworderbiblio.pl

[Robert Lyon]

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;