my $dbh = C4::Context->dbh;
- my $batch_id = 0;
- if ($batch_type eq 'z3950') {
- $batch_id = GetZ3950BatchId($filename);
- } else {
- # create a new one
- $batch_id = AddImportBatch('create_new', 'staging', 'batch', $filename, '');
- }
+ my $batch_id = GetZ3950BatchId($filename);
my $searchisbn = $dbh->prepare("select biblioitemnumber from biblioitems where isbn=?");
my $searchissn = $dbh->prepare("select biblioitemnumber from biblioitems where issn=?");
# FIXME -- not sure that this kind of checking is actually needed
=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) {