updater/updatedatabase

   1 #!/usr/bin/perl
   2
   3 # $Id$
   4
   5 # Database Updater
   6 # This script checks for required updates to the database.
   7
   8 # Part of the Koha Library Software www.koha.org
   9 # Licensed under the GPL.
  10
  11 # Bugs/ToDo:
  12 # - Would also be a good idea to offer to do a backup at this time...
  13
  14 # NOTE:  If you do something more than once in here, make it table driven.
  15
  16 use strict;
  17
  18 # CPAN modules
  19 use DBI;
  20
  21 # Koha modules
  22 use C4::Context("/etc/koha.conf.tmp");
  23
  24 # FIXME - /etc/koha.conf might not exist, so shouldn't use
  25 # C4::Context.
  26
  27 # FIXME - The user might be installing a new database, so can't rely
  28 # on /etc/koha.conf anyway.
  29
  30 my $debug = 0;
  31
  32 my (
  33     $sth, $sti,
  34     $query,
  35     %existingtables,    # tables already in database
  36     %types,
  37     $table,
  38     $column,
  39     $type, $null, $key, $default, $extra,
  40     $prefitem,          # preference item in systempreferences table
  41 );
  42
  43 my $dbh = C4::Context->dbh;
  44
  45 #-------------------
  46 # Defines
  47
  48 # Tables to add if they don't exist
  49 my %requiretables = (
  50     shelfcontents => "( shelfnumber int not null,
  51                                                         itemnumber int not null,
  52                                                         flags int)",
  53     bookshelf => "( shelfnumber int auto_increment primary key,
  54                                                 shelfname char(255))",
  55     z3950queue => "( id int auto_increment primary key,
  56                                                 term text,
  57                                                 type char(10),
  58                                                 startdate int,
  59                                                 enddate int,
  60                                                 done smallint,
  61                                                 results longblob,
  62                                                 numrecords int,
  63                                                 servers text,
  64                                                 identifier char(30))",
  65     z3950results => "( id int auto_increment primary key,
  66                                                 queryid int,
  67                                                 server char(255),
  68                                                 startdate int,
  69                                                 enddate int,
  70                                                 results longblob,
  71                                                 numrecords int,
  72                                                 numdownloaded int,
  73                                                 highestseen int,
  74                                                 active smallint)",
  75     branchrelations => "( branchcode varchar(4),
  76                                                         categorycode varchar(4))",
  77     websites => "( websitenumber int(11) NOT NULL auto_increment,
  78                                                 biblionumber int(11) NOT NULL default '0',
  79                                                 title text,
  80                                                 description text,
  81                                                 url varchar(255),
  82                                                 PRIMARY KEY (websitenumber) )",
  83     marcrecorddone => "( isbn char(40),
  84                                                                 issn char(40),
  85                                                                 lccn char(40),
  86                                                                 controlnumber char(40))",
  87     uploadedmarc => "( id int(11) NOT NULL auto_increment PRIMARY KEY,
  88                                                         marc longblob,
  89                                                         hidden smallint(6) default NULL,
  90                                                         name varchar(255) default NULL)",
  91     ethnicity => "( code varchar(10) NOT NULL default '',
  92                                         name varchar(255) default NULL,
  93                                         PRIMARY KEY  (code)   )",
  94     sessions => "( sessionID varchar(255) NOT NULL default '',
  95                                                 userid varchar(255) default NULL,
  96                                                 ip varchar(16) default NULL,
  97                                                 lasttime int,
  98                                                 PRIMARY KEY (sessionID)   )",
  99     sessionqueries => "( sessionID varchar(255) NOT NULL default '',
 100                                                                 userid char(100) NOT NULL default '',
 101                                                                 ip char(18) NOT NULL default '',
 102                                                                 url text NOT NULL default ''  )",
 103     bibliothesaurus => "( id bigint(20) NOT NULL auto_increment,
 104                                                         freelib char(255) NOT NULL default '',
 105                                                         stdlib char(255) NOT NULL default '',
 106                                                         category char(10) NOT NULL default '',
 107                                                         level tinyint(4) NOT NULL default '1',
 108                                                         hierarchy char(80) NOT NULL default '',
 109                                                         father bigint(20) NOT NULL default '',
 110                                                         PRIMARY KEY  (id),
 111                                                         KEY freelib (freelib),
 112                                                         KEY stdlib (stdlib),
 113                                                         KEY category (category),
 114                                                         KEY hierarchy (hierarchy)
 115                                                         )",
 116     marc_biblio => "(
 117                                                 bibid bigint(20) unsigned NOT NULL auto_increment,
 118                                                 biblionumber int(11) NOT NULL default '0',
 119                                                 datecreated date NOT NULL default '0000-00-00',
 120                                                 datemodified date default NULL,
 121                                                 origincode char(20) default NULL,
 122                                                 PRIMARY KEY  (bibid),
 123                                                 KEY origincode (origincode),
 124                                                 KEY biblionumber (biblionumber)
 125                                                 ) ",
 126     marc_blob_subfield => "(
 127                                         blobidlink bigint(20) NOT NULL auto_increment,
 128                                         subfieldvalue longtext NOT NULL,
 129                                         PRIMARY KEY  (blobidlink)
 130                                         ) ",
 131     marc_subfield_structure => "(
 132                                                 tagfield char(3) NOT NULL default '',
 133                                                 tagsubfield char(1) NOT NULL default '',
 134                                                 liblibrarian char(255) NOT NULL default '',
 135                                                 libopac char(255) NOT NULL default '',
 136                                                 repeatable tinyint(4) NOT NULL default '0',
 137                                                 mandatory tinyint(4) NOT NULL default '0',
 138                                                 kohafield char(40)  default NULL,
 139                                                 tab tinyint(1) default NULL,
 140                                                 authorised_value char(10) default NULL,
 141                                                 thesaurus_category char(10) default NULL,
 142                                                 value_builder char(80) default NULL,
 143                                                 PRIMARY KEY  (tagfield,tagsubfield),
 144                                                 KEY kohafield (kohafield),
 145                                                 KEY tab (tab)
 146                                                 )",
 147     marc_subfield_table => "(
 148                                                 subfieldid bigint(20) unsigned NOT NULL auto_increment,
 149                                                 bibid bigint(20) unsigned NOT NULL default '0',
 150                                                 tag char(3) NOT NULL default '',
 151                                                 tagorder tinyint(4) NOT NULL default '1',
 152                                                 tag_indicator char(2) NOT NULL default '',
 153                                                 subfieldcode char(1) NOT NULL default '',
 154                                                 subfieldorder tinyint(4) NOT NULL default '1',
 155                                                 subfieldvalue varchar(255) default NULL,
 156                                                 valuebloblink bigint(20) default NULL,
 157                                                 PRIMARY KEY  (subfieldid),
 158                                                 KEY bibid (bibid),
 159                                                 KEY tag (tag),
 160                                                 KEY tag_indicator (tag_indicator),
 161                                                 KEY subfieldorder (subfieldorder),
 162                                                 KEY subfieldcode (subfieldcode),
 163                                                 KEY subfieldvalue (subfieldvalue),
 164                                                 KEY tagorder (tagorder)
 165                                         )",
 166     marc_tag_structure => "(
 167                                         tagfield char(3) NOT NULL default '',
 168                                         liblibrarian char(255) NOT NULL default '',
 169                                         libopac char(255) NOT NULL default '',
 170                                         repeatable tinyint(4) NOT NULL default '0',
 171                                         mandatory tinyint(4) NOT NULL default '0',
 172                                         authorised_value char(10) default NULL,
 173                                         PRIMARY KEY  (tagfield)
 174                                         )",
 175     marc_word => "(
 176                                 bibid bigint(20) NOT NULL default '0',
 177                                 tag char(3) NOT NULL default '',
 178                                 tagorder tinyint(4) NOT NULL default '1',
 179                                 subfieldid char(1) NOT NULL default '',
 180                                 subfieldorder tinyint(4) NOT NULL default '1',
 181                                 word varchar(255) NOT NULL default '',
 182                                 sndx_word varchar(255) NOT NULL default '',
 183                                 KEY bibid (bibid),
 184                                 KEY tag (tag),
 185                                 KEY tagorder (tagorder),
 186                                 KEY subfieldid (subfieldid),
 187                                 KEY subfieldorder (subfieldorder),
 188                                 KEY word (word),
 189                                 KEY sndx_word (sndx_word)
 190                         )",
 191     marc_breeding => "(  id bigint(20) NOT NULL auto_increment,
 192                                 file varchar(80) NOT NULL default '',
 193                                 isbn varchar(10) NOT NULL default '',
 194                                 title varchar(128) default NULL,
 195                                 author varchar(80) default NULL,
 196                                 marc text NOT NULL,
 197                                 encoding varchar(40) default NULL,
 198                                 PRIMARY KEY  (id),
 199                                 KEY title (title),
 200                                 KEY isbn (isbn)
 201                         )",
 202     authorised_values => "(id int(11) NOT NULL auto_increment,
 203                                 category char(10) NOT NULL default '',
 204                                 authorised_value char(80) NOT NULL default '',
 205                                 lib char(80) NULL,
 206                                 PRIMARY KEY  (id),
 207                                 KEY name (category)
 208                         )",
 209     userflags => "( bit int(11) NOT NULL default '0',
 210                                 flag char(30), flagdesc char(255),
 211                                 defaulton int(11)
 212                         )",
 213 );
 214
 215 my %requirefields = (
 216     biblio        => { 'abstract' => 'text' },
 217     deletedbiblio => { 'abstract' => 'text' },
 218     biblioitems   => {
 219         'lccn' => 'char(25)',
 220         'url'  => 'varchar(255)',
 221         'marc' => 'text'
 222     },
 223     deletedbiblioitems => {
 224         'lccn' => 'char(25)',
 225         'url'  => 'varchar(255)',
 226         'marc' => 'text'
 227     },
 228     branchtransfers => { 'datearrived'    => 'datetime' },
 229     statistics      => { 'borrowernumber' => 'int(11)' },
 230     aqbooksellers   => {
 231         'invoicedisc' => 'float(6,4)',
 232         'nocalc'      => 'int(11)'
 233     },
 234     borrowers => {
 235         'userid'        => 'char(30)',
 236         'password'      => 'char(30)',
 237         'flags'         => 'int(11)',
 238         'textmessaging' => 'varchar(30)'
 239     },
 240     aqorders => { 'budgetdate' => 'date' },
 241
 242     #added so that reference items are not available for reserves...
 243     itemtypes         => { 'notforloan'  => 'smallint(6)' },
 244     systempreferences => { 'explanation' => 'char(80)' },
 245     z3950servers      => { 'syntax'      => 'char(80)' },
 246 );
 247
 248 my %dropable_table = (
 249     classification => 'classification',
 250     multipart      => 'multipart',
 251     multivolume    => 'multivolume',
 252     newitems       => 'newitems',
 253     procedures     => 'procedures',
 254     publisher      => 'publisher',
 255     searchstats    => 'searchstats',
 256     serialissues   => 'serialissues',
 257 );
 258
 259 # The tabledata hash contains data that should be in the tables.
 260 # The uniquefieldrequired hash entry is used to determine which (if any) fields
 261 # must not exist in the table for this row to be inserted.  If the
 262 # uniquefieldrequired entry is already in the table, the existing data is not
 263 # modified.
 264
 265 my %tabledata = (
 266     userflags => [
 267         {
 268             uniquefieldrequired => 'bit',
 269             bit                 => 0,
 270             flag                => 'superlibrarian',
 271             flagdesc            => 'Access to all librarian functions',
 272             defaulton           => 0
 273         },
 274         {
 275             uniquefieldrequired => 'bit',
 276             bit                 => 1,
 277             flag                => 'circulate',
 278             flagdesc            => 'Circulate books',
 279             defaulton           => 0
 280         },
 281         {
 282             uniquefieldrequired => 'bit',
 283             bit                 => 2,
 284             flag                => 'catalogue',
 285             flagdesc            => 'View Catalogue (Librarian Interface)',
 286             defaulton           => 0
 287         },
 288         {
 289             uniquefieldrequired => 'bit',
 290             bit                 => 3,
 291             flag                => 'parameters',
 292             flagdesc            => 'Set Koha system paramters',
 293             defaulton           => 0
 294         },
 295         {
 296             uniquefieldrequired => 'bit',
 297             bit                 => 4,
 298             flag                => 'borrowers',
 299             flagdesc            => 'Add or modify borrowers',
 300             defaulton           => 0
 301         },
 302         {
 303             uniquefieldrequired => 'bit',
 304             bit                 => 5,
 305             flag                => 'permissions',
 306             flagdesc            => 'Set user permissions',
 307             defaulton           => 0
 308         },
 309         {
 310             uniquefieldrequired => 'bit',
 311             bit                 => 6,
 312             flag                => 'reserveforothers',
 313             flagdesc            => 'Reserve books for patrons',
 314             defaulton           => 0
 315         },
 316         {
 317             uniquefieldrequired => 'bit',
 318             bit                 => 7,
 319             flag                => 'borrow',
 320             flagdesc            => 'Borrow books',
 321             defaulton           => 1
 322         },
 323         {
 324             uniquefieldrequired => 'bit',
 325             bit                 => 8,
 326             flag                => 'reserveforself',
 327             flagdesc            => 'Reserve books for self',
 328             defaulton           => 0
 329         },
 330         {
 331             uniquefieldrequired => 'bit',
 332             bit                 => 9,
 333             flag                => 'editcatalogue',
 334             flagdesc  => 'Edit Catalogue (Modify bibliographic/holdings data)',
 335             defaulton => 0
 336         },
 337         {
 338             uniquefieldrequired => 'bit',
 339             bit                 => 10,
 340             flag                => 'updatecharges',
 341             flagdesc            => 'Update borrower charges',
 342             defaulton           => 0
 343         },
 344     ],
 345     systempreferences => [
 346         {
 347             uniquefieldrequired => 'variable',
 348             variable            => 'autoMemberNum',
 349             value               => '1',
 350             explanation         => '1 or 0. If 1, Member number is auto-calculated'
 351         },
 352         {
 353             uniquefieldrequired => 'variable',
 354             variable            => 'acquisitions',
 355             value               => 'simple',
 356             explanation         =>
 357 'normal or simple : whether to use "acqui" or "acqui.simple" acquisition system'
 358         },
 359         {
 360             uniquefieldrequired => 'variable',
 361             variable            => 'dateformat',
 362             value               => 'metric',
 363             explanation         => 'metric, us, or iso'
 364         },
 365         {
 366             uniquefieldrequired => 'variable',
 367             variable            => 'template',
 368             value               => 'default',
 369             explanation         => 'template default name'
 370         },
 371         {
 372             uniquefieldrequired => 'variable',
 373             variable            => 'autoBarcode',
 374             value               => '1',
 375             explanation         => '1 or 0. If 1, Barcode is auto-calculated'
 376         },
 377         {
 378             uniquefieldrequired => 'variable',
 379             variable            => 'insecure',
 380             value               => 'NO',
 381             explanation         =>
 382 'if YES, no auth at all is needed. Be careful if you set this to yes !'
 383         },
 384         {
 385             uniquefieldrequired => 'variable',
 386             variable            => 'authoritysep',
 387             value               => '--',
 388             explanation         =>
 389             'the separator used in authority/thesaurus. Usually --'
 390         },
 391         {
 392             uniquefieldrequired => 'variable',
 393             variable            => 'opaclanguages',
 394             value               => 'en',
 395             explanation         => 'languages'
 396         },
 397         {
 398             uniquefieldrequired => 'variable',
 399             variable            => 'opacthemes',
 400             value               => 'default',
 401             explanation         => 'theme'
 402         },
 403         {
 404             uniquefieldrequired => 'variable',
 405             variable            => 'timeout',
 406             value               => '12000000',
 407             explanation         => 'login timeout'
 408         },
 409         {
 410             uniquefieldrequired => 'variable',
 411             variable            => 'marc',
 412             value               => 'ON',
 413             explanation         => 'MARC support (ON or OFF)'
 414         },
 415         {
 416             uniquefieldrequired => 'variable',
 417             variable            => 'marcflavour',
 418             value               => 'MARC21',
 419             explanation         =>
 420             'your MARC flavor (MARC21 or UNIMARC) used for character encoding'
 421         },
 422         {
 423             uniquefieldrequired => 'variable',
 424             variable            => 'checkdigit',
 425             value               => 'katipo',
 426             explanation         =>
 427             'none= no check on member cardnumber. katipo= katipo check'
 428         },
 429         {
 430             uniquefieldrequired => 'variable',
 431             variable            => 'dateformat',
 432             value               => 'ISO',
 433             explanation         =>
 434             'date format (US mm/dd/yyyy, metric dd/mm/yyy, ISO yyyy/mm/dd) '
 435         },
 436         {
 437             uniquefieldrequired => 'variable',
 438             variable            => 'maxoutstanding',
 439             value               => '5',
 440             explanation         =>
 441             'maximum amount withstanding to be able make reserves '
 442         },
 443         {
 444             uniquefieldrequired => 'variable',
 445             variable            => 'maxreserves',
 446             value               => '5',
 447             explanation         =>
 448             'maximum number of reserves a member can make '
 449         },
 450         {
 451             uniquefieldrequired => 'variable',
 452             variable            => 'noissuescharge',
 453             value               => '5',
 454             explanation         =>
 455             'maximum amount withstanding to be able to check out an item '
 456         },
 457         {
 458             uniquefieldrequired => 'variable',
 459             variable            => 'KohaAdminEmailAddress',
 460             value               => 'your.mail@here',
 461             explanation => 'the email adress where borrowers modifs are sent'
 462         },
 463     ],
 464
 465 );
 466
 467 my %fielddefinitions = (
 468     printers => [
 469         {
 470             field   => 'printername',
 471             type    => 'char(40)',
 472             null    => '',
 473             key     => 'PRI',
 474             default => ''
 475         },
 476     ],
 477     aqbookfund => [
 478         {
 479             field   => 'bookfundid',
 480             type    => 'char(5)',
 481             null    => '',
 482             key     => 'PRI',
 483             default => ''
 484         },
 485     ],
 486     z3950servers => [
 487         {
 488             field   => 'id',
 489             type    => 'int',
 490             null    => '',
 491             key     => 'PRI',
 492             default => '',
 493             extra   => 'auto_increment'
 494         },
 495     ],
 496 );
 497
 498 #-------------------
 499 # Initialize
 500
 501 # Start checking
 502
 503 # Get version of MySQL database engine.
 504 my $mysqlversion = `mysqld --version`;
 505 $mysqlversion =~ /Ver (\S*) /;
 506 $mysqlversion = $1;
 507 if ( $mysqlversion ge '3.23' ) {
 508     print "Could convert to MyISAM database tables...\n";
 509 }
 510
 511 #---------------------------------
 512 # Tables
 513
 514 # Collect all tables into a list
 515 $sth = $dbh->prepare("show tables");
 516 $sth->execute;
 517 while ( my ($table) = $sth->fetchrow ) {
 518     $existingtables{$table} = 1;
 519 }
 520
 521 # Now add any missing tables
 522 foreach $table ( keys %requiretables ) {
 523     print "Checking $table table...\n" if $debug;
 524     unless ( $existingtables{$table} ) {
 525         print "Adding $table table...\n";
 526         my $sth = $dbh->prepare("create table $table $requiretables{$table}");
 527         $sth->execute;
 528         if ( $sth->err ) {
 529             print "Error : $sth->errstr \n";
 530             $sth->finish;
 531         }    # if error
 532     }    # unless exists
 533 }    # foreach
 534
 535 # now drop useless tables
 536 foreach $table ( keys %dropable_table ) {
 537     print "Dropping unused tables...\n" if $debug;
 538     if ( $existingtables{$table} ) {
 539         $dbh->do("drop table $table");
 540         if ( $dbh->err ) {
 541             print "Error : $dbh->errstr \n";
 542         }
 543     }
 544 }
 545 unless ( $existingtables{'z3950servers'} ) {
 546     print "Adding z3950servers table...\n";
 547     my $sti = $dbh->prepare( "create table z3950servers (
 548                                                                                 host char(255),
 549                                                                                 port int,
 550                                                                                 db char(255),
 551                                                                                 userid char(255),
 552                                                                                 password char(255),
 553                                                                                 name text,
 554                                                                                 id int,
 555                                                                                 checked smallint,
 556                                                                                 rank int)"
 557     );
 558     $sti->execute;
 559     $sti = $dbh->prepare( "insert into z3950servers
 560                                                                 values ('z3950.loc.gov',
 561                                                                 7090,
 562                                                                 'voyager',
 563                                                                 '', '',
 564                                                                 'Library of Congress',
 565                                                                 1, 1, 1)"
 566     );
 567     $sti->execute;
 568 }
 569
 570 #---------------------------------
 571 # Columns
 572
 573 foreach $table ( keys %requirefields ) {
 574     print "Check table $table\n" if $debug;
 575     $sth = $dbh->prepare("show columns from $table");
 576     $sth->execute();
 577     undef %types;
 578     while ( ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
 579     {
 580         $types{$column} = $type;
 581     }    # while
 582     foreach $column ( keys %{ $requirefields{$table} } ) {
 583         print "  Check column $column\n" if $debug;
 584         if ( !$types{$column} ) {
 585
 586             # column doesn't exist
 587             print "Adding $column field to $table table...\n";
 588             $query = "alter table $table
 589                         add column $column " . $requirefields{$table}->{$column};
 590             print "Execute: $query\n" if $debug;
 591             my $sti = $dbh->prepare($query);
 592             $sti->execute;
 593             if ( $sti->err ) {
 594                 print "**Error : $sti->errstr \n";
 595                 $sti->finish;
 596             }    # if error
 597         }    # if column
 598     }    # foreach column
 599 }    # foreach table
 600
 601 foreach $table ( keys %fielddefinitions ) {
 602     print "Check table $table\n" if $debug;
 603     $sth = $dbh->prepare("show columns from $table");
 604     $sth->execute();
 605     my $definitions;
 606     while ( ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
 607     {
 608         $definitions->{$column}->{type}    = $type;
 609         $definitions->{$column}->{null}    = $null;
 610         $definitions->{$column}->{key}     = $key;
 611         $definitions->{$column}->{default} = $default;
 612         $definitions->{$column}->{extra}   = $extra;
 613     }    # while
 614     my $fieldrow = $fielddefinitions{$table};
 615     foreach my $row (@$fieldrow) {
 616         my $field   = $row->{field};
 617         my $type    = $row->{type};
 618         my $null    = $row->{null};
 619         my $key     = $row->{key};
 620         my $default = $row->{default};
 621         my $extra   = $row->{extra};
 622         my $def     = $definitions->{$field};
 623         unless ( $type eq $def->{type}
 624             && $null eq $def->{null}
 625             && $key eq $def->{key}
 626             && $default eq $def->{default}
 627             && $extra eq $def->{extra} )
 628         {
 629
 630             if ( $null eq '' ) {
 631                 $null = 'NOT NULL';
 632             }
 633             if ( $key eq 'PRI' ) {
 634                 $key = 'PRIMARY KEY';
 635             }
 636             unless ( $extra eq 'auto_increment' ) {
 637                 $extra = '';
 638             }
 639             my $sth =
 640               $dbh->prepare(
 641 "alter table $table change $field $field $type $null $key $extra default ?"
 642             );
 643             $sth->execute($default);
 644             print "  Alter $field in $table\n";
 645         }
 646     }
 647 }
 648
 649 # Get list of columns from items table
 650 my %itemtypes;
 651
 652 $sth = $dbh->prepare("show columns from items");
 653 $sth->execute;
 654 while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
 655 {
 656     $itemtypes{$column} = $type;
 657 }
 658
 659 unless ( $itemtypes{'barcode'} eq 'varchar(20)' ) {
 660     $itemtypes{'barcode'} =~ /varchar\((\d+)\)/;
 661     my $oldlength = $1;
 662     if ( $oldlength < 20 ) {
 663         print "Setting maximum barcode length to 20 (was $oldlength).\n";
 664         my $sti =
 665           $dbh->prepare(
 666             "alter table items change barcode barcode varchar(20) not null");
 667         $sti->execute;
 668     }
 669 }
 670
 671 # extending the timestamp in branchtransfers...
 672 my %branchtransfers;
 673
 674 $sth = $dbh->prepare("show columns from branchtransfers");
 675 $sth->execute;
 676 while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
 677 {
 678     $branchtransfers{$column} = $type;
 679 }
 680
 681 unless ( $branchtransfers{'datesent'} eq 'datetime' ) {
 682     print "Setting type of datesent in branchtransfers to datetime.\n";
 683     my $sti =
 684       $dbh->prepare(
 685         "alter table branchtransfers change datesent datesent datetime");
 686     $sti->execute;
 687 }
 688
 689 unless ( $branchtransfers{'datearrived'} eq 'datetime' ) {
 690     print "Setting type of datearrived in branchtransfers to datetime.\n";
 691     my $sti =
 692       $dbh->prepare(
 693         "alter table branchtransfers change datearrived datearrived datetime");
 694     $sti->execute;
 695 }
 696
 697 # changing the branchcategories table around...
 698 my %branchcategories;
 699
 700 $sth = $dbh->prepare("show columns from branchcategories");
 701 $sth->execute;
 702 while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
 703 {
 704     $branchcategories{$column} = $type;
 705 }
 706
 707 unless ( $branchcategories{'categorycode'} eq 'varchar(4)' ) {
 708     print
 709 "Setting type of categorycode in branchcategories to varchar(4),\n and making the primary key.\n";
 710     my $sti =
 711       $dbh->prepare(
 712 "alter table branchcategories change categorycode categorycode varchar(4) not null"
 713     );
 714     $sti->execute;
 715     $sti =
 716       $dbh->prepare(
 717         "alter table branchcategories add primary key (categorycode)");
 718     $sti->execute;
 719 }
 720
 721 unless ( $branchcategories{'categoryname'} eq 'text' ) {
 722     print "Changing branchcode in branchcategories to categoryname text.\n";
 723     my $sth =
 724       $dbh->prepare(
 725         "alter table branchcategories change branchcode categoryname text");
 726     $sth->execute;
 727 }
 728
 729 unless ( $branchcategories{'codedescription'} eq 'text' ) {
 730     print
 731 "Replacing branchholding in branchcategories with codedescription text.\n";
 732     my $sth =
 733       $dbh->prepare(
 734         "alter table branchcategories change branchholding codedescription text"
 735     );
 736     $sth->execute;
 737 }
 738
 739 # Populate tables with required data
 740
 741 foreach my $table ( keys %tabledata ) {
 742     print "Checking for data required in table $table...\n";
 743     my $tablerows = $tabledata{$table};
 744     foreach my $row (@$tablerows) {
 745         my $uniquefieldrequired = $row->{uniquefieldrequired};
 746         my $uniquevalue         = $row->{$uniquefieldrequired};
 747         my $sth                 =
 748           $dbh->prepare(
 749 "select $uniquefieldrequired from $table where $uniquefieldrequired=?"
 750         );
 751         $sth->execute($uniquevalue);
 752         unless ( $sth->rows ) {
 753             print "Adding row to $table: ";
 754             my @values;
 755             my $fieldlist;
 756             my $placeholders;
 757             foreach my $field ( keys %$row ) {
 758                 (next) if ( $field eq 'uniquefieldrequired' );
 759                 my $value = $row->{$field};
 760                 push @values, $value;
 761                 print "  $field => $value";
 762                 $fieldlist .= "$field,";
 763                 $placeholders .= "?,";
 764             }
 765             print "\n";
 766             $fieldlist    =~ s/,$//;
 767             $placeholders =~ s/,$//;
 768             my $sth =
 769               $dbh->prepare(
 770                 "insert into $table ($fieldlist) values ($placeholders)");
 771             $sth->execute(@values);
 772         }
 773     }
 774 }
 775
 776 $sth->finish;
 777
 778 exit;
 779
 780 # $Log$
 781 # Revision 1.46  2003/05/08 12:48:24  wolfpac444
 782 # Added "noissuescharge" parameter
 783 #
 784 # Revision 1.45  2003/05/08 12:26:16  wolfpac444
 785 # Bug fixes
 786 #
 787 # Revision 1.44  2003/05/03 05:39:57  rangi
 788 # Fixing bug 429
 789 # (Wording changes in the explanation fields in system preferences)
 790 #
 791 # Revision 1.43  2003/05/02 23:01:09  rangi
 792 # Adding the textmessaging column to the borrowers table.
 793 # insertdata.pl is expecting this to exist, and hence modifying/adding
 794 # borrowers was broken.
 795 #
 796 # Also ran they script thru perltidy
 797 #
 798 # Revision 1.42  2003/04/29 16:53:25  tipaul
 799 # really proud of this commit :-)
 800 # z3950 search and import seems to works fine.
 801 # Let me explain how :
 802 # * a "search z3950" button is added in the addbiblio template.
 803 # * when clicked, a popup appears and z3950/search.pl is called
 804 # * z3950/search.pl calls addz3950search in the DB
 805 # * the z3950 daemon retrieve the records and stores them in z3950results AND in marc_breeding table.
 806 # * as long as there as searches pending, the popup auto refresh every 2 seconds, and says how many searches are pending.
 807 # * when the user clicks on a z3950 result => the parent popup is called with the requested biblio, and auto-filled
 808 #
 809 # Note :
 810 # * character encoding support : (It's a nightmare...) In the z3950servers table, a "encoding" column has been added. You can put "UNIMARC" or "USMARC" in this column. Depending on this, the char_decode in C4::Biblio.pm replaces marc-char-encode by an iso 8859-1 encoding. Note that in the breeding import this value has been added too, for a better support.
 811 # * the marc_breeding and z3950* tables have been modified : they have an encoding column and the random z3950 number is stored too for convenience => it's the key I use to list only requested biblios in the popup.
 812 #
 813 # Revision 1.41  2003/04/29 08:09:44  tipaul
 814 # z3950 support is coming...
 815 # * adding a syntax column in z3950 table = this column will say wether the z3950 must be called with PerferedRecordsyntax => USMARC or PerferedRecordsyntax => UNIMARC. I tried some french UNIMARC z3950 servers, and some only send USMARC, some only UNIMARC, some can answer with both.
 816 # Note this is a 1st draft. More to follow (today ? I hope).
 817 #
 818 # Revision 1.40  2003/04/22 10:48:27  wolfpac444
 819 # Added "father" column to bibliothesaurus table
 820 #
 821 # Revision 1.39  2003/04/04 08:45:00  tipaul
 822 # last commits before 1.9.1
 823 #
 824 # Revision 1.38  2003/03/18 10:58:19  tipaul
 825 # adding checkdigit parameter that choose how to check the members cardnumber.
 826 # At the moment :
 827 # * none = no checking
 828 # * katipo = checked as before
 829 #
 830 # Revision 1.37  2003/01/30 01:47:48  acli
 831 # Corrected syntax error reported by Benedict
 832 #
 833 # Made the indentation somewhat easier to read; the messiness probably caused
 834 # the original syntax error.
 835 #
 836 # Revision 1.36  2003/01/28 15:13:30  tipaul
 837 # userflag table now created in upgrade script (bugfix #171)
 838 #
 839 # Revision 1.35  2003/01/27 03:12:49  acli
 840 # Reworded the description for "acquisitions" to make it fit on the screen
 841 #
 842 # Added "iso" to dateformat, since dateformat is not yet being used anyway
 843 #
 844 # Revision 1.34  2003/01/23 12:30:02  tipaul
 845 # introducint marcflavour in systempref file : used for character decoding
 846 #
 847 # Revision 1.33  2003/01/21 09:03:27  tipaul
 848 # bugfix (NOTE : this bugs makes installation of the 1.3.3 a little fuzzy. Please fix your DB if you installed 1.3.3)
 849 #
 850 # Revision 1.32  2003/01/16 10:29:45  tipaul
 851 # adding a MARC parameter in systempref ( which is ON or OFF)
 852 # the search will be a marc search if MARC=ON
 853 # and a standard (v1.2) search if MARC=OFF
 854 #
 855 # Revision 1.31  2003/01/06 13:32:43  tipaul
 856 # *** empty log message ***
 857 #
 858 # Revision 1.29  2003/01/06 11:14:11  tipaul
 859 # last bugfixes before 1.3.3 : systempref table correctly filled
 860 #
 861 # Revision 1.28  2002/12/10 13:27:47  tipaul
 862 # bugfixes (davide mails in koha-dev)
 863 #
 864 # Revision 1.27  2002/11/26 15:04:54  tipaul
 865 # road to 1.3.2. Updating db structure during installation
 866 #
 867 # Revision 1.26  2002/11/12 17:42:40  tonnesen
 868 # Merged some features over from rel-1-2, including primary key checking.
 869 #
 870 # Revision 1.25  2002/11/12 16:44:38  tipaul
 871 # road to 1.3.2 :
 872 # * many bugfixes
 873 # * adding value_builder : you can map a subfield in the marc_subfield_structure to a sub stored in "value_builder" directory. In this directory you can create screen used to build values with any method. In this commit is a 1st draft of the builder for 100$a unimarc french subfield, which is composed of 35 digits, with 12 differents values (only the 4th first are provided for instance)
 874 #
 875 # Revision 1.24  2002/10/30 14:00:23  arensb
 876 # (bug fix): Fixed typo.
 877 #
 878 # Revision 1.23  2002/10/25 10:55:46  tipaul
 879 # Road to 1.3.2
 880 # * bugfixes and improvements
 881 # * manage mandatory MARC subfields
 882 # * new table : authorised_values. this table contains categories and authorised values for the category. On MARC management, you can map a subfield to a authorised_values category. If you do this, the subfield can only be filled with a authorised_value of the selected category.
 883 # this submit contains everything needed :
 884 # * updatedatabase
 885 # * admin screens
 886 # * "links" management
 887 # * creation of a html-list if a subfield is mapped to an authorised value.
 888 #
 889 # Note this is different from authorities support, which will come soon.
 890 # The authorised_values is supposed to contains a "small" number of authorised values for a category (less than 50-100). If you enter more authorised values than this, it should be hard to find what you want in a BIG list...
 891 #
 892 # Revision 1.22  2002/10/15 10:08:19  tipaul
 893 # fixme corrected, re-indent and adding the marc_breeding table (see commit of marcimport.pl for more explanations about breeding)
 894 #
 895 # Revision 1.21  2002/10/14 11:48:59  tipaul
 896 # bugfix
 897 #
 898 # Revision 1.20  2002/10/10 04:49:41  arensb
 899 # Added some FIXME comments.
 900 #
 901 # Revision 1.19  2002/10/05 10:17:17  arensb
 902 # Merged with arensb-context branch: use C4::Context->dbh instead of
 903 # &C4Connect, and generally prefer C4::Context over C4::Database.
 904 #
 905 # Revision 1.18.2.2  2002/10/05 06:18:43  arensb
 906 # Added a whole mess of FIXME comments.
 907 #
 908 # Revision 1.18.2.1  2002/10/04 02:46:00  arensb
 909 # Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
 910 # C4Connect.
 911 #
 912 # Revision 1.18  2002/09/24 13:50:55  tipaul
 913 # long WAS the road to 1.3.0...
 914 # coming VERY SOON NOW...
 915 # modifying installer and buildrelease to update the DB
 916 #
 917 # Revision 1.17  2002/09/24 12:57:35  tipaul
 918 # long WAS the road to 1.3.0...
 919 # coming VERY SOON NOW...
 920 # modifying installer and buildrelease to update the DB
 921 #
 922 # Revision 1.16  2002/07/31 02:34:27  finlayt
 923 #
 924 # added "notforloan" field to the itemtypes table.
 925 #
 926 # Revision 1.15  2002/07/20 22:30:06  rangi
 927 # Making sure fix makes it into the main branch as well
 928 # Fix for bug 69
 929 #
 930 # Revision 1.14  2002/07/08 16:20:26  tonnesen
 931 # Added sessionqueries table and password/userid fields to borrowers table
 932 #
 933 # Revision 1.13  2002/07/04 18:05:36  tonnesen
 934 # bug fix
 935 #
 936 # Revision 1.12  2002/07/04 16:41:06  tonnesen
 937 # Merged changes from rel-1-2.  Abstracted table structure changes by alan.
 938 #