Lines 37-43
use C4::Biblio qw(
Link Here
|
37 |
); |
37 |
); |
38 |
use C4::Items qw( AddItemFromMarc ModItemFromMarc ); |
38 |
use C4::Items qw( AddItemFromMarc ModItemFromMarc ); |
39 |
use C4::Context; |
39 |
use C4::Context; |
40 |
use C4::Circulation qw( LostItem ); |
40 |
use C4::Circulation qw( LostItem barcodedecode ); |
41 |
use C4::Koha qw( GetAuthorisedValues ); |
41 |
use C4::Koha qw( GetAuthorisedValues ); |
42 |
use C4::ClassSource qw( GetClassSources GetClassSource ); |
42 |
use C4::ClassSource qw( GetClassSources GetClassSource ); |
43 |
use Koha::DateUtils qw( dt_from_string ); |
43 |
use Koha::DateUtils qw( dt_from_string ); |
Lines 84-98
sub get_item_from_barcode {
Link Here
|
84 |
return($result); |
84 |
return($result); |
85 |
} |
85 |
} |
86 |
|
86 |
|
87 |
sub _trim_barcode { |
87 |
sub _barcodedecode { |
88 |
my ($record) = @_; |
88 |
my ($record) = @_; |
89 |
|
89 |
|
90 |
my ($tagfield, $tagsubfield) = GetMarcFromKohaField('items.barcode'); |
90 |
my ($tagfield, $tagsubfield) = GetMarcFromKohaField('items.barcode'); |
91 |
my $item_field = $record->field($tagfield); |
91 |
my $item_field = $record->field($tagfield); |
92 |
my $barcode = $item_field->subfield($tagsubfield); |
92 |
my $barcode = $item_field->subfield($tagsubfield); |
93 |
if ($barcode) { |
93 |
if ($barcode) { |
94 |
$barcode =~ s/^\s+//; |
94 |
$barcode = barcodedecode($barcode); |
95 |
$barcode =~ s/\s+$//; |
|
|
96 |
$item_field->update($tagsubfield => $barcode); |
95 |
$item_field->update($tagsubfield => $barcode); |
97 |
} |
96 |
} |
98 |
} |
97 |
} |
Lines 525-531
if ($op eq "additem") {
Link Here
|
525 |
$add_duplicate_submit = 1 if ($prefillitem); |
524 |
$add_duplicate_submit = 1 if ($prefillitem); |
526 |
$justaddeditem = 1; |
525 |
$justaddeditem = 1; |
527 |
|
526 |
|
528 |
_trim_barcode($record); |
527 |
_barcodedecode($record); |
529 |
|
528 |
|
530 |
# if autoBarcode is set to 'incremental', calculate barcode... |
529 |
# if autoBarcode is set to 'incremental', calculate barcode... |
531 |
if ( C4::Context->preference('autoBarcode') eq 'incremental' ) { |
530 |
if ( C4::Context->preference('autoBarcode') eq 'incremental' ) { |
532 |
- |
|
|