Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

#1473: MARCfindbreeding breaks MARC21 records in reservoir

Browse source 
doesn't change anything for UNIMARC (as expected), UNTESTED for MARC21, pls test it

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Paul POULAIN 2007-10-08 14:24:31 -05:00 committed by Joshua Ferraro
parent 7ec8571d88
commit e36f63bfc4
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
cataloguing/addbiblio.pl
View file

@ -57,20 +57,21 @@ sub MARCfindbreeding {
$dbh->prepare("select file,marc,encoding from marc_breeding where id=?");
$sth->execute($id);
my ( $file, $marc, $encoding ) = $sth->fetchrow;
# remove the - in isbn, koha store isbn without any -
if ($marc) {
my $record = MARC::Record->new_from_usmarc($marc);
if ( $record->field('010') ) {
foreach my $field ( $record->field('010') ) {
foreach my $subfield ( $field->subfield('a') ) {
my $newisbn = $field->subfield('a');
my ($isbnfield,$isbnsubfield) = GetMarcFromKohaField('biblioitems.isbn','');
if ( $record->field($isbnfield) ) {
foreach my $field ( $record->field($isbnfield) ) {
foreach my $subfield ( $field->subfield($isbnsubfield) ) {
my $newisbn = $field->subfield($isbnsubfield);
$newisbn =~ s/-//g;
$field->update( 'a' => $newisbn );
$field->update( $isbnsubfield => $newisbn );
}
# record->insert_fields_ordered($record->field('010'));
}
}
if ($record->subfield(100,'a')) {
# fix the unimarc 100 coded field (with unicode information)
if (C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield(100,'a')) {
my $f100a=$record->subfield(100,'a');
my $f100 = $record->field(100);
my $f100temp = $f100->as_string;
@ -87,6 +88,7 @@ sub MARCfindbreeding {
return -1;
}
else {
# normalize author : probably UNIMARC specific...
if ( C4::Context->preference("z3950NormalizeAuthor")
and C4::Context->preference("z3950AuthorAuthFields") )
{