- Koha-devel - lists.koha-community.org

CVS: koha/translator - New directory
by Chris Cormack 26 Jun '01

26 Jun '01

Update of /cvsroot/koha/koha/translator In directory usw-pr-cvs1:/tmp/cvs-serv29244/translator Log Message: Directory /cvsroot/koha/koha/translator added to the repository

1 0

CVS: koha/C4 Catalogue.pm,1.4,1.5
by Steve Tonnesen 26 Jun '01

26 Jun '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv15526 Modified Files: Catalogue.pm Log Message: newBiblio subroutine completed. Index: Catalogue.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** Catalogue.pm 2001/06/26 20:17:35 1.4 --- Catalogue.pm 2001/06/26 21:13:01 1.5 *************** *** 56,67 **** my ($env, $biblio) = @_; my $title=$biblio->{'title'}; ! my $author=$biblio->{'author'}; my $subtitle=$biblio->{'subtitle'}; ! my $title=$biblio->{'title'}; my $copyrightdate=$biblio->{'copyrightdate'}; my $serial=$biblio->{'serial'}; my $seriestitle=$biblio->{'seriestitle'}; ! my $unititle=$biblio->{'unititle'}; my $notes=$biblio->{'notes'}; } --- 56,93 ---- my ($env, $biblio) = @_; my $title=$biblio->{'title'}; ! my $q_title=$dbh->quote($title); my $subtitle=$biblio->{'subtitle'}; ! my $q_subtitle=$dbh->quote($subtitle); ! ($q_subtitle) || ($q_subtitle="''"); ! my $author=$biblio->{'author'}; ! my $q_author=$dbh->quote($author); ! my $unititle=$biblio->{'unititle'}; ! my $q_unititle=$dbh->quote($unititle); my $copyrightdate=$biblio->{'copyrightdate'}; my $serial=$biblio->{'serial'}; my $seriestitle=$biblio->{'seriestitle'}; ! my $q_seriestitle=$dbh->quote($seriestitle); my $notes=$biblio->{'notes'}; + my $q_notes=$dbh->quote($notes); + my $subject=$biblio->{'subject'}; + my $additionalauthors=$biblio->{'additionalauthors'}; + my $sth=$dbh->prepare("select max(biblionumber) from biblio"); + $sth->execute; + my ($biblionumber) = $sth->fetchrow; + $biblionumber++; + $sth=$dbh->prepare("insert into biblio (biblionumber,title,author,unititle,copyrightdate,serial,seriestitle,notes) values ($biblionumber,$q_title,$q_author,$q_unititle,$copyrightdate,$serial,$q_seriestitle,$q_notes)"); + $sth->execute; + $sth=$dbh->prepare("insert into bibliosubtitle (biblionumber,subtitle) values ($biblionumber,$q_subtitle)"); + $sth->execute; + foreach (@$subject) { + my $q_subject=$dbh->quote($_); + my $sth=$dbh->prepare("insert into bibliosubject (biblionumber,subject) values ($biblionumber,$q_subject)"); + $sth->execute; + } + foreach (@$additionalauthors) { + my $q_additionalauthor=$dbh->quote($_); + my $sth=$dbh->prepare("insert into additionalauthors (biblionumber,author) values ($biblionumber,$q_additionalauthor)"); + $sth->execute; + } } *************** *** 540,543 **** --- 566,583 ---- my $itemtype=$item->{'itemtype'}; my $subclass=$item->{'subclass'}; + + # KOHADB Section + + unless ($env->{'marconly'}) { + my $sth=$dbh->prepare("select max(itemnumber) from items"); + $sth->execute; + my ($itemnumber) =$sth->fetchrow; + $itemnumber++; + $sth=$dbh->prepare("insert into items (itemnumber,biblionumber,biblioitemnumber,barcode,dateaccessioned,booksellerid,homebranch,price,replacementprice,replacementpricedate,notforloan,itemlost,wthdrawn,restricted,itemnotes) values ($itemnumber,$biblionumber,$biblioitemnumber,$q_barcode,$dateaccessioned,$q_booksellerid,$q_homebranch,$price,$q_replacementpricedate,$notforloan,$itemlost,$wthdrawn,$restricted,$q_itemnotes)"); + $sth->execute; + } + + + # MARC SECTION my $subfields; $subfields->{1}->{'Subfield_Mark'}='p';

