Lines 23-29
use warnings;
Link Here
|
23 |
use MARC::Field; |
23 |
use MARC::Field; |
24 |
|
24 |
|
25 |
use C4::Context; |
25 |
use C4::Context; |
26 |
use C4::Biblio qw( GetFrameworkCode ModBiblio ); |
26 |
use C4::Biblio qw( ModBiblio ); |
27 |
use C4::Search qw( FindDuplicate new_record_from_zebra ); |
27 |
use C4::Search qw( FindDuplicate new_record_from_zebra ); |
28 |
use C4::AuthoritiesMarc::MARC21; |
28 |
use C4::AuthoritiesMarc::MARC21; |
29 |
use C4::AuthoritiesMarc::UNIMARC; |
29 |
use C4::AuthoritiesMarc::UNIMARC; |
Lines 1647-1653
sub merge {
Link Here
|
1647 |
} |
1647 |
} |
1648 |
} |
1648 |
} |
1649 |
next if !$update; |
1649 |
next if !$update; |
1650 |
ModBiblio($marcrecord, $biblionumber, GetFrameworkCode($biblionumber)); |
1650 |
ModBiblio($marcrecord, $biblionumber, $biblio->frameworkcode); |
1651 |
$counteditedbiblio++; |
1651 |
$counteditedbiblio++; |
1652 |
} |
1652 |
} |
1653 |
return $counteditedbiblio; |
1653 |
return $counteditedbiblio; |
1654 |
- |
|
|