Attachment 122433 Details for Bug 26351 – Bug 26351: Add plugin hooks to transform item barcodes

[patch] Bug 26351: Add plugin hooks to transform item barcodes

Bug-26351-Add-plugin-hooks-to-transform-item-barco.patch (text/plain), 12.48 KB, created by Kyle M Hall (khall) on 2021-06-25 12:05:31 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2021-06-25 12:05:31 UTC

Size: 12.48 KB

patch

obsolete

>From 7e17f980a679f2942fab415e1573c9827756309e Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatersolutions.com>
>Date: Wed, 2 Sep 2020 09:17:31 -0400
>Subject: [PATCH] Bug 26351: Add plugin hooks to transform item barcodes
>
>Some of our partners have unusual barcode requirements that have
>required us to transform scanned barcodes using javascript. This is not
>the most reliable method. It would make more sense to have Koha
>transform the barcodes on the backend using a plugin. We should add
>hooks to transform and generate new item and patron barcodes.
>
>Test Plan:
>1) Apply this patch
>2) Download and install the Barcode Transformer plugin
>   https://github.com/bywatersolutions/koha-plugin-barcode-transformer/releases/
>3) Go to the plugin configuration page, set the configuration to the example configuration from the same page
>4) In the item barcode field on the checkin and checkout pages,
>   and anywhere else you can scan an item barcode, type in some
>   valid barcodes, but prefix them with X and postfix them with
>   Y, e.g. X123456Y
>5) Note the letters are removed by Koha!
>
>Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
>Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>---
> C4/Circulation.pm                     | 16 +++++++++-------
> C4/ILSDI/Services.pm                  |  2 ++
> C4/Items.pm                           |  1 +
> Koha/Item.pm                          |  3 +++
> cataloguing/additem.pl                |  4 ++++
> circ/circulation.pl                   |  2 ++
> circ/returns.pl                       |  3 +++
> offline_circ/process_koc.pl           |  9 +++++++++
> opac/sco/sco-main.pl                  |  3 +++
> t/db_dependent/Koha/Plugins/Plugins.t |  4 +++-
> t/lib/Koha/Plugin/Test.pm             |  9 +++++++++
> tools/batchMod.pl                     |  4 ++++
> tools/inventory.pl                    |  5 +++++
> 13 files changed, 57 insertions(+), 8 deletions(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index 89e2737f56..abd62b73e8 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -62,18 +62,19 @@ use Koha::Config::SysPref;
> use Koha::Checkouts::ReturnClaims;
> use Koha::SearchEngine::Indexer;
> use Koha::Exceptions::Checkout;
>+use Koha::Plugins;
> use Carp;
> use List::MoreUtils qw( uniq any );
> use Scalar::Util qw( looks_like_number );
> use Try::Tiny;
> use Date::Calc qw(
>-  Today
>-  Today_and_Now
>-  Add_Delta_YM
>-  Add_Delta_DHMS
>-  Date_to_Days
>-  Day_of_Week
>-  Add_Delta_Days
>+    Today
>+    Today_and_Now
>+    Add_Delta_YM
>+    Add_Delta_DHMS
>+    Date_to_Days
>+    Day_of_Week
>+    Add_Delta_Days
> );
> use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
> 
>@@ -175,6 +176,7 @@ sub barcodedecode {
>     my ($barcode, $filter) = @_;
>     my $branch = C4::Context::mybranch();
>     $filter = C4::Context->preference('itemBarcodeInputFilter') unless $filter;
>+    ($barcode) = Koha::Plugins->call('barcode_transform', 'item', $barcode ) || $barcode;
>     $filter or return $barcode;     # ensure filter is defined, else return untouched barcode
> 	if ($filter eq 'whitespace') {
> 		$barcode =~ s/\s//g;
>diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm
>index a28c382d68..0157eeb487 100644
>--- a/C4/ILSDI/Services.pm
>+++ b/C4/ILSDI/Services.pm
>@@ -34,6 +34,7 @@ use CGI qw ( -utf8 );
> use DateTime;
> use C4::Auth;
> use Koha::DateUtils;
>+use Koha::Plugins;
> 
> use Koha::Biblios;
> use Koha::Checkouts;
>@@ -642,6 +643,7 @@ sub GetServices {
>     # Issuing management
>     my $barcode = $item->barcode || '';
>     $barcode = barcodedecode($barcode) if ( $barcode && C4::Context->preference('itemBarcodeInputFilter') );
>+    ($barcode) = Koha::Plugins->call('barcode_transform', 'item', $barcode ) || $barcode;
>     if ($barcode) {
>         my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $barcode );
> 
>diff --git a/C4/Items.pm b/C4/Items.pm
>index 1f0d560e86..1351011c8f 100644
>--- a/C4/Items.pm
>+++ b/C4/Items.pm
>@@ -72,6 +72,7 @@ use Koha::SearchEngine;
> use Koha::SearchEngine::Indexer;
> use Koha::SearchEngine::Search;
> use Koha::Libraries;
>+use Koha::Plugins;
> 
> =head1 NAME
> 
>diff --git a/Koha/Item.pm b/Koha/Item.pm
>index 47a86eb0bb..a45d57828a 100644
>--- a/Koha/Item.pm
>+++ b/Koha/Item.pm
>@@ -90,6 +90,9 @@ sub store {
>         $self->itype($self->biblio->biblioitem->itemtype);
>     }
> 
>+    my ($transformed_barcode) = Koha::Plugins->call( 'barcode_transform', 'item', $self->barcode ) || $self->barcode;
>+    $self->barcode($transformed_barcode);
>+
>     my $today  = dt_from_string;
>     my $action = 'create';
> 
>diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
>index b1e0357398..cb6259f1f1 100755
>--- a/cataloguing/additem.pl
>+++ b/cataloguing/additem.pl
>@@ -36,6 +36,7 @@ use Koha::ItemTypes;
> use Koha::Libraries;
> use Koha::Patrons;
> use Koha::SearchEngine::Indexer;
>+use Koha::Plugins;
> use List::MoreUtils qw/any/;
> use C4::Search;
> use Storable qw(thaw freeze);
>@@ -508,6 +509,9 @@ if ($op eq "additem") {
> 
>     my $addedolditem = TransformMarcToKoha( $record );
> 
>+    my ( $new_barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $addedolditem->{'barcode'} ) || $addedolditem->{'barcode'};
>+    $addedolditem->{'barcode'} = $new_barcode;
>+
>     # If we have to add or add & duplicate, we add the item
>     if ( $add_submit || $add_duplicate_submit ) {
> 
>diff --git a/circ/circulation.pl b/circ/circulation.pl
>index f6dd318f97..b9bfa495ce 100755
>--- a/circ/circulation.pl
>+++ b/circ/circulation.pl
>@@ -46,6 +46,7 @@ use Koha::AuthorisedValues;
> use Koha::CsvProfiles;
> use Koha::Patrons;
> use Koha::Patron::Debarments qw(GetDebarments);
>+use Koha::Plugins;
> use Koha::DateUtils;
> use Koha::Database;
> use Koha::BiblioFrameworks;
>@@ -165,6 +166,7 @@ for my $barcode ( @$barcodes ) {
>     $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace
>     $barcode = barcodedecode($barcode)
>         if( $barcode && C4::Context->preference('itemBarcodeInputFilter'));
>+    ( $barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $barcode ) || $barcode;
> }
> 
> my $stickyduedate  = $query->param('stickyduedate') || $session->param('stickyduedate');
>diff --git a/circ/returns.pl b/circ/returns.pl
>index e456e531f2..e0005ad9f7 100755
>--- a/circ/returns.pl
>+++ b/circ/returns.pl
>@@ -57,6 +57,7 @@ use Koha::Holds;
> use Koha::Items;
> use Koha::Item::Transfers;
> use Koha::Patrons;
>+use Koha::Plugins;
> 
> my $query = CGI->new;
> 
>@@ -115,6 +116,7 @@ foreach ( $query->param ) {
> 
>     # decode barcode    ## Didn't we already decode them before passing them back last time??
>     $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace
>+    ( $barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $barcode ) || $barcode;
>     $barcode = barcodedecode($barcode) if(C4::Context->preference('itemBarcodeInputFilter'));
> 
>     ######################
>@@ -249,6 +251,7 @@ if ($transit) {
> my $returnbranch;
> if ($barcode) {
>     $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace
>+    ( $barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $barcode ) || $barcode;
>     $barcode = barcodedecode($barcode) if C4::Context->preference('itemBarcodeInputFilter');
>     my $item = Koha::Items->find({ barcode => $barcode });
> 
>diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl
>index ba61c77534..a6a06b0297 100755
>--- a/offline_circ/process_koc.pl
>+++ b/offline_circ/process_koc.pl
>@@ -38,6 +38,7 @@ use Koha::UploadedFiles;
> use Koha::Account;
> use Koha::Checkouts;
> use Koha::Patrons;
>+use Koha::Plugins;
> 
> use Date::Calc qw( Add_Delta_Days Date_to_Days );
> 
>@@ -246,6 +247,10 @@ sub kocIssueItem {
>     my $circ = shift;
> 
>     $circ->{ 'barcode' } = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter'));
>+
>+    my ( $new_barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $circ->{barcode} ) || $circ->{barcode};
>+    $circ->{barcode} = $new_barcode;
>+
>     my $branchcode = C4::Context->userenv->{branch};
>     my $patron = Koha::Patrons->find( { cardnumber => $circ->{cardnumber} } );
>     my $borrower = $patron->unblessed;
>@@ -326,6 +331,10 @@ sub kocIssueItem {
> sub kocReturnItem {
>     my ( $circ ) = @_;
>     $circ->{'barcode'} = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter'));
>+
>+    my ( $new_barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $circ->{barcode} ) || $circ->{barcode};
>+    $circ->{barcode} = $new_barcode;
>+
>     my $item = Koha::Items->find({ barcode => $circ->{barcode} });
>     my $biblio = $item->biblio;
>     my $borrowernumber = _get_borrowernumber_from_barcode( $circ->{'barcode'} );
>diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl
>index d4f91638ce..af2a96955b 100755
>--- a/opac/sco/sco-main.pl
>+++ b/opac/sco/sco-main.pl
>@@ -49,6 +49,7 @@ use Koha::Items;
> use Koha::Patrons;
> use Koha::Patron::Images;
> use Koha::Patron::Messages;
>+use Koha::Plugins;
> use Koha::Token;
> 
> my $query = CGI->new;
>@@ -108,6 +109,8 @@ my ($op, $patronid, $patronlogin, $patronpw, $barcode, $confirmed, $newissues) =
>     $query->param("newissues")  || '',
> );
> 
>+( $barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $barcode ) || $barcode;
>+
> my @newissueslist = split /,/, $newissues;
> my $issuenoconfirm = 1; #don't need to confirm on issue.
> my $issuer   = Koha::Patrons->find( $issuerid )->unblessed;
>diff --git a/t/db_dependent/Koha/Plugins/Plugins.t b/t/db_dependent/Koha/Plugins/Plugins.t
>index 2480d99a41..427aeb81ef 100755
>--- a/t/db_dependent/Koha/Plugins/Plugins.t
>+++ b/t/db_dependent/Koha/Plugins/Plugins.t
>@@ -25,7 +25,7 @@ use File::Temp qw( tempdir tempfile );
> use FindBin qw($Bin);
> use Module::Load::Conditional qw(can_load);
> use Test::MockModule;
>-use Test::More tests => 54;
>+use Test::More tests => 56;
> 
> use C4::Context;
> use Koha::Database;
>@@ -211,6 +211,8 @@ ok( $plugin->can('opac_head'), 'Test plugin can opac_head' );
> ok( $plugin->can('opac_js'), 'Test plugin can opac_js' );
> ok( $plugin->can('intranet_head'), 'Test plugin can intranet_head' );
> ok( $plugin->can('intranet_js'), 'Test plugin can intranet_js' );
>+ok( $plugin->can('barcode_transform'), 'Test plugin can barcode_transform' );
>+ok( $plugin->can('barcode_generate'), 'Test plugin can barcode_generate' );
> ok( $plugin->can('configure'), 'Test plugin can configure' );
> ok( $plugin->can('install'), 'Test plugin can install' );
> ok( $plugin->can('upgrade'), 'Test plugin can upgrade' );
>diff --git a/t/lib/Koha/Plugin/Test.pm b/t/lib/Koha/Plugin/Test.pm
>index 1c296b0595..6a692b2140 100644
>--- a/t/lib/Koha/Plugin/Test.pm
>+++ b/t/lib/Koha/Plugin/Test.pm
>@@ -93,6 +93,15 @@ sub intranet_js {
>     return "Koha::Plugin::Test::intranet_js";
> }
> 
>+sub barcode_transform {
>+    my ( $self, $type, $barcode ) = @_;
>+    return "Koha::Plugin::Test::barcode_transform";
>+}
>+
>+sub barcode_generate {
>+    my ( $self, $type, $object )
>+}
>+
> sub configure {
>     my ( $self, $args ) = @_;
>     return "Koha::Plugin::Test::configure";;
>diff --git a/tools/batchMod.pl b/tools/batchMod.pl
>index 6354d3bea2..8885f35a5c 100755
>--- a/tools/batchMod.pl
>+++ b/tools/batchMod.pl
>@@ -44,6 +44,7 @@ use Koha::Items;
> use Koha::ItemTypes;
> use Koha::Patrons;
> use Koha::SearchEngine::Indexer;
>+use Koha::Plugins;
> 
> my $input = CGI->new;
> my $dbh = C4::Context->dbh;
>@@ -372,6 +373,9 @@ if ($op eq "show"){
>         if ( my $list = $input->param('barcodelist') ) {
>             my @barcodelist = grep /\S/, ( split /[$split_chars]/, $list );
>             @barcodelist = uniq @barcodelist;
>+
>+            @barcodelist = map { ( Koha::Plugins->call( 'barcode_transform', 'item', $_ ) )[0] || $_ } @barcodelist;
>+
>             # Note: adding lc for case insensitivity
>             my %itemdata = map { lc($_->{barcode}) => $_->{itemnumber} } @{ Koha::Items->search({ barcode => \@barcodelist }, { columns => [ 'itemnumber', 'barcode' ] } )->unblessed };
>             @itemnumbers = map { exists $itemdata{lc $_} ? $itemdata{lc $_} : () } @barcodelist;
>diff --git a/tools/inventory.pl b/tools/inventory.pl
>index 2ad5452015..48fd2db189 100755
>--- a/tools/inventory.pl
>+++ b/tools/inventory.pl
>@@ -42,6 +42,8 @@ use Koha::AuthorisedValues;
> use Koha::BiblioFrameworks;
> use Koha::ClassSources;
> use Koha::Items;
>+use Koha::Plugins;
>+
> use List::MoreUtils qw( none );
> 
> my $minlocation=$input->param('minlocation') || '';
>@@ -187,6 +189,9 @@ if ( ($uploadbarcodes && length($uploadbarcodes) > 0) || ($barcodelist && length
>     }
>     for my $barcode (@uploadedbarcodes) {
>         next unless $barcode;
>+
>+        ($barcode) = Koha::Plugins->call('barcode_transform', 'item', $barcode ) || $barcode;
>+
>         ++$lines_read;
>         if (length($barcode)>$barcode_size) {
>             $err_length += 1;
>-- 
>2.30.1 (Apple Git-130)

Actions: View | Diff | Splinter Review

Attachments on bug 26351: 109532 | 109548 | 109671 | 110844 | 110846 | 111575 | 111577 | 111578 | 111579 | 111862 | 111863 | 111894 | 111916 | 111917 | 111918 | 111919 | 111920 | 111921 | 111922 | 113571 | 113572 | 113573 | 113574 | 113575 | 113576 | 113577 | 113578 | 115172 | 115173 | 115174 | 115175 | 115176 | 115177 | 115178 | 115179 | 115180 | 118649 | 118650 | 118651 | 118652 | 118653 | 118654 | 118655 | 118656 | 118657 | 118658 | 118681 | 118682 | 118683 | 118684 | 118685 | 118686 | 118687 | 118688 | 118689 | 118690 | 122433 | 122434 | 122435 | 122436 | 122437 | 122438 | 122439 | 122440 | 122441 | 122442 | 124258 | 124259 | 124260 | 124261 | 124262 | 124263 | 124264 | 124265 | 124266 | 124313 | 125447 | 125763 | 125764 | 125765