[Koha-patches] [PATCH] Bug 3313, bulkauthimport.pl skips MARC21 subdivision records.
Brian Harrington
brian at jhu.edu
Mon Jun 8 21:43:20 CEST 2009
This patch adds the MARC21 subdivsion record tags (18x) to the
block which recognizes and assigns authtypecodes to imported
authority records.
---
misc/migration_tools/bulkauthimport.pl | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/misc/migration_tools/bulkauthimport.pl b/misc/migration_tools/bulkauthimport.pl
index e9d1e83..d3dcadc 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 {
--
1.6.0.4
More information about the Koha-patches
mailing list