@@ -, +, @@ staged MARC imports --- misc/stage_file.pl | 25 +++++++++++++++++++++---- 1 file changed, 21 insertions(+), 4 deletions(-) --- a/misc/stage_file.pl +++ a/misc/stage_file.pl @@ -19,8 +19,9 @@ # with this program; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -use strict; -use warnings; +#use strict; +#use warnings; +use Modern::Perl; BEGIN { # find Koha's Perl modules # test carefully before changing this @@ -74,7 +75,18 @@ if($marc_mod_template ne '') { $marc_mod_template_id = $this_template->{'template_id'}; last; } + if($this_template->{'name'} eq $marc_mod_template) { + if($marc_mod_template_id < 0) { + $marc_mod_template_id = $this_template->{'template_id'}; + } else { + print "WARNING: MARC modification template name " . + "'$marc_mod_template' matches multiple templates. " . + "Please fix this issue before proceeding.\n"; + exit 1; + } + } } + if($marc_mod_template_id < 0) { die "Can't locate MARC modification template '$marc_mod_template'\n"; } @@ -134,8 +146,13 @@ sub process_batch { print "... staging MARC records -- please wait\n"; #FIXME: We should really allow the use of marc modification frameworks and to_marc plugins here if possible my ($batch_id, $num_valid_records, $num_items, @import_errors) = - BatchStageMarcRecords($record_type, $params->{encoding}, $marc_records, $params->{input_file}, $params->{'marc_mod_template_id'}, undef, $params->{batch_comment}, '', $params->{add_items}, 0, - 100, \&print_progress_and_commit); + BatchStageMarcRecords( + $record_type, $params->{encoding}, + $marc_records, $params->{input_file}, + $params->{'marc_mod_template_id'}, + $params->{batch_comment}, '', + $params->{add_items}, 0, + 100, \&print_progress_and_commit); print "... finished staging MARC records\n"; my $num_with_matches = 0; --