Lines 1312-1318
sub merge {
Link Here
|
1312 |
my $rec; |
1312 |
my $rec; |
1313 |
$rec=$oResult->record($z); |
1313 |
$rec=$oResult->record($z); |
1314 |
my $marcdata = $rec->raw(); |
1314 |
my $marcdata = $rec->raw(); |
1315 |
push @reccache, $marcdata; |
1315 |
my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour")); |
|
|
1316 |
my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' ); |
1317 |
my $i = $marcrecordzebra->subfield($biblionumbertagfield, $biblionumbertagsubfield); |
1318 |
my $marcrecorddb=GetMarcBiblio($i); |
1319 |
push @reccache, $marcrecorddb; |
1316 |
$z++; |
1320 |
$z++; |
1317 |
} |
1321 |
} |
1318 |
$oResult->destroy(); |
1322 |
$oResult->destroy(); |
Lines 1338-1344
sub merge {
Link Here
|
1338 |
# May be used as a template for a bulkedit field |
1342 |
# May be used as a template for a bulkedit field |
1339 |
foreach my $marcrecord(@reccache){ |
1343 |
foreach my $marcrecord(@reccache){ |
1340 |
my $update; |
1344 |
my $update; |
1341 |
$marcrecord= MARC::Record->new_from_xml($marcrecord,"utf8",C4::Context->preference("marcflavour")) unless(C4::Context->preference('NoZebra')); |
|
|
1342 |
foreach my $tagfield (@tags_using_authtype){ |
1345 |
foreach my $tagfield (@tags_using_authtype){ |
1343 |
# warn "tagfield : $tagfield "; |
1346 |
# warn "tagfield : $tagfield "; |
1344 |
foreach my $field ($marcrecord->field($tagfield)){ |
1347 |
foreach my $field ($marcrecord->field($tagfield)){ |
1345 |
- |
|
|