1 0

CVS: koha/C4 Catalogue.pm,1.3,1.4
by Steve Tonnesen 26 Jun '01

26 Jun '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv2146 Modified Files: Catalogue.pm Log Message: Added biblioitems table update when newBiblioItem() routine is called. Index: Catalogue.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** Catalogue.pm 2001/06/26 17:15:13 1.3 --- Catalogue.pm 2001/06/26 20:17:35 1.4 *************** *** 145,148 **** --- 145,152 ---- my $sti=$dbh->prepare("update biblio set title=$q_title where biblionumber=$biblio->{'biblionumber'}"); $sti->execute; + logchange('marc', '245', 'a', $origbiblio->{'title'}, $biblio->{'title'}); + foreach (@marcrecords) { + changeSubfield($_, '245', 'a', $origbiblio->{'title'}, $biblio->{'title'}); + } } if ($biblio->{'unititle'} ne $origbiblio->{'unititle'}) { *************** *** 157,160 **** --- 161,168 ---- my $sti=$dbh->prepare("update biblio set notes=$q_notes where biblionumber=$biblio->{'biblionumber'}"); $sti->execute; + logchange('marc', '500', 'a', $origbiblio->{'notes'}, $biblio->{'notes'}); + foreach (@marcrecords) { + changeSubfield($_, '500', 'a', $origbiblio->{'notes'}, $biblio->{'notes'}); + } } if ($biblio->{'serial'} ne $origbiblio->{'serial'}) { *************** *** 169,172 **** --- 177,184 ---- my $sti=$dbh->prepare("update biblio set seriestitle=$q_seriestitle where biblionumber=$biblio->{'biblionumber'}"); $sti->execute; + logchange('marc', '440', 'a', $origbiblio->{'seriestitle'}, $biblio->{'seriestitle'}); + foreach (@marcrecords) { + changeSubfield($_, '440', 'a', $origbiblio->{'seriestitle'}, $biblio->{'seriestitle'}); + } } if ($biblio->{'copyrightdate'} ne $origbiblio->{'copyrightdate'}) { *************** *** 175,178 **** --- 187,194 ---- my $sti=$dbh->prepare("update biblio set copyrightdate=$q_copyrightdate where biblionumber=$biblio->{'biblionumber'}"); $sti->execute; + logchange('marc', '260', 'c', "c$origbiblio->{'notes'}", "c$biblio->{'notes'}"); + foreach (@marcrecords) { + changeSubfield($_, '260', 'c', "c$origbiblio->{'notes'}", "c$biblio->{'notes'}"); + } } } *************** *** 242,268 **** my $biblioitemnumber=$biblioitem->{'biblioitemnumber'}; my $volume=$biblioitem->{'volume'}; my $number=$biblioitem->{'number'}; my $classification=$biblioitem->{'classification'}; my $itemtype=$biblioitem->{'itemtype'}; my $isbn=$biblioitem->{'isbn'}; my $issn=$biblioitem->{'issn'}; my $dewey=$biblioitem->{'dewey'}; $dewey=~s/\.*0*$//; ($dewey == 0) && ($dewey=''); my $subclass=$biblioitem->{'subclass'}; my $publicationyear=$biblioitem->{'publicationyear'}; my $publishercode=$biblioitem->{'publishercode'}; my $volumedate=$biblioitem->{'volumedate'}; my $illus=$biblioitem->{'illus'}; my $pages=$biblioitem->{'pages'}; my $notes=$biblioitem->{'notes'}; my $size=$biblioitem->{'size'}; my $place=$biblioitem->{'place'}; my $lccn=$biblioitem->{'lccn'}; # Should we check if there is already a biblioitem/marc with the # same isbn/lccn/issn? ! my $sth=$dbh->prepare("select title,unititle,seriestitle,copyrightdate,notes,author from biblio where biblionumber=$biblionumber"); $sth->execute; my ($title, $unititle,$seriestitle,$copyrightdate,$biblionotes,$author) = $sth->fetchrow; --- 258,317 ---- my $biblioitemnumber=$biblioitem->{'biblioitemnumber'}; my $volume=$biblioitem->{'volume'}; + my $q_volume=$dbh->quote($volume); my $number=$biblioitem->{'number'}; + my $q_number=$dbh->quote($number); my $classification=$biblioitem->{'classification'}; + my $q_classification=$dbh->quote($classification); my $itemtype=$biblioitem->{'itemtype'}; + my $q_itemtype=$dbh->quote($itemtype); my $isbn=$biblioitem->{'isbn'}; + my $q_isbn=$dbh->quote($isbn); my $issn=$biblioitem->{'issn'}; + my $q_issn=$dbh->quote($issn); my $dewey=$biblioitem->{'dewey'}; $dewey=~s/\.*0*$//; ($dewey == 0) && ($dewey=''); my $subclass=$biblioitem->{'subclass'}; + my $q_subclass=$dbh->quote($subclass); my $publicationyear=$biblioitem->{'publicationyear'}; my $publishercode=$biblioitem->{'publishercode'}; + my $q_publishercode=$dbh->quote($publishercode); my $volumedate=$biblioitem->{'volumedate'}; + my $q_volumedate=$dbh->quote($volumedate); my $illus=$biblioitem->{'illus'}; + my $q_illus=$dbh->quote($illus); my $pages=$biblioitem->{'pages'}; + my $q_pages=$dbh->quote($pages); my $notes=$biblioitem->{'notes'}; + my $q_notes=$dbh->quote($notes); my $size=$biblioitem->{'size'}; + my $q_size=$dbh->quote($size); my $place=$biblioitem->{'place'}; + my $q_place=$dbh->quote($place); my $lccn=$biblioitem->{'lccn'}; + my $q_lccn=$dbh->quote($lccn); + + + # Unless the $env->{'marconly'} flag is set, update the biblioitems table with + # the new data + + unless ($env->{'marconly'}) { + #my $sth=$dbh->prepare("lock tables biblioitems write"); + #$sth->execute; + my $sth=$dbh->prepare("select max(biblioitemnumber) from biblioitems"); + $sth->execute; + my ($biblioitemnumber) =$sth->fetchrow; + $biblioitemnumber++; + $sth=$dbh->prepare("insert into biblioitems (biblionumber,biblioitemnumber,volume,number,classification,itemtype,isbn,issn,dewey,subclass,publicationyear,publishercode,volumedate,illus,pages,notes,size,place,lccn) values ($biblionumber, $biblioitemnumber, $q_volume, $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $dewey, $q_subclass, $q_publicationyear, $q_publishercode, $q_volumedate, $q_illus, $q_pages,$q_notes, $q_size, $q_place, $q_lccn)"); + $sth->execute; + #my $sth=$dbh->prepare("unlock tables"); + #$sth->execute; + } + # Should we check if there is already a biblioitem/marc with the # same isbn/lccn/issn? ! $sth=$dbh->prepare("select title,unititle,seriestitle,copyrightdate,notes,author from biblio where biblionumber=$biblionumber"); $sth->execute; my ($title, $unititle,$seriestitle,$copyrightdate,$biblionotes,$author) = $sth->fetchrow;

