|
Lines 227-232
sub process_update {
Link Here
|
| 227 |
my $marcxml; |
227 |
my $marcxml; |
| 228 |
if ($server eq "biblioserver") { |
228 |
if ($server eq "biblioserver") { |
| 229 |
my $marc = GetMarcBiblio($record_number); |
229 |
my $marc = GetMarcBiblio($record_number); |
|
|
230 |
# |
| 231 |
if ($marc && C4::Context->preference("IsbnIssnRemoveHyphens")){ |
| 232 |
my $isbn; |
| 233 |
my $issn; |
| 234 |
my $encoding = C4::Context->preference("marcflavour"); |
| 235 |
if ( $encoding eq 'UNIMARC' ) { |
| 236 |
if ( my $f010 = $marc->field('010') ) { |
| 237 |
if ( $f010->subfield('a') ) { |
| 238 |
$isbn = $f010->subfield('a'); |
| 239 |
$isbn =~ s/-//g; |
| 240 |
$f010->update( 'a' => $isbn ); |
| 241 |
} |
| 242 |
} |
| 243 |
if ( my $f011 = $marc->field('011') ) { |
| 244 |
if ( $f011->subfield('a') ) { |
| 245 |
$issn = $f011->subfield('a'); |
| 246 |
$issn =~ s/-//g; |
| 247 |
$f011->update( 'a' => $issn ); |
| 248 |
} |
| 249 |
} |
| 250 |
} elsif ($encoding eq 'MARC21' || $encoding eq 'NORMARC') { |
| 251 |
if ( my $f020 = $marc->field('020') ) { |
| 252 |
$isbn = $f020->subfield('a'); |
| 253 |
$isbn =~ s/-//g; |
| 254 |
$f020->update( 'a' => $isbn ); |
| 255 |
} |
| 256 |
if ( my $f022 = $marc->field('022') ) { |
| 257 |
$issn = $f022->subfield('a'); |
| 258 |
$issn =~ s/-//g; |
| 259 |
$f022->update( 'a' => $issn ); |
| 260 |
} |
| 261 |
} |
| 262 |
} |
| 230 |
$marcxml = $marc->as_xml_record() if $marc; |
263 |
$marcxml = $marc->as_xml_record() if $marc; |
| 231 |
} |
264 |
} |
| 232 |
elsif ($server eq "authorityserver") { |
265 |
elsif ($server eq "authorityserver") { |
| 233 |
- |
|
|