# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
=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) {