gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 38726: (follow-up) Some more {Mm}arc ordering cases 

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Tomas Cohen Arazi 2024-12-17 16:53:37 -03:00 committed by Katrin Fischer
parent 4696d31441
commit f50978c256
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Koha/MarcOrder.pm
View File

@ -251,7 +251,7 @@ sub _create_basket_for_file {
$file->_stage_file($params)
Stages a file directly using parameters from a marc ordering account
Stages a file directly using parameters from a MARC ordering account
=cut
@ -267,7 +267,7 @@ sub _stage_file {
my $syspref_info = _get_syspref_mappings( $marcrecord, $syspref_name );
Fetches data from a marc record based on the mappings in the syspref MarcFieldsToOrder or MarcItemFieldsToOrder using the fields selected in $fields (array).
Fetches data from a MARC record based on the mappings in the syspref MarcFieldsToOrder or MarcItemFieldsToOrder using the fields selected in $fields (array).
=cut
@ -363,8 +363,8 @@ sub _verify_number_of_fields {
});
Takes a set of import records and adds biblio records based on the file content.
Params matcher_id and overlay_action are taken from the marc ordering account.
Returns the new or matched biblionumber and the marc record for each import record.
Params matcher_id and overlay_action are taken from the MARC ordering account.
Returns the new or matched biblionumber and the MARC record for each import record.
=cut
@ -388,7 +388,7 @@ sub add_biblio_from_import_record {
} if not grep { $_ eq $import_record->import_record_id } @{$import_record_id_selected};
}
my $marcrecord = $import_record->get_marc_record || die "Couldn't translate marc information";
my $marcrecord = $import_record->get_marc_record || die "Couldn't translate MARC information";
my $matches = $import_record->get_import_record_matches( { chosen => 1 } );
my $match = $matches->count ? $matches->next : undef;
my $biblionumber = $match ? $match->candidate_match_id : 0;
@ -695,7 +695,7 @@ sub import_biblios_list {
: '',
match_score => $match ? $match->score : 0,
);
my $marcrecord = $import_record->get_marc_record || die "couldn't translate marc information";
my $marcrecord = $import_record->get_marc_record || die "couldn't translate MARC information";
my $infos = _get_syspref_mappings( $marcrecord, 'MarcFieldsToOrder' );

2
koha-tmpl/intranet-tmpl/prog/en/modules/admin/marc_order_accounts.tt
View File

@ -49,7 +49,7 @@ MARC order accounts
</a>
</div>
[% IF ( accounts ) %]
<h1>Marc ordering accounts</h1>
<h1>MARC ordering accounts</h1>
<div class="page-section">
<table>
<tr>

4
misc/cronjobs/marc_ordering_process.pl
View File

@ -83,7 +83,7 @@ cronlogaction( { info => $command_line_options } );
$verbose = 1 unless $verbose or $confirm;
print "Test run only\n" unless $confirm;
print "Fetching marc ordering accounts\n" if $verbose;
print "Fetching MARC ordering accounts\n" if $verbose;
my @accounts = Koha::MarcOrderAccounts->search(
{},
{ join => [ 'vendor', 'budget' ] }
@ -95,7 +95,7 @@ if ( scalar(@accounts) == 0 ) {
foreach my $acct (@accounts) {
if ($verbose) {
say sprintf "Starting marc ordering process for %s", $acct->vendor->name;
say sprintf "Starting MARC ordering process for %s", $acct->vendor->name;
say sprintf "Looking for new files in %s", $acct->download_directory;
}