1 0

CVS: koha/C4 Catalogue.pm,1.2,1.3
by Steve Tonnesen 26 Jun '01

26 Jun '01

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) = @_; }

1 0

CVS: koha/marc viewmarc.pl,NONE,1.1
by Steve Tonnesen 25 Jun '01

25 Jun '01

Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv21900 Added Files: viewmarc.pl Log Message: Prototype marc record viewer and editor. --- NEW FILE --- #!/usr/bin/perl # # TODO # # Add info on biblioitems and items already entered as you enter new ones # use C4::Database; use CGI; use strict; use C4::Acquisitions; use C4::Output; my $input = new CGI; my $dbh=C4Connect; my $fields; marcdefs(); [...10196 lines suppressed...] $fields->{'880'}->{'secondindicator'}="Same as associated field"; $fields->{'880'}->{'subfields'}->{"6"}->{'name'}="Linkage (NR) $a-z Same as associated field $0-5 Same as associated field $7-9 Same as associated field"; $fields->{'880'}->{'subfields'}->{"6"}->{'repeating'}=0; $fields->{'886'}->{'name'}="FOREIGN MARC INFORMATION FIELD (R)"; $fields->{'886'}->{'repeating'}=1; $fields->{'886'}->{'firstindicator'}="Type of field"; $fields->{'886'}->{'firstindicatorvalues'}->{"0"}="Leader"; $fields->{'886'}->{'firstindicatorvalues'}->{"1"}="Variable control fields (002-009)"; $fields->{'886'}->{'firstindicatorvalues'}->{"2"}="Variable data fields (010-999)"; $fields->{'886'}->{'secondindicator'}="Undefined"; $fields->{'886'}->{'subfields'}->{"a"}->{'name'}="Tag of the foreign MARC field (NR)"; $fields->{'886'}->{'subfields'}->{"a"}->{'repeating'}=0; $fields->{'886'}->{'subfields'}->{"b"}->{'name'}="Content of the foreign MARC field (NR)"; $fields->{'886'}->{'subfields'}->{"b"}->{'repeating'}=0; $fields->{'886'}->{'subfields'}->{"2"}->{'name'}="Source of data (NR) $a-z - Foreign MARC subfield (R) $0-9 - Foreign MARC subfield (R)"; $fields->{'886'}->{'subfields'}->{"2"}->{'repeating'}=0; ; }

