Attachment #169900 for bug #34355

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




            }
        );

        while( my $import_record = $import_records->next ){
            my $result = add_biblio_from_import_record({
                import_batch_id => $import_batch_id,
                import_record   => $import_record,
                matcher_id      => $params->{matcher_id},
                overlay_action  => $params->{overlay_action},
                agent           => $agent,
            });
            warn "Duplicates found in $result->{duplicates_in_batch}, record was skipped." if $result->{duplicates_in_batch};
            );
            warn "Duplicates found in $result->{duplicates_in_batch}, record was skipped."
                if $result->{duplicates_in_batch};
            next if $result->{skip};

            my $order_line_details = add_items_from_import_record(

                $tags_count;                              # All counts of various fields should be equal if they exist
        }
    }

    return { error => 0, count => $tags_count };
}


            push @uris,              $infoset->{uri};
            push @copynos,           $infoset->{copyno};
            push @budget_codes,      $item_budget_id;
            push @itemprices,        $infoset->{price};
            push @replacementprices, $infoset->{replacementprice};
            push @itemcallnumbers,   $infoset->{itemcallnumber};
        }

Lines 98-103 foreach my $acct (@accounts) { Link Here

(-)a/misc/cronjobs/marc_ordering_process.pl (-2 / +4 lines)
98	opendir my $dir, $working_dir or die "Can't open filepath";	98	opendir my $dir, $working_dir or die "Can't open filepath";
99	my @files = grep { /\.(mrc\|marcxml\|mrk)/i } readdir $dir;	99	my @files = grep { /\.(mrc\|marcxml\|mrk)/i } readdir $dir;
100	closedir $dir;	100	closedir $dir;
		101	print "No new files found\n" if scalar(@files) == 0;
		102
		103	my $files_processed = 0;
101		104
102	foreach my $filename (@files) {	105	foreach my $filename (@files) {
103	my $full_path = "$working_dir/$filename";	106	my $full_path = "$working_dir/$filename";
Lines 124-130 foreach my $acct (@accounts) { Link Here
124	}	127	}
125	}	128	}
126	}	129	}
127	print "All files completed\n";	130	say sprintf "%s files processed", $files_processed unless $files_processed == 0;
128	print "Moving to next account\n\n";	131	print "Moving to next account\n\n";
129	}	132	}
130	print "Process complete\n";	133	print "Process complete\n";
131	-

Return to bug 34355

Lines 125-142 sub create_order_lines_from_file { Link Here

(-)a/Koha/MarcOrder.pm (-14 / +10 lines)
125	}	125	}
126	);	126	);
127		127
128	while ( my $import_record = $import_records->next ) {	128	while( my $import_record = $import_records->next ){
129	my $result = add_biblio_from_import_record(	129	my $result = add_biblio_from_import_record({
130	{	130	import_batch_id => $import_batch_id,
131	import_batch_id => $import_batch_id,	131	import_record => $import_record,
132	import_record => $import_record,	132	matcher_id => $params->{matcher_id},
133	matcher_id => $params->{matcher_id},	133	overlay_action => $params->{overlay_action},
134	overlay_action => $params->{overlay_action},	134	agent => $agent,
135	agent => $agent,	135	});
136	}	136	warn "Duplicates found in $result->{duplicates_in_batch}, record was skipped." if $result->{duplicates_in_batch};
137	);
138	warn "Duplicates found in $result->{duplicates_in_batch}, record was skipped."
139	if $result->{duplicates_in_batch};
140	next if $result->{skip};	137	next if $result->{skip};
141		138
142	my $order_line_details = add_items_from_import_record(	139	my $order_line_details = add_items_from_import_record(
Lines 417-423 sub _verify_number_of_fields { Link Here
417	$tags_count; # All counts of various fields should be equal if they exist	414	$tags_count; # All counts of various fields should be equal if they exist
418	}	415	}
419	}	416	}
420
421	return { error => 0, count => $tags_count };	417	return { error => 0, count => $tags_count };
422	}	418	}
423		419
Lines 1214-1220 sub _create_item_fields_from_syspref { Link Here
1214	push @uris, $infoset->{uri};	1210	push @uris, $infoset->{uri};
1215	push @copynos, $infoset->{copyno};	1211	push @copynos, $infoset->{copyno};
1216	push @budget_codes, $item_budget_id;	1212	push @budget_codes, $item_budget_id;
1217	push @itemprices, $infoset->{itemprice};	1213	push @itemprices, $infoset->{price};
1218	push @replacementprices, $infoset->{replacementprice};	1214	push @replacementprices, $infoset->{replacementprice};
1219	push @itemcallnumbers, $infoset->{itemcallnumber};	1215	push @itemcallnumbers, $infoset->{itemcallnumber};
1220	}	1216	}