Attachment #175634 for bug #38726

View | Details | Raw Unified | Return to bug 38726
Collapse All | Expand All





    $file->_stage_file($params)

    Stages a file directly using parameters from a MARC ordering account

=cut



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

=cut


    });

    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.

=cut


        } 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 $matches      = $import_record->get_import_record_matches( { chosen => 1 } );
    my $match        = $matches->count ? $matches->next             : undef;
    my $biblionumber = $match          ? $match->candidate_match_id : 0;

            : '',
            match_score => $match ? $match->score : 0,
        );
        my $marcrecord = $import_record->get_marc_record || die "couldn't translate MARC information";

        my $infos = _get_syspref_mappings( $marcrecord, 'MarcFieldsToOrder' );


Lines 49-55 MARC order accounts Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/marc_order_accounts.tt (-1 / +1 lines)
49	</a>	49	</a>
50	</div>	50	</div>
51	[% IF ( accounts ) %]	51	[% IF ( accounts ) %]
52	<h1>Marc ordering accounts</h1>	52	<h1>MARC ordering accounts</h1>
53	<div class="page-section">	53	<div class="page-section">
54	<table>	54	<table>
55	<tr>	55	<tr>

Lines 83-89 cronlogaction( { info => $command_line_options } ); Link Here

(-)a/misc/cronjobs/marc_ordering_process.pl (-3 / +2 lines)
83	$verbose = 1 unless $verbose or $confirm;	83	$verbose = 1 unless $verbose or $confirm;
84	print "Test run only\n" unless $confirm;	84	print "Test run only\n" unless $confirm;
85		85
86	print "Fetching marc ordering accounts\n" if $verbose;	86	print "Fetching MARC ordering accounts\n" if $verbose;
87	my @accounts = Koha::MarcOrderAccounts->search(	87	my @accounts = Koha::MarcOrderAccounts->search(
88	{},	88	{},
89	{ join => [ 'vendor', 'budget' ] }	89	{ join => [ 'vendor', 'budget' ] }
Lines 95-101 if ( scalar(@accounts) == 0 ) { Link Here
95		95
96	foreach my $acct (@accounts) {	96	foreach my $acct (@accounts) {
97	if ($verbose) {	97	if ($verbose) {
98	say sprintf "Starting marc ordering process for %s", $acct->vendor->name;	98	say sprintf "Starting MARC ordering process for %s", $acct->vendor->name;
99	say sprintf "Looking for new files in %s", $acct->download_directory;	99	say sprintf "Looking for new files in %s", $acct->download_directory;
100	}	100	}
101		101
102	-

Return to bug 38726

Lines 251-257 sub _create_basket_for_file { Link Here

(-)a/Koha/MarcOrder.pm (-6 / +6 lines)
251		251
252	$file->_stage_file($params)	252	$file->_stage_file($params)
253		253
254	Stages a file directly using parameters from a marc ordering account	254	Stages a file directly using parameters from a MARC ordering account
255		255
256	=cut	256	=cut
257		257
Lines 267-273 sub _stage_file { Link Here
267		267
268	my $syspref_info = _get_syspref_mappings( $marcrecord, $syspref_name );	268	my $syspref_info = _get_syspref_mappings( $marcrecord, $syspref_name );
269		269
270	Fetches data from a marc record based on the mappings in the syspref MarcFieldsToOrder or MarcItemFieldsToOrder using the fields selected in $fields (array).	270	Fetches data from a MARC record based on the mappings in the syspref MarcFieldsToOrder or MarcItemFieldsToOrder using the fields selected in $fields (array).
271		271
272	=cut	272	=cut
273		273
Lines 363-370 sub _verify_number_of_fields { Link Here
363	});	363	});
364		364
365	Takes a set of import records and adds biblio records based on the file content.	365	Takes a set of import records and adds biblio records based on the file content.
366	Params matcher_id and overlay_action are taken from the marc ordering account.	366	Params matcher_id and overlay_action are taken from the MARC ordering account.
367	Returns the new or matched biblionumber and the marc record for each import record.	367	Returns the new or matched biblionumber and the MARC record for each import record.
368		368
369	=cut	369	=cut
370		370
Lines 388-394 sub add_biblio_from_import_record { Link Here
388	} if not grep { $_ eq $import_record->import_record_id } @{$import_record_id_selected};	388	} if not grep { $_ eq $import_record->import_record_id } @{$import_record_id_selected};
389	}	389	}
390		390
391	my $marcrecord = $import_record->get_marc_record \|\| die "Couldn't translate marc information";	391	my $marcrecord = $import_record->get_marc_record \|\| die "Couldn't translate MARC information";
392	my $matches = $import_record->get_import_record_matches( { chosen => 1 } );	392	my $matches = $import_record->get_import_record_matches( { chosen => 1 } );
393	my $match = $matches->count ? $matches->next : undef;	393	my $match = $matches->count ? $matches->next : undef;
394	my $biblionumber = $match ? $match->candidate_match_id : 0;	394	my $biblionumber = $match ? $match->candidate_match_id : 0;
Lines 695-701 sub import_biblios_list { Link Here
695	: '',	695	: '',
696	match_score => $match ? $match->score : 0,	696	match_score => $match ? $match->score : 0,
697	);	697	);
698	my $marcrecord = $import_record->get_marc_record \|\| die "couldn't translate marc information";	698	my $marcrecord = $import_record->get_marc_record \|\| die "couldn't translate MARC information";
699		699
700	my $infos = _get_syspref_mappings( $marcrecord, 'MarcFieldsToOrder' );	700	my $infos = _get_syspref_mappings( $marcrecord, 'MarcFieldsToOrder' );
701		701