[Koha-devel] CVS: koha/C4 Catalogue.pm,1.2,1.3
Steve Tonnesen
tonnesen at users.sourceforge.net
Tue Jun 26 19:15:15 CEST 2001
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv29042
Modified Files:
Catalogue.pm
Log Message:
Beginning updateBiblio routine.
Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Catalogue.pm 2001/06/25 19:43:59 1.2
--- Catalogue.pm 2001/06/26 17:15:13 1.3
***************
*** 12,16 ****
@ISA = qw(Exporter);
@EXPORT = qw(&newBiblio &newBiblioItem &newItem &updateBiblio &updateBiblioItem
! &updateItem);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
--- 12,16 ----
@ISA = qw(Exporter);
@EXPORT = qw(&newBiblio &newBiblioItem &newItem &updateBiblio &updateBiblioItem
! &updateItem &changeSubfield);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
***************
*** 52,55 ****
--- 52,57 ----
sub newBiblio {
+ # This subroutine makes no modifications to the MARC tables. MARC records are
+ # only created when new biblioitems are added.
my ($env, $biblio) = @_;
my $title=$biblio->{'title'};
***************
*** 64,67 ****
--- 66,103 ----
}
+
+ sub changeSubfield {
+ # Subroutine changes a subfield value given a Record_ID, Tag, and Subfield_Mark.
+ # Routine should be made more robust. It currently checks to make sure that
+ # the existing Subfield_Value is the same as the one passed in. What if no
+ # subfield matches this Subfield_OldValue? Create a new Subfield? Maybe check
+ # to make sure that the mark is repeatable first and that no other subfield
+ # with that mark already exists? Ability to return errors and status?
+ #
+ # Also, currently, if more than one subfield matches the Record_ID, Tag,
+ # Subfield_Mark, and Subfield_OldValue, only the first one will be modified.
+ #
+ # Might be nice to be able to pass a Subfield_ID directly to this routine to
+ # remove ambiguity, if possible.
+
+ my $Record_ID=shift;
+ my $tag=shift;
+ my $firstdigit=substr($tag, 0, 1);
+ my $Subfield_Mark=shift;
+ my $Subfield_OldValue=shift;
+ my $Subfield_Value=shift;
+ my $dbh=&C4Connect;
+ my $sth=$dbh->prepare("select S.Subfield_ID, S.Subfield_Value from Bib_Table B, $firstdigit\XX_Tag_Table T, $firstdigit\XX_Subfield_Table S where B.Record_ID=$Record_ID and B.Tag_$firstdigit\XX_ID=T.Tag_ID and T.Subfield_ID=S.Subfield_ID and S.Subfield_Mark='$Subfield_Mark'");
+ $sth->execute;
+ while (my ($ID, $Value) = $sth->fetchrow) {
+ if ($Value eq $Subfield_OldValue) {
+ my $q_Subfield_Value=$dbh->quote($Subfield_Value);
+ my $sti=$dbh->prepare("update $firstdigit\XX_Subfield_Table set Subfield_Value=$q_Subfield_Value where Subfield_ID=$ID");
+ $sti->execute;
+ last;
+ }
+ }
+ }
+
sub updateBiblio {
# Update the biblio with biblionumber $biblio->{'biblionumber'}
***************
*** 73,81 ****
--- 109,194 ----
# to the existing record and _LOG ALL CHANGES MADE_ in some way. I'd like for
# this logging feature to be usable to undo changes easily.
+ #
+ # Need to add support for bibliosubject, additionalauthors, bibliosubtitle tables
+
my ($env, $biblio) = @_;
+ my $biblionumber=$biblio->{'biblionumber'};
+ my $dbh=&C4Connect;
+ my $sth=$dbh->prepare("select * from biblio where biblionumber=$biblionumber");
+ $sth->execute;
+ my $origbiblio=$sth->fetchrow_hashref;
+
+
+ # Obtain a list of MARC Record_ID's that are tied to this biblio
+ $sth=$dbh->prepare("select B.Record_ID from Bib_Table B, 0XX_Tag_Table T, 0XX_Subfield_Table S where B.Tag_0XX_ID=T.Tag_ID and T.Subfield_ID=S.Subfield_ID and T.Tag='090' and S.Subfield_Value=$biblionumber and S.Subfield_Mark='c'");
+ $sth->execute;
+ my @marcrecords;
+ while (my ($Record_ID) = $sth->fetchrow) {
+ push(@marcrecords, $Record_ID);
+ }
+
+
+
+ if ($biblio->{'author'} ne $origbiblio->{'author'}) {
+ my $q_author=$dbh->quote($biblio->{'author'});
+ logchange('kohadb', 'biblio', 'author', $origbiblio->{'author'}, $biblio->{'author'});
+ my $sti=$dbh->prepare("update biblio set author=$q_author where biblionumber=$biblio->{'biblionumber'}");
+ $sti->execute;
+ logchange('marc', '100', 'a', $origbiblio->{'author'}, $biblio->{'author'});
+ foreach (@marcrecords) {
+ changeSubfield($_, '100', 'a', $origbiblio->{'author'}, $biblio->{'author'});
+ }
+ }
+ if ($biblio->{'title'} ne $origbiblio->{'title'}) {
+ my $q_title=$dbh->quote($biblio->{'title'});
+ logchange('kohadb', 'biblio', 'title', $origbiblio->{'title'}, $biblio->{'title'});
+ my $sti=$dbh->prepare("update biblio set title=$q_title where biblionumber=$biblio->{'biblionumber'}");
+ $sti->execute;
+ }
+ if ($biblio->{'unititle'} ne $origbiblio->{'unititle'}) {
+ my $q_unititle=$dbh->quote($biblio->{'unititle'});
+ logchange('kohadb', 'biblio', 'unititle', $origbiblio->{'unititle'}, $biblio->{'unititle'});
+ my $sti=$dbh->prepare("update biblio set unititle=$q_unititle where biblionumber=$biblio->{'biblionumber'}");
+ $sti->execute;
+ }
+ if ($biblio->{'notes'} ne $origbiblio->{'notes'}) {
+ my $q_notes=$dbh->quote($biblio->{'notes'});
+ logchange('kohadb', 'biblio', 'notes', $origbiblio->{'notes'}, $biblio->{'notes'});
+ my $sti=$dbh->prepare("update biblio set notes=$q_notes where biblionumber=$biblio->{'biblionumber'}");
+ $sti->execute;
+ }
+ if ($biblio->{'serial'} ne $origbiblio->{'serial'}) {
+ my $q_serial=$dbh->quote($biblio->{'serial'});
+ logchange('kohadb', 'biblio', 'serial', $origbiblio->{'serial'}, $biblio->{'serial'});
+ my $sti=$dbh->prepare("update biblio set serial=$q_serial where biblionumber=$biblio->{'biblionumber'}");
+ $sti->execute;
+ }
+ if ($biblio->{'seriestitle'} ne $origbiblio->{'seriestitle'}) {
+ my $q_seriestitle=$dbh->quote($biblio->{'seriestitle'});
+ logchange('kohadb', 'biblio', 'seriestitle', $origbiblio->{'seriestitle'}, $biblio->{'seriestitle'});
+ my $sti=$dbh->prepare("update biblio set seriestitle=$q_seriestitle where biblionumber=$biblio->{'biblionumber'}");
+ $sti->execute;
+ }
+ if ($biblio->{'copyrightdate'} ne $origbiblio->{'copyrightdate'}) {
+ my $q_copyrightdate=$dbh->quote($biblio->{'copyrightdate'});
+ logchange('kohadb', 'biblio', 'copyrightdate', $origbiblio->{'copyrightdate'}, $biblio->{'copyrightdate'});
+ my $sti=$dbh->prepare("update biblio set copyrightdate=$q_copyrightdate where biblionumber=$biblio->{'biblionumber'}");
+ $sti->execute;
+ }
}
+ sub logchange {
+ # Subroutine to log changes to databases
+ my $database=shift;
+ my $section=shift;
+ my $item=shift;
+ my $original=shift;
+ my $new=shift;
+ }
sub addTag {
+ # Subroutine to add a tag to an existing MARC Record. If a new linkage id is
+ # desired, set $env->{'linkage'} to 1. If an existing linkage id should be
+ # set, set $env->{'linkid'} to the link number.
my ($env, $Record_ID, $tag, $Indicator1, $Indicator2, $subfields) = @_;
my $dbh=&C4Connect;
***************
*** 127,130 ****
--- 240,244 ----
my $dbh=&C4Connect;
my $biblionumber=$biblioitem->{'biblionumber'};
+ my $biblioitemnumber=$biblioitem->{'biblioitemnumber'};
my $volume=$biblioitem->{'volume'};
my $number=$biblioitem->{'number'};
***************
*** 291,294 ****
--- 405,412 ----
$subfields->{2}->{'Subfield_Mark'}='b';
$subfields->{2}->{'Subfield_Value'}=$subclass;
+ $subfields->{3}->{'Subfield_Mark'}='c';
+ $subfields->{3}->{'Subfield_Value'}=$biblionumber;
+ $subfields->{4}->{'Subfield_Mark'}='d';
+ $subfields->{4}->{'Subfield_Value'}=$biblioitemnumber;
my $tag='090';
addTag($env, $Record_ID, $tag, ' ', ' ', $subfields);
***************
*** 434,438 ****
# modified, and log all changes.
! my ($env, $biblio) = @_;
}
--- 552,556 ----
# modified, and log all changes.
! my ($env, $item) = @_;
}
More information about the Koha-devel
mailing list