1 package C4::ImportBatch;
3 # Copyright (C) 2007 LibLime
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
26 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
29 # set the version for version checking
42 BatchFindBibDuplicates
47 GetImportBatchRangeDesc
48 GetNumberOfNonZ3950ImportBatches
53 GetImportBatchOverlayAction
54 SetImportBatchOverlayAction
57 GetImportRecordOverlayStatus
58 SetImportRecordOverlayStatus
61 GetImportRecordMatches
62 SetImportRecordMatches
68 C4::ImportBatch - manage batches of imported MARC records
80 =head2 GetZ3950BatchId
84 my $batchid = GetZ3950BatchId($z3950server);
88 Retrieves the ID of the import batch for the Z39.50
89 reservoir for the given target. If necessary,
90 creates the import batch.
95 my ($z3950server) = @_;
97 my $dbh = C4::Context->dbh;
98 my $sth = $dbh->prepare("SELECT import_batch_id FROM import_batches
99 WHERE batch_type = 'z3950'
101 $sth->execute($z3950server);
102 my $rowref = $sth->fetchrow_arrayref();
104 if (defined $rowref) {
107 my $batch_id = AddImportBatch('create_new', 'staged', 'z3950', $z3950server, '');
113 =head2 GetImportRecordMarc
117 my ($marcblob, $encoding) = GetImportRecordMarc($import_record_id);
123 sub GetImportRecordMarc {
124 my ($import_record_id) = @_;
126 my $dbh = C4::Context->dbh;
127 my $sth = $dbh->prepare("SELECT marc, encoding FROM import_records WHERE import_record_id = ?");
128 $sth->execute($import_record_id);
129 my ($marc, $encoding) = $sth->fetchrow();
135 =head2 AddImportBatch
139 my $batch_id = AddImportBatch($overlay_action, $import_status, $type, $file_name, $comments);
146 my ($overlay_action, $import_status, $type, $file_name, $comments) = @_;
148 my $dbh = C4::Context->dbh;
149 my $sth = $dbh->prepare("INSERT INTO import_batches (overlay_action, import_status, batch_type,
151 VALUES (?, ?, ?, ?, ?)");
152 $sth->execute($overlay_action, $import_status, $type, $file_name, $comments);
153 my $batch_id = $dbh->{'mysql_insertid'};
160 =head2 GetImportBatch
164 my $row = GetImportBatch($batch_id);
168 Retrieve a hashref of an import_batches row.
175 my $dbh = C4::Context->dbh;
176 my $sth = $dbh->prepare_cached("SELECT * FROM import_batches WHERE import_batch_id = ?");
177 $sth->bind_param(1, $batch_id);
179 my $result = $sth->fetchrow_hashref;
185 =head2 AddBiblioToBatch
189 my $import_record_id = AddBiblioToBatch($batch_id, $record_sequence, $marc_record, $encoding, $z3950random, $update_counts);
195 sub AddBiblioToBatch {
196 my $batch_id = shift;
197 my $record_sequence = shift;
198 my $marc_record = shift;
199 my $encoding = shift;
200 my $z3950random = shift;
201 my $update_counts = @_ ? shift : 1;
203 my $import_record_id = _create_import_record($batch_id, $record_sequence, $marc_record, 'biblio', $encoding, $z3950random);
204 _add_biblio_fields($import_record_id, $marc_record);
205 _update_batch_record_counts($batch_id) if $update_counts;
206 return $import_record_id;
209 =head2 ModBiblioInBatch
213 ModBiblioInBatch($import_record_id, $marc_record);
219 sub ModBiblioInBatch {
220 my ($import_record_id, $marc_record) = @_;
222 _update_import_record_marc($import_record_id, $marc_record);
223 _update_biblio_fields($import_record_id, $marc_record);
227 =head2 BatchStageMarcRecords
231 ($batch_id, $num_records, $num_items, @invalid_records) =
232 BatchStageMarcRecords($marc_flavor, $marc_records, $file_name,
233 $comments, $branch_code, $parse_items,
235 $progress_interval, $progress_callback);
241 sub BatchStageMarcRecords {
242 my $marc_flavor = shift;
243 my $marc_records = shift;
244 my $file_name = shift;
245 my $comments = shift;
246 my $branch_code = shift;
247 my $parse_items = shift;
248 my $leave_as_staging = shift;
250 # optional callback to monitor status
252 my $progress_interval = 0;
253 my $progress_callback = undef;
255 $progress_interval = shift;
256 $progress_callback = shift;
257 $progress_interval = 0 unless $progress_interval =~ /^\d+$/ and $progress_interval > 0;
258 $progress_interval = 0 unless 'CODE' eq ref $progress_callback;
261 my $batch_id = AddImportBatch('create_new', 'staging', 'batch', $file_name, $comments);
262 my @invalid_records = ();
265 # FIXME - for now, we're dealing only with bibs
267 foreach my $marc_blob (split(/\x1D/, $marc_records)) {
269 if ($progress_interval and (0 == ($rec_num % $progress_interval))) {
270 &$progress_callback($rec_num);
272 my $marc_record = FixEncoding($marc_blob, "\x1D");
273 my $import_record_id;
274 if (scalar($marc_record->fields()) == 0) {
275 push @invalid_records, $marc_blob;
278 $import_record_id = AddBiblioToBatch($batch_id, $rec_num, $marc_record, $marc_flavor, int(rand(99999)), 0);
280 my @import_items_ids = AddItemsToImportBiblio($batch_id, $import_record_id, $marc_record, 0);
281 $num_items += scalar(@import_items_ids);
285 unless ($leave_as_staging) {
286 SetImportBatchStatus($batch_id, 'staged');
288 # FIXME branch_code, number of bibs, number of items
289 _update_batch_record_counts($batch_id);
290 return ($batch_id, $num_valid, $num_items, @invalid_records);
293 =head2 AddItemsToImportBiblio
297 my @import_items_ids = AddItemsToImportBiblio($batch_id, $import_record_id, $marc_record, $update_counts);
303 sub AddItemsToImportBiblio {
304 my $batch_id = shift;
305 my $import_record_id = shift;
306 my $marc_record = shift;
307 my $update_counts = @_ ? shift : 0;
309 my @import_items_ids = ();
311 my $dbh = C4::Context->dbh;
312 my ($item_tag,$item_subfield) = &GetMarcFromKohaField("items.itemnumber",'');
313 foreach my $item_field ($marc_record->field($item_tag)) {
314 my $item_marc = MARC::Record->new();
315 $item_marc->append_fields($item_field);
316 $marc_record->delete_field($item_field);
317 my $sth = $dbh->prepare_cached("INSERT INTO import_items (import_record_id, status, marcxml)
319 $sth->bind_param(1, $import_record_id);
320 $sth->bind_param(2, 'staged');
321 $sth->bind_param(3, $item_marc->as_xml());
323 push @import_items_ids, $dbh->{'mysql_insertid'};
327 if ($#import_items_ids > -1) {
328 _update_batch_record_counts($batch_id) if $update_counts;
329 _update_import_record_marc($import_record_id, $marc_record);
331 return @import_items_ids;
334 =head2 BatchFindBibDuplicates
338 my $num_with_matches = BatchFindBibDuplicates($batch_id, $matcher, $max_matches, $progress_interval, $progress_callback);
342 Goes through the records loaded in the batch and attempts to
343 find duplicates for each one. Sets the overlay action to
344 "replace" if it was "create_new", and sets the overlay status
345 of each record to "no_match" or "auto_match" as appropriate.
347 The $max_matches parameter is optional; if it is not supplied,
350 The $progress_interval and $progress_callback parameters are
351 optional; if both are supplied, the sub referred to by
352 $progress_callback will be invoked every $progress_interval
353 records using the number of records processed as the
358 sub BatchFindBibDuplicates {
359 my $batch_id = shift;
361 my $max_matches = @_ ? shift : 10;
363 # optional callback to monitor status
365 my $progress_interval = 0;
366 my $progress_callback = undef;
368 $progress_interval = shift;
369 $progress_callback = shift;
370 $progress_interval = 0 unless $progress_interval =~ /^\d+$/ and $progress_interval > 0;
371 $progress_interval = 0 unless 'CODE' eq ref $progress_callback;
374 my $dbh = C4::Context->dbh;
375 my $old_overlay_action = GetImportBatchOverlayAction($batch_id);
376 if ($old_overlay_action eq "create_new") {
377 SetImportBatchOverlayAction($batch_id, 'replace');
380 my $sth = $dbh->prepare("SELECT import_record_id, marc
382 JOIN import_biblios USING (import_record_id)
383 WHERE import_batch_id = ?");
384 $sth->execute($batch_id);
385 my $num_with_matches = 0;
387 while (my $rowref = $sth->fetchrow_hashref) {
389 if ($progress_interval and (0 == ($rec_num % $progress_interval))) {
390 &$progress_callback($rec_num);
392 my $marc_record = MARC::Record->new_from_usmarc($rowref->{'marc'});
394 if (defined $matcher) {
395 @matches = $matcher->get_matches($marc_record, $max_matches);
397 if (scalar(@matches) > 0) {
399 SetImportRecordMatches($rowref->{'import_record_id'}, @matches);
400 SetImportRecordOverlayStatus($rowref->{'import_record_id'}, 'auto_match');
402 SetImportRecordMatches($rowref->{'import_record_id'}, ());
403 SetImportRecordOverlayStatus($rowref->{'import_record_id'}, 'no_match');
407 return $num_with_matches;
410 =head2 BatchCommitBibRecords
414 my ($num_added, $num_updated, $num_items_added, $num_items_errored, $num_ignored) =
415 BatchCommitBibRecords($batch_id, $progress_interval, $progress_callback);
421 sub BatchCommitBibRecords {
422 my $batch_id = shift;
424 # optional callback to monitor status
426 my $progress_interval = 0;
427 my $progress_callback = undef;
429 $progress_interval = shift;
430 $progress_callback = shift;
431 $progress_interval = 0 unless $progress_interval =~ /^\d+$/ and $progress_interval > 0;
432 $progress_interval = 0 unless 'CODE' eq ref $progress_callback;
437 my $num_items_added = 0;
438 my $num_items_errored = 0;
440 # commit (i.e., save, all records in the batch)
441 # FIXME biblio only at the moment
442 SetImportBatchStatus('importing');
443 my $overlay_action = GetImportBatchOverlayAction($batch_id);
444 my $dbh = C4::Context->dbh;
445 my $sth = $dbh->prepare("SELECT import_record_id, status, overlay_status, marc, encoding
447 JOIN import_biblios USING (import_record_id)
448 WHERE import_batch_id = ?");
449 $sth->execute($batch_id);
451 while (my $rowref = $sth->fetchrow_hashref) {
453 if ($progress_interval and (0 == ($rec_num % $progress_interval))) {
454 &$progress_callback($rec_num);
456 if ($rowref->{'status'} eq 'error' or $rowref->{'status'} eq 'imported') {
460 my $marc_record = MARC::Record->new_from_usmarc($rowref->{'marc'});
462 # remove any item tags - rely on BatchCommitItems
463 my ($item_tag,$item_subfield) = &GetMarcFromKohaField("items.itemnumber",'');
464 foreach my $item_field ($marc_record->field($item_tag)) {
465 $marc_record->delete_field($item_field);
468 if ($overlay_action eq 'create_new' or
469 ($overlay_action eq 'replace' and $rowref->{'overlay_status'} eq 'no_match')) {
471 my ($biblionumber, $biblioitemnumber) = AddBiblio($marc_record, '');
472 my $sth = $dbh->prepare_cached("UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?");
473 $sth->execute($biblionumber, $rowref->{'import_record_id'});
475 my ($bib_items_added, $bib_items_errored) = BatchCommitItems($rowref->{'import_record_id'}, $biblionumber);
476 $num_items_added += $bib_items_added;
477 $num_items_errored += $bib_items_errored;
478 SetImportRecordStatus($rowref->{'import_record_id'}, 'imported');
481 my $biblionumber = GetBestRecordMatch($rowref->{'import_record_id'});
482 my ($count, $oldbiblio) = GetBiblio($biblionumber);
483 my $oldxml = GetXmlBiblio($biblionumber);
485 # remove item fields so that they don't get
486 # added again if record is reverted
487 my $old_marc = MARC::Record->new_from_xml($oldxml, 'UTF-8', $rowref->{'encoding'});
488 foreach my $item_field ($old_marc->field($item_tag)) {
489 $old_marc->delete_field($item_field);
492 ModBiblio($marc_record, $biblionumber, $oldbiblio->{'frameworkcode'});
493 my $sth = $dbh->prepare_cached("UPDATE import_records SET marcxml_old = ? WHERE import_record_id = ?");
494 $sth->execute($old_marc->as_xml(), $rowref->{'import_record_id'});
496 my $sth2 = $dbh->prepare_cached("UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?");
497 $sth2->execute($biblionumber, $rowref->{'import_record_id'});
499 my ($bib_items_added, $bib_items_errored) = BatchCommitItems($rowref->{'import_record_id'}, $biblionumber);
500 $num_items_added += $bib_items_added;
501 $num_items_errored += $bib_items_errored;
502 SetImportRecordOverlayStatus($rowref->{'import_record_id'}, 'match_applied');
503 SetImportRecordStatus($rowref->{'import_record_id'}, 'imported');
507 SetImportBatchStatus($batch_id, 'imported');
508 return ($num_added, $num_updated, $num_items_added, $num_items_errored, $num_ignored);
511 =head2 BatchCommitItems
515 ($num_items_added, $num_items_errored) = BatchCommitItems($import_record_id, $biblionumber);
521 sub BatchCommitItems {
522 my ($import_record_id, $biblionumber) = @_;
524 my $dbh = C4::Context->dbh;
526 my $num_items_added = 0;
527 my $num_items_errored = 0;
528 my $sth = $dbh->prepare("SELECT import_items_id, import_items.marcxml, encoding
530 JOIN import_records USING (import_record_id)
531 WHERE import_record_id = ?
532 ORDER BY import_items_id");
533 $sth->bind_param(1, $import_record_id);
535 while (my $row = $sth->fetchrow_hashref()) {
536 my $item_marc = MARC::Record->new_from_xml($row->{'marcxml'}, 'UTF-8', $row->{'encoding'});
537 # FIXME - duplicate barcode check needs to become part of AddItemFromMarc()
538 my $item = TransformMarcToKoha($dbh, $item_marc);
539 my $duplicate_barcode = exists($item->{'barcode'}) && GetItemnumberFromBarcode($item->{'barcode'});
540 if ($duplicate_barcode) {
541 my $updsth = $dbh->prepare("UPDATE import_items SET status = ?, import_error = ? WHERE import_items_id = ?");
542 $updsth->bind_param(1, 'error');
543 $updsth->bind_param(2, 'duplicate item barcode');
544 $updsth->bind_param(3, $row->{'import_items_id'});
546 $num_items_errored++;
548 my ($item_biblionumber, $biblioitemnumber, $itemnumber) = AddItemFromMarc($item_marc, $biblionumber);
549 my $updsth = $dbh->prepare("UPDATE import_items SET status = ?, itemnumber = ? WHERE import_items_id = ?");
550 $updsth->bind_param(1, 'imported');
551 $updsth->bind_param(2, $itemnumber);
552 $updsth->bind_param(3, $row->{'import_items_id'});
559 return ($num_items_added, $num_items_errored);
562 =head2 BatchRevertBibRecords
566 my ($num_deleted, $num_errors, $num_reverted, $num_items_deleted, $num_ignored) = BatchRevertBibRecords($batch_id);
572 sub BatchRevertBibRecords {
573 my $batch_id = shift;
577 my $num_reverted = 0;
578 my $num_items_deleted = 0;
580 # commit (i.e., save, all records in the batch)
581 # FIXME biblio only at the moment
582 SetImportBatchStatus('reverting');
583 my $overlay_action = GetImportBatchOverlayAction($batch_id);
584 my $dbh = C4::Context->dbh;
585 my $sth = $dbh->prepare("SELECT import_record_id, status, overlay_status, marcxml_old, encoding, matched_biblionumber
587 JOIN import_biblios USING (import_record_id)
588 WHERE import_batch_id = ?");
589 $sth->execute($batch_id);
590 while (my $rowref = $sth->fetchrow_hashref) {
591 if ($rowref->{'status'} eq 'error' or $rowref->{'status'} eq 'reverted') {
594 if ($overlay_action eq 'create_new' or
595 ($overlay_action eq 'replace' and $rowref->{'overlay_status'} eq 'no_match')) {
596 $num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'});
597 my $error = DelBiblio($rowref->{'matched_biblionumber'});
598 if (defined $error) {
602 SetImportRecordStatus($rowref->{'import_record_id'}, 'reverted');
606 my $old_record = MARC::Record->new_from_xml($rowref->{'marcxml_old'}, 'UTF-8', $rowref->{'encoding'});
607 my $biblionumber = $rowref->{'matched_biblionumber'};
608 my ($count, $oldbiblio) = GetBiblio($biblionumber);
609 $num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'});
610 ModBiblio($old_record, $biblionumber, $oldbiblio->{'frameworkcode'});
611 SetImportRecordStatus($rowref->{'import_record_id'}, 'reverted');
615 SetImportBatchStatus($batch_id, 'reverted');
616 return ($num_deleted, $num_errors, $num_reverted, $num_items_deleted, $num_ignored);
619 =head2 BatchRevertItems
623 my $num_items_deleted = BatchRevertItems($import_record_id, $biblionumber);
629 sub BatchRevertItems {
630 my ($import_record_id, $biblionumber) = @_;
632 my $dbh = C4::Context->dbh;
633 my $num_items_deleted = 0;
635 my $sth = $dbh->prepare_cached("SELECT import_items_id, itemnumber
637 JOIN items USING (itemnumber)
638 WHERE import_record_id = ?");
639 $sth->bind_param(1, $import_record_id);
641 while (my $row = $sth->fetchrow_hashref()) {
642 DelItem($dbh, $biblionumber, $row->{'itemnumber'});
643 my $updsth = $dbh->prepare("UPDATE import_items SET status = ? WHERE import_items_id = ?");
644 $updsth->bind_param(1, 'reverted');
645 $updsth->bind_param(2, $row->{'import_items_id'});
648 $num_items_deleted++;
651 return $num_items_deleted;
654 =head2 GetAllImportBatches
658 my $results = GetAllImportBatches();
662 Returns a references to an array of hash references corresponding
663 to all import_batches rows (of batch_type 'batch'), sorted in
664 ascending order by import_batch_id.
668 sub GetAllImportBatches {
669 my $dbh = C4::Context->dbh;
670 my $sth = $dbh->prepare_cached("SELECT * FROM import_batches
671 WHERE batch_type = 'batch'
672 ORDER BY import_batch_id ASC");
676 while (my $row = $sth->fetchrow_hashref) {
677 push @$results, $row;
683 =head2 GetImportBatchRangeDesc
687 my $results = GetImportBatchRangeDesc($offset, $results_per_group);
691 Returns a reference to an array of hash references corresponding to
692 import_batches rows (sorted in descending order by import_batch_id)
693 start at the given offset.
697 sub GetImportBatchRangeDesc {
698 my ($offset, $results_per_group) = @_;
700 my $dbh = C4::Context->dbh;
701 my $sth = $dbh->prepare_cached("SELECT * FROM import_batches
702 WHERE batch_type = 'batch'
703 ORDER BY import_batch_id DESC
705 $sth->bind_param(1, $results_per_group);
706 $sth->bind_param(2, $offset);
710 while (my $row = $sth->fetchrow_hashref) {
711 push @$results, $row;
717 =head2 GetNumberOfImportBatches
721 my $count = GetNumberOfImportBatches();
727 sub GetNumberOfNonZ3950ImportBatches {
728 my $dbh = C4::Context->dbh;
729 my $sth = $dbh->prepare("SELECT COUNT(*) FROM import_batches WHERE batch_type='batch'");
731 my ($count) = $sth->fetchrow_array();
736 =head2 GetImportBibliosRange
740 my $results = GetImportBibliosRange($batch_id, $offset, $results_per_group);
744 Returns a reference to an array of hash references corresponding to
745 import_biblios/import_records rows for a given batch
746 starting at the given offset.
750 sub GetImportBibliosRange {
751 my ($batch_id, $offset, $results_per_group) = @_;
753 my $dbh = C4::Context->dbh;
754 my $sth = $dbh->prepare_cached("SELECT title, author, isbn, issn, import_record_id, record_sequence,
755 status, overlay_status
757 JOIN import_biblios USING (import_record_id)
758 WHERE import_batch_id = ?
759 ORDER BY import_record_id LIMIT ? OFFSET ?");
760 $sth->bind_param(1, $batch_id);
761 $sth->bind_param(2, $results_per_group);
762 $sth->bind_param(3, $offset);
765 while (my $row = $sth->fetchrow_hashref) {
766 push @$results, $row;
773 =head2 GetBestRecordMatch
777 my $record_id = GetBestRecordMatch($import_record_id);
783 sub GetBestRecordMatch {
784 my ($import_record_id) = @_;
786 my $dbh = C4::Context->dbh;
787 my $sth = $dbh->prepare("SELECT candidate_match_id
788 FROM import_record_matches
789 WHERE import_record_id = ?
790 ORDER BY score DESC, candidate_match_id DESC");
791 $sth->execute($import_record_id);
792 my ($record_id) = $sth->fetchrow_array();
797 =head2 GetImportBatchStatus
801 my $status = GetImportBatchStatus($batch_id);
807 sub GetImportBatchStatus {
810 my $dbh = C4::Context->dbh;
811 my $sth = $dbh->prepare("SELECT import_status FROM import_batches WHERE batch_id = ?");
812 $sth->execute($batch_id);
813 my ($status) = $sth->fetchrow_array();
820 =head2 SetImportBatchStatus
824 SetImportBatchStatus($batch_id, $new_status);
830 sub SetImportBatchStatus {
831 my ($batch_id, $new_status) = @_;
833 my $dbh = C4::Context->dbh;
834 my $sth = $dbh->prepare("UPDATE import_batches SET import_status = ? WHERE import_batch_id = ?");
835 $sth->execute($new_status, $batch_id);
840 =head2 GetImportBatchOverlayAction
844 my $overlay_action = GetImportBatchOverlayAction($batch_id);
850 sub GetImportBatchOverlayAction {
853 my $dbh = C4::Context->dbh;
854 my $sth = $dbh->prepare("SELECT overlay_action FROM import_batches WHERE import_batch_id = ?");
855 $sth->execute($batch_id);
856 my ($overlay_action) = $sth->fetchrow_array();
858 return $overlay_action;
863 =head2 SetImportBatchOverlayAction
867 SetImportBatchOverlayAction($batch_id, $new_overlay_action);
873 sub SetImportBatchOverlayAction {
874 my ($batch_id, $new_overlay_action) = @_;
876 my $dbh = C4::Context->dbh;
877 my $sth = $dbh->prepare("UPDATE import_batches SET overlay_action = ? WHERE import_batch_id = ?");
878 $sth->execute($new_overlay_action, $batch_id);
883 =head2 GetImportBatchMatcher
887 my $matcher_id = GetImportBatchMatcher($batch_id);
893 sub GetImportBatchMatcher {
896 my $dbh = C4::Context->dbh;
897 my $sth = $dbh->prepare("SELECT matcher_id FROM import_batches WHERE import_batch_id = ?");
898 $sth->execute($batch_id);
899 my ($matcher_id) = $sth->fetchrow_array();
906 =head2 SetImportBatchMatcher
910 SetImportBatchMatcher($batch_id, $new_matcher_id);
916 sub SetImportBatchMatcher {
917 my ($batch_id, $new_matcher_id) = @_;
919 my $dbh = C4::Context->dbh;
920 my $sth = $dbh->prepare("UPDATE import_batches SET matcher_id = ? WHERE import_batch_id = ?");
921 $sth->execute($new_matcher_id, $batch_id);
926 =head2 GetImportRecordOverlayStatus
930 my $overlay_status = GetImportRecordOverlayStatus($import_record_id);
936 sub GetImportRecordOverlayStatus {
937 my ($import_record_id) = @_;
939 my $dbh = C4::Context->dbh;
940 my $sth = $dbh->prepare("SELECT overlay_status FROM import_records WHERE import_record_id = ?");
941 $sth->execute($import_record_id);
942 my ($overlay_status) = $sth->fetchrow_array();
944 return $overlay_status;
949 =head2 SetImportRecordOverlayStatus
953 SetImportRecordOverlayStatus($import_record_id, $new_overlay_status);
959 sub SetImportRecordOverlayStatus {
960 my ($import_record_id, $new_overlay_status) = @_;
962 my $dbh = C4::Context->dbh;
963 my $sth = $dbh->prepare("UPDATE import_records SET overlay_status = ? WHERE import_record_id = ?");
964 $sth->execute($new_overlay_status, $import_record_id);
969 =head2 GetImportRecordStatus
973 my $overlay_status = GetImportRecordStatus($import_record_id);
979 sub GetImportRecordStatus {
980 my ($import_record_id) = @_;
982 my $dbh = C4::Context->dbh;
983 my $sth = $dbh->prepare("SELECT status FROM import_records WHERE import_record_id = ?");
984 $sth->execute($import_record_id);
985 my ($overlay_status) = $sth->fetchrow_array();
987 return $overlay_status;
992 =head2 SetImportRecordStatus
996 SetImportRecordStatus($import_record_id, $new_overlay_status);
1002 sub SetImportRecordStatus {
1003 my ($import_record_id, $new_overlay_status) = @_;
1005 my $dbh = C4::Context->dbh;
1006 my $sth = $dbh->prepare("UPDATE import_records SET status = ? WHERE import_record_id = ?");
1007 $sth->execute($new_overlay_status, $import_record_id);
1012 =head2 GetImportRecordMatches
1016 my $results = GetImportRecordMatches($import_record_id, $best_only);
1022 sub GetImportRecordMatches {
1023 my $import_record_id = shift;
1024 my $best_only = @_ ? shift : 0;
1026 my $dbh = C4::Context->dbh;
1027 # FIXME currently biblio only
1028 my $sth = $dbh->prepare_cached("SELECT title, author, biblionumber, score
1030 JOIN import_record_matches USING (import_record_id)
1031 JOIN biblio ON (biblionumber = candidate_match_id)
1032 WHERE import_record_id = ?
1033 ORDER BY score DESC, biblionumber DESC");
1034 $sth->bind_param(1, $import_record_id);
1037 while (my $row = $sth->fetchrow_hashref) {
1038 push @$results, $row;
1048 =head2 SetImportRecordMatches
1052 SetImportRecordMatches($import_record_id, @matches);
1058 sub SetImportRecordMatches {
1059 my $import_record_id = shift;
1062 my $dbh = C4::Context->dbh;
1063 my $delsth = $dbh->prepare("DELETE FROM import_record_matches WHERE import_record_id = ?");
1064 $delsth->execute($import_record_id);
1067 my $sth = $dbh->prepare("INSERT INTO import_record_matches (import_record_id, candidate_match_id, score)
1069 foreach my $match (@matches) {
1070 $sth->execute($import_record_id, $match->{'record_id'}, $match->{'score'});
1075 # internal functions
1077 sub _create_import_record {
1078 my ($batch_id, $record_sequence, $marc_record, $record_type, $encoding, $z3950random) = @_;
1080 my $dbh = C4::Context->dbh;
1081 my $sth = $dbh->prepare("INSERT INTO import_records (import_batch_id, record_sequence, marc, marcxml,
1082 record_type, encoding, z3950random)
1083 VALUES (?, ?, ?, ?, ?, ?, ?)");
1084 $sth->execute($batch_id, $record_sequence, $marc_record->as_usmarc(), $marc_record->as_xml(),
1085 $record_type, $encoding, $z3950random);
1086 my $import_record_id = $dbh->{'mysql_insertid'};
1088 return $import_record_id;
1091 sub _update_import_record_marc {
1092 my ($import_record_id, $marc_record) = @_;
1094 my $dbh = C4::Context->dbh;
1095 my $sth = $dbh->prepare("UPDATE import_records SET marc = ?, marcxml = ?
1096 WHERE import_record_id = ?");
1097 $sth->execute($marc_record->as_usmarc(), $marc_record->as_xml(), $import_record_id);
1101 sub _add_biblio_fields {
1102 my ($import_record_id, $marc_record) = @_;
1104 my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record);
1105 my $dbh = C4::Context->dbh;
1106 # FIXME no controlnumber, originalsource
1107 # FIXME 2 - should regularize normalization of ISBN wherever it is done
1111 my $sth = $dbh->prepare("INSERT INTO import_biblios (import_record_id, title, author, isbn, issn) VALUES (?, ?, ?, ?, ?)");
1112 $sth->execute($import_record_id, $title, $author, $isbn, $issn);
1117 sub _update_biblio_fields {
1118 my ($import_record_id, $marc_record) = @_;
1120 my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record);
1121 my $dbh = C4::Context->dbh;
1122 # FIXME no controlnumber, originalsource
1123 # FIXME 2 - should regularize normalization of ISBN wherever it is done
1127 my $sth = $dbh->prepare("UPDATE import_biblios SET title = ?, author = ?, isbn = ?, issn = ?
1128 WHERE import_record_id = ?");
1129 $sth->execute($title, $author, $isbn, $issn, $import_record_id);
1133 sub _parse_biblio_fields {
1134 my ($marc_record) = @_;
1136 my $dbh = C4::Context->dbh;
1137 my $bibliofields = TransformMarcToKoha($dbh, $marc_record, '');
1138 return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'});
1142 sub _update_batch_record_counts {
1143 my ($batch_id) = @_;
1145 my $dbh = C4::Context->dbh;
1146 my $sth = $dbh->prepare_cached("UPDATE import_batches SET num_biblios = (
1149 WHERE import_batch_id = import_batches.import_batch_id
1150 AND record_type = 'biblio')
1151 WHERE import_batch_id = ?");
1152 $sth->bind_param(1, $batch_id);
1155 $sth = $dbh->prepare_cached("UPDATE import_batches SET num_items = (
1158 JOIN import_items USING (import_record_id)
1159 WHERE import_batch_id = import_batches.import_batch_id
1160 AND record_type = 'biblio')
1161 WHERE import_batch_id = ?");
1162 $sth->bind_param(1, $batch_id);
1173 Koha Development Team <info@koha.org>
1175 Galen Charlton <galen.charlton@liblime.com>