+# Add new biblio with isbn and return biblionumber
+sub _add_biblio_with_isbn {
+ my $isbn = shift;
+
+ my $marc_record = MARC::Record->new;
+ my $field = MARC::Field->new( $isbn_tag, '', '', $isbn_subfield => $isbn );
+ $marc_record->append_fields($field);
+ my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' );
+ return $biblionumber;
+}
+
+# Mocked subs
+
+# C4::Search::SimpleSearch
+sub Mock_SimpleSearch {
+ my $query = shift;
+ my @results;
+
+ $query =~ s/-//g;
+ my $ret_biblionumber;
+ if ( $query =~ /$isbn1/ ) {
+ $ret_biblionumber = $biblionumber1;
+ }
+ elsif ( $query =~ /$isbn2/ ) {
+ $ret_biblionumber = $biblionumber2;
+ }
+ elsif ( $query =~ /$isbn3/ ) {
+ $ret_biblionumber = $biblionumber3;
+ }
+
+ my $record = MARC::Record->new;
+ $record->leader(' ngm a22 7a 4500');
+ my $biblionumber_field;
+ if ( $biblionumber_tag < 10 ) {
+ $biblionumber_field =
+ MARC::Field->new( $biblionumber_tag, $ret_biblionumber );
+ }
+ else {
+ $biblionumber_field = MARC::Field->new( $biblionumber_tag, '', '',
+ $biblionumber_subfield => $ret_biblionumber );
+ }
+ $record->append_fields($biblionumber_field);
+
+ my $indexing_mode = C4::Context->config('zebra_bib_index_mode') // 'dom';
+ push @results, ( $indexing_mode eq 'dom' )
+ ? $record->as_xml()
+ : $record->as_usmarc() ;
+
+ return ( undef, \@results, 1 );
+}