Update of /cvsroot/koha/koha/updater In directory usw-pr-cvs1:/tmp/cvs-serv32641/updater Modified Files: updatedatabase2.pl Log Message: updated database.mysql : dropped unused tables, created indexes : old database.mysql updated by updatedatabase2.pl script Index: updatedatabase2.pl =================================================================== RCS file: /cvsroot/koha/koha/updater/updatedatabase2.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** updatedatabase2.pl 19 Mar 2002 15:39:31 -0000 1.1 --- updatedatabase2.pl 2 May 2002 09:19:50 -0000 1.2 *************** *** 43,75 **** 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 --- 43,75 ---- my $dbh=C4Connect; my $sth=$dbh->prepare("show tables"); $sth->execute; while (my ($table) = $sth->fetchrow) { $tables{$table}=1; + print "table $table\n"; } ! #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 *************** *** 124,130 **** 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"); --- 124,130 ---- 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);"); 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");