|
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 |
- |
|
|