[Koha-cvs] CVS: koha/updater updatedatabase,1.16,1.17

[Paul POULAIN]

Update of /cvsroot/koha/koha/updater
In directory usw-pr-cvs1:/tmp/cvs-serv3540

Modified Files:
        updatedatabase 
Log Message:
long WAS the road to 1.3.0...
coming VERY SOON NOW...
modifying installer and buildrelease to update the DB


Index: updatedatabase
===================================================================
RCS file: /cvsroot/koha/koha/updater/updatedatabase,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** updatedatabase      31 Jul 2002 02:34:27 -0000      1.16
--- updatedatabase      24 Sep 2002 12:57:35 -0000      1.17
***************
*** 93,96 ****
--- 93,171 ----
                       ip char(18) NOT NULL default '',
                       url text NOT NULL default ''  )",
+     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) )",
+     marc_biblio => "(
+                          bibid bigint(20) unsigned NOT NULL auto_increment,
+                          biblionumber int(11) NOT NULL default '0',
+                          datecreated date NOT NULL default '0000-00-00',
+                          datemodified date default NULL,
+                          origincode char(20) default NULL,
+                          PRIMARY KEY  (bibid),
+                          KEY origincode (origincode),
+                          KEY biblionumber (biblionumber)
+                          ) ",
+      marc_blob_subfield => "(
+                              blobidlink bigint(20) NOT NULL auto_increment,
+                              subfieldvalue longtext NOT NULL,
+                              PRIMARY KEY  (blobidlink)
+                             ) ",
+      marc_subfield_structure => "(
+                                   tagfield char(3) NOT NULL default '',
+                                   tagsubfield char(1) NOT NULL default '',
+                                   liblibrarian char(255) NOT NULL default '',
+                                   libopac char(255) NOT NULL default '',
+                                   repeatable tinyint(4) NOT NULL default '0',
+                                   mandatory tinyint(4) NOT NULL default '0',
+                                   kohafield char(40) NOT NULL default '',
+                                   PRIMARY KEY  (tagfield,tagsubfield),
+                                   KEY kohafield (kohafield)
+                                  )",
+      marc_subfield_table => "(
+                               subfieldid bigint(20) unsigned NOT NULL 
auto_increment,
+                               bibid bigint(20) unsigned NOT NULL default '0',
+                               tag char(3) NOT NULL default '',
+                               tagorder tinyint(4) NOT NULL default '1',
+                               tag_indicator char(2) NOT NULL default '',
+                               subfieldcode char(1) NOT NULL default '',
+                               subfieldorder tinyint(4) NOT NULL default '1',
+                               subfieldvalue varchar(255) default NULL,
+                               valuebloblink bigint(20) default NULL,
+                               PRIMARY KEY  (subfieldid),
+                               KEY bibid (bibid),
+                               KEY tag (tag),
+                               KEY tag_indicator (tag_indicator),
+                               KEY subfieldorder (subfieldorder),
+                               KEY subfieldcode (subfieldcode),
+                               KEY subfieldvalue (subfieldvalue),
+                               KEY tagorder (tagorder)
+                             )",
+      marc_tag_structure => "(
+                              tagfield char(3) NOT NULL default '',
+                              liblibrarian char(255) NOT NULL default '',
+                              libopac char(255) NOT NULL default '',
+                              repeatable tinyint(4) NOT NULL default '0',
+                              mandatory tinyint(4) NOT NULL default '0',
+                              PRIMARY KEY  (tagfield)
+                             )",
+      marc_word => "(
+                     bibid bigint(20) NOT NULL default '0',
+                     tag char(3) NOT NULL default '',
+                     tagorder tinyint(4) NOT NULL default '1',
+                     subfieldid char(1) NOT NULL default '',
+                     subfieldorder tinyint(4) NOT NULL default '1',
+                     word varchar(255) NOT NULL default '',
+                     sndx_word varchar(255) NOT NULL default '',
+                     KEY bibid (bibid),
+                     KEY tag (tag),
+                     KEY tagorder (tagorder),
+                     KEY subfieldid (subfieldid),
+                     KEY subfieldorder (subfieldorder),
+                     KEY word (word),
+                     KEY sndx_word (sndx_word)
+                    )",
  );
  
***************
*** 116,119 ****
--- 191,205 ----
  );
  
+ my %dropable_table=(
+                   classification   =>'classification',
+                   multipart        =>'multipart',
+                   multivolume      =>'multivolume',
+                   newitems         =>'newitems',
+                   procedures       =>'procedures',
+                   publisher        =>'publisher',
+                   searchstats      =>'searchstats',
+                   serialissues     =>'serialissues',
+                   );
+ 
  # Default system preferences
  my %defaultprefs=(
***************
*** 161,164 ****
--- 247,260 ----
  } # foreach
  
+ # now drop useless tables
+ foreach $table ( keys %dropable_table) {
+     print "Dropping unused tables...\n" if $debug;
+     if ($existingtables{$table} ) {
+       $dbh->do("drop table $table");
+       if ($dbh->err) {
+           print "Error : $dbh->errstr \n";
+       }
+     }
+ }
  unless ($existingtables{'z3950servers'}) {
      print "Adding z3950servers table...\n";
***************
*** 308,311 ****
--- 404,412 ----
  
  # $Log$
+ # Revision 1.17  2002/09/24 12:57:35  tipaul
+ # long WAS the road to 1.3.0...
+ # coming VERY SOON NOW...
+ # modifying installer and buildrelease to update the DB
+ #
  # Revision 1.16  2002/07/31 02:34:27  finlayt
  #