From 7d1b435d425bae4cb62269cc9a3d57acb0b6b21e Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 21 Jun 2004 07:51:41 +0000 Subject: [PATCH] importing iso2709 authority file --- misc/bulkauthimport.pl | 121 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 121 insertions(+) create mode 100755 misc/bulkauthimport.pl diff --git a/misc/bulkauthimport.pl b/misc/bulkauthimport.pl new file mode 100755 index 0000000000..728a1f1f09 --- /dev/null +++ b/misc/bulkauthimport.pl @@ -0,0 +1,121 @@ +#!/usr/bin/perl +# small script that import an iso2709 file into koha 2.0 + +use strict; + +# Koha modules used +use MARC::File::USMARC; +use MARC::Record; +use MARC::Batch; +use C4::Context; +use C4::AuthoritiesMarc; +use Time::HiRes qw(gettimeofday); + +use Getopt::Long; +my ( $input_marc_file, $number) = ('',0); +my ($version, $delete, $test_parameter,$char_encoding, $verbose); +GetOptions( + 'file:s' => \$input_marc_file, + 'n' => \$number, + 'h' => \$version, + 'd' => \$delete, + 't' => \$test_parameter, + 'c:s' => \$char_encoding, + 'v:s' => \$verbose, +); + +if ($version || ($input_marc_file eq '')) { + print <dbh; + +if ($delete) { + print "deleting authorities\n"; + $dbh->do("delete from auth_header"); + $dbh->do("delete from auth_subfield_table"); + $dbh->do("delete from auth_word"); +} +if ($test_parameter) { + print "TESTING MODE ONLY\n DOING NOTHING\n===============\n"; +} + +$char_encoding = 'MARC21' unless ($char_encoding); +print "CHAR : $char_encoding\n" if $verbose; +my $starttime = gettimeofday; +my $batch = MARC::Batch->new( 'USMARC', $input_marc_file ); +$batch->warnings_off(); +$batch->strict_off(); +my $i=0; +while ( my $record = $batch->next() ) { + $i++; + #now, parse the record, extract the item fields, and store them in somewhere else. + + ## create an empty record object to populate + my $newRecord = MARC::Record->new(); + $newRecord->leader($record->leader); + # go through each field in the existing record + foreach my $oldField ( $record->fields() ) { + # just reproduce tags < 010 in our new record + if ( $oldField->tag() < 10 ) { + $newRecord->append_fields( $oldField ); + next(); + } + # store our new subfield data in this list + my @newSubfields = (); + + # go through each subfield code/data pair + foreach my $pair ( $oldField->subfields() ) { + $pair->[1] =~ s/\[1] =~ s/\>//g; + push( @newSubfields, $pair->[0], char_decode($pair->[1],$char_encoding) ); + } + + # add the new field to our new record + my $newField = MARC::Field->new( + $oldField->tag(), + $oldField->indicator(1), + $oldField->indicator(2), + @newSubfields + ); + $newRecord->append_fields( $newField ); + } + warn "$i ==>".$newRecord->as_formatted() if $verbose eq 2; + my $authtypecode=substr($newRecord->leader(),9,1); + $authtypecode="NP" if ($authtypecode eq 'a'); # personnes + $authtypecode="CO" if ($authtypecode eq 'b'); # collectivités + $authtypecode="NG" if ($authtypecode eq 'c'); # géographique + $authtypecode="NM" if ($authtypecode eq 'd'); # marque + $authtypecode="NF" if ($authtypecode eq 'e'); # famille + $authtypecode="TI" if ($authtypecode eq 'f'); # Titre uniforme + $authtypecode="TI" if ($authtypecode eq 'h'); # auteur/titre + $authtypecode="MM" if ($authtypecode eq 'j'); # mot matière + warn "XX => $authtypecode"; + # now, create biblio and items with NEWnewXX call. + unless ($test_parameter) { + my ($authid) = AUTHaddauthority($dbh,$newRecord,0,$authtypecode); + warn "ADDED authority NB $authid in DB\n" if $verbose; + } +} +# $dbh->do("unlock tables"); +my $timeneeded = gettimeofday - $starttime; +print "$i MARC record done in $timeneeded seconds"; -- 2.39.5