@@ -, +, @@ if (!$biblionumber && $isbn_check && $isbn) { $sth_isbn->execute($isbn); ($biblionumber,$biblioitemnumber) = $sth_isbn->fetchrow; } --- misc/migration_tools/bulkmarcimport.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) --- a/misc/migration_tools/bulkmarcimport.pl +++ a/misc/migration_tools/bulkmarcimport.pl @@ -296,11 +296,11 @@ RECORD: while ( ) { &$localcust($record) if $localcust; my $isbn; # remove trailing - in isbn (only for biblios, of course) - if ($biblios && $cleanisbn) { + if( $biblios ) { my $tag = $marcFlavour eq 'UNIMARC' ? '010' : '020'; my $field = $record->field($tag); - my $isbn = $field && $field->subfield('a'); - if ( $isbn ) { + $isbn = $field && $field->subfield('a'); + if ( $isbn && $cleanisbn ) { $isbn =~ s/-//g; $field->update('a' => $isbn); } --