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