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

CVS: koha/updater updatedatabase,1.2,1.3
by Steve Tonnesen 19 Nov '01

19 Nov '01

Update of /cvsroot/koha/koha/updater In directory usw-pr-cvs1:/tmp/cvs-serv30056 Modified Files: updatedatabase Log Message: Added code to determine mysqld version for possibility of converting databases to MyISAM format Index: updatedatabase =================================================================== RCS file: /cvsroot/koha/koha/updater/updatedatabase,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** updatedatabase 2001/11/19 20:29:46 1.2 --- updatedatabase 2001/11/19 23:28:59 1.3 *************** *** 15,18 **** --- 15,26 ---- my %types; + + my $mysqlversion=`mysqld --version`; + $mysqlversion=~/Ver (\S*) /; + $mysqlversion=$1; + if ($mysqlversion ge '3.23') { + print "Could convert to MyISAM database tables...\n"; + } + my $sth=$dbh->prepare("show tables"); $sth->execute;

1 0

CVS: koha/updater updatedatabase,1.1,1.2
by Steve Tonnesen 19 Nov '01

19 Nov '01

Update of /cvsroot/koha/koha/updater In directory usw-pr-cvs1:/tmp/cvs-serv6853 Modified Files: updatedatabase Log Message: Added some more tables to the database updater. Modified barcode to be 20 characters long instead of 9. Index: updatedatabase =================================================================== RCS file: /cvsroot/koha/koha/updater/updatedatabase,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** updatedatabase 2001/11/19 18:26:50 1.1 --- updatedatabase 2001/11/19 20:29:46 1.2 *************** *** 19,30 **** while (my ($table) = $sth->fetchrow) { $tables{$table}=1; - print "Table: $table\n"; } # Add tables required by Z-3950 scripts ! unless ($tables{'z3950queue') { my $sti=$dbh->prepare("create table z3950queue (id int auto_increment primary key, term text, type char(10), startdate int, enddate int, done smallint, results longblob, numercords int, servers text, identifier char(30))"); $sti->execute; --- 19,42 ---- while (my ($table) = $sth->fetchrow) { $tables{$table}=1; } + # Add tables for virtual bookshelf management + unless ($tables{'shelfcontents'}) { + print "Adding shelfcontents table...\n"; + my $sti=$dbh->prepare("create table shelfcontents (shelfnumber int not null, itemnumber int not null, flags int)"); + $sti->execute; + } + unless ($tables{'bookshelf'}) { + print "Adding bookshelf table...\n"; + my $sti=$dbh->prepare("create table bookshelf (shelfnumber int auto_increment primary key, shelfname char(255))"); + $sti->execute; + } + # Add tables required by Z-3950 scripts ! unless ($tables{'z3950queue'}) { ! print "Adding z3950queue table...\n"; my $sti=$dbh->prepare("create table z3950queue (id int auto_increment primary key, term text, type char(10), startdate int, enddate int, done smallint, results longblob, numercords int, servers text, identifier char(30))"); $sti->execute; *************** *** 32,39 **** --- 44,53 ---- unless ($tables{'z3950results'}) { + print "Adding z3950results table...\n"; my $sti=$dbh->prepare("create table z3950results (id int auto_increment primary key, queryid int, server char(255), startdate int, enddate int, results longblob, numrecords int, numdownloaded int, highestseen int, active smallint)"); $sti->execute; } unless ($tables{'z3950servers'}) { + print "Adding z3950servers table...\n"; my $sti=$dbh->prepare("create table z3950servers (host char(255), port int, db char(255), userid char(255), password char(255), name text, id int, checked smallint, rank int)"); $sti->execute; *************** *** 53,56 **** --- 67,71 ---- unless ($types{'lccn'}) { # Add LCCN field to biblioitems db + print "Adding lccn field to biblioitems table...\n"; my $sti=$dbh->prepare("alter table biblioitems add column lccn char(25)"); $sti->execute; *************** *** 58,63 **** --- 73,98 ---- unless ($types{'marc'}) { # Add MARC field to biblioitems db (not used anymore) + print "Adding marc field to biblioitems table...\n"; my $sti=$dbh->prepare("alter table biblioitems add column marc text"); $sti->execute; + } + + # Get list of columns from biblioitems table + my %itemtypes; + + my $sth=$dbh->prepare("show columns from items"); + $sth->execute; + while (my ($column, $type, $null, $key, $default, $extra) = $sth->fetchrow) { + $itemtypes{$column}=$type; + } + + unless ($itemtypes{'barcode'} eq 'varchar(20)') { + $itemtypes{'barcode'}=~/varchar$(\d+)$/; + my $oldlength=$1; + if ($oldlength<20) { + print "Setting maximum barcode length to 20 (was $oldlength).\n"; + my $sti=$dbh->prepare("alter table items change barcode barcode varchar(20) not null"); + $sti->execute; + } }

