Lines 45-52
use C4::ClassSource qw( GetClassSources );
Link Here
|
45 |
use C4::ImportBatch qw( GetImportRecordMarc ); |
45 |
use C4::ImportBatch qw( GetImportRecordMarc ); |
46 |
use C4::Charset qw( SetMarcUnicodeFlag ); |
46 |
use C4::Charset qw( SetMarcUnicodeFlag ); |
47 |
use C4::MarcModificationTemplates; |
47 |
use C4::MarcModificationTemplates; |
|
|
48 |
use Koha::MarcModificationTemplates; |
48 |
use Koha::BiblioFrameworks; |
49 |
use Koha::BiblioFrameworks; |
49 |
use Koha::DateUtils qw( dt_from_string ); |
50 |
use Koha::DateUtils qw( dt_from_string ); |
|
|
51 |
use Carp; |
50 |
|
52 |
|
51 |
use Koha::Biblios; |
53 |
use Koha::Biblios; |
52 |
use Koha::ItemTypes; |
54 |
use Koha::ItemTypes; |
Lines 59-65
use Koha::UI::Form::Builder::Biblio;
Link Here
|
59 |
use MARC::File::USMARC; |
61 |
use MARC::File::USMARC; |
60 |
use MARC::File::XML; |
62 |
use MARC::File::XML; |
61 |
use URI::Escape qw( uri_escape_utf8 ); |
63 |
use URI::Escape qw( uri_escape_utf8 ); |
62 |
use List::MoreUtils qw(firstval); |
|
|
63 |
|
64 |
|
64 |
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
65 |
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
65 |
MARC::File::XML->default_record_format('UNIMARC'); |
66 |
MARC::File::XML->default_record_format('UNIMARC'); |
Lines 667-682
if ( $op eq "addbiblio" ) {
Link Here
|
667 |
# it is not a duplicate (determined either by Koha itself or by user checking it's not a duplicate) |
668 |
# it is not a duplicate (determined either by Koha itself or by user checking it's not a duplicate) |
668 |
if ( !$duplicatebiblionumber or $confirm_not_duplicate ) { |
669 |
if ( !$duplicatebiblionumber or $confirm_not_duplicate ) { |
669 |
my $oldbibitemnum; |
670 |
my $oldbibitemnum; |
670 |
my $marc_modification_template_name = C4::Context->preference("SaveBiblioMarcModificationTemplate"); |
671 |
|
671 |
if ($marc_modification_template_name) { |
672 |
my $template_id = C4::Context->preference("SaveBiblioMarcModificationTemplate"); |
672 |
my $template = firstval { $_->{'name'} eq $marc_modification_template_name } GetModificationTemplates(); |
673 |
if ($template_id) { |
|
|
674 |
my $template = Koha::MarcModificationTemplates->find($template_id); |
673 |
if ($template) { |
675 |
if ($template) { |
674 |
ModifyRecordWithTemplate($template->{'template_id'}, $record); |
676 |
ModifyRecordWithTemplate($template_id, $record); |
675 |
} |
677 |
} |
676 |
else { |
678 |
else { |
677 |
warn "No MARC modification template exists with name \"$marc_modification_template_name\""; |
679 |
croak "No MARC modification template exists with id \"$template_id\""; |
678 |
} |
680 |
} |
679 |
} |
681 |
} |
|
|
682 |
|
680 |
if ( $is_a_modif ) { |
683 |
if ( $is_a_modif ) { |
681 |
my $member = Koha::Patrons->find($loggedinuser); |
684 |
my $member = Koha::Patrons->find($loggedinuser); |
682 |
ModBiblio( |
685 |
ModBiblio( |