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