From dad8b825d34ed9e654516b3086e8c7be7102d759 Mon Sep 17 00:00:00 2001 From: tgarip1957 Date: Fri, 19 May 2006 19:07:09 +0000 Subject: [PATCH] =?utf8?q?This=20script=20modif=FDes=20auth=5Fheader=20tab?= =?utf8?q?le,=20adds=20missing=20fields=20and=20populates=20with=20marc=20?= =?utf8?q?record.=20Only=20to=20be=20used=20when=20updating=20from=202.2?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- misc/marc_into_authority.pl | 110 ++++++++++++++++++++++++++++++++++++ 1 file changed, 110 insertions(+) create mode 100644 misc/marc_into_authority.pl diff --git a/misc/marc_into_authority.pl b/misc/marc_into_authority.pl new file mode 100644 index 0000000000..e900d02daa --- /dev/null +++ b/misc/marc_into_authority.pl @@ -0,0 +1,110 @@ +#!/usr/bin/perl +# script that populates the authorities table with marc +# Written by TG on 10/04/2006 +use strict; + +# Koha modules used + +use C4::Context; +use MARC::Record; +use MARC::File::USMARC; +use MARC::File::XML; +use Time::HiRes qw(gettimeofday); +my $timeneeded; +my $starttime = gettimeofday; + + +my $dbh = C4::Context->dbh; +my $sthcols=$dbh->prepare("show columns from auth_header"); +$sthcols->execute(); +my %columns; +while (( my $cols)=$sthcols->fetchrow){ +$columns{$cols}=1; +} + +##Update the database if missing fields; + $dbh->do("LOCK TABLES auth_header WRITE auth_subfield_table READ"); +unless ($columns{'linkid'}){ +my $sth=$dbh->prepare("ALTER TABLE auth_header ADD COLUMN `linkid` BIGINT(20) UNSIGNED NOT NULL DEFAULT 0 "); +$sth->execute(); +} +unless ($columns{'marc'}){ +my $sth=$dbh->prepare("ALTER TABLE auth_header ADD COLUMN `marc` BLOB NOT NULL DEFAULT 0 "); +$sth->execute(); +} + +my $sth=$dbh->prepare("select authid,authtypecode from auth_header "); + $sth->execute(); + +my $i=0; +my $sth2 = $dbh->prepare("UPDATE auth_header set marc=? where authid=?" ); + + +while (my ($authid,$authtypecode)=$sth->fetchrow ){ + my $record = AUTHgetauthority($dbh,$authid); +$sth2->execute($record->as_usmarc,$authid); +$timeneeded = gettimeofday - $starttime unless ($i % 1000); + print "$i in $timeneeded s\n" unless ($i % 1000); + print "." unless ($i % 500); + $i++; +} +$dbh->do("UNLOCK TABLES "); + +sub AUTHgetauthority { +# Returns MARC::Record of the biblio passed in parameter. + my ($dbh,$authid)=@_; + my $record = MARC::Record->new(); +#---- TODO : the leader is missing + $record->leader(' '); + my $sth3=$dbh->prepare("select authid,subfieldid,tag,tagorder,tag_indicator,subfieldcode,subfieldorder,subfieldvalue + from auth_subfield_table + where authid=? order by tag,tagorder,subfieldorder + "); + $sth3->execute($authid); + my $prevtagorder=1; + my $prevtag='XXX'; + my $previndicator; + my $field; # for >=10 tags + my $prevvalue; # for <10 tags + while (my $row=$sth3->fetchrow_hashref) { + if ($row->{tagorder} ne $prevtagorder || $row->{tag} ne $prevtag) { + $previndicator.=" "; + if ($prevtag <10) { + $record->add_fields((sprintf "%03s",$prevtag),$prevvalue) unless $prevtag eq "XXX"; # ignore the 1st loop + } else { + $record->add_fields($field) unless $prevtag eq "XXX"; + } + undef $field; + $prevtagorder=$row->{tagorder}; + $prevtag = $row->{tag}; + $previndicator=$row->{tag_indicator}; + if ($row->{tag}<10) { + $prevvalue = $row->{subfieldvalue}; + } else { + $field = MARC::Field->new((sprintf "%03s",$prevtag), substr($row->{tag_indicator}.' ',0,1), substr($row->{tag_indicator}.' ',1,1), $row->{'subfieldcode'}, $row->{'subfieldvalue'} ); + } + } else { + if ($row->{tag} <10) { + $record->add_fields((sprintf "%03s",$row->{tag}), $row->{'subfieldvalue'}); + } else { + $field->add_subfields($row->{'subfieldcode'}, $row->{'subfieldvalue'} ); + } + $prevtag= $row->{tag}; + $previndicator=$row->{tag_indicator}; + } + } + # the last has not been included inside the loop... do it now ! + if ($prevtag ne "XXX") { # check that we have found something. Otherwise, prevtag is still XXX and we + # must return an empty record, not make MARC::Record fail because we try to + # create a record with XXX as field :-( + if ($prevtag <10) { + $record->add_fields($prevtag,$prevvalue); + } else { + # my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist); + $record->add_fields($field); + } + } + return $record; +} + +END; \ No newline at end of file -- 2.39.5