|
Lines 1331-1337
sub merge {
Link Here
|
| 1331 |
my $rec; |
1331 |
my $rec; |
| 1332 |
$rec=$oResult->record($z); |
1332 |
$rec=$oResult->record($z); |
| 1333 |
my $marcdata = $rec->raw(); |
1333 |
my $marcdata = $rec->raw(); |
| 1334 |
push @reccache, $marcdata; |
1334 |
my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour")); |
|
|
1335 |
my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' ); |
| 1336 |
my $i = $marcrecordzebra->subfield($biblionumbertagfield, $biblionumbertagsubfield); |
| 1337 |
my $marcrecorddb=GetMarcBiblio($i); |
| 1338 |
push @reccache, $marcrecorddb; |
| 1335 |
$z++; |
1339 |
$z++; |
| 1336 |
} |
1340 |
} |
| 1337 |
$oResult->destroy(); |
1341 |
$oResult->destroy(); |
|
Lines 1357-1363
sub merge {
Link Here
|
| 1357 |
# May be used as a template for a bulkedit field |
1361 |
# May be used as a template for a bulkedit field |
| 1358 |
foreach my $marcrecord(@reccache){ |
1362 |
foreach my $marcrecord(@reccache){ |
| 1359 |
my $update; |
1363 |
my $update; |
| 1360 |
$marcrecord= MARC::Record->new_from_xml($marcrecord,"utf8",C4::Context->preference("marcflavour")) unless(C4::Context->preference('NoZebra')); |
|
|
| 1361 |
foreach my $tagfield (@tags_using_authtype){ |
1364 |
foreach my $tagfield (@tags_using_authtype){ |
| 1362 |
# warn "tagfield : $tagfield "; |
1365 |
# warn "tagfield : $tagfield "; |
| 1363 |
foreach my $field ($marcrecord->field($tagfield)){ |
1366 |
foreach my $field ($marcrecord->field($tagfield)){ |
| 1364 |
- |
|
|