[Koha-cvs] koha/misc/plugin Search.pm

[Robert Lyon]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Robert Lyon <bob_lyon>  06/09/05 21:26:19

Modified files:
        misc/plugin    : Search.pm 

Log message:
        Adding ability to return biblios that have no biblio items to avoid 
making orphan biblios 

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/plugin/Search.pm?cvsroot=koha&r1=1.1&r2=1.2

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/misc/plugin/Search.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- Search.pm   1 Apr 2006 22:03:33 -0000       1.1
+++ Search.pm   5 Sep 2006 21:26:19 -0000       1.2
@@ -34,7 +34,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.1 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.2 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -1014,7 +1014,7 @@
 
        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 address@hidden;
@@ -1297,6 +1297,9 @@
                        $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*$//;