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