@@ -, +, @@ always pass though barcodedecode --- C4/ILSDI/Services.pm | 3 +-- Koha/Item.pm | 3 +-- cataloguing/additem.pl | 3 +-- circ/circulation.pl | 4 +--- circ/returns.pl | 6 ++---- offline_circ/process_koc.pl | 9 ++------- opac/sco/sco-main.pl | 2 +- tools/batchMod.pl | 2 +- tools/inventory.pl | 2 +- 9 files changed, 11 insertions(+), 23 deletions(-) --- a/C4/ILSDI/Services.pm +++ a/C4/ILSDI/Services.pm @@ -613,8 +613,7 @@ sub GetServices { # Issuing management my $barcode = $item->barcode || ''; - $barcode = barcodedecode($barcode) if ( $barcode && C4::Context->preference('itemBarcodeInputFilter') ); - ($barcode) = Koha::Plugins->call('item_barcode_transform', $barcode ) || $barcode; + $barcode = barcodedecode($barcode) if $barcode; if ($barcode) { my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $barcode ); --- a/Koha/Item.pm +++ a/Koha/Item.pm @@ -89,8 +89,7 @@ sub store { $self->itype($self->biblio->biblioitem->itemtype); } - my ($transformed_barcode) = Koha::Plugins->call( 'item_barcode_transform', $self->barcode ) || $self->barcode; - $self->barcode($transformed_barcode); + $self->barcode( barcodedecode( $self->barcode ) ); my $today = dt_from_string; my $plugin_action = 'create'; --- a/cataloguing/additem.pl +++ a/cataloguing/additem.pl @@ -517,8 +517,7 @@ if ($op eq "additem") { my $addedolditem = TransformMarcToKoha( $record ); - my ( $new_barcode ) = Koha::Plugins->call( 'item_barcode_transform', $addedolditem->{'barcode'} ) || $addedolditem->{'barcode'}; - $addedolditem->{'barcode'} = $new_barcode; + $addedolditem->{barcode} = barcodedecode( $addedolditem->{barcode} ); # If we have to add or add & duplicate, we add the item if ( $add_submit || $add_duplicate_submit ) { --- a/circ/circulation.pl +++ a/circ/circulation.pl @@ -164,9 +164,7 @@ if (C4::Context->preference("DisplayClearScreenButton")) { 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( 'item_barcode_transform', $barcode ) || $barcode; + $barcode = barcodedecode( $barcode ) if $barcode; } my $stickyduedate = $query->param('stickyduedate') || $session->param('stickyduedate'); --- a/circ/returns.pl +++ a/circ/returns.pl @@ -114,8 +114,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( 'item_barcode_transform', $barcode ) || $barcode; - $barcode = barcodedecode($barcode) if(C4::Context->preference('itemBarcodeInputFilter')); + $barcode = barcodedecode($barcode) if $barcode; ###################### #Are these lines still useful ? @@ -244,8 +243,7 @@ if ($canceltransfer){ my $returnbranch; if ($barcode) { $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace - ( $barcode ) = Koha::Plugins->call( 'item_barcode_transform', $barcode ) || $barcode; - $barcode = barcodedecode($barcode) if C4::Context->preference('itemBarcodeInputFilter'); + $barcode = barcodedecode($barcode) if $barcode; my $item = Koha::Items->find({ barcode => $barcode }); if ( $item ) { --- a/offline_circ/process_koc.pl +++ a/offline_circ/process_koc.pl @@ -246,10 +246,7 @@ sub arguments_for_command { sub kocIssueItem { my $circ = shift; - $circ->{ 'barcode' } = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter')); - - my ( $new_barcode ) = Koha::Plugins->call( 'item_barcode_transform', $circ->{barcode} ) || $circ->{barcode}; - $circ->{barcode} = $new_barcode; + $circ->{barcode} = barcodedecode( $circ->{barcode} ) if $circ->{barcode}; my $branchcode = C4::Context->userenv->{branch}; my $patron = Koha::Patrons->find( { cardnumber => $circ->{cardnumber} } ); @@ -330,10 +327,8 @@ sub kocIssueItem { sub kocReturnItem { my ( $circ ) = @_; - $circ->{'barcode'} = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter')); - my ( $new_barcode ) = Koha::Plugins->call( 'item_barcode_transform', $circ->{barcode} ) || $circ->{barcode}; - $circ->{barcode} = $new_barcode; + $circ->{barcode} = barcodedecode( $circ->{barcode} ) if $circ->{barcode}; my $item = Koha::Items->find({ barcode => $circ->{barcode} }); my $biblio = $item->biblio; --- a/opac/sco/sco-main.pl +++ a/opac/sco/sco-main.pl @@ -110,7 +110,7 @@ my ($op, $patronid, $patronlogin, $patronpw, $barcode, $confirmed, $newissues) = $query->param("newissues") || '', ); -( $barcode ) = Koha::Plugins->call( 'item_barcode_transform', $barcode ) || $barcode; +$barcode = barcodedecode( $barcode ) if $barcode; my @newissueslist = split /,/, $newissues; my $issuenoconfirm = 1; #don't need to confirm on issue. --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -404,7 +404,7 @@ if ($op eq "show"){ my @barcodelist = grep /\S/, ( split /[$split_chars]/, $list ); @barcodelist = uniq @barcodelist; - @barcodelist = map { ( Koha::Plugins->call( 'item_barcode_transform', $_ ) )[0] || $_ } @barcodelist; + @barcodelist = map { barcodedecode( $_ ) } @barcodelist; # Note: adding lc for case insensitivity my %itemdata = map { lc($_->{barcode}) => $_->{itemnumber} } @{ Koha::Items->search({ barcode => \@barcodelist }, { columns => [ 'itemnumber', 'barcode' ] } )->unblessed }; --- a/tools/inventory.pl +++ a/tools/inventory.pl @@ -179,7 +179,7 @@ if ( ($uploadbarcodes && length($uploadbarcodes) > 0) || ($barcodelist && length for my $barcode (@uploadedbarcodes) { next unless $barcode; - ($barcode) = Koha::Plugins->call('item_barcode_transform', $barcode ) || $barcode; + $barcode = barcodedecode($barcode); ++$lines_read; if (length($barcode)>$barcode_size) { --