2 1

CVS: koha/updater updatedatabase,NONE,1.1
by Steve Tonnesen 19 Nov '01

19 Nov '01

Update of /cvsroot/koha/koha/updater In directory usw-pr-cvs1:/tmp/cvs-serv4842 Added Files: updatedatabase Log Message: Script that will update existing databases, creating any new tables, adding, modifying or removing any fields from existing tables. This is in very early stages. Need to go through and ascertain which tables and fields need to be added/modified. Also need to add a "backup" before any modifications are made. Thoughts on this are welcome. --- NEW FILE --- #!/usr/bin/perl # This script will check for required updates to the database. Would also be a # good idea to offer to do a backup at this time... use C4::Database; use C4::Catalogue; use DBI; use C4::Acquisitions; use C4::Output; my $dbh=C4Connect; my %tables; my %types; my $sth=$dbh->prepare("show tables"); $sth->execute; while (my ($table) = $sth->fetchrow) { $tables{$table}=1; print "Table: $table\n"; } # Add tables required by Z-3950 scripts unless ($tables{'z3950queue') { my $sti=$dbh->prepare("create table z3950queue (id int auto_increment primary key, term text, type char(10), startdate int, enddate int, done smallint, results longblob, numercords int, servers text, identifier char(30))"); $sti->execute; } unless ($tables{'z3950results'}) { my $sti=$dbh->prepare("create table z3950results (id int auto_increment primary key, queryid int, server char(255), startdate int, enddate int, results longblob, numrecords int, numdownloaded int, highestseen int, active smallint)"); $sti->execute; } unless ($tables{'z3950servers'}) { my $sti=$dbh->prepare("create table z3950servers (host char(255), port int, db char(255), userid char(255), password char(255), name text, id int, checked smallint, rank int)"); $sti->execute; $sti=$dbh->prepare("insert into z3950servers values ('z3950.loc.gov', 7090, 'voyager', '', '', 'Library of Congress', 1, 1, 1)"); $sti->execute; } # Get list of columns from biblioitems table my $sth=$dbh->prepare("show columns from biblioitems"); $sth->execute; while (my ($column, $type, $null, $key, $default, $extra) = $sth->fetchrow) { $types{$column}=$type; } unless ($types{'lccn'}) { # Add LCCN field to biblioitems db my $sti=$dbh->prepare("alter table biblioitems add column lccn char(25)"); $sti->execute; } unless ($types{'marc'}) { # Add MARC field to biblioitems db (not used anymore) my $sti=$dbh->prepare("alter table biblioitems add column marc text"); $sti->execute; } $sth->finish; $dbh->disconnect;

1 0

CVS: koha/updater - New directory
by Steve Tonnesen 19 Nov '01

19 Nov '01

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

1 0

1st Crack at FAQ
by Nicholas Stephen Rosasco 08 Nov '01

08 Nov '01

Hey Koha-coder types! I've got a draft FAQ file (incomplete, but ready for some comment, I think) up at http://www.people.virginia.edu/~nsr4n/Koha/faq.html Style/etc isn't settled, but just general opinion/suggestion is welcome. At some point I'm going to need to pick (for consistency's sake, if nothing else) US vs UK/Commonwealth spelling -- as most of you are Kiwi or Canadian :) and I am not, I am open to suggestions as to which I should favor -- at the moment, both are included. Nick ...apparently the FAQ maintainer.

4 5

Re: [Koha] Re: [Koha-devel] For the (non)coder
by COURYHOUSE＠aol.com 06 Nov '01

06 Nov '01

