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

TODO marc compliance
by paul POULAIN 19 Mar '02

19 Mar '02

I try to find what is done and what has to be done for marc compliance : * marc DB schema is done. * marcimport is done. * the viewmarc script is for... marc-biblio adding ? anyway, I don't enjoy how this script works. I've something to propose for marc adding : we could create a table with all marcs codes, and a field which could say if the code is "mandatory", "possible" or "ignored" in the add process. Then we could have some pages presenting the "mandatory" fields first, then the "possible" fields. If there are too many fields (say, more than 30), we could split this page in MARC code : 1 for the 1xx, then 1 for the 2xx, then ... until every data is entered. * marc-search has to be done (Z39.50 ? or something else ?) * marc-export has to be done Do you agree ? -- Paul

1 0

CVS: koha/updater updatedatabase2.pl,NONE,1.1
by Paul POULAIN 19 Mar '02

19 Mar '02

Update of /cvsroot/koha/koha/updater In directory usw-pr-cvs1:/tmp/cvs-serv8939/updater Added Files: updatedatabase2.pl Log Message: Script to apply to sample DB only. It makes a few modifications in the DB (indexes creation, some data deletion, and unused tables drop) Creates a thesaurus table from the bilbiosubject one --- NEW FILE --- #!/usr/bin/perl # WARNING : this script is intended to be run as is only on a sample DB. # in the sample DB downloadable from sourceforge, the aqbookfund table is full of trash data. # this script drops this table and refill it with correct data. # some tables have strange data too, so primary key cannot be created. # if you want to apply this patch on a running DB : # - do a backup ! # - remove the lines between <FORPRODDEL> and </FORPRODDEL> # - remove the # before the lines between <FORPRODADD> and </FORPRODADD> # this will cause a primary key to be created if possible on your DB # YOU'VE BEEN WARNING !!!!! use C4::Database; use C4::Catalogue; use DBI; use C4::Acquisitions; use C4::Output; sub droptable { my ($dbh,$tablename)=@_; if ($tables{$tablename}) { print " - $tablename...\n"; my $sti=$dbh->prepare("DROP TABLE $tablename"); $sti->execute; return 1; } return 0; } sub dosql { my ($dbh,$sql_cmd)=@_; my $sti=$dbh->prepare($sql_cmd); $sti->execute; if ($sti->err) { print "error : ".$sti->errstr." \n tried to execute : $sql_cmd\n"; $sti->finish; } } my $dbh=C4Connect; my %tables; my $sth=$dbh->prepare("show tables"); $sth->execute; while (my ($table) = $sth->fetchrow) { $tables{$table}=1; } print "creating thesaurus...\n"; dosql($dbh,"CREATE TABLE bibliothesaurus (code BIGINT not null AUTO_INCREMENT, freelib CHAR (255) not null , stdlib CHAR (255) not null , type CHAR (80) not null , PRIMARY KEY (code), INDEX (freelib),index(stdlib),index(type))"); my $sti=$dbh->prepare("select subject from bibliosubject"); $sti->execute; $i=0; while ($line =$sti->fetchrow_hashref) { $i++; # print "$i $line->{'subject'}\n"; $sti2=$dbh->prepare("select count(*) as t from bibliothesaurus where freelib=".$dbh->quote($line->{'subject'})); $sti2->execute; if ($sti2->err) { print "error : ".$sti2->errstr." \n tried to execute : $sql_cmd\n"; die; } $line2=$sti2->fetchrow_hashref; if ($line2->{'t'} ==0) { dosql($dbh,"insert into bibliothesaurus (freelib,stdlib) values (".$dbh->quote($line->{'subject'}).",".$dbh->quote($line->{'subject'}).")"); } else { print "pas ecriture pour : $line->{'subject'}\n"; } } #aqbookfund : the sample db is full of trash data. Delete and recreate # <FORPRODDEL> print "aqbookfund..."; dosql($dbh,"delete from aqbookfund"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '5', 'Young Adult Fiction', '3')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '4', 'Fiction', '2')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '2', 'Talking books', '4')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '13', 'Newspapers & journals', '4')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '10', 'Te Ao Maori', '1')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '15', 'CDs, CD Roms, Maps, etc', '4')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '9', 'Junior Fiction', '3')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '7', 'Junior Non-Fiction', '3')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '72', 'Creative NZ', '4')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '11', 'Reference', '1')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '12', 'Videos', '4')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '8', 'Junior Paperback', '3')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '73', 'Large Print Link-up', '2')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '3', 'Large Print', '2')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '71', 'Creative NZ NonFiction', '1')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '6', 'Picture Books', '3')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '14', 'Nga pukapuka Maori', '3')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '80', 'Donations, junior books', '5')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '81', 'Donations, adult books', '5')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '82', 'Donations, magazines', '5')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '83', 'Donations, non books', '5')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '91', 'Vertical File', '5')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '100', 'Loans', '6')"); dosql($dbh,"INSERT INTO aqbookfund VALUES( '1', 'Test', '1')"); #</FORPRODDEL> dosql($dbh,"ALTER TABLE aqbookfund DROP PRIMARY KEY, ADD PRIMARY KEY(bookfundid);"); print "done\n accountlines..."; dosql($dbh,"ALTER TABLE accountlines CHANGE itemnumber itemnumber INT (11) not null;"); dosql($dbh,"ALTER TABLE accountlines DROP PRIMARY KEY, ADD PRIMARY KEY(borrowernumber,accountno,itemnumber);"); # accountoffset not done (not possible ?) #additionalauthor : not possible (no field useable, 1 index OK) print "done\n aqbooksellers..."; dosql($dbh,"ALTER TABLE aqbooksellers CHANGE id id INT (11) not null;"); dosql($dbh,"ALTER TABLE aqbooksellers DROP PRIMARY KEY, ADD PRIMARY KEY(id);"); print "done\n aqbudget..."; dosql($dbh,"ALTER TABLE aqbudget DROP PRIMARY KEY, ADD PRIMARY KEY(bookfundid, bookfundid);"); print "done\n aqorderbreakdown..."; dosql($dbh,"ALTER TABLE aqorderbreakdown CHANGE ordernumber ordernumber INT (11) not null;"); dosql($dbh,"ALTER TABLE aqorderbreakdown CHANGE linenumber linenumber INT (11) not null;"); dosql($dbh,"ALTER TABLE aqorderbreakdown CHANGE branchcode branchcode CHAR (4) not null;"); #<FORPRODADD> # ALTER TABLE aqorderbreakdown DROP PRIMARY KEY, ADD PRIMARY KEY(ordernumber,linenumber,branchcode);"); #</FORPRODADD> print "done\n biblio/borrowers..."; dosql($dbh,"ALTER TABLE aqorderdelivery DROP PRIMARY KEY, ADD PRIMARY KEY(ordernumber);"); dosql($dbh,"ALTER TABLE aqorders DROP PRIMARY KEY, ADD PRIMARY KEY(ordernumber);"); dosql($dbh,"ALTER TABLE biblio DROP PRIMARY KEY, ADD PRIMARY KEY(biblionumber, biblionumber);"); dosql($dbh,"ALTER TABLE biblioitems DROP PRIMARY KEY, ADD PRIMARY KEY(biblionumber, biblioitemnumber)"); dosql($dbh,"CREATE INDEX SUBTITLE ON bibliosubtitle (subtitle(80))"); dosql($dbh,"ALTER TABLE borexp CHANGE borrowernumber borrowernumber INT (11) not null"); dosql($dbh,"ALTER TABLE borexp CHANGE newexp newexp DATE not null"); dosql($dbh,"ALTER TABLE branches DROP PRIMARY KEY, ADD PRIMARY KEY(branchcode)"); dosql($dbh,"ALTER TABLE deletedbiblio DROP PRIMARY KEY, ADD PRIMARY KEY(biblionumber, biblionumber)"); dosql($dbh,"ALTER TABLE deletedbiblioitems DROP PRIMARY KEY, ADD PRIMARY KEY(biblioitemnumber)"); dosql($dbh,"ALTER TABLE deletedborrowers DROP PRIMARY KEY, ADD PRIMARY KEY(borrowernumber)"); dosql($dbh,"ALTER TABLE deleteditems DROP PRIMARY KEY, ADD PRIMARY KEY(itemnumber)"); dosql($dbh,"ALTER TABLE issues CHANGE date_due date_due DATE not null"); #<FORPRODADD> # ALTER TABLE issues DROP PRIMARY KEY, ADD PRIMARY KEY(borrowernumber,itemnumber,date_due)"); #</FORPRODADD> print "done\n items..."; dosql($dbh,"ALTER TABLE items DROP PRIMARY KEY, ADD PRIMARY KEY(itemnumber)"); dosql($dbh,"ALTER TABLE itemsprices CHANGE itemnumber itemnumber INT (11) not null"); dosql($dbh,"ALTER TABLE itemsprices DROP PRIMARY KEY, ADD PRIMARY KEY(itemnumber)"); dosql($dbh,"ALTER TABLE itemtypes DROP PRIMARY KEY, ADD PRIMARY KEY(itemtype)"); print "done\n various..."; dosql($dbh,"ALTER TABLE categories DROP PRIMARY KEY, ADD PRIMARY KEY(categorycode)"); dosql($dbh,"ALTER TABLE categoryitem DROP PRIMARY KEY, ADD PRIMARY KEY(categorycode,itemtype)"); dosql($dbh,"ALTER TABLE currency CHANGE currency currency VARCHAR (10) not null"); dosql($dbh,"ALTER TABLE currency CHANGE rate rate FLOAT (7,5) not null"); dosql($dbh,"ALTER TABLE currency DROP PRIMARY KEY, ADD PRIMARY KEY(currency)"); dosql($dbh,"ALTER TABLE printers CHANGE printername printername CHAR (40) not null"); dosql($dbh,"ALTER TABLE printers DROP PRIMARY KEY, ADD PRIMARY KEY(printername)"); #<FORPRODADD> # ALTER TABLE reserves DROP PRIMARY KEY, ADD PRIMARY KEY(borrowernumber,biblionumber,reservedate) #</FORPRODADD> dosql($dbh,"ALTER TABLE stopwords CHANGE word word VARCHAR (255) not null"); dosql($dbh,"ALTER TABLE stopwords DROP PRIMARY KEY, ADD PRIMARY KEY(word)"); dosql($dbh,"ALTER TABLE systempreferences DROP PRIMARY KEY, ADD PRIMARY KEY(variable)"); dosql($dbh,"ALTER TABLE users CHANGE usercode usercode VARCHAR (10) not null"); dosql($dbh,"ALTER TABLE users DROP PRIMARY KEY, ADD PRIMARY KEY(usercode)"); print "dropping tables...\n"; my $total=0; $total += droptable($dbh,'branchcategories'); $total += droptable($dbh,'classification'); $total += droptable($dbh,'multipart'); $total += droptable($dbh,'multivolume'); $total += droptable($dbh,'newitems'); $total += droptable($dbh,'procedures'); $total += droptable($dbh,'publisher'); $total += droptable($dbh,'searchstats'); $total += droptable($dbh,'serialissues'); print " $total tables dropped\n";

