Attachment 109532 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), 11.88 KB, created by Kyle M Hall (khall) on 2020-09-02 13:33:18 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2020-09-02 13:33:18 UTC

Size: 11.88 KB

patch

obsolete

>From dd4c7b0a627007379c1882822a14615afd7c4b0a 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>
>---
> C4/Circulation.pm                     | 2 ++
> 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, 50 insertions(+), 1 deletion(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index 3571051e84..794bb76f8e 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -58,6 +58,7 @@ use Koha::Config::SysPrefs;
> use Koha::Charges::Fees;
> use Koha::Util::SystemPreferences;
> use Koha::Checkouts::ReturnClaims;
>+use Koha::Plugins;
> use Carp;
> use List::MoreUtils qw( uniq any );
> use Scalar::Util qw( looks_like_number );
>@@ -173,6 +174,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 );
>     $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 5ebba3435d..07b00c3bdf 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;
>@@ -613,6 +614,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 );
>     if ($barcode) {
>         my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $barcode );
> 
>diff --git a/C4/Items.pm b/C4/Items.pm
>index 22ac2de12c..65de34c72b 100644
>--- a/C4/Items.pm
>+++ b/C4/Items.pm
>@@ -72,6 +72,7 @@ use Koha::ItemTypes;
> use Koha::SearchEngine;
> use Koha::SearchEngine::Search;
> use Koha::Libraries;
>+use Koha::Plugins;
> 
> =head1 NAME
> 
>diff --git a/Koha/Item.pm b/Koha/Item.pm
>index 8dffac4db5..28bce0a5f7 100644
>--- a/Koha/Item.pm
>+++ b/Koha/Item.pm
>@@ -88,6 +88,9 @@ sub store {
>         $self->itype($self->biblio->biblioitem->itemtype);
>     }
> 
>+    my ($transformed_barcode) = Koha::Plugins->call( 'barcode_transform', 'item', $self->barcode );
>+    $self->barcode($transformed_barcode);
>+
>     my $today = dt_from_string;
>     unless ( $self->in_storage ) { #AddItem
>         unless ( $self->permanent_location ) {
>diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
>index 2d0ba7e397..b37409113f 100755
>--- a/cataloguing/additem.pl
>+++ b/cataloguing/additem.pl
>@@ -35,6 +35,7 @@ use Koha::Items;
> use Koha::ItemTypes;
> use Koha::Libraries;
> use Koha::Patrons;
>+use Koha::Plugins;
> use List::MoreUtils qw/any/;
> use C4::Search;
> use Storable qw(thaw freeze);
>@@ -506,6 +507,9 @@ if ($op eq "additem") {
> 
>     my $addedolditem = TransformMarcToKoha( $record );
> 
>+    my ( $new_barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $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 5ec80c8f15..0ba39cabd1 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;
>@@ -166,6 +167,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 );
> }
> 
> my $stickyduedate  = $query->param('stickyduedate') || $session->param('stickyduedate');
>diff --git a/circ/returns.pl b/circ/returns.pl
>index e1bce3c3f1..5a029d44aa 100755
>--- a/circ/returns.pl
>+++ b/circ/returns.pl
>@@ -56,6 +56,7 @@ use Koha::DateUtils;
> use Koha::Holds;
> use Koha::Items;
> use Koha::Patrons;
>+use Koha::Plugins;
> 
> my $query = new CGI;
> 
>@@ -114,6 +115,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 = barcodedecode($barcode) if(C4::Context->preference('itemBarcodeInputFilter'));
> 
>     ######################
>@@ -246,6 +248,7 @@ if ($canceltransfer){
> my $returnbranch;
> if ($barcode) {
>     $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace
>+    ( $barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $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 935440b55b..138f8d7c7f 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 );
> 
>@@ -247,6 +248,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} = $new_barcode;
>+
>     my $branchcode = C4::Context->userenv->{branch};
>     my $patron = Koha::Patrons->find( { cardnumber => $circ->{cardnumber} } );
>     my $borrower = $patron->unblessed;
>@@ -327,6 +332,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} = $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 83a37aca46..fbf2d064d9 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 = new CGI;
>@@ -110,6 +111,8 @@ my ($op, $patronid, $patronlogin, $patronpw, $barcode, $confirmed, $newissues) =
>     $query->param("newissues")  || '',
> );
> 
>+( $barcode ) = Koha::Plugins->call( 'barcode_transform', 'item', $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 f49bd252fc..bf5c33c524 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 => 53;
>+use Test::More tests => 55;
> 
> use C4::Context;
> use Koha::Database;
>@@ -181,6 +181,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 06b24d619a..1133996fda 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 83a052b318..ca43d5e4c2 100755
>--- a/tools/batchMod.pl
>+++ b/tools/batchMod.pl
>@@ -44,6 +44,7 @@ use Koha::DateUtils;
> use Koha::Items;
> use Koha::ItemTypes;
> use Koha::Patrons;
>+use Koha::Plugins;
> 
> my $input = new CGI;
> my $dbh = C4::Context->dbh;
>@@ -383,6 +384,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 13b7a538a5..3474a85131 100755
>--- a/tools/inventory.pl
>+++ b/tools/inventory.pl
>@@ -41,6 +41,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') || '';
>@@ -171,6 +173,9 @@ if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) {
>     }
>     for my $barcode (@uploadedbarcodes) {
>         next unless $barcode;
>+
>+        ($barcode) = Koha::Plugins->call('barcode_transform', 'item', $barcode );
>+
>         ++$lines_read;
>         if (length($barcode)>$barcode_size) {
>             $err_length += 1;
>-- 
>2.24.1 (Apple Git-126)

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