Lines 296-306
RECORD: while ( ) {
Link Here
|
296 |
&$localcust($record) if $localcust; |
296 |
&$localcust($record) if $localcust; |
297 |
my $isbn; |
297 |
my $isbn; |
298 |
# remove trailing - in isbn (only for biblios, of course) |
298 |
# remove trailing - in isbn (only for biblios, of course) |
299 |
if ($biblios && $cleanisbn) { |
299 |
if( $biblios ) { |
300 |
my $tag = $marcFlavour eq 'UNIMARC' ? '010' : '020'; |
300 |
my $tag = $marcFlavour eq 'UNIMARC' ? '010' : '020'; |
301 |
my $field = $record->field($tag); |
301 |
my $field = $record->field($tag); |
302 |
my $isbn = $field && $field->subfield('a'); |
302 |
$isbn = $field && $field->subfield('a'); |
303 |
if ( $isbn ) { |
303 |
if ( $isbn && $cleanisbn ) { |
304 |
$isbn =~ s/-//g; |
304 |
$isbn =~ s/-//g; |
305 |
$field->update('a' => $isbn); |
305 |
$field->update('a' => $isbn); |
306 |
} |
306 |
} |
307 |
- |
|
|