add_bib_holdings($bib, $r);
}
+ if($force901){
+ $r->delete_field( $r->field('901') );
+ $r->append_fields(
+ MARC::Field->new(
+ '901', ' ', ' ',
+ a => $bib->tcn_value,
+ b => $bib->tcn_source,
+ c => $bib->id
+ )
+ );
+ }
+
if ($format eq 'XML') {
my $xml = $r->as_xml_record;
$xml =~ s/^<\?.+?\?>$//mo;
try {
my $r = MARC::Record->new_from_xml( $mfhd->marc, $encoding, $format );
+ if($force901){
+ $r->delete_field( $r->field('901') );
+ $r->append_fields(
+ MARC::Field->new(
+ '901', ' ', ' ',
+ a => $bib->tcn_value,
+ b => $bib->tcn_source,
+ c => $bib->id
+ )
+ );
+ }
+
if ($format eq 'XML') {
my $xml = $r->as_xml_record;
$xml =~ s/^<\?.+?\?>$//mo;
)
);
- if($force901){
- $r->delete_field( $r->field('901') );
- $r->append_fields(
- MARC::Field->new(
- '901', ' ', ' ',
- a => $bib->tcn_value,
- b => $bib->tcn_source,
- c => $bib->id
- )
- );
- }
stats() if (! ($count{cp} % 100 ));
} # for cnmap