diff --git a/C4/Breeding.pm b/C4/Breeding.pm index 79f2e2f23c..7c8e6e6a25 100644 --- a/C4/Breeding.pm +++ b/C4/Breeding.pm @@ -169,7 +169,7 @@ C tables of the Koha database. =cut sub BreedingSearch { - my ($title,$isbn,$z3950random) = @_; + my ($search,$isbn,$z3950random) = @_; my $dbh = C4::Context->dbh; my $count = 0; my ($query,@bind); @@ -185,12 +185,13 @@ sub BreedingSearch { $query .= "z3950random = ?"; @bind=($z3950random); } else { + $search =~ s/(\s+)/\%/g; @bind=(); - if ($title) { - $query .= "title like ?"; - push(@bind,"$title%"); + if ($search) { + $query .= "title like ? OR author like ?"; + push(@bind,"%$search%", "%$search%"); } - if ($title && $isbn) { + if ($search && $isbn) { $query .= " and "; } if ($isbn) {