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

(-)a/cataloguing/additem.pl (-17 lines)
Lines 58-79 use MIME::Base64 qw( decode_base64url encode_base64url ); Link Here
58
58
59
our $dbh = C4::Context->dbh;
59
our $dbh = C4::Context->dbh;
60
60
61
sub find_value {
62
    my ($tagfield,$insubfield,$record) = @_;
63
    my $result;
64
    my $indicator;
65
    foreach my $field ($record->field($tagfield)) {
66
        my @subfields = $field->subfields();
67
        foreach my $subfield (@subfields) {
68
            if (@$subfield[0] eq $insubfield) {
69
                $result .= @$subfield[1];
70
                $indicator = $field->indicator(1).$field->indicator(2);
71
            }
72
        }
73
    }
74
    return($indicator,$result);
75
}
76
77
sub get_item_from_barcode {
61
sub get_item_from_barcode {
78
    my ($barcode)=@_;
62
    my ($barcode)=@_;
79
    my $dbh=C4::Context->dbh;
63
    my $dbh=C4::Context->dbh;
80
- 

Return to bug 29111