+sub get_biblionumber_from_isbn {
+ my $isbn = shift;
+ if ($isbn =~ /(\d{9,}[X]*)/) {
+ $isbn = $1.'%';
+ }
+ my @biblionumbers;
+ my $dbh=C4::Context->dbh;
+ my $query = "SELECT biblionumber FROM biblioitems WHERE isbn LIKE ? LIMIT 10";
+ my $sth = $dbh->prepare($query);
+ $sth->execute($isbn);
+ return $sth->fetchall_arrayref({});
+}