[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 $count=@key;
@@ -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*$//;