From f0b3b15858cdb141e06adc599c20cf6b2916d9a8 Mon Sep 17 00:00:00 2001 From: jeremy breuillard Date: Fri, 15 Oct 2021 14:37:12 +0000 Subject: [PATCH] Bug 22204: use barcodedecode from C4/Circulation in additem.pl --- cataloguing/additem.pl | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index e309aac..29ad3c0 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -37,7 +37,7 @@ use C4::Biblio qw( ); use C4::Items qw( AddItemFromMarc ModItemFromMarc ); use C4::Context; -use C4::Circulation qw( LostItem ); +use C4::Circulation qw( LostItem barcodedecode ); use C4::Koha qw( GetAuthorisedValues ); use C4::ClassSource qw( GetClassSources GetClassSource ); use Koha::DateUtils qw( dt_from_string ); @@ -84,15 +84,14 @@ sub get_item_from_barcode { return($result); } -sub _trim_barcode { +sub _barcodedecode { my ($record) = @_; my ($tagfield, $tagsubfield) = GetMarcFromKohaField('items.barcode'); my $item_field = $record->field($tagfield); my $barcode = $item_field->subfield($tagsubfield); if ($barcode) { - $barcode =~ s/^\s+//; - $barcode =~ s/\s+$//; + $barcode = barcodedecode($barcode); $item_field->update($tagsubfield => $barcode); } } @@ -525,7 +524,7 @@ if ($op eq "additem") { $add_duplicate_submit = 1 if ($prefillitem); $justaddeditem = 1; - _trim_barcode($record); + _barcodedecode($record); # if autoBarcode is set to 'incremental', calculate barcode... if ( C4::Context->preference('autoBarcode') eq 'incremental' ) { -- 2.25.1