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

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-3 / +13 lines)
Lines 129-136 use C4::Biblio qw( GetMarcFromKohaField ); Link Here
129
            push @decoding_errors, $@;
129
            push @decoding_errors, $@;
130
            next;
130
            next;
131
        }
131
        }
132
        my $biblionumber = $record->subfield($biblio_tag, $biblio_subfield);
132
        my ( $biblionumber, $biblioitemnumber );
133
        my $biblioitemnumber = $record->subfield($biblioitem_tag, $biblioitem_subfield);
133
        if ( $biblio_tag < 10 ) {
134
            my $biblio_control_field = $record->field($biblio_tag);
135
            $biblionumber = $biblio_control_field->data if $biblio_control_field;
136
        } else {
137
            $biblionumber = $record->subfield( $biblio_tag, $biblio_subfield );
138
        }
139
        if ( $biblioitem_tag < 10 ) {
140
            my $biblioitem_control_field = $record->field($biblioitem_tag);
141
            $biblioitemnumber = $biblioitem_control_field->data if $biblioitem_control_field;
142
        } else {
143
            $biblioitemnumber = $record->subfield( $biblioitem_tag, $biblioitem_subfield );
144
        }
134
        if ( $biblionumber != $biblio->biblionumber ) {
145
        if ( $biblionumber != $biblio->biblionumber ) {
135
            push @ids_not_in_marc,
146
            push @ids_not_in_marc,
136
              {
147
              {
137
- 

Return to bug 33603