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

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/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-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/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

CVS: koha/circ circulation2.pl,NONE,1.1 circulation.pl,1.21,1.22
by Finlay Thompson 13 Mar '02

13 Mar '02

Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv10323 Modified Files: circulation.pl Added Files: circulation2.pl Log Message: This is the begining of a process of dividing up circulation.pl This script deals with the branch and printer selection stuff --- NEW FILE --- #!/usr/bin/perl use strict; use CGI qw/:standard/; use C4::Circulation::Circ2; use C4::Output; use C4::Print; use DBI; # this is a reorganisation of circulation.pl # dividing it up into three scripts...... # this will be the first one that chooses branch and printer settings.... my %env; my $headerbackgroundcolor='#99cc33'; my $circbackgroundcolor='#ffffcc'; my $circbackgroundcolor='white'; my $linecolor1='#ffffcc'; my $linecolor2='white'; my $backgroundimage="/images/background-mem.gif"; my $query=new CGI; my $branches=getbranches(\%env); my $printers=getprinters(\%env); my $branch=$query->param('branch'); my $printer=$query->param('printer'); ($branch) || ($branch=$query->cookie('branch')); ($printer) || ($printer=$query->cookie('printer')); my $oldbranch; my $oldprinter; if ($query->param('selectnewbranchprinter')) { $oldbranch=$branch; $oldprinter=$printer; $branch=''; $printer=''; } $env{'branchcode'}=$branch; $env{'printer'}=$printer; $env{'queue'}=$printer; # set up select options.... my $branchcount=0; my $printercount=0; my $branchoptions; my $printeroptions; foreach (keys %$branches) { (next) unless ($_); (next) if (/^TR$/); $branchcount++; my $selected=''; ($selected='selected') if ($_ eq $oldbranch); $branchoptions.="<option value=$_ $selected>$branches->{$_}->{'branchname'}\n"; } foreach (keys %$printers) { (next) unless ($_); $printercount++; my $selected=''; ($selected='selected') if ($_ eq $oldprinter); $printeroptions.="<option value=$_ $selected>$printers->{$_}->{'printername'}\n"; } # if there is only one.... if ($printercount==1) { ($printer)=keys %$printers; } if ($branchcount==1) { ($branch)=keys %$branches; } my $branchcookie=$query->cookie(-name=>'branch', -value=>"$branch", -expires=>'+1y'); my $printercookie=$query->cookie(-name=>'printer', -value=>"$printer", -expires=>'+1y'); my ($printerform, $branchform); if ($printercount>1) { $printerform=<<"EOF"; <table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' > <tr><td><select name=printer> $printeroptions </select></td></tr> </table> <input type=hidden name=branch value=$printer> EOF } else { my ($printer) = keys %$printers; $printerform=<<"EOF"; <input type=hidden name=printer value=$printer> EOF } if ($branchcount>1) { $branchform=<<"EOF"; <table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' > <tr><td> <select name=branch> $branchoptions </select> </td></tr> </table> <input type=hidden name=branch value=$branch> EOF } else { my ($branch) = keys %$branches; $branchform=<<"EOF"; <input type=hidden name=printer value=$printer> EOF } # set header with cookie.... print $query->header(-type=>'text/html',-expires=>'now', -cookie=>[$branchcookie,$printercookie]); print startpage(); print startmenu('circulation'); if ($branch and $printer) { print << "EOF"; <p align=right> <FONT SIZE=2 face="arial, helvetica"> <a href=circulation.pl?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> <input type=hidden name=module value=issues> <input type=hidden name=branch value=$branch> <input type=hidden name=printer value=$printer> <input type=hidden name=barcode value=" "> </p> <table align=left border=0 cellpadding=5 cellspacing=0 > <tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage> <font color=black><b>Branch and Printer Settings<b></font> </td></tr> <tr><td> <b>Branch:</b> $branches->{$branch}->{'branchname'} </td><td><b>Printer:</b>$printers->{$printer}->{'printername'} </td></tr> <tr><td colspace=2> <a href=circulation2.pl?selectnewbranchprinter=1>Select new branch and printer</a> </td></tr> </table> <img src="/images/holder.gif" width=24 height=50 align=left> <table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' align=right> <form method=get> <tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font color=black> <b>Enter borrower card number<br> or partial last name</b></font> </td></tr> <tr><td><input name=findborrower></td></tr> </form> </table> EOF } else { print << "EOF"; <form method=post action=/cgi-bin/koha/circ/circulation2.pl> <table border=0 cellpadding=5 cellspacing=0> <tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage> <font color=black><b>Please Set Branch and Printer</b></font></td></tr> <tr><td> $branchform </td> <td> $printerform </td></tr> </table> <input type="submit" value="Change Settings" type="changesettings"> </form> EOF } print endmenu('circulation'); print endpage(); Index: circulation.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/circulation.pl,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -r1.21 -r1.22 *** circulation.pl 12 Mar 2002 21:04:32 -0000 1.21 --- circulation.pl 14 Mar 2002 01:04:00 -0000 1.22 *************** *** 154,157 **** --- 154,158 ---- print endmenu('circulation'); print endpage(); + sub default { print << "EOF";

1 0