Lines 1356-1362
sub merge {
Link Here
|
1356 |
my $marcdata = $rec->raw(); |
1356 |
my $marcdata = $rec->raw(); |
1357 |
my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour")); |
1357 |
my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour")); |
1358 |
my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' ); |
1358 |
my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' ); |
1359 |
my $i = $marcrecordzebra->subfield($biblionumbertagfield, $biblionumbertagsubfield); |
1359 |
my $i = ($biblionumbertagfield < 10) ? $marcrecordzebra->field($biblionumbertagfield)->data : $marcrecordzebra->subfield($biblionumbertagfield, $biblionumbertagsubfield); |
1360 |
my $marcrecorddb=GetMarcBiblio($i); |
1360 |
my $marcrecorddb=GetMarcBiblio($i); |
1361 |
push @reccache, $marcrecorddb; |
1361 |
push @reccache, $marcrecorddb; |
1362 |
$z++; |
1362 |
$z++; |