Attachment 127509 Details for Bug 29440 – Bug 29440: Make authorities import behavior consistent with biblios

[patch] Bug 29440: Make authorities import behavior consistent with biblios

Bug-29440-Make-authorities-import-behavior-consist.patch (text/plain), 7.50 KB, created by David Gustafsson on 2021-11-10 11:17:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: David Gustafsson

Created: 2021-11-10 11:17:27 UTC

Size: 7.50 KB

patch

obsolete

>From a45436c62d10a3c043b8ed13d3e4c69b63f26159 Mon Sep 17 00:00:00 2001
>From: David Gustafsson <glasklas@gmail.com>
>Date: Tue, 9 Nov 2021 12:52:03 +0100
>Subject: [PATCH] Bug 29440: Make authorities import behavior consistent with
> biblios
>
>The current behavior for when importing authorities, when match
>option is enabled, is to insert as a new authority fetching from db
>fails. This is both a bit confusing and not consistent with the biblio
>case where an error is generated. Also clean up error and log messages
>so both messages/errors and when messages/errors are issued are more
>consistent for the biblio and authority case.
>---
> misc/migration_tools/bulkmarcimport.pl | 64 +++++++++++++++++---------
> 1 file changed, 41 insertions(+), 23 deletions(-)
>
>diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
>index 44189679b9..3409e00608 100755
>--- a/misc/migration_tools/bulkmarcimport.pl
>+++ b/misc/migration_tools/bulkmarcimport.pl
>@@ -451,30 +451,48 @@ RECORD: foreach my $record (@{$marc_records}) {
>     unless ($test_parameter) {
>         if ($authorities) {
>             my $authtypecode = GuessAuthTypeCode($record, $heading_fields);
>-            my $authid = ($matched_record_id? $matched_record_id : GuessAuthId($record));
>-            if ($authid && GetAuthority($authid) && $update) {
>-            ## Authority has an id and is in database : Replace
>-                eval { ( $authid ) = ModAuthority($authid, $record, $authtypecode) };
>-                if ($@) {
>-                    warn "Problem with authority $authid Cannot Modify";
>-                    printlog({ id => $authid, op => "edit", status => "ERROR" }) if ($logfile);
>+            my $authid;
>+
>+            if (!$matched_record_id && GetAuthority($originalid)) {
>+                $matched_record_id = $originalid;
>+            }
>+            if ($matched_record_id) {
>+                if ($update) {
>+                    ## Authority has an id and is in database: update
>+                    eval { ($authid) = ModAuthority($matched_record_id, $record, $authtypecode) };
>+                    if ($@) {
>+                        warn "ERROR: Update authority $matched_record_id failed: $@\n";
>+                        printlog({ id => $matched_record_id, op => "update", status => "ERROR" }) if ($logfile);
>+                    }
>+                    else {
>+                        printlog({ id => $authid, op => "update", status => "ok" }) if ($logfile);
>+                    }
>                 }
>-                else{
>-                    printlog({ id=> $authid, op=> "edit", status => "ok"}) if ($logfile);
>+                elsif ($logfile) {
>+                    warn "WARNING: Update authority $originalid skipped";
>+                    printlog({
>+                        id => $matched_record_id,
>+                        op => "update",
>+                        status => "warning: authority already in database and option -update not enabled, skipping..."
>+                    });
>                 }
>             }
>-            else {
>-            ## True insert in database
>-                eval { ( $authid ) = AddAuthority($record, "", $authtypecode) };
>+            elsif ($insert) {
>+                ## An authid is defined but no authority in database: insert
>+                eval { ($authid) = AddAuthority($record, $originalid, $authtypecode) };
>                 if ($@) {
>-                    warn "Problem with authority $originalid Cannot Add ".$@;
>+                    warn "ERROR: Insert authority $originalid failed: $@\n";
>                     printlog({ id => $originalid, op => "insert", status => "ERROR" }) if ($logfile);
>                 }
>                 else {
>                     printlog({ id => $authid, op => "insert", status => "ok" }) if ($logfile);
>                 }
>-
>             }
>+            else {
>+                warn "WARNING: Insert authority $originalid skipped";
>+                printlog( { id => $originalid, op => "insert", status => "warning : biblio not in database and option -insert not enabled, skipping..." } ) if ($logfile);
>+            }
>+
>             if ($yamlfile) {
>                 $yamlhash->{$originalid} = YAMLFileEntry(
>                     $record,
>@@ -504,9 +522,8 @@ RECORD: foreach my $record (@{$marc_records}) {
>                 }
>             }
> 
>-            # create biblio, unless we already have it ( either match or isbn )
>+            # Create biblio, unless we already have it (either match or ISBN)
>             if ($matched_record_id) {
>-                # TODO: Implement also for authority records!
>                 eval{
>                     $biblioitemnumber = Koha::Biblios->find( $matched_record_id )->biblioitem->biblioitemnumber;
>                 };
>@@ -514,12 +531,12 @@ RECORD: foreach my $record (@{$marc_records}) {
>                     my $success;
>                     eval { $success = ModBiblio($record, $matched_record_id, GetFrameworkCode($matched_record_id), $modify_biblio_marc_options) };
>                     if ($@) {
>-                        warn "ERROR: Edit biblio $matched_record_id failed: $@\n";
>+                        warn "ERROR: Update biblio $matched_record_id failed: $@\n";
>                         printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile);
>                         next RECORD;
>                     }
>                     elsif (!$success) {
>-                        warn "ERROR: Edit biblio $matched_record_id failed for unkown reason";
>+                        warn "ERROR: Update biblio $matched_record_id failed for unkown reason";
>                         printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile);
>                         next RECORD;
>                     }
>@@ -529,23 +546,24 @@ RECORD: foreach my $record (@{$marc_records}) {
>                     }
>                 }
>                 else {
>+                    warn "WARNING: Update biblio $originalid skipped";
>                     printlog( { id => $matched_record_id, op => "update", status => "warning : already in database and option -update not enabled, skipping..." } ) if ($logfile);
>                 }
>             }
>             elsif ($insert) {
>                 eval { ($record_id, $biblioitemnumber) = AddBiblio($record, $framework, { defer_marc_save => 1 }) };
>                 if ($@) {
>-                    warn "ERROR: Adding biblio $record_id failed: $@\n";
>-                    printlog( { id => $record_id, op => "insert", status => "ERROR" } ) if ($logfile);
>+                    warn "ERROR: Insert biblio $originalid failed: $@\n";
>+                    printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile);
>                     next RECORD;
>                 }
>                 else {
>-                    printlog( { id => $record_id, op => "insert", status => "ok" } ) if ($logfile);
>+                    printlog( { id => $originalid, op => "insert", status => "ok" } ) if ($logfile);
>                 }
>             }
>             else {
>-                warn "WARNING: Updating record ".($originalid)." failed";
>-                printlog( { id => $originalid, op => "insert", status => "warning : not in database and option -insert not enabled, skipping..." } ) if ($logfile);
>+                warn "WARNING: Insert biblio $originalid skipped";
>+                printlog( { id => $originalid, op => "insert", status => "warning : biblio not in database and option -insert not enabled, skipping..." } ) if ($logfile);
>                 next RECORD;
>             }
>             my $record_has_added_items = 0;
>-- 
>2.25.0

Actions: View | Diff | Splinter Review

Attachments on bug 29440: 127479 | 127480 | 127481 | 127485 | 127486 | 127508 | 127509 | 127651 | 127652 | 127791 | 127792 | 127795 | 127796 | 127959 | 127960 | 127961 | 127963 | 128086 | 128087 | 128362 | 128890 | 128891 | 131176 | 131177 | 131180 | 131181 | 132942 | 140822 | 140823 | 140903 | 140904 | 140905 | 140906 | 140924 | 140925 | 140926 | 140927 | 140928 | 140987 | 140988 | 140989 | 143375 | 151293 | 151294 | 151295 | 151296 | 151297 | 151298 | 151299 | 151300 | 151301 | 157798 | 160148 | 160149 | 160150 | 160151 | 160152 | 160153 | 160154 | 160155 | 160156 | 160157 | 160477 | 160478 | 160479 | 160480 | 160481 | 160482 | 160483 | 160484 | 160485 | 160486 | 160487