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

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

CVS: koha/marc marcschema.sql,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-serv31714 Added Files: marcschema.sql Log Message: Schema for MARC storage tables. Blatantly stolen from www.pytheas.org. I also added the 0XX tables. --- NEW FILE --- create table Resource_Table (Resource_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Record_ID INT UNSIGNED, Statement_ID INT UNSIGNED, Scope_ID INT UNSIGNED, Container_ID INT UNSIGNED, primary key(Resource_ID)); create table Schema_Table (Schema_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Schema_URI CHAR(255) NOT NULL, Object_ID INT UNSIGNED NOT NULL, KEY ID_Index(Object_ID), KEY Schema_Index (Schema_URI(255)), primary key(Schema_ID)); create table Statement_Table ( Statement_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Statement_ID INT UNSIGNED NOT NULL, Subject CHAR(255) NOT NULL, Predicate CHAR(255) NOT NULL, Object CHAR(255) NOT NULL, Object_ID INT UNSIGNED, Schema_ID INT UNSIGNED, Statement_Type INT UNSIGNED, KEY ID_Index (Statement_ID), KEY Subject_Index (Subject(255)), KEY Pred_Index (Predicate(255)), KEY Object_Index (Object(255)), primary key(Statement_Key)); create table Scope_Table ( Scope_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Operator_ID INT UNSIGNED, Location_ID INT UNSIGNED, Resource_Type_ID ENUM('B','N'), primary key(Scope_ID)); create table Bib_Table (Bib_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Record_ID INT UNSIGNED NOT NULL, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Control_ID INT UNSIGNED, Tag_0XX_ID INT UNSIGNED, Tag_1XX_ID INT UNSIGNED, Tag_2XX_ID INT UNSIGNED, Tag_3XX_ID INT UNSIGNED, Tag_4XX_ID INT UNSIGNED, Tag_5XX_ID INT UNSIGNED, Tag_6XX_ID INT UNSIGNED, Tag_7XX_ID INT UNSIGNED, Tag_8XX_ID INT UNSIGNED, Tag_9XX_ID INT UNSIGNED, Storage_ID INT UNSIGNED, Holdings_ID INT UNSIGNED, KEY ID_Index(Record_ID), primary key(Bib_ID)); create table 0XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index(Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 0XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 1XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index(Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 1XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 2XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 2XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 3XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 3XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 4XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 4XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 5XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 5XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 6XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 6XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 7XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 7XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 8XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 8XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table 9XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Authority_ID INT UNSIGNED, Link_Flag ENUM('Y','N','B'), Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table 9XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Control_Table (Control_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Record_Status CHAR(1) NOT NULL, Record_Type CHAR(1) NOT NULL, Encoding_Level CHAR(1) NOT NULL, Des_Cat_Form CHAR(1) NOT NULL, Type_Date CHAR(1) NOT NULL, Beg_Pub_Date CHAR(4) NOT NULL, End_Pub_Date CHAR(4) NOT NULL, Pub_Place CHAR(3) NOT NULL, Ill_Code CHAR(4) NOT NULL, Target_Aud CHAR(1) NOT NULL, Item_Form CHAR(1) NOT NULL, Cont_Nature CHAR(4) NOT NULL, Gov_Code CHAR(1) NOT NULL, Conf_Code CHAR(1) NOT NULL, Festschrift CHAR(1) NOT NULL, Own_Index CHAR(1) NOT NULL, Fiction CHAR(1) NOT NULL, Biography CHAR(1) NOT NULL, Lan_Code CHAR(3) NOT NULL, Storage_ID INT UNSIGNED, primary key (Control_ID)); create table Auth_Table (Auth_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Auth_Control_ID INT UNSIGNED NOT NULL, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Auth_1XX_ID INT UNSIGNED, Auth_260_ID INT UNSIGNED, Auth_360_ID INT UNSIGNED, Auth_4XX_ID INT UNSIGNED, Auth_663_ID INT UNSIGNED, Auth_664_ID INT UNSIGNED, Auth_665_ID INT UNSIGNED, Auth_667_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Auth_Control_ID), primary key(Auth_ID)); create table Auth_1XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL , Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_1XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_260_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_260_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_360_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_360_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_4XX_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index(Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_4XX_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index(Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_663_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_663_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_664_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_664_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_665_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_665_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_667_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Auth_667_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Auth_Link_Table (Link_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Auth_ID INT UNSIGNED, Record_ID INT UNSIGNED, Link_Type ENUM('a','b','c','d','e','f','g'), Tag_ID INT UNSIGNED, Tag CHAR(3) NOT NULL, KEY Tag_Index (Tag(3)), primary key (Link_ID)); create table Auth_Control_Table (Auth_Cont_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Record_Status CHAR(1) NOT NULL, Record_Type CHAR(1) NOT NULL, Geo_Sub_Code CHAR(1) NOT NULL, Record_Kind CHAR(1) NOT NULL, Main_or_Added CHAR(1) NOT NULL, Subj_Added CHAR(1) NOT NULL, Ser_Added CHAR(1) NOT NULL, Storage_ID INT UNSIGNED, primary key (Auth_Cont_ID)); create table Holdings_Table (Hold_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Hold_Control_ID INT UNSIGNED NOT NULL, Date_Added TIMESTAMP, Date_Modified TIMESTAMP, Notes_Tag_ID INT UNSIGNED, Hold_852_ID INT UNSIGNED, Caps_Pat_ID INT UNSIGNED, Enum_Chron_ID INT UNSIGNED, Text_Hold_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Hold_Control_ID), primary key(Hold_ID)); create table Hold_Notes_Tag_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Hold_Notes_Tag_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Hold_852_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Hold_852_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Hold_Caps_Pat_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Hold_Caps_Pat_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Hold_Enum_Chron_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Hold_Enum_Chron_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Hold_Text_Hold_Table (Tag_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Tag_ID INT UNSIGNED NOT NULL, Indicator1 CHAR(1) NOT NULL, Indicator2 CHAR(1) NOT NULL, Tag CHAR(3) NOT NULL, Subfield_ID INT UNSIGNED, Storage_ID INT UNSIGNED, KEY ID_Index (Tag_ID), KEY Tag_Index (Tag(3)), primary key(Tag_Key)); create table Hold_Text_Hold_Subfield_Table (Subfield_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Subfield_ID INT UNSIGNED NOT NULL, Subfield_Mark CHAR(1) NOT NULL, Subfield_Value CHAR(255) NOT NULL, Storage_ID INT UNSIGNED, KEY ID_Index (Subfield_ID), KEY Mark_Index (Subfield_Mark(1)), KEY Subfield_Index (Subfield_Value(255)), primary key(Subfield_Key)); create table Hold_Control_Table (Hold_Cont_ID INT UNSIGNED NOT NULL AUTO_INCREMENT, Record_Status CHAR(1) NOT NULL, Record_Type CHAR(1) NOT NULL, Meth_Acq CHAR(1) NOT NULL, Cancel_Date CHAR(4) NOT NULL, Gen_Retention CHAR(1) NOT NULL, Spe_Retention CHAR(3) NOT NULL, Cmplt CHAR(4) NOT NULL, Lend_Pol CHAR(1) NOT NULL, Re_Pol CHAR(1) NOT NULL, Lan_Code CHAR(3) NOT NULL, Storage_ID INT UNSIGNED, primary key(Hold_Cont_ID)); create table Storage_Table (Storage_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Storage_ID INT UNSIGNED NOT NULL, Blob_ID INT UNSIGNED, Text_ID INT UNSIGNED, Med_Blob_ID INT UNSIGNED, Med_Text_ID INT UNSIGNED, Long_Blob_ID INT UNSIGNED, Long_Text_ID INT UNSIGNED, URI CHAR(255), Storage_Type ENUM('B','MB','LB','U'), KEY ID_Index (Storage_ID), primary key(Storage_Key)); create table Blob_Table (Blob_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Blob_ID INT UNSIGNED NOT NULL, Blob_Data BLOB, Seq_No INT UNSIGNED, KEY ID_Index (Blob_ID), primary key(Blob_Key)); create table Med_Blob_Table (Med_Blob_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Med_Blob_ID INT UNSIGNED NOT NULL, Blob_Data MEDIUMBLOB, Seq_No INT UNSIGNED, KEY ID_Index (Med_Blob_ID), primary key(Med_Blob_Key)); create table Long_Blob_Table (Long_Blob_Key INT UNSIGNED NOT NULL AUTO_INCREMENT, Long_Blob_ID INT UNSIGNED NOT NULL, Long_Blob_Data LONGBLOB, Seq_No INT UNSIGNED, KEY ID_Index (Long_Blob_ID), primary key(Long_Blob_Key));

1 0

CVS: koha/marc - New directory
by Steve Tonnesen 25 Jun '01

25 Jun '01

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

1 0

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

25 Jun '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv31072 Added Files: Catalogue.pm Log Message: Cataloguing API. Very early draft at this point. --- NEW FILE --- package C4::Catalogue; #asummes C4/Acquisitions.pm use strict; require Exporter; use C4::Database; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking $VERSION = 0.01; @ISA = qw(Exporter); @EXPORT = qw(&newBiblio &newBiblioItem &newItem); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], # your exported package globals go here, # as well as any optionally exported functions @EXPORT_OK = qw($Var1 %Hashit); # non-exported package globals go here use vars qw(@more $stuff); # initalize package globals, first exported ones my $Var1 = ''; my %Hashit = (); # then the others (which are still accessible as $Some::Module::stuff) my $stuff = ''; my @more = (); # all file-scoped lexicals must be created before # the functions below that use them. # file-private lexicals go here my $priv_var = ''; my %secret_hash = (); # here's a file-private function as a closure, # callable as &$priv_func; it cannot be prototyped. my $priv_func = sub { # stuff goes here. }; # make all your functions, whether exported or not; sub newBiblio { 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'}; } sub addTag { my ($env, $Record_ID, $tag, $Indicator1, $Indicator2, $subfields) = @_; my $dbh=&C4Connect; ($Indicator1) || ($Indicator1=' '); ($Indicator2) || ($Indicator2=' '); my $firstdigit=substr($tag,0,1); my $Subfield_ID; foreach (sort keys %$subfields) { my $Subfield_Mark=$subfields->{$_}->{'Subfield_Mark'}; my $Subfield_Value=$subfields->{$_}->{'Subfield_Value'}; my $q_Subfield_Value=$dbh->quote($Subfield_Value); if ($Subfield_ID) { my $sth=$dbh->prepare("insert into $firstdigit\XX_Subfield_Table (Subfield_ID, Subfield_Mark, Subfield_Value) values ($Subfield_ID, '$Subfield_Mark', $q_Subfield_Value)"); $sth->execute; } else { my $sth=$dbh->prepare("insert into $firstdigit\XX_Subfield_Table (Subfield_Mark, Subfield_Value) values ('$Subfield_Mark', $q_Subfield_Value)"); $sth->execute; my $Subfield_Key=$dbh->{'mysql_insertid'}; $Subfield_ID=$Subfield_Key; $sth=$dbh->prepare("update $firstdigit\XX_Subfield_Table set Subfield_ID=$Subfield_ID where Subfield_Key=$Subfield_Key"); $sth->execute; } } if (my $linkid=$env->{'linkid'}) { $env->{'linkage'}=0; my $sth=$dbh->prepare("insert into $firstdigit\XX_Subfield_Table (Subfield_ID, Subfield_Mark, Subfield_Value) values ($Subfield_ID, '8', '$linkid')"); $sth->execute; } my $sth=$dbh->prepare("insert into $firstdigit\XX_Tag_Table (Indicator1, Indicator2, Tag, Subfield_ID) values ('$Indicator1', '$Indicator2', '$tag', $Subfield_ID)"); $sth->execute; my $Tag_Key=$dbh->{'mysql_insertid'}; my $Tag_ID=$Tag_Key; $sth=$dbh->prepare("update $firstdigit\XX_Tag_Table set Tag_ID=$Tag_ID where Tag_Key=$Tag_Key"); $sth->execute; $sth=$dbh->prepare("insert into Bib_Table (Record_ID, Tag_$firstdigit\XX_ID) values ($Record_ID, $Tag_ID)"); $sth->execute; if ($env->{'linkage'}) { my $sth=$dbh->prepare("insert into $firstdigit\XX_Subfield_Table (Subfield_ID, Subfield_Mark, Subfield_Value) values ($Subfield_ID, '8', '$Tag_ID')"); $sth->execute; } $sth->finish; $dbh->disconnect; return ($env, $Tag_ID); } sub newBiblioItem { my ($env, $biblioitem) = @_; my $dbh=&C4Connect; my $biblionumber=$biblioitem->{'biblionumber'}; 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; $sth=$dbh->prepare("select subtitle from bibliosubtitle where biblionumber=$biblionumber"); $sth->execute; my ($subtitle) = $sth->fetchrow; $sth=$dbh->prepare("select author from additionalauthors where biblionumber=$biblionumber"); $sth->execute; my @additionalauthors; while (my ($additionalauthor) = $sth->fetchrow) { push (@additionalauthors, $additionalauthor); } $sth=$dbh->prepare("select subject from bibliosubject where biblionumber=$biblionumber"); $sth->execute; my @subjects; while (my ($subject) = $sth->fetchrow) { push (@subjects, $subject); } # MARC SECTION $sth=$dbh->prepare("insert into Resource_Table (Record_ID) values (0)"); $sth->execute; my $Resource_ID=$dbh->{'mysql_insertid'}; my $Record_ID=$Resource_ID; $sth=$dbh->prepare("update Resource_Table set Record_ID=$Record_ID where Resource_ID=$Resource_ID"); $sth->execute; # Title { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$title; if ($subtitle) { $subfields->{2}->{'Subfield_Mark'}='b'; $subfields->{2}->{'Subfield_Value'}=$subtitle; } my $tag='245'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # author { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$author; my $tag='100'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # Series Title if ($seriestitle) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$seriestitle; my $tag='440'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # Biblio Note if ($biblionotes) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$biblionotes; $subfields->{2}->{'Subfield_Mark'}='3'; $subfields->{2}->{'Subfield_Value'}='biblio'; my $tag='440'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # Additional Authors foreach (@additionalauthors) { my $author=$_; (next) unless ($author); my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$author; $subfields->{2}->{'Subfield_Mark'}='e'; $subfields->{2}->{'Subfield_Value'}='author'; my $tag='700'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # Illustrator if ($illus) { (next) unless ($illus); my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$illus; $subfields->{2}->{'Subfield_Mark'}='e'; $subfields->{2}->{'Subfield_Value'}='illustrator'; my $tag='700'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # Subjects foreach (@subjects) { my $subject=$_; (next) unless ($subject); my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$subject; my $tag='650'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # ISBN if ($isbn) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$isbn; my $tag='020'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # LCCN if ($lccn) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$lccn; my $tag='010'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # ISSN if ($issn) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$issn; my $tag='022'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # DEWEY if ($dewey) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$dewey; my $tag='082'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # DEWEY subclass and itemtype { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$itemtype; $subfields->{2}->{'Subfield_Mark'}='b'; $subfields->{2}->{'Subfield_Value'}=$subclass; my $tag='090'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # PUBLISHER { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$place; $subfields->{2}->{'Subfield_Mark'}='b'; $subfields->{2}->{'Subfield_Value'}=$publishercode; $subfields->{3}->{'Subfield_Mark'}='c'; $subfields->{3}->{'Subfield_Value'}=$publicationyear; if ($copyrightdate) { $subfields->{4}->{'Subfield_Mark'}='c'; $subfields->{4}->{'Subfield_Value'}="c$copyrightdate"; } my $tag='260'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # PHYSICAL if ($pages || $size) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$pages; $subfields->{2}->{'Subfield_Mark'}='c'; $subfields->{2}->{'Subfield_Value'}=$size; my $tag='300'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # Volume/Number if ($volume || $number) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='v'; $subfields->{1}->{'Subfield_Value'}=$volume; $subfields->{2}->{'Subfield_Mark'}='n'; $subfields->{2}->{'Subfield_Value'}=$number; my $tag='440'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } # Biblioitem Note if ($notes) { my $subfields; $subfields->{1}->{'Subfield_Mark'}='a'; $subfields->{1}->{'Subfield_Value'}=$notes; $subfields->{2}->{'Subfield_Mark'}='3'; $subfields->{2}->{'Subfield_Value'}='biblioitem'; my $tag='500'; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); } $sth->finish; $dbh->disconnect; return ($env, $Record_ID); } sub newItem { my ($env, $Record_ID, $item) = @_; my $barcode=$item->{'barcode'}; my $dateaccessioned=$item->{'dateaccessioned'}; my $booksellerid=$item->{'booksellerid'}; my $homebranch=$item->{'homebranch'}; my $holdingbranch=$item->{'holdingbranch'}; my $price=$item->{'price'}; my $replacementprice=$item->{'replacementprice'}; my $replacementpricedate=$item->{'replacementpricedate'}; my $notforloan=$item->{'notforloan'}; my $itemlost=$item->{'itemlost'}; my $wthdrawn=$item->{'wthdrawn'}; my $restricted=$item->{'restricted'}; my $itemnotes=$item->{'itemnotes'}; my $itemtype=$item->{'itemtype'}; my $subclass=$item->{'subclass'}; my $subfields; $subfields->{1}->{'Subfield_Mark'}='p'; $subfields->{1}->{'Subfield_Value'}=$barcode; $subfields->{2}->{'Subfield_Mark'}='d'; $subfields->{2}->{'Subfield_Value'}=$dateaccessioned; $subfields->{3}->{'Subfield_Mark'}='e'; $subfields->{3}->{'Subfield_Value'}=$booksellerid; $subfields->{4}->{'Subfield_Mark'}='b'; $subfields->{4}->{'Subfield_Value'}=$homebranch; $subfields->{5}->{'Subfield_Mark'}='l'; $subfields->{5}->{'Subfield_Value'}=$holdingbranch; $subfields->{6}->{'Subfield_Mark'}='c'; $subfields->{6}->{'Subfield_Value'}=$price; $subfields->{7}->{'Subfield_Mark'}='c'; $subfields->{7}->{'Subfield_Value'}=$replacementprice; $subfields->{8}->{'Subfield_Mark'}='d'; $subfields->{8}->{'Subfield_Value'}=$replacementpricedate; if ($notforloan) { $subfields->{9}->{'Subfield_Mark'}='h'; $subfields->{9}->{'Subfield_Value'}='Not for loan'; } if ($notforloan) { $subfields->{10}->{'Subfield_Mark'}='j'; $subfields->{10}->{'Subfield_Value'}='Item lost'; } if ($notforloan) { $subfields->{11}->{'Subfield_Mark'}='j'; $subfields->{11}->{'Subfield_Value'}='Item withdrawn'; } if ($notforloan) { $subfields->{12}->{'Subfield_Mark'}='z'; $subfields->{12}->{'Subfield_Value'}=$itemnotes; } my $tag='876'; my $Tag_ID; $env->{'linkage'}=1; ($env, $Tag_ID) = addTag($env, $Record_ID, $tag, ' ', ' ', $subfields); $env->{'linkage'}=0; $env->{'linkid'}=$Tag_ID; $tag='852'; my $subfields2; $subfields2->{1}->{'Subfield_Mark'}='a'; $subfields2->{1}->{'Subfield_Value'}='Coast Mountains School District'; $subfields2->{1}->{'Subfield_Mark'}='b'; $subfields2->{1}->{'Subfield_Value'}=$homebranch; $subfields2->{1}->{'Subfield_Mark'}='c'; $subfields2->{1}->{'Subfield_Value'}=$itemtype; $subfields2->{2}->{'Subfield_Mark'}='m'; $subfields2->{2}->{'Subfield_Value'}=$subclass; addTag($env, $Record_ID, $tag, ' ', ' ', $subfields2); $env->{'linkid'}=''; } END { } # module clean-up code here (global destructor)

1 0

[Willem@wfftrc.org: RE: [oss4lib-discuss] ala report?]
by Chris Cormack 23 Jun '01

23 Jun '01

----- Forwarded message from Willem Scholten <Willem(a)wfftrc.org> ----- Date: Fri, 22 Jun 2001 09:06:42 -0700 OpenBook, as we say is inspired by Koha. We started out with the KOHA base release and did a number of things we contributed back, some of those include: Multi Lingual user interface and advanced search system. WE would never have consider doing OpenBook or anything like it if there was not KOHA to start from. However because of the main issue of KOHA not supporting MARC nor having an easy way to incorporate Z39.50 (client as well as server) we started from scratch. However we are in constant touch with the KOHA people and are contributing back how we are doing MARC in the backend, how we are doing MARC editing, batch record uploading etc. Further the authority method implemented in KOHA does not accommodate the use of standard authority databases in the subject, name and tile fields. Further in our design effort we needed to consider issue like the ability to add-in XML data sources to accommodate local loaded databases of content and reference information. One of the key issues we are facing and you all to remember is that we are trying to build a ILS for small rural libraries in the US and the rest of the world, which may have multiple locations belong to the same system but no where close to what we all may have come to consider resembling an internet connection or for that matter a connection of some type between there locations. So we are doing much work on low bandwidth / sneaker net type database synchronization, ability to load local databases from multiple sources etc. (think about book mobiles and main library system... I won't draw the picture of possibilities, use your own imagination..) Further is should be understood that we FULLY support KOHA's efforts, but also all of us should understand that KOHA is written with a local important solution in mind, where we are looking at a broader picture. I clearly have no interest to start a KOHA versus OpenBook war, because the library world as it is already to fragmented and to crowded with religious wars (lets just look at meta data and 856 field wars to name a few or MARC21 versus UNIMARC etc....) -Willem. -----Original Message----- From: Daniel Chudnov [mailto:dchud@umich.edu] Sent: Friday, June 22, 2001 8:36 AM To: Dave Bretthauer Cc: oss4lib-discuss(a)lists.sourceforge.net Subject: RE: [oss4lib-discuss] ala report? On Thu, 21 Jun 2001, Dave Bretthauer wrote: > Now, Dan, prepare to eat your own words that there won't be an open source > ILS anytime soon: Willem Scholten gave an amazing demo of an open source > ILS called openbook. You can test drive it at > http://openbook.trfoundation.org/ and the 0.8 beta source code should be > available in a couple of weeks. Linux and Windows installers will complete This is just a rewrite (or is it a fork) of Koha, right? Did they talk about this issue? The following showed up on the koha list about a month ago: http://lists.katipo.co.nz/public/koha/2001/000252.html I very much hope those in both camps (if I'm reading the winds properly and there are indeed two camps) at least attempt to stay in sync w/r/to core issues such as data models and APIs. It looks like Steve from BC is putting a lot of work into MARC support within Koha, based apparently on Art's efforts with Pytheas, which is great to see. It would not be great to see that work and openbook totally diverge in areas such as this when they came from the same codebase. So for now I'll stand by my words about an ILS, and won't change them until we first see an open source SAP equivalent. Actually if there were an free SAP equivalent we could just build the acquisitions and EDI and circulation pieces out of that, right? :) -Dan _______________________________________________ oss4lib-discuss(a)lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/oss4lib-discuss see also http://oss4lib.org _______________________________________________ oss4lib-discuss(a)lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/oss4lib-discuss see also http://oss4lib.org ----- End forwarded message ----- -- Chris Cormack Programmer 025 500 789 Katipo Communications Ltd chris(a)katipo.co.nz www.katipo.co.nz

1 0

[dchud@umich.edu: RE: [oss4lib-discuss] ala report?]
by Chris Cormack 23 Jun '01

23 Jun '01

----- Forwarded message from Daniel Chudnov <dchud(a)umich.edu> ----- On Thu, 21 Jun 2001, Dave Bretthauer wrote: > Now, Dan, prepare to eat your own words that there won't be an open source > ILS anytime soon: Willem Scholten gave an amazing demo of an open source > ILS called openbook. You can test drive it at > http://openbook.trfoundation.org/ and the 0.8 beta source code should be > available in a couple of weeks. Linux and Windows installers will complete This is just a rewrite (or is it a fork) of Koha, right? Did they talk about this issue? The following showed up on the koha list about a month ago: http://lists.katipo.co.nz/public/koha/2001/000252.html I very much hope those in both camps (if I'm reading the winds properly and there are indeed two camps) at least attempt to stay in sync w/r/to core issues such as data models and APIs. It looks like Steve from BC is putting a lot of work into MARC support within Koha, based apparently on Art's efforts with Pytheas, which is great to see. It would not be great to see that work and openbook totally diverge in areas such as this when they came from the same codebase. So for now I'll stand by my words about an ILS, and won't change them until we first see an open source SAP equivalent. Actually if there were an free SAP equivalent we could just build the acquisitions and EDI and circulation pieces out of that, right? :) -Dan _______________________________________________ oss4lib-discuss(a)lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/oss4lib-discuss see also http://oss4lib.org ----- End forwarded message ----- -- Chris Cormack Programmer 025 500 789 Katipo Communications Ltd chris(a)katipo.co.nz www.katipo.co.nz

1 0

Re: [oss4lib-discuss] ala report?
by Chris Cormack 23 Jun '01

23 Jun '01

Hi All, Im one of the programmers working on Koha. And I can agree with what Willem says, I have been in touch with Griogair who has been working on OpenBook. And im looking forward to their next source release. > Further is should be understood that we FULLY support KOHA's efforts, but > also all of us should understand that KOHA is written with a local important > solution in mind, where we are looking at a broader picture. I clearly have > no interest to start a KOHA versus OpenBook war, because the library world > as it is already to fragmented and to crowded with religious wars (lets just > look at meta data and 856 field wars to name a few or MARC21 versus UNIMARC > etc....) > However while this was true for the intitial release of Koha, and in fact most of the work im doing on it is still at the behest of the local library. It is in general no longer true, Steve is working hard on MARC support for koha as Daniel noted. And has also made lots of other changes to better suit koha to the libraries he is involved withs needs. Including a web based circulation, and a really tight circulation API. Which should make building circulation interfaces a doddle. So really what I would like to see is more communication between the Koha and OpenBook camps. Id really like to see them become much more similair to each other, so that the differences wont be in functionality, but in the chosen language to implement that functionality. Koha is perl, OpenBook is PHP. The more we can help each other the better the library system we end up with will be. Chris -- Chris Cormack Programmer 025 500 789 Katipo Communications Ltd chris(a)katipo.co.nz www.katipo.co.nz

1 0