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

(-)a/C4/AuthoritiesMarc.pm (-1 / +1 lines)
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++;
(-)a/misc/batchImportMARCWithBiblionumbers.pl (-2 / +1 lines)
Lines 56-62 my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField("biblio.biblionumbe Link Here
56
56
57
my $i=0;
57
my $i=0;
58
while ( my $record = $batch->next() ) {
58
while ( my $record = $batch->next() ) {
59
	my $biblionumber=$record->field($tagfield)->subfield($biblionumtagsubfield);
59
	my $biblionumber = ($tagfield < 10) ? $record->field($tagfield)->data : $record->subfield($tagfield, $biblionumtagsubfield);
60
	$i++;
60
	$i++;
61
	$sth2->execute($record->as_usmarc,$biblionumber) if $biblionumber;
61
	$sth2->execute($record->as_usmarc,$biblionumber) if $biblionumber;
62
	print "$biblionumber \n";
62
	print "$biblionumber \n";
63
- 

Return to bug 8576