=cut
sub BreedingSearch {
- my ($title,$isbn,$z3950random) = @_;
+ my ($search,$isbn,$z3950random) = @_;
my $dbh = C4::Context->dbh;
my $count = 0;
my ($query,@bind);
$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) {