an install script would be really nice... drop in the cd and stand back while the magic happens! Ed Sharpe archivist for SMECC > Subj:[Koha] Re: [Koha-devel] For the (non)coder > Date:11/6/01 11:11:32 AM US Mountain Standard Time > From:<A HREF="mailto:tonnesen@cmsd.bc.ca">tonnesen(a)cmsd.bc.ca</A> > To:<A HREF="mailto:nsr4n@tetra.mail.virginia.edu">nsr4n(a)tetra.mail.virginia.edu</A> > CC:<A HREF="mailto:koha-devel@lists.sourceforge.net">koha-devel(a)lists.sourceforge.net</A>, <A HREF="mailto:koha@lists.katipo.co.nz">koha(a)lists.katipo.co.nz</A> > Sent from the Internet > > > > > On Tue, 6 Nov 2001, Nicholas Stephen Rosasco wrote: > > > Is there any sort of target goal/date (I know MARC/z39.50 "completeness" > > is coming along soon -- what a fantastic tool that is! thanks!!!) for > > getting a new version packaged, and are any translation issues for the > > database for the new format expected? > > Chris, of Katipo fame, is trying to convince me to package up a new > release. I'll probably give it a shot. There are a couple of technical > issues that I need to work out: > > 1. how to start the Z39.50 daemon, and make sure it keeps running. There > are also some issues that I need to work out with the daemon itself. > Every once in a while it likes to redo all the old queries. :) > 2. how to install the YAZ and Net::Z3950 packages. > 3. script to update existing Koha databases (very scary! Will probably > have an option to allow backing up the existing databases before doing > the upgrade). > 4. Need to move away from DebConf for configuring the Koha package. I > like debconf, but it just isn't portable enough. In its place I'll > have a script that needs to be run after installing the package (be it > deb, rpm, or tarball). > 5. Need to set up a preferences configuration system so that Koha admins > can change system preferences (like which acquisitions module to use). > 6. Need to give some thought to integrating the two acquisitions modules > so that librarians can use either one at any time. > 7. Permissions controls. This is a big one. I'm not sure how HDL does > this, but I have a separate package called K12Admin that I use to > create accounts for all staff and students in my schools. I use this > package to populate the membership database of Koha, and to create an > apache password file for authenticating to the librarian interface. > How should this be handled in the generic case? I'm guessing that > there should be a superuser account that gets created when the package > is installed that has access to everything, and the "Members" section > needs to be modified to allow passwords to be stored for users, as > well as librarian permissions to be granted. As I said before, this > isn't a particular itch of mine, as all of this is taken care of by my > K12Admin program here. > > > I could probably have a package together this week that didn't take of 1, > 2, 5, 6 or 7. Actually, 7 could be semi-taken care of with the superuser > idea. Then there would be one account that had access to the librarian > interface. > > Anyway, just some random thoughts to get me moving... > > > Steve >

1 0

For the (non)coder
by Nicholas Stephen Rosasco 06 Nov '01

06 Nov '01

Is there any sort of target goal/date (I know MARC/z39.50 "completeness" is coming along soon -- what a fantastic tool that is! thanks!!!) for getting a new version packaged, and are any translation issues for the database for the new format expected? Nick ...really, really impressed.

2 3

CVS: koha/acqui.simple addbooks.pl,1.1,1.2
by Steve Tonnesen 06 Nov '01

06 Nov '01

Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv13781/koha/acqui.simple Modified Files: addbooks.pl Log Message: Minor changes Index: addbooks.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** addbooks.pl 2001/10/05 21:19:29 1.1 --- addbooks.pl 2001/11/06 18:25:30 1.2 *************** *** 355,359 **** <a href=addbooks.pl?isbn=NULL>Enter book with no ISBN</a> <hr> ! Or use the <a href=marcimport.pl>MARC Importing tool</a> EOF } --- 355,365 ---- <a href=addbooks.pl?isbn=NULL>Enter book with no ISBN</a> <hr> ! <p> ! <h2>Tools for importing MARC records into Koha</h2> ! <ul> ! <li><a href=marcimport.pl?menu=z3950>Z39.50 Search Tool</a> ! <li><a href=marcimport.pl?menu=uploadmarc>Upload MARC records</a> ! </ul> ! EOF }

1 0

CVS: koha/marc koha2marc,1.3,1.4
by Steve Tonnesen 06 Nov '01

06 Nov '01

Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv13781/koha/marc Modified Files: koha2marc Log Message: Minor changes Index: koha2marc =================================================================== RCS file: /cvsroot/koha/koha/marc/koha2marc,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** koha2marc 2001/09/27 19:24:18 1.3 --- koha2marc 2001/11/06 18:25:30 1.4 *************** *** 2,6 **** - # CAREFUL!!!! # This next line deletes _ALL_ of the existing MARC data from the --- 2,5 ----

1 0

CVS: koha/marc test,NONE,1.1
by Steve Tonnesen 06 Nov '01

06 Nov '01

Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv13206 Added Files: test Log Message: Script that I'm using to check MARC record support. --- NEW FILE --- #!/usr/bin/perl use C4::Database; use C4::Catalogue; use CGI; use DBI; #use strict; use C4::Acquisitions; use C4::Output; my $userid=$ENV{'REMOTE_USER'}; my $dbh=C4Connect; my $newschool=$ARGV[0]; ($newschool) || ($newschool='SHE'); #changeSubfield(45,'876','c','7.20','7.30',451); my $sth=$dbh->prepare("select * from items where barcode='1024'"); $sth->execute; my $item=$sth->fetchrow_hashref(); print $item->{'homebranch'}."\n"; print $item->{'barcode'}."\n"; print $item->{'biblionumber'}."\n"; $item->{'homebranch'}=$newschool; print $item->{'homebranch'}."\n"; updateItem($env, $item); $sth->finish; $dbh->disconnect;

1 0