1 0

CVS: koha/marc TODO,NONE,1.1
by Steve Tonnesen 25 Jun '01

25 Jun '01

Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv21324 Added Files: TODO Log Message: A TODO file for MARC support --- NEW FILE --- MARC ToDo list 1. Finish cataloguing api (Catalogue.pm) 2. Modify existing code to use the new cataloguing api a. start with all write routines b. then all read routines 3. Polish up MARC editor. Must include some sanity checks to prevent modifications with the MARC editor rendering the data unusable by Koha. a. don't delete the barcode, warning before modifying barcode b. don't mess up linkages between 852 and 876 tags c. Home branch and holding branch info should require warnings before updating. d. others? 4. Need to create some indexes of the MARC data to aid in searches. Soundex searches would be nice. a. subject index b. title index c. author index d. dewey index e. itemtype index f. soundex indexes would require an index with 1 word in each record. For example, a book with the title "The Habitat and Lifestyle of the Elephant" would have entries for "Habitat", "Lifestyle" and "Elephant" all pointing to the book's record. An sql query like "select Record_ID from soundex_index where soundex(word) like soundex('elefant')" would return a point to "The Habitat and Lifestyle of the Elephant". (Personally, I think this is pretty silly, but I had some librarians ask for it, and it isn't overly difficult to implement). Soundex searches should be configurable as an option somewhere. For example, have a special interface for young children where they just type in a word and hit enter and soundex searches are used, but normal searches do not use soundex. It would be annoying for titles with the words 'Rode' and 'Road' to show up when you search for 'Rhode', for example. 5. A million other things, probably...

1 0

CVS: koha/C4 Catalogue.pm,1.1,1.2
by Steve Tonnesen 25 Jun '01

25 Jun '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv12288 Modified Files: Catalogue.pm Log Message: Added skeletons of update routines. Index: Catalogue.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** Catalogue.pm 2001/06/25 18:49:34 1.1 --- Catalogue.pm 2001/06/25 19:43:59 1.2 *************** *** 11,15 **** @ISA = qw(Exporter); ! @EXPORT = qw(&newBiblio &newBiblioItem &newItem); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 11,16 ---- @ISA = qw(Exporter); ! @EXPORT = qw(&newBiblio &newBiblioItem &newItem &updateBiblio &updateBiblioItem ! &updateItem); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 63,66 **** --- 64,79 ---- } + sub updateBiblio { + # Update the biblio with biblionumber $biblio->{'biblionumber'} + # I guess this routine should search through all marc records for a record that + # has the same biblionumber stored in it, and modify the MARC record as well as + # the biblio table. + # + # Also, this subroutine should search through the $biblio object and compare it + # 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. + my ($env, $biblio) = @_; + } + sub addTag { *************** *** 332,335 **** --- 345,359 ---- } + sub updateBiblioItem { + # Update the biblioitem with biblioitemnumber $biblioitem->{'biblioitemnumber'} + # This routine should also modify the corresponding MARC record data. + # + # This routine should also check to see which fields are actually being + # modified, and log all changes. + + my ($env, $biblioitem) = @_; + } + + sub newItem { my ($env, $Record_ID, $item) = @_; *************** *** 400,403 **** --- 424,438 ---- addTag($env, $Record_ID, $tag, ' ', ' ', $subfields2); $env->{'linkid'}=''; + } + + sub updateItem { + # Update the item with itemnumber $item->{'itemnumber'} + # This routine should also modify the corresponding MARC record data. (852 and + # 876 tags with 876p tag the same as $item->{'barcode'} + # + # This routine should also check to see which fields are actually being + # modified, and log all changes. + + my ($env, $biblio) = @_; }

