View | Details | Raw Unified | Return to bug 22204
Collapse All | Expand All

(-)a/cataloguing/additem.pl (-6 / +4 lines)
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
- 

Return to bug 22204