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