1 0

CVS: koha/marc koha2marc,1.1,1.2
by Steve Tonnesen 25 Jun '01

25 Jun '01

Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv3100 Modified Files: koha2marc Log Message: Minor documentation changes. Index: koha2marc =================================================================== RCS file: /cvsroot/koha/koha/marc/koha2marc,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** koha2marc 2001/06/25 18:55:28 1.1 --- koha2marc 2001/06/25 19:07:20 1.2 *************** *** 1,14 **** #!/usr/bin/perl - # TODO - # add subtitle entry to marcimport (for stewelm) - # swap illustrator and additional authors for marcimport.pl - # fix replacement price entry (always coming up as zero) - # Check serial title when determining if biblio already exists ! my $lc1='#dddddd'; ! my $lc2='#ddaaaa'; ! system("mysql Koha -ptestpass < deletemarc"); --- 1,9 ---- #!/usr/bin/perl ! # CAREFUL!!!! ! # This next line deletes _ALL_ of the existing MARC data from the ! # MySQL tables!!! It is only in here during development!!!! system("mysql Koha -ptestpass < deletemarc");

1 0

CVS: koha/marc koha2marc,NONE,1.1
by Steve Tonnesen 25 Jun '01

25 Jun '01

Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv32314 Added Files: koha2marc Log Message: Perl script to convert existing Koha tables to the new MARC tables. --- NEW FILE --- #!/usr/bin/perl # TODO # add subtitle entry to marcimport (for stewelm) # swap illustrator and additional authors for marcimport.pl # fix replacement price entry (always coming up as zero) # Check serial title when determining if biblio already exists my $lc1='#dddddd'; my $lc2='#ddaaaa'; system("mysql Koha -ptestpass < deletemarc"); use C4::Database; use C4::Catalogue; use CGI; use DBI; #use strict; use C4::Acquisitions; use C4::Output; my $dbh=C4Connect; my $userid=$ENV{'REMOTE_USER'}; my $dbh=C4Connect; my $sth=$dbh->prepare("select * from biblio,biblioitems where biblio.biblionumber=biblioitems.biblionumber"); $sth->execute; my $env; while (my $biblioitem=$sth->fetchrow_hashref) { print "Processing $biblioitem->{'title'}\n"; my $Record_ID; ($env, $Record_ID) = newBiblioItem($env,$biblioitem); my $sti=$dbh->prepare("select * from items,biblioitems where items.biblioitemnumber=biblioitems.biblioitemnumber and biblioitems.biblioitemnumber=$biblioitem->{'biblioitemnumber'}"); $sti->execute; while (my $item=$sti->fetchrow_hashref) { newItem($env, $Record_ID, $item); } }

1 0

CVS: koha/marc deletemarc,NONE,1.1
by Steve Tonnesen 25 Jun '01

25 Jun '01

Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv32054 Added Files: deletemarc Log Message: SQL commands to clear all of the MARC tables. This is terribly dangerous, but I find it useful during the development work. :) --- NEW FILE --- delete from Bib_Table; delete from 0XX_Tag_Table; delete from 0XX_Subfield_Table; delete from 1XX_Tag_Table; delete from 1XX_Subfield_Table; delete from 2XX_Tag_Table; delete from 2XX_Subfield_Table; delete from 3XX_Tag_Table; delete from 3XX_Subfield_Table; delete from 4XX_Tag_Table; delete from 4XX_Subfield_Table; delete from 5XX_Tag_Table; delete from 5XX_Subfield_Table; delete from 6XX_Tag_Table; delete from 6XX_Subfield_Table; delete from 7XX_Tag_Table; delete from 7XX_Subfield_Table; delete from 8XX_Tag_Table; delete from 8XX_Subfield_Table; delete from 9XX_Tag_Table; delete from 9XX_Subfield_Table; delete from Resource_Table; delete from Blob_Table; delete from Storage_Table; delete from Control_Table;

1 0