From 6a2d9ffcf2df3bbed780954c423884991d64504a Mon Sep 17 00:00:00 2001 From: Brian Harrington Date: Mon, 8 Jun 2009 15:43:20 -0400 Subject: [PATCH] Bug 3313, bulkauthimport.pl skips MARC21 subdivision records. This patch adds the MARC21 subdivsion record tags (18x) to the block which recognizes and assigns authtypecodes to imported authority records. Signed-off-by: Galen Charlton --- misc/migration_tools/bulkauthimport.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/misc/migration_tools/bulkauthimport.pl b/misc/migration_tools/bulkauthimport.pl index e9d1e83e3c..d3dcadcea7 100755 --- a/misc/migration_tools/bulkauthimport.pl +++ b/misc/migration_tools/bulkauthimport.pl @@ -121,10 +121,10 @@ RECORD: while ( my $record = $batch->next() ) { $authtypecode="CORPO_NAME" if ($record->field('110')); $authtypecode="MEETI_NAME" if ($record->field('111')); $authtypecode="UNIF_TITLE" if ($record->field('130')); - $authtypecode="CHRON_TERM" if ($record->field('148')); - $authtypecode="TOPIC_TERM" if ($record->field('150')); - $authtypecode="GEOGR_NAME" if ($record->field('151')); - $authtypecode="GENRE/FORM" if ($record->field('155')); + $authtypecode="CHRON_TERM" if ($record->field('148') or $record->field('182')); + $authtypecode="TOPIC_TERM" if ($record->field('150') or $record->field('180')); + $authtypecode="GEOGR_NAME" if ($record->field('151') or $record->field('181')); + $authtypecode="GENRE/FORM" if ($record->field('155') or $record->field('185')); next unless $authtypecode; # skip invalid records FIXME: far too simplistic } else { -- 2.39.2