|
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 |
- |
|
|