2 1

CVS: koha/updater sample_only_param_tables.sql,NONE,1.1
by Paul POULAIN 19 Mar '02

19 Mar '02

Update of /cvsroot/koha/koha/updater In directory usw-pr-cvs1:/tmp/cvs-serv8640/updater Added Files: sample_only_param_tables.sql Log Message: Sample database only for parameters tables --- NEW FILE --- INSERT INTO aqbookfund VALUES( '5', 'Young Adult Fiction', '3'); INSERT INTO aqbookfund VALUES( '4', 'Fiction', '2'); INSERT INTO aqbookfund VALUES( '2', 'Talking books', '4'); INSERT INTO aqbookfund VALUES( '13', 'Newspapers & journals', '4'); INSERT INTO aqbookfund VALUES( '10', 'Te Ao Maori', '1'); INSERT INTO aqbookfund VALUES( '15', 'CDs, CD Roms, Maps, etc', '4'); INSERT INTO aqbookfund VALUES( '9', 'Junior Fiction', '3'); INSERT INTO aqbookfund VALUES( '7', 'Junior Non-Fiction', '3'); INSERT INTO aqbookfund VALUES( '72', 'Creative NZ', '4'); INSERT INTO aqbookfund VALUES( '11', 'Reference', '1'); INSERT INTO aqbookfund VALUES( '12', 'Videos', '4'); INSERT INTO aqbookfund VALUES( '8', 'Junior Paperback', '3'); INSERT INTO aqbookfund VALUES( '73', 'Large Print Link-up', '2'); INSERT INTO aqbookfund VALUES( '3', 'Large Print', '2'); INSERT INTO aqbookfund VALUES( '71', 'Creative NZ NonFiction', '1'); INSERT INTO aqbookfund VALUES( '6', 'Picture Books', '3'); INSERT INTO aqbookfund VALUES( '14', 'Nga pukapuka Maori', '3'); INSERT INTO aqbookfund VALUES( '80', 'Donations, junior books', '5'); INSERT INTO aqbookfund VALUES( '81', 'Donations, adult books', '5'); INSERT INTO aqbookfund VALUES( '82', 'Donations, magazines', '5'); INSERT INTO aqbookfund VALUES( '83', 'Donations, non books', '5'); INSERT INTO aqbookfund VALUES( '91', 'Vertical File', '5'); INSERT INTO aqbookfund VALUES( '100', 'Loans', '6'); INSERT INTO aqbookfund VALUES( '1', 'Test', '1'); INSERT INTO aqbudget VALUES( '1', '1999-07-01', '2000-06-30', '39000.00'); INSERT INTO aqbudget VALUES( '5', '1999-07-01', '2000-06-30', '3000.00'); INSERT INTO aqbudget VALUES( '4', '1999-07-01', '2000-06-30', '28000.00'); INSERT INTO aqbudget VALUES( '2', '1999-07-01', '2000-06-30', '2000.00'); INSERT INTO aqbudget VALUES( '13', '1999-07-01', '2000-06-30', '13000.00'); INSERT INTO aqbudget VALUES( '10', '1999-07-01', '2000-06-30', '7000.00'); INSERT INTO aqbudget VALUES( '15', '1999-07-01', '2000-06-30', '4000.00'); INSERT INTO aqbudget VALUES( '9', '1999-07-01', '2000-06-30', '1000.00'); INSERT INTO aqbudget VALUES( '7', '1999-07-01', '2000-06-30', '12000.00'); INSERT INTO aqbudget VALUES( '72', '1999-07-01', '2000-06-30', '1000.00'); INSERT INTO aqbudget VALUES( '11', '1999-07-01', '2000-06-30', '9000.00'); INSERT INTO aqbudget VALUES( '12', '1999-07-01', '2000-06-30', '7000.00'); INSERT INTO aqbudget VALUES( '8', '1999-07-01', '2000-06-30', '4300.00'); INSERT INTO aqbudget VALUES( '73', '1999-07-01', '2000-06-30', '20000.00'); INSERT INTO aqbudget VALUES( '3', '1999-07-01', '2000-06-30', '10000.00'); INSERT INTO aqbudget VALUES( '71', '1999-07-01', '2000-06-30', '2000.00'); INSERT INTO aqbudget VALUES( '6', '1999-07-01', '2000-06-30', '10000.00'); INSERT INTO aqbudget VALUES( '14', '1999-07-01', '2000-06-30', '700.00'); INSERT INTO aqbudget VALUES( '80', '1999-07-01', '2000-06-30', '0.00'); INSERT INTO aqbudget VALUES( '81', '1999-07-01', '2000-06-30', '0.00'); INSERT INTO aqbudget VALUES( '82', '1999-07-01', '2000-06-30', '0.00'); INSERT INTO aqbudget VALUES( '83', '1999-07-01', '2000-06-30', '0.00'); INSERT INTO aqbudget VALUES( '91', '1999-07-01', '2000-06-30', '0.00'); INSERT INTO aqbudget VALUES( '100', '1999-07-01', '2000-06-30', '0.00'); INSERT INTO branches VALUES( 'C', 'Levin', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'F', 'Foxton', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'FM', 'Foxton Mending', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'FP', 'Foxton Permanent Colln.', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'I', 'Interloan', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'M', 'Mending', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'P', 'Processing', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'S', 'Shannon', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'SP', 'Shannon Permanent Colln.', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'T', 'Tokomaru', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'TR', 'Transit', '', NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO branches VALUES( 'D', 'District', NULL, NULL, NULL, NULL, NULL, NULL, NULL); INSERT INTO categories VALUES( 'I', 'Institution', '5', '99', '0', 'A', '0', '0.000000', '0', '99', '0.000000'); INSERT INTO categories VALUES( 'W', 'Workers', '5', '99', '0', 'A', '0', '0.000000', '0', '99', '0.000000'); INSERT INTO categories VALUES( 'A', 'Adult', '5', '99', '0', 'A', '0', '0.000000', '0', '99', '1.000000'); INSERT INTO categories VALUES( 'B', 'Housebound', '5', '99', '0', 'E', '0', '0.000000', '0', '99', '0.000000'); INSERT INTO categories VALUES( 'E', 'Senior Citizen', '5', '99', '0', 'A', '0', '0.000000', '0', '99', '1.000000'); INSERT INTO categories VALUES( 'F', 'Family', '5', '99', '0', 'A', '0', '0.000000', '0', '99', '1.000000'); INSERT INTO categories VALUES( 'C', 'Child', '5', '16', '0', 'A', '0', '0.000000', '0', '99', '0.000000'); INSERT INTO categories VALUES( 'P', 'Privileged', '5', '99', '0', 'A', '0', '0.000000', '0', '99', '0.000000'); INSERT INTO categories VALUES( 'L', 'Library', '5', '99', '0', 'A', '0', '0.000000', '0', '99', '0.000000'); INSERT INTO currency VALUES( 'NZD', '1.00000'); INSERT INTO currency VALUES( 'AUD', '0.60000'); INSERT INTO currency VALUES( 'USD', '0.49000'); INSERT INTO itemtypes VALUES( 'ART', 'Art Prints', '42', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'BCD', 'CD-ROM from book', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'CAS', 'Cassette', '14', '0', '1.0000'); INSERT INTO itemtypes VALUES( 'CD', 'Compact disc (WN)', '14', '1', '2.0000'); INSERT INTO itemtypes VALUES( 'F', 'Free Fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'FJV', 'Junior free video', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'FVID', 'Adult free video', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'FYA', 'Young Adult Fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'GWB', 'Get Well Bags', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'HCVF', 'Horowhenua Collection Vertical File', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'IL', 'Interloan', '22', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JCF', 'Junior Castle Fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JCNF', 'Junior Castle Non-fictio', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JF', 'Junior Fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JHC', 'Junior Horowhenua Collection VF', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JIG', 'Jigsaw puzzle', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JK', 'Junior Kermit ', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JNF', 'Junior Non-Fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JPB', 'Junior Paperbacks', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JPC', 'Junior Picture Book', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JPER', 'Junior Periodical', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JREF', 'Junior Reference', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JVF', 'Junior Vertical File', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'JVID', 'Junior rental video', '7', '1', '3.0000'); INSERT INTO itemtypes VALUES( 'LP', 'Large Print', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'MAP', 'Maps', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'NF', 'Adult Non-fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'NFLP', 'NonFiction LargePrint', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'NFYA', 'Young Adult Non Fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'NGA', 'Nga Pukapuka', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'PAY', 'Pay Collection', '14', '1', '1.0000'); INSERT INTO itemtypes VALUES( 'PB', 'Pamphlet Box', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'PER', 'Periodicals Stand', '14', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'PHOT', 'Photograph', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'POS', 'Junior Posters', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'REF', 'Adult Reference Books', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'ROM', 'CD-Rom', '7', '1', '5.0000'); INSERT INTO itemtypes VALUES( 'STF', 'Stack Fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'STJ', 'Stack Junior', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'STLP', 'Stack Large Print', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'STNF', 'Stack Non-fiction', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'TB', 'Talking Books', '14', '1', '2.0000'); INSERT INTO itemtypes VALUES( 'TREF', 'Taonga', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'VF', 'Vertical File', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'VID', 'Adult rental video', '7', '1', '3.0000'); INSERT INTO itemtypes VALUES( 'FTB', 'Free Talking Books', '21', '1', '0.0000'); INSERT INTO itemtypes VALUES( 'NLTB', 'National Library Talking Books', '21', '1', '2.0000'); INSERT INTO printers VALUES( 'Shannon Issues', 'shanlp', 'docket'); INSERT INTO printers VALUES( 'Levin Issues', 'leviss', 'docket'); INSERT INTO printers VALUES( 'Levin Returns', 'levret', 'docket'); INSERT INTO printers VALUES( 'Foxton Issue', 'foxlp', 'docket'); INSERT INTO printers VALUES( 'No Printer', 'nulllp', ''); INSERT INTO printers VALUES( 'Laser Printer', 'lp', ''); INSERT INTO stopwords VALUES( 'A'); INSERT INTO stopwords VALUES( 'AND'); INSERT INTO stopwords VALUES( 'ASSOC'); INSERT INTO stopwords VALUES( 'ASSOCIATES'); INSERT INTO stopwords VALUES( 'CO'); INSERT INTO stopwords VALUES( 'COMPANY'); INSERT INTO stopwords VALUES( 'CORP'); INSERT INTO stopwords VALUES( 'CORPORATION'); INSERT INTO stopwords VALUES( 'INC'); INSERT INTO stopwords VALUES( 'INCORPORATED'); INSERT INTO stopwords VALUES( 'LTD'); INSERT INTO stopwords VALUES( 'OF'); INSERT INTO stopwords VALUES( 'THE'); INSERT INTO stopwords VALUES( 'THIS'); INSERT INTO users VALUES( 'C', 'Levin', 'engido', '1'); INSERT INTO users VALUES( 'S', 'Shannon', 'xeyangu', '1'); INSERT INTO users VALUES( 'F', 'Foxton', 'thoochi', '1'); INSERT INTO users VALUES( 'T', 'Tokomaru', 'kadiesee', '1');

1 0

CVS: koha/C4/Circulation Fines.pm,1.2,1.3
by Chris Cormack 16 Mar '02

16 Mar '02

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv19101/C4/Circulation Modified Files: Fines.pm Log Message: Deals with lost book charges now Index: Fines.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Fines.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** Fines.pm 16 Jan 2001 23:34:29 -0000 1.2 --- Fines.pm 17 Mar 2002 02:58:00 -0000 1.3 *************** *** 14,18 **** @ISA = qw(Exporter); ! @EXPORT = qw(&Getoverdues &CalcFine &BorType &UpdateFine); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 14,18 ---- @ISA = qw(Exporter); ! @EXPORT = qw(&Getoverdues &CalcFine &BorType &UpdateFine &ReplacementCost); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 77,82 **** biblioitems.itemtype=itemtypes.itemtype and categoryitem.itemtype=itemtypes.itemtype and ! categoryitem.categorycode='$bortype' and (items.itemlost <> 1 or ! items.itemlost is NULL)"; my $sth=$dbh->prepare($query); # print $query; --- 77,81 ---- biblioitems.itemtype=itemtypes.itemtype and categoryitem.itemtype=itemtypes.itemtype and ! categoryitem.categorycode='$bortype' and (items.itemlost <> 1 or items.itemlost is NULL)"; my $sth=$dbh->prepare($query); # print $query; *************** *** 123,127 **** amountoutstanding=$out,accounttype='FU' where borrowernumber=$data->{'borrowernumber'} and itemnumber=$data->{'itemnumber'} ! and (accounttype='FU' or accounttype='O');"; my $sth2=$dbh->prepare($query2); $sth2->execute; --- 122,126 ---- amountoutstanding=$out,accounttype='FU' where borrowernumber=$data->{'borrowernumber'} and itemnumber=$data->{'itemnumber'} ! and (accounttype='FU' or accounttype='O') and description like '%$due%'"; my $sth2=$dbh->prepare($query2); $sth2->execute; *************** *** 172,175 **** --- 171,185 ---- } + sub ReplacementCost{ + my ($itemnum)=@_; + my $dbh=C4Connect; + my $query="Select replacementprice from items where itemnumber='$itemnum'"; + my $sth=$dbh->prepare($query); + $sth->execute; + my $data=$sth->fetchrow_hashref; + $sth->finish; + $dbh->disconnect; + return($data->{'replacementprice'}); + } END { } # module clean-up code here (global destructor)

1 0

CVS: koha-html/opac-html/images koha.gif,1.1.1.1,1.2
by Chris Cormack 16 Mar '02

16 Mar '02

Update of /cvsroot/koha/koha-html/opac-html/images In directory usw-pr-cvs1:/tmp/cvs-serv16040/opac-html/images Modified Files: koha.gif Log Message: Generic images for the front page Index: koha.gif =================================================================== RCS file: /cvsroot/koha/koha-html/opac-html/images/koha.gif,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 Binary files /tmp/cvsOFGcKP and /tmp/cvsKgTZcv differ

1 0

CVS: koha-html/intranet-html/images koha-front-koha.gif,1.1.1.1,1.2
by Chris Cormack 16 Mar '02

16 Mar '02

Update of /cvsroot/koha/koha-html/intranet-html/images In directory usw-pr-cvs1:/tmp/cvs-serv16040/intranet-html/images Modified Files: koha-front-koha.gif Log Message: Generic images for the front page Index: koha-front-koha.gif =================================================================== RCS file: /cvsroot/koha/koha-html/intranet-html/images/koha-front-koha.gif,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 Binary files /tmp/cvsrqGAGK and /tmp/cvsiXdS7k differ

1 0

CVS: koha/misc fines2.pl,1.1,1.2
by Chris Cormack 16 Mar '02

16 Mar '02

Update of /cvsroot/koha/koha/misc In directory usw-pr-cvs1:/tmp/cvs-serv15021/misc Modified Files: fines2.pl Log Message: tidied up, less hlt specific now Index: fines2.pl =================================================================== RCS file: /cvsroot/koha/koha/misc/fines2.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** fines2.pl 26 Jan 2001 00:39:19 -0000 1.1 --- fines2.pl 17 Mar 2002 02:31:02 -0000 1.2 *************** *** 3,7 **** #script to keep total of number of issues; ! use C4::Circulation::Fines; use Date::Manip; --- 3,9 ---- #script to keep total of number of issues; ! use C4::Database; ! use C4::Search; ! use C4::Circulation::Circ2; use C4::Circulation::Fines; use Date::Manip; *************** *** 16,22 **** $year=$year+1900; my $date=Date_DaysSince1BC($mon,$mday,$year); ! #my $date=Date_DaysSince1BC(12,4,2000); my $bornum; ! my $total=0; my $max=5; --- 18,24 ---- $year=$year+1900; my $date=Date_DaysSince1BC($mon,$mday,$year); ! #my $date=Date_DaysSince1BC(1,24,2002); my $bornum; ! #print $date; my $total=0; my $max=5; *************** *** 38,47 **** if ($amount > 0){ UpdateFine($data->[$i]->{'itemnumber'},$data->[$i]->{'borrowernumber'},$amount,$type,$due); ! if ($amount ==5){ # marklost(); ! } ! print "$printout\t$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t$borrower->{'firstname'}\t$borrower->{'surname'}\t$data->[$i]->{'date_due'}\t$type\t$difference\t$borrower->{'emailaddress'}\t$borrower->{'phone'}\t$borrower->{'streetaddress'}\t$borrower->{'city'}\t$amount\n"; } else { # print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 fine\n"; } --- 40,87 ---- if ($amount > 0){ UpdateFine($data->[$i]->{'itemnumber'},$data->[$i]->{'borrowernumber'},$amount,$type,$due); ! # if ($amount ==5){ # marklost(); ! # } ! if ($borrower->{'categorycode'} eq 'C'){ ! my $dbh=C4Connect; ! my $query="Select * from borrowers where borrowernumber='$borrower->{'guarantor'}'"; ! my $sth=$dbh->prepare($query); ! $sth->execute; ! my $tdata=$sth->fetchrow_hashref; ! $sth->finish; ! $dbh->disconnect; ! $borrower->{'phone'}=$tdata->{'phone'}; ! } ! print "$printout\t$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t$borrower->{'firstname'}\t$borrower->{'surname'}\t$data->[$i]->{'date_due'}\t$type\t$difference\t$borrower->{'emailaddress'}\t$borrower->{'phone'}\t$borrower->{'streetaddress'}\t$borrower->{'city'}\t$amount\n"; } else { # print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 fine\n"; + } + if ($difference >= 28){ + my $borrower=BorType($data->[$i]->{'borrowernumber'}); + if ($borrower->{'cardnumber'} ne ''){ + my $cost=ReplacementCost($data->[$i]->{'itemnumber'}); + my $dbh=C4Connect; + my $env; + my $accountno=C4::Circulation::Circ2::getnextacctno($env,$data->[$i]->{'borrowernumber'},$dbh); + my $item=itemnodata($env,$dbh,$data->[$i]->{'itemnumber'}); + if ($item->{'itemlost'} ne '1' && $item->{'itemlost'} ne '2' ){ + $item->{'title'}=~ s/\'/\\'/g; + my $query="Insert into accountlines + (borrowernumber,itemnumber,accountno,date,amount, + description,accounttype,amountoutstanding) values + ($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'}, + '$accountno',now(),'$cost','Lost item $item->{'title'} $item->{'barcode'}','L','$cost')"; + my $sth=$dbh->prepare($query); + $sth->execute; + $sth->finish; + $query="update items set itemlost=2 where itemnumber='$data->[$i]->{'itemnumber'}'"; + $sth=$dbh->prepare($query); + $sth->execute; + $sth->finish; + } else { + + } + $dbh->disconnect; + } }

1 0

Quick Check
by Nicholas Rosasco 15 Mar '02

15 Mar '02

Hey All -- I'm doing quick-fixes to the FAQ I find a few things needing work. --Contributors list: [If you are a contributor, PLEASE drop me a note! Everyone else, please check spelling of your names, etc.] http://www.koha.org/faq.html#OTHERWISE need to be added... Paul Poulain -- French Language Port, DB schema Finlay Thompson -- Circulation, etc coding --http://www.koha.org/faq.html#SUPPORT France needs to be added to the nationalities list. :) Anything else that is quick? Also, I've gone and rounded up a few more notes from the devel list, just on principle, and fed it to the wishlist tracker on sourceforge. Any other document type stuff need to be done? Thanks, Nick

1 0

CVS: koha/circ branchtransfers.pl,1.2,1.3
by Finlay Thompson 13 Mar '02

13 Mar '02

Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv19617/circ Modified Files: branchtransfers.pl Log Message: Changed heading to look like the rest of Koha Index: branchtransfers.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/branchtransfers.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** branchtransfers.pl 13 Mar 2002 21:07:41 -0000 1.2 --- branchtransfers.pl 14 Mar 2002 01:51:16 -0000 1.3 *************** *** 93,103 **** my $entrytext= << "EOF"; <form method=post action=/cgi-bin/koha/circ/branchtransfers.pl> ! <table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' > ! <tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage> <font color=black><b>Select Branch</b></font></td></tr> <tr><td>Destination Branch:</td> <td><select name=tobranchcd> $tobranchoptions </select></td></tr></table> ! <table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' ><tr> ! <td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage> <font color=black><b>Enter Book Barcode</b></font></td></tr> <tr><td>Item Barcode:</td><td><input name=barcode size=10></td></tr> --- 93,106 ---- my $entrytext= << "EOF"; <form method=post action=/cgi-bin/koha/circ/branchtransfers.pl> ! <table border=1 cellpadding=5 cellspacing=0 align=left> ! <tr><td colspan=2 align=center background=$backgroundimage> <font color=black><b>Select Branch</b></font></td></tr> <tr><td>Destination Branch:</td> <td><select name=tobranchcd> $tobranchoptions </select></td></tr></table> ! ! <img src="/images/holder.gif" width=24 height=50 align=left> ! ! <table border=1 cellpadding=5 cellspacing=0 ><tr> ! <td colspan=2 align=center background=$backgroundimage> <font color=black><b>Enter Book Barcode</b></font></td></tr> <tr><td>Item Barcode:</td><td><input name=barcode size=10></td></tr> *************** *** 126,130 **** print startpage; print startmenu('circulation'); ! print "<h3>Branch Transfers</h3>"; --- 129,133 ---- print startpage; print startmenu('circulation'); ! print "<FONT SIZE=6><em>Circulation: Transfers</em></FONT><br>"; *************** *** 137,141 **** print << "EOF"; <p> ! <table border=0 cellpadding=5 cellspacing=0 bgcolor=#dddddd> <tr><th colspan=6 bgcolor=$headerbackgroundcolor background=$backgroundimage><font color=black>Transfered Items</font></th></tr> <tr><th>Bar Code</th><th>Title</th><th>Author</th><th>Type</th><th>From</th><th>To</th></tr> --- 140,144 ---- print << "EOF"; <p> ! <table border=1 cellpadding=5 cellspacing=0 bgcolor=#dddddd> <tr><th colspan=6 bgcolor=$headerbackgroundcolor background=$backgroundimage><font color=black>Transfered Items</font></th></tr> <tr><th>Bar Code</th><th>Title</th><th>Author</th><th>Type</th><th>From</th><th>To</th></tr>

1 0

CVS: koha/circ circulation.pl,1.22,1.23
by Finlay Thompson 13 Mar '02

13 Mar '02

Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv19352/circ Modified Files: circulation.pl Log Message: Added a heading to be consistent with rest of Koha Index: circulation.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/circulation.pl,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -r1.22 -r1.23 *** circulation.pl 14 Mar 2002 01:04:00 -0000 1.22 --- circulation.pl 14 Mar 2002 01:50:17 -0000 1.23 *************** *** 193,199 **** sub returns { my %returneditems; ! print << "EOF"; ! <table border=0 cellpadding=10 cellspacing=0 cellpadding=5><tr><th background=$backgroundimage>Circulation - Returns</th></tr><tr><td bgcolor=$circbackgroundcolor align=center> ! EOF foreach ($query->param) { (next) unless (/ri-(\d*)/); --- 193,197 ---- sub returns { my %returneditems; ! print "<FONT SIZE=6><em>Circulation: Returns</em></FONT><br>"; foreach ($query->param) { (next) unless (/ri-(\d*)/); *************** *** 421,424 **** --- 419,423 ---- sub issues { + my ($noheader) = shift; my $print=$query->param('print'); *************** *** 468,474 **** <a href=circulation.pl?borrnumber=$borrowernumber&module=issues&branch=$branch&printer=$printer&print>Next Borrower</a> || <a href=circulation.pl?module=returns&branch=$branch&printer=$printer>Returns</a> || ! <a href=branchtransfers.pl>Transfer Book</a></font><p> </p> EOF } --- 467,474 ---- <a href=circulation.pl?borrnumber=$borrowernumber&module=issues&branch=$branch&printer=$printer&print>Next Borrower</a> || <a href=circulation.pl?module=returns&branch=$branch&printer=$printer>Returns</a> || ! <a href=branchtransfers.pl>Transfers</a></font><p> </p> + <FONT SIZE=6><em>Circulation: Issues</em></FONT><br> EOF }

1 0