installer/data/mysql/updatedatabase.pl

   1 #!/usr/bin/perl
   2
   3 # Database Updater
   4 # This script checks for required updates to the database.
   5
   6 # Parts copyright Catalyst IT 2011
   7
   8 # Part of the Koha Library Software www.koha-community.org
   9 # Koha is free software; you can redistribute it and/or modify it
  10 # under the terms of the GNU General Public License as published by
  11 # the Free Software Foundation; either version 3 of the License, or
  12 # (at your option) any later version.
  13 #
  14 # Koha is distributed in the hope that it will be useful, but
  15 # WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17 # GNU General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU General Public License
  20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  21 #
  22
  23 # Bugs/ToDo:
  24 # - Would also be a good idea to offer to do a backup at this time...
  25
  26 # NOTE:  If you do something more than once in here, make it table driven.
  27
  28 # NOTE: Please keep the version in kohaversion.pl up-to-date!
  29
  30 use strict;
  31 use warnings;
  32
  33 # CPAN modules
  34 use DBI;
  35 use Getopt::Long;
  36 # Koha modules
  37 use C4::Context;
  38 use C4::Installer;
  39 use C4::Dates;
  40 use Koha::Database;
  41 use Koha;
  42
  43 use MARC::Record;
  44 use MARC::File::XML ( BinaryEncoding => 'utf8' );
  45
  46 # FIXME - The user might be installing a new database, so can't rely
  47 # on /etc/koha.conf anyway.
  48
  49 my $debug = 0;
  50
  51 my (
  52     $sth, $sti,
  53     $query,
  54     %existingtables,    # tables already in database
  55     %types,
  56     $table,
  57     $column,
  58     $type, $null, $key, $default, $extra,
  59     $prefitem,          # preference item in systempreferences table
  60 );
  61
  62 my $schema = Koha::Database->new()->schema();
  63
  64 my $silent;
  65 GetOptions(
  66     's' =>\$silent
  67     );
  68 my $dbh = C4::Context->dbh;
  69 $|=1; # flushes output
  70
  71 local $dbh->{RaiseError} = 0;
  72
  73 # Record the version we are coming from
  74
  75 my $original_version = C4::Context->preference("Version");
  76
  77 # Deal with virtualshelves
  78 my $DBversion = "3.00.00.001";
  79 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
  80     # update virtualshelves table to
  81     #
  82     $dbh->do("ALTER TABLE `bookshelf` RENAME `virtualshelves`");
  83     $dbh->do("ALTER TABLE `shelfcontents` RENAME `virtualshelfcontents`");
  84     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD `biblionumber` INT( 11 ) NOT NULL default '0' AFTER shelfnumber");
  85     $dbh->do("UPDATE `virtualshelfcontents` SET biblionumber=(SELECT biblionumber FROM items WHERE items.itemnumber=virtualshelfcontents.itemnumber)");
  86     # drop all foreign keys : otherwise, we can't drop itemnumber field.
  87     DropAllForeignKeys('virtualshelfcontents');
  88     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD KEY biblionumber (biblionumber)");
  89     # create the new foreign keys (on biblionumber)
  90     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `virtualshelfcontents_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE");
  91     # re-create the foreign key on virtualshelf
  92     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `shelfcontents_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
  93     $dbh->do("ALTER TABLE `virtualshelfcontents` DROP `itemnumber`");
  94     print "Upgrade to $DBversion done (virtualshelves)\n";
  95     SetVersion ($DBversion);
  96 }
  97
  98
  99 $DBversion = "3.00.00.002";
 100 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 101     $dbh->do("DROP TABLE sessions");
 102     $dbh->do("CREATE TABLE `sessions` (
 103   `id` varchar(32) NOT NULL,
 104   `a_session` text NOT NULL,
 105   UNIQUE KEY `id` (`id`)
 106 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
 107     print "Upgrade to $DBversion done (sessions uses CGI::session, new table structure for sessions)\n";
 108     SetVersion ($DBversion);
 109 }
 110
 111
 112 $DBversion = "3.00.00.003";
 113 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 114     if (C4::Context->preference("opaclanguages") eq "fr") {
 115         $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ReservesNeedReturns','0','Si ce paramètre est mis à 1, une réservation posée sur un exemplaire présent sur le site devra être passée en retour pour être disponible. Sinon, elle sera automatiquement disponible, Koha considère que le bibliothécaire place la réservation en ayant le document en mains','','YesNo')");
 116     } else {
 117         $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ReservesNeedReturns','0','If set, a reserve done on an item available in this branch need a check-in, otherwise, a reserve on a specific item, that is on the branch & available is considered as available','','YesNo')");
 118     }
 119     print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
 120     SetVersion ($DBversion);
 121 }
 122
 123
 124 $DBversion = "3.00.00.004";
 125 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 126     $dbh->do("INSERT INTO `systempreferences` VALUES ('DebugLevel','2','set the level of error info sent to the browser. 0=none, 1=some, 2=most','0|1|2','Choice')");
 127     print "Upgrade to $DBversion done (adding DebugLevel systempref, in 'Admin' tab)\n";
 128     SetVersion ($DBversion);
 129 }
 130
 131 $DBversion = "3.00.00.005";
 132 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 133     $dbh->do("CREATE TABLE `tags` (
 134                     `entry` varchar(255) NOT NULL default '',
 135                     `weight` bigint(20) NOT NULL default 0,
 136                     PRIMARY KEY  (`entry`)
 137                     ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
 138                 ");
 139         $dbh->do("CREATE TABLE `nozebra` (
 140                 `server` varchar(20)     NOT NULL,
 141                 `indexname` varchar(40)  NOT NULL,
 142                 `value` varchar(250)     NOT NULL,
 143                 `biblionumbers` longtext NOT NULL,
 144                 KEY `indexname` (`server`,`indexname`),
 145                 KEY `value` (`server`,`value`))
 146                 ENGINE=InnoDB DEFAULT CHARSET=utf8;
 147                 ");
 148     print "Upgrade to $DBversion done (adding tags and nozebra tables )\n";
 149     SetVersion ($DBversion);
 150 }
 151
 152 $DBversion = "3.00.00.006";
 153 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 154     $dbh->do("UPDATE issues SET issuedate=timestamp WHERE issuedate='0000-00-00'");
 155     print "Upgrade to $DBversion done (filled issues.issuedate with timestamp)\n";
 156     SetVersion ($DBversion);
 157 }
 158
 159 $DBversion = "3.00.00.007";
 160 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 161     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SessionStorage','mysql','Use mysql or a temporary file for storing session data','mysql|tmp','Choice')");
 162     print "Upgrade to $DBversion done (set SessionStorage variable)\n";
 163     SetVersion ($DBversion);
 164 }
 165
 166 $DBversion = "3.00.00.008";
 167 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 168     $dbh->do("ALTER TABLE `biblio` ADD `datecreated` DATE NOT NULL AFTER `timestamp` ;");
 169     $dbh->do("UPDATE biblio SET datecreated=timestamp");
 170     print "Upgrade to $DBversion done (biblio creation date)\n";
 171     SetVersion ($DBversion);
 172 }
 173
 174 $DBversion = "3.00.00.009";
 175 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 176
 177     # Create backups of call number columns
 178     # in case default migration needs to be customized
 179     #
 180     # UPGRADE NOTE: temp_upg_biblioitems_call_num should be dropped
 181     #               after call numbers have been transformed to the new structure
 182     #
 183     # Not bothering to do the same with deletedbiblioitems -- assume
 184     # default is good enough.
 185     $dbh->do("CREATE TABLE `temp_upg_biblioitems_call_num` AS
 186               SELECT `biblioitemnumber`, `biblionumber`,
 187                      `classification`, `dewey`, `subclass`,
 188                      `lcsort`, `ccode`
 189               FROM `biblioitems`");
 190
 191     # biblioitems changes
 192     $dbh->do("ALTER TABLE `biblioitems` CHANGE COLUMN `volumeddesc` `volumedesc` TEXT,
 193                                     ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
 194                                     ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 195                                     ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
 196                                     ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
 197                                     ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
 198                                     ADD `totalissues` INT(10) AFTER `cn_sort`");
 199
 200     # default mapping of call number columns:
 201     #   cn_class = concatentation of classification + dewey,
 202     #              trimmed to fit -- assumes that most users do not
 203     #              populate both classification and dewey in a single record
 204     #   cn_item  = subclass
 205     #   cn_source = left null
 206     #   cn_sort = lcsort
 207     #
 208     # After upgrade, cn_sort will have to be set based on whatever
 209     # default call number scheme user sets as a preference.  Misc
 210     # script will be added at some point to do that.
 211     #
 212     $dbh->do("UPDATE `biblioitems`
 213               SET cn_class = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
 214                     cn_item = subclass,
 215                     `cn_sort` = `lcsort`
 216             ");
 217
 218     # Now drop the old call number columns
 219     $dbh->do("ALTER TABLE `biblioitems` DROP COLUMN `classification`,
 220                                         DROP COLUMN `dewey`,
 221                                         DROP COLUMN `subclass`,
 222                                         DROP COLUMN `lcsort`,
 223                                         DROP COLUMN `ccode`");
 224
 225     # deletedbiblio changes
 226     $dbh->do("ALTER TABLE `deletedbiblio` ALTER COLUMN `frameworkcode` SET DEFAULT '',
 227                                         DROP COLUMN `marc`,
 228                                         ADD `datecreated` DATE NOT NULL AFTER `timestamp`");
 229     $dbh->do("UPDATE deletedbiblio SET datecreated = timestamp");
 230
 231     # deletedbiblioitems changes
 232     $dbh->do("ALTER TABLE `deletedbiblioitems`
 233                         MODIFY `publicationyear` TEXT,
 234                         CHANGE `volumeddesc` `volumedesc` TEXT,
 235                         MODIFY `collectiontitle` MEDIUMTEXT DEFAULT NULL AFTER `volumedesc`,
 236                         MODIFY `collectionissn` TEXT DEFAULT NULL AFTER `collectiontitle`,
 237                         MODIFY `collectionvolume` MEDIUMTEXT DEFAULT NULL AFTER `collectionissn`,
 238                         MODIFY `editionstatement` TEXT DEFAULT NULL AFTER `collectionvolume`,
 239                         MODIFY `editionresponsibility` TEXT DEFAULT NULL AFTER `editionstatement`,
 240                         MODIFY `place` VARCHAR(255) DEFAULT NULL AFTER `size`,
 241                         MODIFY `marc` LONGBLOB,
 242                         ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `url`,
 243                         ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 244                         ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
 245                         ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
 246                         ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
 247                         ADD `totalissues` INT(10) AFTER `cn_sort`,
 248                         ADD `marcxml` LONGTEXT NOT NULL AFTER `totalissues`,
 249                         ADD KEY `isbn` (`isbn`),
 250                         ADD KEY `publishercode` (`publishercode`)
 251                     ");
 252
 253     $dbh->do("UPDATE `deletedbiblioitems`
 254                 SET `cn_class` = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
 255                `cn_item` = `subclass`,
 256                 `cn_sort` = `lcsort`
 257             ");
 258     $dbh->do("ALTER TABLE `deletedbiblioitems`
 259                         DROP COLUMN `classification`,
 260                         DROP COLUMN `dewey`,
 261                         DROP COLUMN `subclass`,
 262                         DROP COLUMN `lcsort`,
 263                         DROP COLUMN `ccode`
 264             ");
 265
 266     # deleteditems changes
 267     $dbh->do("ALTER TABLE `deleteditems`
 268                         MODIFY `barcode` VARCHAR(20) DEFAULT NULL,
 269                         MODIFY `price` DECIMAL(8,2) DEFAULT NULL,
 270                         MODIFY `replacementprice` DECIMAL(8,2) DEFAULT NULL,
 271                         DROP `bulk`,
 272                         MODIFY `itemcallnumber` VARCHAR(30) DEFAULT NULL AFTER `wthdrawn`,
 273                         MODIFY `holdingbranch` VARCHAR(10) DEFAULT NULL,
 274                         DROP `interim`,
 275                         MODIFY `timestamp` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER `paidfor`,
 276                         DROP `cutterextra`,
 277                         ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
 278                         ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 279                         ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
 280                         ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
 281                         ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`,
 282                         MODIFY `marc` LONGBLOB AFTER `uri`,
 283                         DROP KEY `barcode`,
 284                         DROP KEY `itembarcodeidx`,
 285                         DROP KEY `itembinoidx`,
 286                         DROP KEY `itembibnoidx`,
 287                         ADD UNIQUE KEY `delitembarcodeidx` (`barcode`),
 288                         ADD KEY `delitembinoidx` (`biblioitemnumber`),
 289                         ADD KEY `delitembibnoidx` (`biblionumber`),
 290                         ADD KEY `delhomebranch` (`homebranch`),
 291                         ADD KEY `delholdingbranch` (`holdingbranch`)");
 292     $dbh->do("UPDATE deleteditems SET `ccode` = `itype`");
 293     $dbh->do("ALTER TABLE deleteditems DROP `itype`");
 294     $dbh->do("UPDATE `deleteditems` SET `cn_sort` = `itemcallnumber`");
 295
 296     # items changes
 297     $dbh->do("ALTER TABLE `items` ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
 298                                 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 299                                 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
 300                                 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
 301                                 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`
 302             ");
 303     $dbh->do("ALTER TABLE `items`
 304                         DROP KEY `itembarcodeidx`,
 305                         ADD UNIQUE KEY `itembarcodeidx` (`barcode`)");
 306
 307     # map items.itype to items.ccode and
 308     # set cn_sort to itemcallnumber -- as with biblioitems.cn_sort,
 309     # will have to be subsequently updated per user's default
 310     # classification scheme
 311     $dbh->do("UPDATE `items` SET `cn_sort` = `itemcallnumber`,
 312                             `ccode` = `itype`");
 313
 314     $dbh->do("ALTER TABLE `items` DROP `cutterextra`,
 315                                 DROP `itype`");
 316
 317     print "Upgrade to $DBversion done (major changes to biblio, biblioitems, items, and deleted* versions of same\n";
 318     SetVersion ($DBversion);
 319 }
 320
 321 $DBversion = "3.00.00.010";
 322 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 323     $dbh->do("CREATE INDEX `userid` ON borrowers (`userid`) ");
 324     print "Upgrade to $DBversion done (userid index added)\n";
 325     SetVersion ($DBversion);
 326 }
 327
 328 $DBversion = "3.00.00.011";
 329 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 330     $dbh->do("ALTER TABLE `branchcategories` CHANGE `categorycode` `categorycode` varchar(10) ");
 331     $dbh->do("ALTER TABLE `branchcategories` CHANGE `categoryname` `categoryname` varchar(32) ");
 332     $dbh->do("ALTER TABLE `branchcategories` ADD COLUMN `categorytype` varchar(16) ");
 333     $dbh->do("UPDATE `branchcategories` SET `categorytype` = 'properties'");
 334     $dbh->do("ALTER TABLE `branchrelations` CHANGE `categorycode` `categorycode` varchar(10) ");
 335     print "Upgrade to $DBversion done (added branchcategory type)\n";
 336     SetVersion ($DBversion);
 337 }
 338
 339 $DBversion = "3.00.00.012";
 340 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 341     $dbh->do("CREATE TABLE `class_sort_rules` (
 342                                `class_sort_rule` varchar(10) NOT NULL default '',
 343                                `description` mediumtext,
 344                                `sort_routine` varchar(30) NOT NULL default '',
 345                                PRIMARY KEY (`class_sort_rule`),
 346                                UNIQUE KEY `class_sort_rule_idx` (`class_sort_rule`)
 347                              ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 348     $dbh->do("CREATE TABLE `class_sources` (
 349                                `cn_source` varchar(10) NOT NULL default '',
 350                                `description` mediumtext,
 351                                `used` tinyint(4) NOT NULL default 0,
 352                                `class_sort_rule` varchar(10) NOT NULL default '',
 353                                PRIMARY KEY (`cn_source`),
 354                                UNIQUE KEY `cn_source_idx` (`cn_source`),
 355                                KEY `used_idx` (`used`),
 356                                CONSTRAINT `class_source_ibfk_1` FOREIGN KEY (`class_sort_rule`)
 357                                           REFERENCES `class_sort_rules` (`class_sort_rule`)
 358                              ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 359     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type)
 360               VALUES('DefaultClassificationSource','ddc',
 361                      'Default classification scheme used by the collection. E.g., Dewey, LCC, etc.', NULL,'free')");
 362     $dbh->do("INSERT INTO `class_sort_rules` (`class_sort_rule`, `description`, `sort_routine`) VALUES
 363                                ('dewey', 'Default filing rules for DDC', 'Dewey'),
 364                                ('lcc', 'Default filing rules for LCC', 'LCC'),
 365                                ('generic', 'Generic call number filing rules', 'Generic')");
 366     $dbh->do("INSERT INTO `class_sources` (`cn_source`, `description`, `used`, `class_sort_rule`) VALUES
 367                             ('ddc', 'Dewey Decimal Classification', 1, 'dewey'),
 368                             ('lcc', 'Library of Congress Classification', 1, 'lcc'),
 369                             ('udc', 'Universal Decimal Classification', 0, 'generic'),
 370                             ('sudocs', 'SuDoc Classification (U.S. GPO)', 0, 'generic'),
 371                             ('z', 'Other/Generic Classification Scheme', 0, 'generic')");
 372     print "Upgrade to $DBversion done (classification sources added)\n";
 373     SetVersion ($DBversion);
 374 }
 375
 376 $DBversion = "3.00.00.013";
 377 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 378     $dbh->do("CREATE TABLE `import_batches` (
 379               `import_batch_id` int(11) NOT NULL auto_increment,
 380               `template_id` int(11) default NULL,
 381               `branchcode` varchar(10) default NULL,
 382               `num_biblios` int(11) NOT NULL default 0,
 383               `num_items` int(11) NOT NULL default 0,
 384               `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
 385               `overlay_action` enum('replace', 'create_new', 'use_template') NOT NULL default 'create_new',
 386               `import_status` enum('staging', 'staged', 'importing', 'imported', 'reverting', 'reverted', 'cleaned') NOT NULL default 'staging',
 387               `batch_type` enum('batch', 'z3950') NOT NULL default 'batch',
 388               `file_name` varchar(100),
 389               `comments` mediumtext,
 390               PRIMARY KEY (`import_batch_id`),
 391               KEY `branchcode` (`branchcode`)
 392               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 393     $dbh->do("CREATE TABLE `import_records` (
 394               `import_record_id` int(11) NOT NULL auto_increment,
 395               `import_batch_id` int(11) NOT NULL,
 396               `branchcode` varchar(10) default NULL,
 397               `record_sequence` int(11) NOT NULL default 0,
 398               `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
 399               `import_date` DATE default NULL,
 400               `marc` longblob NOT NULL,
 401               `marcxml` longtext NOT NULL,
 402               `marcxml_old` longtext NOT NULL,
 403               `record_type` enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio',
 404               `overlay_status` enum('no_match', 'auto_match', 'manual_match', 'match_applied') NOT NULL default 'no_match',
 405               `status` enum('error', 'staged', 'imported', 'reverted', 'items_reverted') NOT NULL default 'staged',
 406               `import_error` mediumtext,
 407               `encoding` varchar(40) NOT NULL default '',
 408               `z3950random` varchar(40) default NULL,
 409               PRIMARY KEY (`import_record_id`),
 410               CONSTRAINT `import_records_ifbk_1` FOREIGN KEY (`import_batch_id`)
 411                           REFERENCES `import_batches` (`import_batch_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 412               KEY `branchcode` (`branchcode`),
 413               KEY `batch_sequence` (`import_batch_id`, `record_sequence`)
 414               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 415     $dbh->do("CREATE TABLE `import_record_matches` (
 416               `import_record_id` int(11) NOT NULL,
 417               `candidate_match_id` int(11) NOT NULL,
 418               `score` int(11) NOT NULL default 0,
 419               CONSTRAINT `import_record_matches_ibfk_1` FOREIGN KEY (`import_record_id`)
 420                           REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 421               KEY `record_score` (`import_record_id`, `score`)
 422               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 423     $dbh->do("CREATE TABLE `import_biblios` (
 424               `import_record_id` int(11) NOT NULL,
 425               `matched_biblionumber` int(11) default NULL,
 426               `control_number` varchar(25) default NULL,
 427               `original_source` varchar(25) default NULL,
 428               `title` varchar(128) default NULL,
 429               `author` varchar(80) default NULL,
 430               `isbn` varchar(14) default NULL,
 431               `issn` varchar(9) default NULL,
 432               `has_items` tinyint(1) NOT NULL default 0,
 433               CONSTRAINT `import_biblios_ibfk_1` FOREIGN KEY (`import_record_id`)
 434                           REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 435               KEY `matched_biblionumber` (`matched_biblionumber`),
 436               KEY `title` (`title`),
 437               KEY `isbn` (`isbn`)
 438               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 439     $dbh->do("CREATE TABLE `import_items` (
 440               `import_items_id` int(11) NOT NULL auto_increment,
 441               `import_record_id` int(11) NOT NULL,
 442               `itemnumber` int(11) default NULL,
 443               `branchcode` varchar(10) default NULL,
 444               `status` enum('error', 'staged', 'imported', 'reverted') NOT NULL default 'staged',
 445               `marcxml` longtext NOT NULL,
 446               `import_error` mediumtext,
 447               PRIMARY KEY (`import_items_id`),
 448               CONSTRAINT `import_items_ibfk_1` FOREIGN KEY (`import_record_id`)
 449                           REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 450               KEY `itemnumber` (`itemnumber`),
 451               KEY `branchcode` (`branchcode`)
 452               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 453
 454     $dbh->do("INSERT INTO `import_batches`
 455                 (`overlay_action`, `import_status`, `batch_type`, `file_name`)
 456               SELECT distinct 'create_new', 'staged', 'z3950', `file`
 457               FROM   `marc_breeding`");
 458
 459     $dbh->do("INSERT INTO `import_records`
 460                 (`import_batch_id`, `import_record_id`, `record_sequence`, `marc`, `record_type`, `status`,
 461                 `encoding`, `z3950random`, `marcxml`, `marcxml_old`)
 462               SELECT `import_batch_id`, `id`, 1, `marc`, 'biblio', 'staged', `encoding`, `z3950random`, '', ''
 463               FROM `marc_breeding`
 464               JOIN `import_batches` ON (`file_name` = `file`)");
 465
 466     $dbh->do("INSERT INTO `import_biblios`
 467                 (`import_record_id`, `title`, `author`, `isbn`)
 468               SELECT `import_record_id`, `title`, `author`, `isbn`
 469               FROM   `marc_breeding`
 470               JOIN   `import_records` ON (`import_record_id` = `id`)");
 471
 472     $dbh->do("UPDATE `import_batches`
 473               SET `num_biblios` = (
 474               SELECT COUNT(*)
 475               FROM `import_records`
 476               WHERE `import_batch_id` = `import_batches`.`import_batch_id`
 477               )");
 478
 479     $dbh->do("DROP TABLE `marc_breeding`");
 480
 481     print "Upgrade to $DBversion done (import_batches et al. added)\n";
 482     SetVersion ($DBversion);
 483 }
 484
 485 $DBversion = "3.00.00.014";
 486 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 487     $dbh->do("ALTER TABLE subscription ADD lastbranch VARCHAR(4)");
 488     print "Upgrade to $DBversion done (userid index added)\n";
 489     SetVersion ($DBversion);
 490 }
 491
 492 $DBversion = "3.00.00.015";
 493 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 494     $dbh->do("CREATE TABLE `saved_sql` (
 495            `id` int(11) NOT NULL auto_increment,
 496            `borrowernumber` int(11) default NULL,
 497            `date_created` datetime default NULL,
 498            `last_modified` datetime default NULL,
 499            `savedsql` text,
 500            `last_run` datetime default NULL,
 501            `report_name` varchar(255) default NULL,
 502            `type` varchar(255) default NULL,
 503            `notes` text,
 504            PRIMARY KEY  (`id`),
 505            KEY boridx (`borrowernumber`)
 506         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
 507     $dbh->do("CREATE TABLE `saved_reports` (
 508            `id` int(11) NOT NULL auto_increment,
 509            `report_id` int(11) default NULL,
 510            `report` longtext,
 511            `date_run` datetime default NULL,
 512            PRIMARY KEY  (`id`)
 513         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
 514     print "Upgrade to $DBversion done (saved_sql and saved_reports added)\n";
 515     SetVersion ($DBversion);
 516 }
 517
 518 $DBversion = "3.00.00.016";
 519 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 520     $dbh->do(" CREATE TABLE reports_dictionary (
 521           id int(11) NOT NULL auto_increment,
 522           name varchar(255) default NULL,
 523           description text,
 524           date_created datetime default NULL,
 525           date_modified datetime default NULL,
 526           saved_sql text,
 527           area int(11) default NULL,
 528           PRIMARY KEY  (id)
 529         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
 530     print "Upgrade to $DBversion done (reports_dictionary) added)\n";
 531     SetVersion ($DBversion);
 532 }
 533
 534 $DBversion = "3.00.00.017";
 535 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 536     $dbh->do("ALTER TABLE action_logs DROP PRIMARY KEY");
 537     $dbh->do("ALTER TABLE action_logs ADD KEY  timestamp (timestamp,user)");
 538     $dbh->do("ALTER TABLE action_logs ADD action_id INT(11) NOT NULL FIRST");
 539     $dbh->do("UPDATE action_logs SET action_id = if (\@a, \@a:=\@a+1, \@a:=1)");
 540     $dbh->do("ALTER TABLE action_logs MODIFY action_id INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY");
 541     print "Upgrade to $DBversion done (added column to action_logs)\n";
 542     SetVersion ($DBversion);
 543 }
 544
 545 $DBversion = "3.00.00.018";
 546 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 547     $dbh->do("ALTER TABLE `zebraqueue`
 548                     ADD `done` INT NOT NULL DEFAULT '0',
 549                     ADD `time` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ;
 550             ");
 551     print "Upgrade to $DBversion done (adding timestamp and done columns to zebraque table to improve problem tracking) added)\n";
 552     SetVersion ($DBversion);
 553 }
 554
 555 $DBversion = "3.00.00.019";
 556 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 557     $dbh->do("ALTER TABLE biblio MODIFY biblionumber INT(11) NOT NULL AUTO_INCREMENT");
 558     $dbh->do("ALTER TABLE biblioitems MODIFY biblioitemnumber INT(11) NOT NULL AUTO_INCREMENT");
 559     $dbh->do("ALTER TABLE items MODIFY itemnumber INT(11) NOT NULL AUTO_INCREMENT");
 560     print "Upgrade to $DBversion done (made bib/item PKs auto_increment)\n";
 561     SetVersion ($DBversion);
 562 }
 563
 564 $DBversion = "3.00.00.020";
 565 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 566     $dbh->do("ALTER TABLE deleteditems
 567               DROP KEY `delitembarcodeidx`,
 568               ADD KEY `delitembarcodeidx` (`barcode`)");
 569     print "Upgrade to $DBversion done (dropped uniqueness of key on deleteditems.barcode)\n";
 570     SetVersion ($DBversion);
 571 }
 572
 573 $DBversion = "3.00.00.021";
 574 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 575     $dbh->do("ALTER TABLE items CHANGE homebranch homebranch VARCHAR(10)");
 576     $dbh->do("ALTER TABLE deleteditems CHANGE homebranch homebranch VARCHAR(10)");
 577     $dbh->do("ALTER TABLE statistics CHANGE branch branch VARCHAR(10)");
 578     $dbh->do("ALTER TABLE subscription CHANGE lastbranch lastbranch VARCHAR(10)");
 579     print "Upgrade to $DBversion done (extended missed branchcode columns to 10 chars)\n";
 580     SetVersion ($DBversion);
 581 }
 582
 583 $DBversion = "3.00.00.022";
 584 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 585     $dbh->do("ALTER TABLE items
 586                 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
 587     $dbh->do("ALTER TABLE deleteditems
 588                 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
 589     print "Upgrade to $DBversion done (adding damaged column to items table)\n";
 590     SetVersion ($DBversion);
 591 }
 592
 593 $DBversion = "3.00.00.023";
 594 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 595      $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 596          VALUES ('yuipath','http://yui.yahooapis.com/2.3.1/build','Insert the path to YUI libraries','','free')");
 597     print "Upgrade to $DBversion done (adding new system preference for controlling YUI path)\n";
 598     SetVersion ($DBversion);
 599 }
 600 $DBversion = "3.00.00.024";
 601 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 602     $dbh->do("ALTER TABLE biblioitems CHANGE  itemtype itemtype VARCHAR(10)");
 603     print "Upgrade to $DBversion done (changing itemtype to (10))\n";
 604     SetVersion ($DBversion);
 605 }
 606
 607 $DBversion = "3.00.00.025";
 608 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 609     $dbh->do("ALTER TABLE items ADD COLUMN itype VARCHAR(10)");
 610     $dbh->do("ALTER TABLE deleteditems ADD COLUMN itype VARCHAR(10) AFTER uri");
 611     if(C4::Context->preference('item-level_itypes')){
 612         $dbh->do('update items,biblioitems set items.itype=biblioitems.itemtype where items.biblionumber=biblioitems.biblionumber and itype is null');
 613     }
 614     print "Upgrade to $DBversion done (reintroduce items.itype - fill from itemtype)\n ";
 615     SetVersion ($DBversion);
 616 }
 617
 618 $DBversion = "3.00.00.026";
 619 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 620     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 621        VALUES ('HomeOrHoldingBranch','homebranch','homebranch|holdingbranch','With independent branches turned on this decides whether to check the items holdingbranch or homebranch at circulatilon','choice')");
 622     print "Upgrade to $DBversion done (adding new system preference for choosing whether homebranch or holdingbranch is checked in circulation)\n";
 623     SetVersion ($DBversion);
 624 }
 625
 626 $DBversion = "3.00.00.027";
 627 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 628     $dbh->do("CREATE TABLE `marc_matchers` (
 629                 `matcher_id` int(11) NOT NULL auto_increment,
 630                 `code` varchar(10) NOT NULL default '',
 631                 `description` varchar(255) NOT NULL default '',
 632                 `record_type` varchar(10) NOT NULL default 'biblio',
 633                 `threshold` int(11) NOT NULL default 0,
 634                 PRIMARY KEY (`matcher_id`),
 635                 KEY `code` (`code`),
 636                 KEY `record_type` (`record_type`)
 637               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 638     $dbh->do("CREATE TABLE `matchpoints` (
 639                 `matcher_id` int(11) NOT NULL,
 640                 `matchpoint_id` int(11) NOT NULL auto_increment,
 641                 `search_index` varchar(30) NOT NULL default '',
 642                 `score` int(11) NOT NULL default 0,
 643                 PRIMARY KEY (`matchpoint_id`),
 644                 CONSTRAINT `matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
 645                            REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE
 646               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 647     $dbh->do("CREATE TABLE `matchpoint_components` (
 648                 `matchpoint_id` int(11) NOT NULL,
 649                 `matchpoint_component_id` int(11) NOT NULL auto_increment,
 650                 sequence int(11) NOT NULL default 0,
 651                 tag varchar(3) NOT NULL default '',
 652                 subfields varchar(40) NOT NULL default '',
 653                 offset int(4) NOT NULL default 0,
 654                 length int(4) NOT NULL default 0,
 655                 PRIMARY KEY (`matchpoint_component_id`),
 656                 KEY `by_sequence` (`matchpoint_id`, `sequence`),
 657                 CONSTRAINT `matchpoint_components_ifbk_1` FOREIGN KEY (`matchpoint_id`)
 658                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
 659               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 660     $dbh->do("CREATE TABLE `matchpoint_component_norms` (
 661                 `matchpoint_component_id` int(11) NOT NULL,
 662                 `sequence`  int(11) NOT NULL default 0,
 663                 `norm_routine` varchar(50) NOT NULL default '',
 664                 KEY `matchpoint_component_norms` (`matchpoint_component_id`, `sequence`),
 665                 CONSTRAINT `matchpoint_component_norms_ifbk_1` FOREIGN KEY (`matchpoint_component_id`)
 666                            REFERENCES `matchpoint_components` (`matchpoint_component_id`) ON DELETE CASCADE ON UPDATE CASCADE
 667               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 668     $dbh->do("CREATE TABLE `matcher_matchpoints` (
 669                 `matcher_id` int(11) NOT NULL,
 670                 `matchpoint_id` int(11) NOT NULL,
 671                 CONSTRAINT `matcher_matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
 672                            REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 673                 CONSTRAINT `matcher_matchpoints_ifbk_2` FOREIGN KEY (`matchpoint_id`)
 674                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
 675               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 676     $dbh->do("CREATE TABLE `matchchecks` (
 677                 `matcher_id` int(11) NOT NULL,
 678                 `matchcheck_id` int(11) NOT NULL auto_increment,
 679                 `source_matchpoint_id` int(11) NOT NULL,
 680                 `target_matchpoint_id` int(11) NOT NULL,
 681                 PRIMARY KEY (`matchcheck_id`),
 682                 CONSTRAINT `matcher_matchchecks_ifbk_1` FOREIGN KEY (`matcher_id`)
 683                            REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 684                 CONSTRAINT `matcher_matchchecks_ifbk_2` FOREIGN KEY (`source_matchpoint_id`)
 685                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 686                 CONSTRAINT `matcher_matchchecks_ifbk_3` FOREIGN KEY (`target_matchpoint_id`)
 687                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
 688               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 689     print "Upgrade to $DBversion done (added C4::Matcher serialization tables)\n ";
 690     SetVersion ($DBversion);
 691 }
 692
 693 $DBversion = "3.00.00.028";
 694 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 695     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 696        VALUES ('canreservefromotherbranches','1','','With Independent branches on, can a user from one library reserve an item from another library','YesNo')");
 697     print "Upgrade to $DBversion done (adding new system preference for changing reserve/holds behaviour with independent branches)\n";
 698     SetVersion ($DBversion);
 699 }
 700
 701
 702 $DBversion = "3.00.00.029";
 703 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 704     $dbh->do("ALTER TABLE `import_batches` ADD `matcher_id` int(11) NULL AFTER `import_batch_id`");
 705     print "Upgrade to $DBversion done (adding matcher_id to import_batches)\n";
 706     SetVersion ($DBversion);
 707 }
 708
 709 $DBversion = "3.00.00.030";
 710 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 711     $dbh->do("
 712 CREATE TABLE services_throttle (
 713   service_type varchar(10) NOT NULL default '',
 714   service_count varchar(45) default NULL,
 715   PRIMARY KEY  (service_type)
 716 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
 717 ");
 718     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 719        VALUES ('FRBRizeEditions',0,'','If ON, Koha will query one or more ISBN web services for associated ISBNs and display an Editions tab on the details pages','YesNo')");
 720  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 721        VALUES ('XISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the OCLC xISBN web service in the Editions tab on the detail pages. See: http://www.worldcat.org/affiliate/webservices/xisbn/app.jsp','YesNo')");
 722  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 723        VALUES ('OCLCAffiliateID','','','Use with FRBRizeEditions and XISBN. You can sign up for an AffiliateID here: http://www.worldcat.org/wcpa/do/AffiliateUserServices?method=initSelfRegister','free')");
 724  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 725        VALUES ('XISBNDailyLimit',499,'','The xISBN Web service is free for non-commercial use when usage does not exceed 500 requests per day','free')");
 726  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 727        VALUES ('PINESISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use PINES OISBN web service in the Editions tab on the detail pages.','YesNo')");
 728  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 729        VALUES ('ThingISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the ThingISBN web service in the Editions tab on the detail pages.','YesNo')");
 730     print "Upgrade to $DBversion done (adding services throttle table and sysprefs for xISBN)\n";
 731     SetVersion ($DBversion);
 732 }
 733
 734 $DBversion = "3.00.00.031";
 735 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 736
 737 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryStemming',1,'If ON, enables query stemming',NULL,'YesNo')");
 738 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryFuzzy',1,'If ON, enables fuzzy option for searches',NULL,'YesNo')");
 739 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryWeightFields',1,'If ON, enables field weighting',NULL,'YesNo')");
 740 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('WebBasedSelfCheck',0,'If ON, enables the web-based self-check system',NULL,'YesNo')");
 741 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('numSearchResults',20,'Specify the maximum number of results to display on a page of results',NULL,'free')");
 742 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACnumSearchResults',20,'Specify the maximum number of results to display on a page of results',NULL,'free')");
 743 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxItemsInSearchResults',20,'Specify the maximum number of items to display for each result on a page of results',NULL,'free')");
 744 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortField',NULL,'Specify the default field used for sorting','relevance|popularity|call_number|pubdate|acqdate|title|author','Choice')");
 745 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortOrder',NULL,'Specify the default sort order','asc|dsc|az|za','Choice')");
 746 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortField',NULL,'Specify the default field used for sorting','relevance|popularity|call_number|pubdate|acqdate|title|author','Choice')");
 747 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortOrder',NULL,'Specify the default sort order','asc|dsc|za|az','Choice')");
 748 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('staffClientBaseURL','','Specify the base URL of the staff client',NULL,'free')");
 749 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('minPasswordLength',3,'Specify the minimum length of a patron/staff password',NULL,'free')");
 750 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('noItemTypeImages',0,'If ON, disables item-type images',NULL,'YesNo')");
 751 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('emailLibrarianWhenHoldIsPlaced',0,'If ON, emails the librarian whenever a hold is placed',NULL,'YesNo')");
 752 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('holdCancelLength','','Specify how many days before a hold is canceled',NULL,'free')");
 753 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('libraryAddress','','The address to use for printing receipts, overdues, etc. if different than physical address',NULL,'free')");
 754 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesMode','test','Choose the fines mode, test or production','test|production','Choice')");
 755 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('globalDueDate','','If set, allows a global static due date for all checkouts',NULL,'free')");
 756 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('itemBarcodeInputFilter','','If set, allows specification of a item barcode input filter','cuecat','Choice')");
 757 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('singleBranchMode',0,'Operate in Single-branch mode, hide branch selection in the OPAC',NULL,'YesNo')");
 758 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('URLLinkText','','Text to display as the link anchor in the OPAC',NULL,'free')");
 759 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACSubscriptionDisplay','economical','Specify how to display subscription information in the OPAC','economical|off|full','Choice')");
 760 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACDisplayExtendedSubInfo',1,'If ON, extended subscription information is displayed in the OPAC',NULL,'YesNo')");
 761 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACViewOthersSuggestions',0,'If ON, allows all suggestions to be displayed in the OPAC',NULL,'YesNo')");
 762 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACURLOpenInNewWindow',0,'If ON, URLs in the OPAC open in a new window',NULL,'YesNo')");
 763 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACUserCSS',0,'Add CSS to be included in the OPAC',NULL,'free')");
 764
 765     print "Upgrade to $DBversion done (adding additional system preference)\n";
 766     SetVersion ($DBversion);
 767 }
 768
 769 $DBversion = "3.00.00.032";
 770 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 771     $dbh->do("UPDATE `marc_subfield_structure` SET `kohafield` = 'items.wthdrawn' WHERE `kohafield` = 'items.withdrawn'");
 772     print "Upgrade to $DBversion done (fixed MARC framework references to items.withdrawn)\n";
 773     SetVersion ($DBversion);
 774 }
 775
 776 $DBversion = "3.00.00.033";
 777 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 778     $dbh->do("INSERT INTO `userflags` VALUES(17,'staffaccess','Modify login / permissions for staff users',0)");
 779     print "Upgrade to $DBversion done (Adding permissions flag for staff member access modification.  )\n";
 780     SetVersion ($DBversion);
 781 }
 782
 783 $DBversion = "3.00.00.034";
 784 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 785     $dbh->do("ALTER TABLE `virtualshelves` ADD COLUMN `sortfield` VARCHAR(16) ");
 786     print "Upgrade to $DBversion done (Adding sortfield for Virtual Shelves.  )\n";
 787     SetVersion ($DBversion);
 788 }
 789
 790 $DBversion = "3.00.00.035";
 791 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 792     $dbh->do("UPDATE marc_subfield_structure
 793               SET authorised_value = 'cn_source'
 794               WHERE kohafield IN ('items.cn_source', 'biblioitems.cn_source')
 795               AND (authorised_value is NULL OR authorised_value = '')");
 796     print "Upgrade to $DBversion done (MARC frameworks: make classification source a drop-down)\n";
 797     SetVersion ($DBversion);
 798 }
 799
 800 $DBversion = "3.00.00.036";
 801 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 802     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACItemsResultsDisplay','statuses','statuses : show only the status of items in result list. itemdisplay : show full location of items (branch+location+callnumber) as in staff interface','statuses|itemdetails','Choice');");
 803     print "Upgrade to $DBversion done (OPACItemsResultsDisplay systempreference added)\n";
 804     SetVersion ($DBversion);
 805 }
 806
 807 $DBversion = "3.00.00.037";
 808 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 809     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactfirstname` varchar(255)");
 810     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactsurname` varchar(255)");
 811     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress1` varchar(255)");
 812     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress2` varchar(255)");
 813     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress3` varchar(255)");
 814     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactzipcode` varchar(50)");
 815     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactphone` varchar(50)");
 816     print "Upgrade to $DBversion done (Adding Alternative Contact Person information to borrowers table)\n";
 817     SetVersion ($DBversion);
 818 }
 819
 820 $DBversion = "3.00.00.038";
 821 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 822     $dbh->do("UPDATE `systempreferences` set explanation='Choose the fines mode, off, test (emails admin report) or production (accrue overdue fines).  Requires fines cron script' , options='off|test|production' where variable='finesMode'");
 823     $dbh->do("DELETE FROM `systempreferences` WHERE variable='hideBiblioNumber'");
 824     print "Upgrade to $DBversion done ('alter finesMode systempreference, remove superfluous syspref.')\n";
 825     SetVersion ($DBversion);
 826 }
 827
 828 $DBversion = "3.00.00.039";
 829 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 830     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('uppercasesurnames',0,'If ON, surnames are converted to upper case in patron entry form',NULL,'YesNo')");
 831     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('CircControl','ItemHomeLibrary','Specify the agency that controls the circulation and fines policy','PickupLibrary|PatronLibrary|ItemHomeLibrary','Choice')");
 832     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesCalendar','noFinesWhenClosed','Specify whether to use the Calendar in calculating duedates and fines','ignoreCalendar|noFinesWhenClosed','Choice')");
 833     # $dbh->do("DELETE FROM `systempreferences` WHERE variable='HomeOrHoldingBranch'"); # Bug #2752
 834     print "Upgrade to $DBversion done ('add circ sysprefs CircControl, finesCalendar, and uppercasesurnames, and delete HomeOrHoldingBranch.')\n";
 835     SetVersion ($DBversion);
 836 }
 837
 838 $DBversion = "3.00.00.040";
 839 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 840         $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('previousIssuesDefaultSortOrder','asc','Specify the sort order of Previous Issues on the circulation page','asc|desc','Choice')");
 841         $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('todaysIssuesDefaultSortOrder','desc','Specify the sort order of Todays Issues on the circulation page','asc|desc','Choice')");
 842         print "Upgrade to $DBversion done ('add circ sysprefs todaysIssuesDefaultSortOrder and previousIssuesDefaultSortOrder.')\n";
 843     SetVersion ($DBversion);
 844 }
 845
 846
 847 $DBversion = "3.00.00.041";
 848 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 849     # Strictly speaking it is not necessary to explicitly change
 850     # NULL values to 0, because the ALTER TABLE statement will do that.
 851     # However, setting them first avoids a warning.
 852     $dbh->do("UPDATE items SET notforloan = 0 WHERE notforloan IS NULL");
 853     $dbh->do("UPDATE items SET damaged = 0 WHERE damaged IS NULL");
 854     $dbh->do("UPDATE items SET itemlost = 0 WHERE itemlost IS NULL");
 855     $dbh->do("UPDATE items SET wthdrawn = 0 WHERE wthdrawn IS NULL");
 856     $dbh->do("ALTER TABLE items
 857                 MODIFY notforloan tinyint(1) NOT NULL default 0,
 858                 MODIFY damaged    tinyint(1) NOT NULL default 0,
 859                 MODIFY itemlost   tinyint(1) NOT NULL default 0,
 860                 MODIFY wthdrawn   tinyint(1) NOT NULL default 0");
 861     $dbh->do("UPDATE deleteditems SET notforloan = 0 WHERE notforloan IS NULL");
 862     $dbh->do("UPDATE deleteditems SET damaged = 0 WHERE damaged IS NULL");
 863     $dbh->do("UPDATE deleteditems SET itemlost = 0 WHERE itemlost IS NULL");
 864     $dbh->do("UPDATE deleteditems SET wthdrawn = 0 WHERE wthdrawn IS NULL");
 865     $dbh->do("ALTER TABLE deleteditems
 866                 MODIFY notforloan tinyint(1) NOT NULL default 0,
 867                 MODIFY damaged    tinyint(1) NOT NULL default 0,
 868                 MODIFY itemlost   tinyint(1) NOT NULL default 0,
 869                 MODIFY wthdrawn   tinyint(1) NOT NULL default 0");
 870         print "Upgrade to $DBversion done (disallow NULL in several item status columns)\n";
 871     SetVersion ($DBversion);
 872 }
 873
 874 $DBversion = "3.00.00.04";
 875 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 876     $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
 877         print "Upgrade to $DBversion done (disallow NULL in aqbooksellers.name; part of fix for bug 1251)\n";
 878     SetVersion ($DBversion);
 879 }
 880
 881 $DBversion = "3.00.00.043";
 882 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 883     $dbh->do("ALTER TABLE `currency` ADD `symbol` varchar(5) default NULL AFTER currency, ADD `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER symbol");
 884         print "Upgrade to $DBversion done (currency table: add symbol and timestamp columns)\n";
 885     SetVersion ($DBversion);
 886 }
 887
 888 $DBversion = "3.00.00.044";
 889 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 890     $dbh->do("ALTER TABLE deletedborrowers
 891   ADD `altcontactfirstname` varchar(255) default NULL,
 892   ADD `altcontactsurname` varchar(255) default NULL,
 893   ADD `altcontactaddress1` varchar(255) default NULL,
 894   ADD `altcontactaddress2` varchar(255) default NULL,
 895   ADD `altcontactaddress3` varchar(255) default NULL,
 896   ADD `altcontactzipcode` varchar(50) default NULL,
 897   ADD `altcontactphone` varchar(50) default NULL
 898   ");
 899   $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES
 900 ('OPACBaseURL',NULL,'Specify the Base URL of the OPAC, e.g., opac.mylibrary.com, the http:// will be added automatically by Koha.',NULL,'Free'),
 901 ('language','en','Set the default language in the staff client.',NULL,'Languages'),
 902 ('QueryAutoTruncate',1,'If ON, query truncation is enabled by default',NULL,'YesNo'),
 903 ('QueryRemoveStopwords',0,'If ON, stopwords listed in the Administration area will be removed from queries',NULL,'YesNo')
 904   ");
 905         print "Upgrade to $DBversion done (syncing deletedborrowers table with borrowers table)\n";
 906     SetVersion ($DBversion);
 907 }
 908
 909 #-- http://www.w3.org/International/articles/language-tags/
 910
 911 #-- RFC4646
 912 $DBversion = "3.00.00.045";
 913 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 914     $dbh->do("
 915 CREATE TABLE language_subtag_registry (
 916         subtag varchar(25),
 917         type varchar(25), -- language-script-region-variant-extension-privateuse
 918         description varchar(25), -- only one of the possible descriptions for ease of reference, see language_descriptions for the complete list
 919         added date,
 920         KEY `subtag` (`subtag`)
 921 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 922
 923 #-- TODO: add suppress_scripts
 924 #-- this maps three letter codes defined in iso639.2 back to their
 925 #-- two letter equivilents in rfc4646 (LOC maintains iso639+)
 926  $dbh->do("CREATE TABLE language_rfc4646_to_iso639 (
 927         rfc4646_subtag varchar(25),
 928         iso639_2_code varchar(25),
 929         KEY `rfc4646_subtag` (`rfc4646_subtag`)
 930 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 931
 932  $dbh->do("CREATE TABLE language_descriptions (
 933         subtag varchar(25),
 934         type varchar(25),
 935         lang varchar(25),
 936         description varchar(255),
 937         KEY `lang` (`lang`)
 938 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 939
 940 #-- bi-directional support, keyed by script subcode
 941  $dbh->do("CREATE TABLE language_script_bidi (
 942         rfc4646_subtag varchar(25), -- script subtag, Arab, Hebr, etc.
 943         bidi varchar(3), -- rtl ltr
 944         KEY `rfc4646_subtag` (`rfc4646_subtag`)
 945 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 946
 947 #-- BIDI Stuff, Arabic and Hebrew
 948  $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
 949 VALUES( 'Arab', 'rtl')");
 950  $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
 951 VALUES( 'Hebr', 'rtl')");
 952
 953 #-- TODO: need to map language subtags to script subtags for detection
 954 #-- of bidi when script is not specified (like ar, he)
 955  $dbh->do("CREATE TABLE language_script_mapping (
 956         language_subtag varchar(25),
 957         script_subtag varchar(25),
 958         KEY `language_subtag` (`language_subtag`)
 959 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 960
 961 #-- Default mappings between script and language subcodes
 962  $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
 963 VALUES( 'ar', 'Arab')");
 964  $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
 965 VALUES( 'he', 'Hebr')");
 966
 967         print "Upgrade to $DBversion done (adding language subtag registry and basic BiDi support NOTE: You should import the subtag registry SQL)\n";
 968     SetVersion ($DBversion);
 969 }
 970
 971 $DBversion = "3.00.00.046";
 972 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 973     $dbh->do("ALTER TABLE `subscription` CHANGE `numberlength` `numberlength` int(11) default '0' ,
 974                  CHANGE `weeklength` `weeklength` int(11) default '0'");
 975     $dbh->do("CREATE TABLE `serialitems` (`serialid` int(11) NOT NULL, `itemnumber` int(11) NOT NULL, UNIQUE KEY `serialididx` (`serialid`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 976     $dbh->do("INSERT INTO `serialitems` SELECT `serialid`,`itemnumber` from serial where NOT ISNULL(itemnumber) && itemnumber <> '' && itemnumber NOT LIKE '%,%'");
 977         print "Upgrade to $DBversion done (Add serialitems table to link serial issues to items. )\n";
 978     SetVersion ($DBversion);
 979 }
 980
 981 $DBversion = "3.00.00.047";
 982 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 983     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacRenewalAllowed',0,'If ON, users can renew their issues directly from their OPAC account',NULL,'YesNo');");
 984         print "Upgrade to $DBversion done ( Added OpacRenewalAllowed syspref )\n";
 985     SetVersion ($DBversion);
 986 }
 987
 988 $DBversion = "3.00.00.048";
 989 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 990     $dbh->do("ALTER TABLE `items` ADD `more_subfields_xml` longtext default NULL AFTER `itype`");
 991         print "Upgrade to $DBversion done (added items.more_subfields_xml)\n";
 992     SetVersion ($DBversion);
 993 }
 994
 995 $DBversion = "3.00.00.049";
 996 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 997         $dbh->do("ALTER TABLE `z3950servers` ADD `encoding` text default NULL AFTER type ");
 998         print "Upgrade to $DBversion done ( Added encoding field to z3950servers table )\n";
 999     SetVersion ($DBversion);
1000 }
1001
1002 $DBversion = "3.00.00.050";
1003 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1004     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacHighlightedWords','0','If Set, query matched terms are highlighted in OPAC',NULL,'YesNo');");
1005         print "Upgrade to $DBversion done ( Added OpacHighlightedWords syspref )\n";
1006     SetVersion ($DBversion);
1007 }
1008
1009 $DBversion = "3.00.00.051";
1010 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1011     $dbh->do("UPDATE systempreferences SET explanation = 'Define the current theme for the OPAC interface.' WHERE variable = 'opacthemes';");
1012         print "Upgrade to $DBversion done ( Corrected opacthemes explanation. )\n";
1013     SetVersion ($DBversion);
1014 }
1015
1016 $DBversion = "3.00.00.052";
1017 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1018     $dbh->do("ALTER TABLE `deleteditems` ADD `more_subfields_xml` LONGTEXT DEFAULT NULL AFTER `itype`");
1019         print "Upgrade to $DBversion done ( Adding missing column to deleteditems table. )\n";
1020     SetVersion ($DBversion);
1021 }
1022
1023 $DBversion = "3.00.00.053";
1024 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1025     $dbh->do("CREATE TABLE `printers_profile` (
1026             `prof_id` int(4) NOT NULL auto_increment,
1027             `printername` varchar(40) NOT NULL,
1028             `tmpl_id` int(4) NOT NULL,
1029             `paper_bin` varchar(20) NOT NULL,
1030             `offset_horz` float default NULL,
1031             `offset_vert` float default NULL,
1032             `creep_horz` float default NULL,
1033             `creep_vert` float default NULL,
1034             `unit` char(20) NOT NULL default 'POINT',
1035             PRIMARY KEY  (`prof_id`),
1036             UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1037             CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1038             ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1039     $dbh->do("CREATE TABLE `labels_profile` (
1040             `tmpl_id` int(4) NOT NULL,
1041             `prof_id` int(4) NOT NULL,
1042             UNIQUE KEY `tmpl_id` (`tmpl_id`),
1043             UNIQUE KEY `prof_id` (`prof_id`)
1044             ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1045     print "Upgrade to $DBversion done ( Printer Profile tables added )\n";
1046     SetVersion ($DBversion);
1047 }
1048
1049 $DBversion = "3.00.00.054";
1050 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1051     $dbh->do("UPDATE systempreferences SET options = 'incremental|annual|hbyymmincr|OFF', explanation = 'Used to autogenerate a barcode: incremental will be of the form 1, 2, 3; annual of the form 2007-0001, 2007-0002; hbyymmincr of the form HB08010001 where HB = Home Branch' WHERE variable = 'autoBarcode';");
1052         print "Upgrade to $DBversion done ( Added another barcode autogeneration sequence to barcode.pl. )\n";
1053     SetVersion ($DBversion);
1054 }
1055
1056 $DBversion = "3.00.00.055";
1057 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1058     $dbh->do("ALTER TABLE `zebraqueue` ADD KEY `zebraqueue_lookup` (`server`, `biblio_auth_number`, `operation`, `done`)");
1059         print "Upgrade to $DBversion done ( Added index on zebraqueue. )\n";
1060     SetVersion ($DBversion);
1061 }
1062 $DBversion = "3.00.00.056";
1063 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1064     if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
1065         $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('995', 'v', 'Note sur le N° de périodique','Note sur le N° de périodique', 0, 0, 'items.enumchron', 10, '', '', '', 0, 0, '', '', '', NULL) ");
1066     } else {
1067         $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('952', 'h', 'Serial Enumeration / chronology','Serial Enumeration / chronology', 0, 0, 'items.enumchron', 10, '', '', '', 0, 0, '', '', '', NULL) ");
1068     }
1069     $dbh->do("ALTER TABLE `items` ADD `enumchron` VARCHAR(80) DEFAULT NULL;");
1070     print "Upgrade to $DBversion done ( Added item.enumchron column, and framework map to 952h )\n";
1071     SetVersion ($DBversion);
1072 }
1073
1074 $DBversion = "3.00.00.057";
1075 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1076     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH','0','if ON, OAI-PMH server is enabled',NULL,'YesNo');");
1077     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:archiveID','KOHA-OAI-TEST','OAI-PMH archive identification',NULL,'Free');");
1078     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:MaxCount','50','OAI-PMH maximum number of records by answer to ListRecords and ListIdentifiers queries',NULL,'Integer');");
1079     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:Set','SET,Experimental set\r\nSET:SUBSET,Experimental subset','OAI-PMH exported set, the set name is followed by a comma and a short description, one set by line',NULL,'Free');");
1080     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:Subset',\"itemtype='BOOK'\",'Restrict answer to matching raws of the biblioitems table (experimental)',NULL,'Free');");
1081     SetVersion ($DBversion);
1082 }
1083
1084 $DBversion = "3.00.00.058";
1085 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1086     $dbh->do("ALTER TABLE `opac_news`
1087                 CHANGE `lang` `lang` VARCHAR( 25 )
1088                 CHARACTER SET utf8
1089                 COLLATE utf8_general_ci
1090                 NOT NULL default ''");
1091         print "Upgrade to $DBversion done ( lang field in opac_news made longer )\n";
1092     SetVersion ($DBversion);
1093 }
1094
1095 $DBversion = "3.00.00.059";
1096 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1097
1098     $dbh->do("CREATE TABLE IF NOT EXISTS `labels_templates` (
1099             `tmpl_id` int(4) NOT NULL auto_increment,
1100             `tmpl_code` char(100)  default '',
1101             `tmpl_desc` char(100) default '',
1102             `page_width` float default '0',
1103             `page_height` float default '0',
1104             `label_width` float default '0',
1105             `label_height` float default '0',
1106             `topmargin` float default '0',
1107             `leftmargin` float default '0',
1108             `cols` int(2) default '0',
1109             `rows` int(2) default '0',
1110             `colgap` float default '0',
1111             `rowgap` float default '0',
1112             `active` int(1) default NULL,
1113             `units` char(20)  default 'PX',
1114             `fontsize` int(4) NOT NULL default '3',
1115             PRIMARY KEY  (`tmpl_id`)
1116             ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1117     $dbh->do("CREATE TABLE  IF NOT EXISTS `printers_profile` (
1118             `prof_id` int(4) NOT NULL auto_increment,
1119             `printername` varchar(40) NOT NULL,
1120             `tmpl_id` int(4) NOT NULL,
1121             `paper_bin` varchar(20) NOT NULL,
1122             `offset_horz` float default NULL,
1123             `offset_vert` float default NULL,
1124             `creep_horz` float default NULL,
1125             `creep_vert` float default NULL,
1126             `unit` char(20) NOT NULL default 'POINT',
1127             PRIMARY KEY  (`prof_id`),
1128             UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1129             CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1130             ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1131     print "Upgrade to $DBversion done ( Added labels_templates table if it did not exist. )\n";
1132     SetVersion ($DBversion);
1133 }
1134
1135 $DBversion = "3.00.00.060";
1136 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1137     $dbh->do("CREATE TABLE IF NOT EXISTS `patronimage` (
1138             `cardnumber` varchar(16) NOT NULL,
1139             `mimetype` varchar(15) NOT NULL,
1140             `imagefile` mediumblob NOT NULL,
1141             PRIMARY KEY  (`cardnumber`),
1142             CONSTRAINT `patronimage_fk1` FOREIGN KEY (`cardnumber`) REFERENCES `borrowers` (`cardnumber`) ON DELETE CASCADE ON UPDATE CASCADE
1143             ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1144         print "Upgrade to $DBversion done ( Added patronimage table. )\n";
1145     SetVersion ($DBversion);
1146 }
1147
1148 $DBversion = "3.00.00.061";
1149 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1150     $dbh->do("ALTER TABLE labels_templates ADD COLUMN font char(10) NOT NULL DEFAULT 'TR';");
1151         print "Upgrade to $DBversion done ( Added font column to labels_templates )\n";
1152     SetVersion ($DBversion);
1153 }
1154
1155 $DBversion = "3.00.00.062";
1156 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1157     $dbh->do("CREATE TABLE `old_issues` (
1158                 `borrowernumber` int(11) default NULL,
1159                 `itemnumber` int(11) default NULL,
1160                 `date_due` date default NULL,
1161                 `branchcode` varchar(10) default NULL,
1162                 `issuingbranch` varchar(18) default NULL,
1163                 `returndate` date default NULL,
1164                 `lastreneweddate` date default NULL,
1165                 `return` varchar(4) default NULL,
1166                 `renewals` tinyint(4) default NULL,
1167                 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1168                 `issuedate` date default NULL,
1169                 KEY `old_issuesborridx` (`borrowernumber`),
1170                 KEY `old_issuesitemidx` (`itemnumber`),
1171                 KEY `old_bordate` (`borrowernumber`,`timestamp`),
1172                 CONSTRAINT `old_issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1173                     ON DELETE SET NULL ON UPDATE SET NULL,
1174                 CONSTRAINT `old_issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1175                     ON DELETE SET NULL ON UPDATE SET NULL
1176                 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1177     $dbh->do("CREATE TABLE `old_reserves` (
1178                 `borrowernumber` int(11) default NULL,
1179                 `reservedate` date default NULL,
1180                 `biblionumber` int(11) default NULL,
1181                 `constrainttype` varchar(1) default NULL,
1182                 `branchcode` varchar(10) default NULL,
1183                 `notificationdate` date default NULL,
1184                 `reminderdate` date default NULL,
1185                 `cancellationdate` date default NULL,
1186                 `reservenotes` mediumtext,
1187                 `priority` smallint(6) default NULL,
1188                 `found` varchar(1) default NULL,
1189                 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1190                 `itemnumber` int(11) default NULL,
1191                 `waitingdate` date default NULL,
1192                 KEY `old_reserves_borrowernumber` (`borrowernumber`),
1193                 KEY `old_reserves_biblionumber` (`biblionumber`),
1194                 KEY `old_reserves_itemnumber` (`itemnumber`),
1195                 KEY `old_reserves_branchcode` (`branchcode`),
1196                 CONSTRAINT `old_reserves_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1197                     ON DELETE SET NULL ON UPDATE SET NULL,
1198                 CONSTRAINT `old_reserves_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`)
1199                     ON DELETE SET NULL ON UPDATE SET NULL,
1200                 CONSTRAINT `old_reserves_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1201                     ON DELETE SET NULL ON UPDATE SET NULL
1202                 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1203
1204     # move closed transactions to old_* tables
1205     $dbh->do("INSERT INTO old_issues SELECT * FROM issues WHERE returndate IS NOT NULL");
1206     $dbh->do("DELETE FROM issues WHERE returndate IS NOT NULL");
1207     $dbh->do("INSERT INTO old_reserves SELECT * FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1208     $dbh->do("DELETE FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1209
1210         print "Upgrade to $DBversion done ( Added old_issues and old_reserves tables )\n";
1211     SetVersion ($DBversion);
1212 }
1213
1214 $DBversion = "3.00.00.063";
1215 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1216     $dbh->do("ALTER TABLE deleteditems
1217                 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT DEFAULT NULL,
1218                 ADD COLUMN enumchron VARCHAR(80) DEFAULT NULL AFTER more_subfields_xml,
1219                 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1220     $dbh->do("ALTER TABLE items
1221                 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT,
1222                 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1223         print "Upgrade to $DBversion done ( Changed items.booksellerid and deleteditems.booksellerid to MEDIUMTEXT and added missing items.copynumber and deleteditems.copynumber to fix Bug 1927)\n";
1224     SetVersion ($DBversion);
1225 }
1226
1227 $DBversion = "3.00.00.064";
1228 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1229     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AmazonLocale','US','Use to set the Locale of your Amazon.com Web Services','US|CA|DE|FR|JP|UK','Choice');");
1230     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSAccessKeyID','','See:  http://aws.amazon.com','','free');");
1231     $dbh->do("DELETE FROM `systempreferences` WHERE variable='AmazonDevKey';");
1232     $dbh->do("DELETE FROM `systempreferences` WHERE variable='XISBNAmazonSimilarItems';");
1233     $dbh->do("DELETE FROM `systempreferences` WHERE variable='OPACXISBNAmazonSimilarItems';");
1234     print "Upgrade to $DBversion done (IMPORTANT: Upgrading to Amazon.com Associates Web Service 4.0 ) \n";
1235     SetVersion ($DBversion);
1236 }
1237
1238 $DBversion = "3.00.00.065";
1239 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1240     $dbh->do("CREATE TABLE `patroncards` (
1241                 `cardid` int(11) NOT NULL auto_increment,
1242                 `batch_id` varchar(10) NOT NULL default '1',
1243                 `borrowernumber` int(11) NOT NULL,
1244                 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1245                 PRIMARY KEY  (`cardid`),
1246                 KEY `patroncards_ibfk_1` (`borrowernumber`),
1247                 CONSTRAINT `patroncards_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1248                 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1249     print "Upgrade to $DBversion done (Adding patroncards table for patroncards generation feature. ) \n";
1250     SetVersion ($DBversion);
1251 }
1252
1253 $DBversion = "3.00.00.066";
1254 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1255     $dbh->do("ALTER TABLE `virtualshelfcontents` MODIFY `dateadded` timestamp NOT NULL
1256 DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP;
1257 ");
1258     print "Upgrade to $DBversion done (fix for bug 1873: virtualshelfcontents dateadded column empty. ) \n";
1259     SetVersion ($DBversion);
1260 }
1261
1262 $DBversion = "3.00.00.067";
1263 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1264     $dbh->do("UPDATE systempreferences SET explanation = 'Enable patron images for the Staff Client', type = 'YesNo' WHERE variable = 'patronimages'");
1265     print "Upgrade to $DBversion done (Updating patronimages syspref to reflect current kohastructure.sql. ) \n";
1266     SetVersion ($DBversion);
1267 }
1268
1269 $DBversion = "3.00.00.068";
1270 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1271     $dbh->do("CREATE TABLE `permissions` (
1272                 `module_bit` int(11) NOT NULL DEFAULT 0,
1273                 `code` varchar(30) DEFAULT NULL,
1274                 `description` varchar(255) DEFAULT NULL,
1275                 PRIMARY KEY  (`module_bit`, `code`),
1276                 CONSTRAINT `permissions_ibfk_1` FOREIGN KEY (`module_bit`) REFERENCES `userflags` (`bit`)
1277                     ON DELETE CASCADE ON UPDATE CASCADE
1278               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1279     $dbh->do("CREATE TABLE `user_permissions` (
1280                 `borrowernumber` int(11) NOT NULL DEFAULT 0,
1281                 `module_bit` int(11) NOT NULL DEFAULT 0,
1282                 `code` varchar(30) DEFAULT NULL,
1283                 CONSTRAINT `user_permissions_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1284                     ON DELETE CASCADE ON UPDATE CASCADE,
1285                 CONSTRAINT `user_permissions_ibfk_2` FOREIGN KEY (`module_bit`, `code`)
1286                     REFERENCES `permissions` (`module_bit`, `code`)
1287                     ON DELETE CASCADE ON UPDATE CASCADE
1288               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1289
1290     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
1291     (13, 'edit_news', 'Write news for the OPAC and staff interfaces'),
1292     (13, 'label_creator', 'Create printable labels and barcodes from catalog and patron data'),
1293     (13, 'edit_calendar', 'Define days when the library is closed'),
1294     (13, 'moderate_comments', 'Moderate patron comments'),
1295     (13, 'edit_notices', 'Define notices'),
1296     (13, 'edit_notice_status_triggers', 'Set notice/status triggers for overdue items'),
1297     (13, 'view_system_logs', 'Browse the system logs'),
1298     (13, 'inventory', 'Perform inventory (stocktaking) of your catalogue'),
1299     (13, 'stage_marc_import', 'Stage MARC records into the reservoir'),
1300     (13, 'manage_staged_marc', 'Managed staged MARC records, including completing and reversing imports'),
1301     (13, 'export_catalog', 'Export bibliographic and holdings data'),
1302     (13, 'import_patrons', 'Import patron data'),
1303     (13, 'delete_anonymize_patrons', 'Delete old borrowers and anonymize circulation history (deletes borrower reading history)'),
1304     (13, 'batch_upload_patron_images', 'Upload patron images in batch or one at a time'),
1305     (13, 'schedule_tasks', 'Schedule tasks to run')");
1306
1307     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('GranularPermissions','0','Use detailed staff user permissions',NULL,'YesNo')");
1308
1309     print "Upgrade to $DBversion done (adding permissions and user_permissions tables and GranularPermissions syspref) \n";
1310     SetVersion ($DBversion);
1311 }
1312 $DBversion = "3.00.00.069";
1313 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1314     $dbh->do("ALTER TABLE labels_conf CHANGE COLUMN class classification int(1) DEFAULT NULL;");
1315         print "Upgrade to $DBversion done ( Correcting columname in labels_conf )\n";
1316     SetVersion ($DBversion);
1317 }
1318
1319 $DBversion = "3.00.00.070";
1320 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1321     $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='yuipath'");
1322     $sth->execute;
1323     my ($value) = $sth->fetchrow;
1324     $value =~ s/2.3.1/2.5.1/;
1325     $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='yuipath';");
1326         print "Update yuipath syspref to 2.5.1 if necessary\n";
1327     SetVersion ($DBversion);
1328 }
1329
1330 $DBversion = "3.00.00.071";
1331 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1332     $dbh->do(" ALTER TABLE `subscription` ADD `serialsadditems` TINYINT( 1 ) NOT NULL DEFAULT '0';");
1333     # fill the new field with the previous systempreference value, then drop the syspref
1334     my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='serialsadditems'");
1335     $sth->execute;
1336     my ($serialsadditems) = $sth->fetchrow();
1337     $dbh->do("UPDATE subscription SET serialsadditems=$serialsadditems");
1338     $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1339     print "Upgrade to $DBversion done ( moving serialsadditems from syspref to subscription )\n";
1340     SetVersion ($DBversion);
1341 }
1342
1343 $DBversion = "3.00.00.072";
1344 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1345     $dbh->do("ALTER TABLE labels_conf ADD COLUMN formatstring mediumtext DEFAULT NULL AFTER printingtype");
1346         print "Upgrade to $DBversion done ( Adding format string to labels generator. )\n";
1347     SetVersion ($DBversion);
1348 }
1349
1350 $DBversion = "3.00.00.073";
1351 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1352         $dbh->do("DROP TABLE IF EXISTS `tags_all`;");
1353         $dbh->do(q#
1354         CREATE TABLE `tags_all` (
1355           `tag_id`         int(11) NOT NULL auto_increment,
1356           `borrowernumber` int(11) NOT NULL,
1357           `biblionumber`   int(11) NOT NULL,
1358           `term`      varchar(255) NOT NULL,
1359           `language`       int(4) default NULL,
1360           `date_created` datetime  NOT NULL,
1361           PRIMARY KEY  (`tag_id`),
1362           KEY `tags_borrowers_fk_1` (`borrowernumber`),
1363           KEY `tags_biblionumber_fk_1` (`biblionumber`),
1364           CONSTRAINT `tags_borrowers_fk_1` FOREIGN KEY (`borrowernumber`)
1365                 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1366           CONSTRAINT `tags_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1367                 REFERENCES `biblio`     (`biblionumber`)  ON DELETE CASCADE ON UPDATE CASCADE
1368         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1369         #);
1370         $dbh->do("DROP TABLE IF EXISTS `tags_approval`;");
1371         $dbh->do(q#
1372         CREATE TABLE `tags_approval` (
1373           `term`   varchar(255) NOT NULL,
1374           `approved`     int(1) NOT NULL default '0',
1375           `date_approved` datetime       default NULL,
1376           `approved_by` int(11)          default NULL,
1377           `weight_total` int(9) NOT NULL default '1',
1378           PRIMARY KEY  (`term`),
1379           KEY `tags_approval_borrowers_fk_1` (`approved_by`),
1380           CONSTRAINT `tags_approval_borrowers_fk_1` FOREIGN KEY (`approved_by`)
1381                 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1382         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1383         #);
1384         $dbh->do("DROP TABLE IF EXISTS `tags_index`;");
1385         $dbh->do(q#
1386         CREATE TABLE `tags_index` (
1387           `term`    varchar(255) NOT NULL,
1388           `biblionumber` int(11) NOT NULL,
1389           `weight`        int(9) NOT NULL default '1',
1390           PRIMARY KEY  (`term`,`biblionumber`),
1391           KEY `tags_index_biblionumber_fk_1` (`biblionumber`),
1392           CONSTRAINT `tags_index_term_fk_1` FOREIGN KEY (`term`)
1393                 REFERENCES `tags_approval` (`term`)  ON DELETE CASCADE ON UPDATE CASCADE,
1394           CONSTRAINT `tags_index_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1395                 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1396         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1397         #);
1398         $dbh->do(q#
1399         INSERT INTO `systempreferences` VALUES
1400                 ('BakerTaylorBookstoreURL','','','URL template for \"My Libary Bookstore\" links, to which the \"key\" value is appended, and \"https://\" is prepended.  It should include your hostname and \"Parent Number\".  Make this variable empty to turn MLB links off.  Example: ocls.mylibrarybookstore.com/MLB/actions/searchHandler.do?nextPage=bookDetails&parentNum=10923&key=',''),
1401                 ('BakerTaylorEnabled','0','','Enable or disable all Baker & Taylor features.','YesNo'),
1402                 ('BakerTaylorPassword','','','Baker & Taylor Password for Content Cafe (external content)','Textarea'),
1403                 ('BakerTaylorUsername','','','Baker & Taylor Username for Content Cafe (external content)','Textarea'),
1404                 ('TagsEnabled','1','','Enables or disables all tagging features.  This is the main switch for tags.','YesNo'),
1405                 ('TagsExternalDictionary',NULL,'','Path on server to local ispell executable, used to set $Lingua::Ispell::path  This dictionary is used as a \"whitelist\" of pre-allowed tags.',''),
1406                 ('TagsInputOnDetail','1','','Allow users to input tags from the detail page.',         'YesNo'),
1407                 ('TagsInputOnList',  '0','','Allow users to input tags from the search results list.', 'YesNo'),
1408                 ('TagsModeration',  NULL,'','Require tags from patrons to be approved before becoming visible.','YesNo'),
1409                 ('TagsShowOnDetail','10','','Number of tags to display on detail page.  0 is off.',        'Integer'),
1410                 ('TagsShowOnList',   '6','','Number of tags to display on search results list.  0 is off.','Integer')
1411         #);
1412         print "Upgrade to $DBversion done (Baker/Taylor,Tags: sysprefs and tables (tags_all, tags_index, tags_approval)) \n";
1413         SetVersion ($DBversion);
1414 }
1415
1416 $DBversion = "3.00.00.074";
1417 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1418     $dbh->do( q(update itemtypes set imageurl = concat( 'npl/', imageurl )
1419                   where imageurl not like 'http%'
1420                     and imageurl is not NULL
1421                     and imageurl != '') );
1422     print "Upgrade to $DBversion done (updating imagetype.imageurls to reflect new icon locations.)\n";
1423     SetVersion ($DBversion);
1424 }
1425
1426 $DBversion = "3.00.00.075";
1427 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1428     $dbh->do( q(alter table authorised_values add imageurl varchar(200) default NULL) );
1429     print "Upgrade to $DBversion done (adding imageurl field to authorised_values table)\n";
1430     SetVersion ($DBversion);
1431 }
1432
1433 $DBversion = "3.00.00.076";
1434 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1435     $dbh->do("ALTER TABLE import_batches
1436               ADD COLUMN nomatch_action enum('create_new', 'ignore') NOT NULL default 'create_new' AFTER overlay_action");
1437     $dbh->do("ALTER TABLE import_batches
1438               ADD COLUMN item_action enum('always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore')
1439                   NOT NULL default 'always_add' AFTER nomatch_action");
1440     $dbh->do("ALTER TABLE import_batches
1441               MODIFY overlay_action  enum('replace', 'create_new', 'use_template', 'ignore')
1442                   NOT NULL default 'create_new'");
1443     $dbh->do("ALTER TABLE import_records
1444               MODIFY status  enum('error', 'staged', 'imported', 'reverted', 'items_reverted',
1445                                   'ignored') NOT NULL default 'staged'");
1446     $dbh->do("ALTER TABLE import_items
1447               MODIFY status enum('error', 'staged', 'imported', 'reverted', 'ignored') NOT NULL default 'staged'");
1448
1449         print "Upgrade to $DBversion done (changes to import_batches and import_records)\n";
1450         SetVersion ($DBversion);
1451 }
1452
1453 $DBversion = "3.00.00.077";
1454 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1455     # drop these tables only if they exist and none of them are empty
1456     # these tables are not defined in the packaged 2.2.9, but since it is believed
1457     # that at least one library may be using them in a post-2.2.9 but pre-3.0 Koha,
1458     # some care is taken.
1459     my ($print_error) = $dbh->{PrintError};
1460     $dbh->{PrintError} = 0;
1461     my ($raise_error) = $dbh->{RaiseError};
1462     $dbh->{RaiseError} = 1;
1463
1464     my $count = 0;
1465     my $do_drop = 1;
1466     eval { $count = $dbh->do("SELECT 1 FROM categorytable"); };
1467     if ($count > 0) {
1468         $do_drop = 0;
1469     }
1470     eval { $count = $dbh->do("SELECT 1 FROM mediatypetable"); };
1471     if ($count > 0) {
1472         $do_drop = 0;
1473     }
1474     eval { $count = $dbh->do("SELECT 1 FROM subcategorytable"); };
1475     if ($count > 0) {
1476         $do_drop = 0;
1477     }
1478
1479     if ($do_drop) {
1480         $dbh->do("DROP TABLE IF EXISTS `categorytable`");
1481         $dbh->do("DROP TABLE IF EXISTS `mediatypetable`");
1482         $dbh->do("DROP TABLE IF EXISTS `subcategorytable`");
1483     }
1484
1485     $dbh->{PrintError} = $print_error;
1486     $dbh->{RaiseError} = $raise_error;
1487         print "Upgrade to $DBversion done (drop categorytable, subcategorytable, and mediatypetable)\n";
1488         SetVersion ($DBversion);
1489 }
1490
1491 $DBversion = "3.00.00.078";
1492 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1493     my ($print_error) = $dbh->{PrintError};
1494     $dbh->{PrintError} = 0;
1495
1496     unless ($dbh->do("SELECT 1 FROM browser")) {
1497         $dbh->{PrintError} = $print_error;
1498         $dbh->do("CREATE TABLE `browser` (
1499                     `level` int(11) NOT NULL,
1500                     `classification` varchar(20) NOT NULL,
1501                     `description` varchar(255) NOT NULL,
1502                     `number` bigint(20) NOT NULL,
1503                     `endnode` tinyint(4) NOT NULL
1504                   ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1505     }
1506     $dbh->{PrintError} = $print_error;
1507         print "Upgrade to $DBversion done (add browser table if not already present)\n";
1508         SetVersion ($DBversion);
1509 }
1510
1511 $DBversion = "3.00.00.079";
1512 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1513  my ($print_error) = $dbh->{PrintError};
1514     $dbh->{PrintError} = 0;
1515
1516     $dbh->do("INSERT INTO `systempreferences` (variable, value,options,type, explanation)VALUES
1517         ('AddPatronLists','categorycode','categorycode|category_type','Choice','Allow user to choose what list to pick up from when adding patrons')");
1518     print "Upgrade to $DBversion done (add browser table if not already present)\n";
1519         SetVersion ($DBversion);
1520 }
1521
1522 $DBversion = "3.00.00.080";
1523 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1524     $dbh->do("ALTER TABLE subscription CHANGE monthlength monthlength int(11) default '0'");
1525     $dbh->do("ALTER TABLE deleteditems MODIFY marc LONGBLOB AFTER copynumber");
1526     $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
1527         print "Upgrade to $DBversion done (catch up on DB schema changes since alpha and beta)\n";
1528         SetVersion ($DBversion);
1529 }
1530
1531 $DBversion = "3.00.00.081";
1532 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1533     $dbh->do("CREATE TABLE `borrower_attribute_types` (
1534                 `code` varchar(10) NOT NULL,
1535                 `description` varchar(255) NOT NULL,
1536                 `repeatable` tinyint(1) NOT NULL default 0,
1537                 `unique_id` tinyint(1) NOT NULL default 0,
1538                 `opac_display` tinyint(1) NOT NULL default 0,
1539                 `password_allowed` tinyint(1) NOT NULL default 0,
1540                 `staff_searchable` tinyint(1) NOT NULL default 0,
1541                 `authorised_value_category` varchar(10) default NULL,
1542                 PRIMARY KEY  (`code`)
1543               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1544     $dbh->do("CREATE TABLE `borrower_attributes` (
1545                 `borrowernumber` int(11) NOT NULL,
1546                 `code` varchar(10) NOT NULL,
1547                 `attribute` varchar(30) default NULL,
1548                 `password` varchar(30) default NULL,
1549                 KEY `borrowernumber` (`borrowernumber`),
1550                 KEY `code_attribute` (`code`, `attribute`),
1551                 CONSTRAINT `borrower_attributes_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1552                     ON DELETE CASCADE ON UPDATE CASCADE,
1553                 CONSTRAINT `borrower_attributes_ibfk_2` FOREIGN KEY (`code`) REFERENCES `borrower_attribute_types` (`code`)
1554                     ON DELETE CASCADE ON UPDATE CASCADE
1555             ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1556     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ExtendedPatronAttributes','0','Use extended patron IDs and attributes',NULL,'YesNo')");
1557     print "Upgrade to $DBversion done (added borrower_attributes and  borrower_attribute_types)\n";
1558  SetVersion ($DBversion);
1559 }
1560
1561 $DBversion = "3.00.00.082";
1562 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1563     $dbh->do( q(alter table accountlines add column lastincrement decimal(28,6) default NULL) );
1564     print "Upgrade to $DBversion done (adding lastincrement column to accountlines table)\n";
1565     SetVersion ($DBversion);
1566 }
1567
1568 $DBversion = "3.00.00.083";
1569 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1570     $dbh->do( qq(UPDATE systempreferences SET value='local' where variable='yuipath' and value like "%/intranet-tmpl/prog/%"));
1571     print "Upgrade to $DBversion done (Changing yuipath behaviour in managing a local value)\n";
1572     SetVersion ($DBversion);
1573 }
1574 $DBversion = "3.00.00.084";
1575     if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1576     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RenewSerialAddsSuggestion','0','if ON, adds a new suggestion at serial subscription renewal',NULL,'YesNo')");
1577     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('GoogleJackets','0','if ON, displays jacket covers from Google Books API',NULL,'YesNo')");
1578     print "Upgrade to $DBversion done (add new sysprefs)\n";
1579     SetVersion ($DBversion);
1580 }
1581
1582 $DBversion = "3.00.00.085";
1583 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1584     if (C4::Context->preference("marcflavour") eq 'MARC21') {
1585         $dbh->do("UPDATE marc_subfield_structure SET tab = 0 WHERE tab =  9 AND tagfield = '037'");
1586         $dbh->do("UPDATE marc_subfield_structure SET tab = 1 WHERE tab =  6 AND tagfield in ('100', '110', '111', '130')");
1587         $dbh->do("UPDATE marc_subfield_structure SET tab = 2 WHERE tab =  6 AND tagfield in ('240', '243')");
1588         $dbh->do("UPDATE marc_subfield_structure SET tab = 4 WHERE tab =  6 AND tagfield in ('400', '410', '411', '440')");
1589         $dbh->do("UPDATE marc_subfield_structure SET tab = 5 WHERE tab =  9 AND tagfield = '584'");
1590         $dbh->do("UPDATE marc_subfield_structure SET tab = 7 WHERE tab = -6 AND tagfield = '760'");
1591     }
1592     print "Upgrade to $DBversion done (move editing tab of various MARC21 subfields)\n";
1593     SetVersion ($DBversion);
1594 }
1595
1596 $DBversion = "3.00.00.086";
1597 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1598         $dbh->do(
1599         "CREATE TABLE `tmp_holdsqueue` (
1600         `biblionumber` int(11) default NULL,
1601         `itemnumber` int(11) default NULL,
1602         `barcode` varchar(20) default NULL,
1603         `surname` mediumtext NOT NULL,
1604         `firstname` text,
1605         `phone` text,
1606         `borrowernumber` int(11) NOT NULL,
1607         `cardnumber` varchar(16) default NULL,
1608         `reservedate` date default NULL,
1609         `title` mediumtext,
1610         `itemcallnumber` varchar(30) default NULL,
1611         `holdingbranch` varchar(10) default NULL,
1612         `pickbranch` varchar(10) default NULL,
1613         `notes` text
1614         ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1615
1616         $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RandomizeHoldsQueueWeight','0','if ON, the holds queue in circulation will be randomized, either based on all location codes, or by the location codes specified in StaticHoldsQueueWeight',NULL,'YesNo')");
1617         $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaticHoldsQueueWeight','0','Specify a list of library location codes separated by commas -- the list of codes will be traversed and weighted with first values given higher weight for holds fulfillment -- alternatively, if RandomizeHoldsQueueWeight is set, the list will be randomly selective',NULL,'TextArea')");
1618
1619         print "Upgrade to $DBversion done (Table structure for table `tmp_holdsqueue`)\n";
1620         SetVersion ($DBversion);
1621 }
1622
1623 $DBversion = "3.00.00.087";
1624 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1625     $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailOpacUser','0','','Sends notification emails containing new account details to patrons - when account is created.','YesNo')" );
1626     $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailPrimaryAddress','OFF','email|emailpro|B_email|cardnumber|OFF','Defines the default email address where Account Details emails are sent.','Choice')");
1627     print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1628     SetVersion ($DBversion);
1629 }
1630
1631 $DBversion = "3.00.00.088";
1632 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1633         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACShelfBrowser','1','','Enable/disable Shelf Browser on item details page','YesNo')");
1634         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACItemHolds','1','Allow OPAC users to place hold on specific items. If OFF, users can only request next available copy.','','YesNo')");
1635         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('XSLTDetailsDisplay','0','','Enable XSL stylesheet control over details page display on OPAC WARNING: MARC21 Only','YesNo')");
1636         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('XSLTResultsDisplay','0','','Enable XSL stylesheet control over results page display on OPAC WARNING: MARC21 Only','YesNo')");
1637         print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1638     SetVersion ($DBversion);
1639 }
1640
1641 $DBversion = "3.00.00.089";
1642 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1643         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AdvancedSearchTypes','itemtypes','itemtypes|ccode','Select which set of fields comprise the Type limit in the advanced search','Choice')");
1644         print "Upgrade to $DBversion done (added new AdvancedSearchTypes syspref)\n";
1645     SetVersion ($DBversion);
1646 }
1647
1648 $DBversion = "3.00.00.090";
1649 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1650     $dbh->do("
1651         CREATE TABLE `branch_borrower_circ_rules` (
1652           `branchcode` VARCHAR(10) NOT NULL,
1653           `categorycode` VARCHAR(10) NOT NULL,
1654           `maxissueqty` int(4) default NULL,
1655           PRIMARY KEY (`categorycode`, `branchcode`),
1656           CONSTRAINT `branch_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1657             ON DELETE CASCADE ON UPDATE CASCADE,
1658           CONSTRAINT `branch_borrower_circ_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1659             ON DELETE CASCADE ON UPDATE CASCADE
1660         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1661     ");
1662     $dbh->do("
1663         CREATE TABLE `default_borrower_circ_rules` (
1664           `categorycode` VARCHAR(10) NOT NULL,
1665           `maxissueqty` int(4) default NULL,
1666           PRIMARY KEY (`categorycode`),
1667           CONSTRAINT `borrower_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1668             ON DELETE CASCADE ON UPDATE CASCADE
1669         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1670     ");
1671     $dbh->do("
1672         CREATE TABLE `default_branch_circ_rules` (
1673           `branchcode` VARCHAR(10) NOT NULL,
1674           `maxissueqty` int(4) default NULL,
1675           PRIMARY KEY (`branchcode`),
1676           CONSTRAINT `default_branch_circ_rules_ibfk_1` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1677             ON DELETE CASCADE ON UPDATE CASCADE
1678         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1679     ");
1680     $dbh->do("
1681         CREATE TABLE `default_circ_rules` (
1682             `singleton` enum('singleton') NOT NULL default 'singleton',
1683             `maxissueqty` int(4) default NULL,
1684             PRIMARY KEY (`singleton`)
1685         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1686     ");
1687     print "Upgrade to $DBversion done (added several circ rules tables)\n";
1688     SetVersion ($DBversion);
1689 }
1690
1691
1692 $DBversion = "3.00.00.091";
1693 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1694     $dbh->do(<<'END_SQL');
1695 ALTER TABLE borrowers
1696 ADD `smsalertnumber` varchar(50) default NULL
1697 END_SQL
1698
1699     $dbh->do(<<'END_SQL');
1700 CREATE TABLE `message_attributes` (
1701   `message_attribute_id` int(11) NOT NULL auto_increment,
1702   `message_name` varchar(20) NOT NULL default '',
1703   `takes_days` tinyint(1) NOT NULL default '0',
1704   PRIMARY KEY  (`message_attribute_id`),
1705   UNIQUE KEY `message_name` (`message_name`)
1706 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1707 END_SQL
1708
1709     $dbh->do(<<'END_SQL');
1710 CREATE TABLE `message_transport_types` (
1711   `message_transport_type` varchar(20) NOT NULL,
1712   PRIMARY KEY  (`message_transport_type`)
1713 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1714 END_SQL
1715
1716     $dbh->do(<<'END_SQL');
1717 CREATE TABLE `message_transports` (
1718   `message_attribute_id` int(11) NOT NULL,
1719   `message_transport_type` varchar(20) NOT NULL,
1720   `is_digest` tinyint(1) NOT NULL default '0',
1721   `letter_module` varchar(20) NOT NULL default '',
1722   `letter_code` varchar(20) NOT NULL default '',
1723   PRIMARY KEY  (`message_attribute_id`,`message_transport_type`,`is_digest`),
1724   KEY `message_transport_type` (`message_transport_type`),
1725   KEY `letter_module` (`letter_module`,`letter_code`),
1726   CONSTRAINT `message_transports_ibfk_1` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE,
1727   CONSTRAINT `message_transports_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE,
1728   CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`) REFERENCES `letter` (`module`, `code`) ON DELETE CASCADE ON UPDATE CASCADE
1729 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1730 END_SQL
1731
1732     $dbh->do(<<'END_SQL');
1733 CREATE TABLE `borrower_message_preferences` (
1734   `borrower_message_preference_id` int(11) NOT NULL auto_increment,
1735   `borrowernumber` int(11) NOT NULL default '0',
1736   `message_attribute_id` int(11) default '0',
1737   `days_in_advance` int(11) default '0',
1738   `wants_digets` tinyint(1) NOT NULL default '0',
1739   PRIMARY KEY  (`borrower_message_preference_id`),
1740   KEY `borrowernumber` (`borrowernumber`),
1741   KEY `message_attribute_id` (`message_attribute_id`),
1742   CONSTRAINT `borrower_message_preferences_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1743   CONSTRAINT `borrower_message_preferences_ibfk_2` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE
1744 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1745 END_SQL
1746
1747     $dbh->do(<<'END_SQL');
1748 CREATE TABLE `borrower_message_transport_preferences` (
1749   `borrower_message_preference_id` int(11) NOT NULL default '0',
1750   `message_transport_type` varchar(20) NOT NULL default '0',
1751   PRIMARY KEY  (`borrower_message_preference_id`,`message_transport_type`),
1752   KEY `message_transport_type` (`message_transport_type`),
1753   CONSTRAINT `borrower_message_transport_preferences_ibfk_1` FOREIGN KEY (`borrower_message_preference_id`) REFERENCES `borrower_message_preferences` (`borrower_message_preference_id`) ON DELETE CASCADE ON UPDATE CASCADE,
1754   CONSTRAINT `borrower_message_transport_preferences_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE
1755 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1756 END_SQL
1757
1758     $dbh->do(<<'END_SQL');
1759 CREATE TABLE `message_queue` (
1760   `message_id` int(11) NOT NULL auto_increment,
1761   `borrowernumber` int(11) NOT NULL,
1762   `subject` text,
1763   `content` text,
1764   `message_transport_type` varchar(20) NOT NULL,
1765   `status` enum('sent','pending','failed','deleted') NOT NULL default 'pending',
1766   `time_queued` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1767   KEY `message_id` (`message_id`),
1768   KEY `borrowernumber` (`borrowernumber`),
1769   KEY `message_transport_type` (`message_transport_type`),
1770   CONSTRAINT `messageq_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1771   CONSTRAINT `messageq_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE RESTRICT ON UPDATE CASCADE
1772 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1773 END_SQL
1774
1775     $dbh->do(<<'END_SQL');
1776 INSERT INTO `systempreferences`
1777   (variable,value,explanation,options,type)
1778 VALUES
1779 ('EnhancedMessagingPreferences',0,'If ON, allows patrons to select to receive additional messages about items due or nearly due.','','YesNo')
1780 END_SQL
1781
1782     $dbh->do( <<'END_SQL');
1783 INSERT INTO `letter`
1784 (module, code, name, title, content)
1785 VALUES
1786 ('circulation','DUE','Item Due Reminder','Item Due Reminder','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item is now due:\r\n\r\n<<biblio.title>> by <<biblio.author>>'),
1787 ('circulation','DUEDGST','Item Due Reminder (Digest)','Item Due Reminder','You have <<count>> items due'),
1788 ('circulation','PREDUE','Advance Notice of Item Due','Advance Notice of Item Due','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item will be due soon:\r\n\r\n<<biblio.title>> by <<biblio.author>>'),
1789 ('circulation','PREDUEDGST','Advance Notice of Item Due (Digest)','Advance Notice of Item Due','You have <<count>> items due soon'),
1790 ('circulation','EVENT','Upcoming Library Event','Upcoming Library Event','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThis is a reminder of an upcoming library event in which you have expressed interest.');
1791 END_SQL
1792
1793     my @sql_scripts = (
1794         'installer/data/mysql/en/mandatory/message_transport_types.sql',
1795         'installer/data/mysql/en/optional/sample_notices_message_attributes.sql',
1796         'installer/data/mysql/en/optional/sample_notices_message_transports.sql',
1797     );
1798
1799     my $installer = C4::Installer->new();
1800     foreach my $script ( @sql_scripts ) {
1801         my $full_path = $installer->get_file_path_from_name($script);
1802         my $error = $installer->load_sql($full_path);
1803         warn $error if $error;
1804     }
1805
1806     print "Upgrade to $DBversion done (Table structure for table `message_queue`, `message_transport_types`, `message_attributes`, `message_transports`, `borrower_message_preferences`, and `borrower_message_transport_preferences`.  Alter `borrowers` table,\n";
1807     SetVersion ($DBversion);
1808 }
1809
1810 $DBversion = "3.00.00.092";
1811 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1812     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AllowOnShelfHolds', '0', '', 'Allow hold requests to be placed on items that are not on loan', 'YesNo')");
1813     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AllowHoldsOnDamagedItems', '1', '', 'Allow hold requests to be placed on damaged items', 'YesNo')");
1814         print "Upgrade to $DBversion done (added new AllowOnShelfHolds syspref)\n";
1815     SetVersion ($DBversion);
1816 }
1817
1818 $DBversion = "3.00.00.093";
1819 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1820     $dbh->do("ALTER TABLE `items` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1821     $dbh->do("ALTER TABLE `deleteditems` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1822         print "Upgrade to $DBversion done (Change data type of items.copynumber to allow free text)\n";
1823     SetVersion ($DBversion);
1824 }
1825
1826 $DBversion = "3.00.00.094";
1827 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1828     $dbh->do("ALTER TABLE `marc_subfield_structure` MODIFY `tagsubfield` VARCHAR(1) NOT NULL DEFAULT '' COLLATE utf8_bin");
1829         print "Upgrade to $DBversion done (Change Collation of marc_subfield_structure to allow mixed case in subfield labels.)\n";
1830     SetVersion ($DBversion);
1831 }
1832
1833 $DBversion = "3.00.00.095";
1834 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1835     if (C4::Context->preference("marcflavour") eq 'MARC21') {
1836         $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'MEETI_NAME' WHERE authtypecode = 'Meeting Name'");
1837         $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'CORPO_NAME' WHERE authtypecode = 'CORP0_NAME'");
1838     }
1839         print "Upgrade to $DBversion done (fix invalid authority types in MARC21 frameworks [bug 2254])\n";
1840     SetVersion ($DBversion);
1841 }
1842
1843 $DBversion = "3.00.00.096";
1844 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1845     $sth = $dbh->prepare("SHOW COLUMNS FROM borrower_message_preferences LIKE 'wants_digets'");
1846     $sth->execute();
1847     if (my $row = $sth->fetchrow_hashref) {
1848         $dbh->do("ALTER TABLE borrower_message_preferences CHANGE wants_digets wants_digest tinyint(1) NOT NULL default 0");
1849     }
1850         print "Upgrade to $DBversion done (fix name borrower_message_preferences.wants_digest)\n";
1851     SetVersion ($DBversion);
1852 }
1853
1854 $DBversion = '3.00.00.097';
1855 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1856
1857     $dbh->do('ALTER TABLE message_queue ADD to_address   mediumtext default NULL');
1858     $dbh->do('ALTER TABLE message_queue ADD from_address mediumtext default NULL');
1859     $dbh->do('ALTER TABLE message_queue ADD content_type text');
1860     $dbh->do('ALTER TABLE message_queue CHANGE borrowernumber borrowernumber int(11) default NULL');
1861
1862     print "Upgrade to $DBversion done (updating 4 fields in message_queue table)\n";
1863     SetVersion($DBversion);
1864 }
1865
1866 $DBversion = '3.00.00.098';
1867 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1868
1869     $dbh->do(q(DELETE FROM message_transport_types WHERE message_transport_type = 'rss'));
1870     $dbh->do(q(DELETE FROM message_transports WHERE message_transport_type = 'rss'));
1871
1872     print "Upgrade to $DBversion done (removing unused RSS message_transport_type)\n";
1873     SetVersion($DBversion);
1874 }
1875
1876 $DBversion = '3.00.00.099';
1877 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1878     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('OpacSuppression', '0', '', 'Turn ON the OPAC Suppression feature, requires further setup, ask your system administrator for details', 'YesNo')");
1879     print "Upgrade to $DBversion done (Adding OpacSuppression syspref)\n";
1880     SetVersion($DBversion);
1881 }
1882
1883 $DBversion = '3.00.00.100';
1884 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1885         $dbh->do('ALTER TABLE virtualshelves ADD COLUMN lastmodified timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP');
1886     print "Upgrade to $DBversion done (Adding lastmodified column to virtualshelves)\n";
1887     SetVersion($DBversion);
1888 }
1889
1890 $DBversion = '3.00.00.101';
1891 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1892         $dbh->do('ALTER TABLE `overduerules` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1893         $dbh->do('ALTER TABLE `deletedborrowers` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1894     print "Upgrade to $DBversion done (Updating columnd definitions for patron category codes in notice/statsu triggers and deletedborrowers tables.)\n";
1895     SetVersion($DBversion);
1896 }
1897
1898 $DBversion = '3.00.00.102';
1899 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1900         $dbh->do('ALTER TABLE serialitems MODIFY `serialid` int(11) NOT NULL AFTER itemnumber' );
1901         $dbh->do('ALTER TABLE serialitems DROP KEY serialididx' );
1902         $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT UNIQUE KEY serialitemsidx (itemnumber)' );
1903         # before setting constraint, delete any unvalid data
1904         $dbh->do('DELETE from serialitems WHERE serialid not in (SELECT serial.serialid FROM serial)');
1905         $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT serialitems_sfk_1 FOREIGN KEY (serialid) REFERENCES serial (serialid) ON DELETE CASCADE ON UPDATE CASCADE' );
1906     print "Upgrade to $DBversion done (Updating serialitems table to allow for multiple items per serial fixing kohabug 2380)\n";
1907     SetVersion($DBversion);
1908 }
1909
1910 $DBversion = "3.00.00.103";
1911 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1912     $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1913     print "Upgrade to $DBversion done ( Verifying the removal of serialsadditems from syspref fixing kohabug 2219)\n";
1914     SetVersion ($DBversion);
1915 }
1916
1917 $DBversion = "3.00.00.104";
1918 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1919     $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1920     print "Upgrade to $DBversion done (remove superseded 'noOPACHolds' system preference per bug 2413)\n";
1921     SetVersion ($DBversion);
1922 }
1923
1924 $DBversion = '3.00.00.105';
1925 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
1926
1927     # it is possible that this syspref is already defined since the feature was added some time ago.
1928     unless ( $dbh->do(q(SELECT variable FROM systempreferences WHERE variable = 'SMSSendDriver')) ) {
1929         $dbh->do(<<'END_SQL');
1930 INSERT INTO `systempreferences`
1931   (variable,value,explanation,options,type)
1932 VALUES
1933 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')
1934 END_SQL
1935     }
1936     print "Upgrade to $DBversion done (added SMSSendDriver system preference)\n";
1937     SetVersion($DBversion);
1938 }
1939
1940 $DBversion = "3.00.00.106";
1941 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1942     $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1943
1944 # db revision 105 didn't apply correctly, so we're rolling this into 106
1945         $dbh->do("INSERT INTO `systempreferences`
1946    (variable,value,explanation,options,type)
1947         VALUES
1948         ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')");
1949
1950     print "Upgrade to $DBversion done (remove default '0000-00-00' in subscriptionhistory.enddate field)\n";
1951     $dbh->do("ALTER TABLE `subscriptionhistory` CHANGE `enddate` `enddate` DATE NULL DEFAULT NULL ");
1952     $dbh->do("UPDATE subscriptionhistory SET enddate=NULL WHERE enddate='0000-00-00'");
1953     SetVersion ($DBversion);
1954 }
1955
1956 $DBversion = '3.00.00.107';
1957 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1958     $dbh->do(<<'END_SQL');
1959 UPDATE systempreferences
1960   SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming on collections with large numbers of items.' )
1961   WHERE variable = 'OPACShelfBrowser'
1962     AND explanation NOT LIKE '%WARNING%'
1963 END_SQL
1964     $dbh->do(<<'END_SQL');
1965 UPDATE systempreferences
1966   SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming.' )
1967   WHERE variable = 'CataloguingLog'
1968     AND explanation NOT LIKE '%WARNING%'
1969 END_SQL
1970     $dbh->do(<<'END_SQL');
1971 UPDATE systempreferences
1972   SET explanation = CONCAT( explanation, '. WARNING: using NoZebra on even modest sized collections is very slow.' )
1973   WHERE variable = 'NoZebra'
1974     AND explanation NOT LIKE '%WARNING%'
1975 END_SQL
1976     print "Upgrade to $DBversion done (warning added to OPACShelfBrowser system preference)\n";
1977     SetVersion ($DBversion);
1978 }
1979
1980 $DBversion = '3.01.00.000';
1981 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1982     print "Upgrade to $DBversion done (start of 3.1)\n";
1983     SetVersion ($DBversion);
1984 }
1985
1986 $DBversion = '3.01.00.001';
1987 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1988     $dbh->do("
1989         CREATE TABLE hold_fill_targets (
1990             `borrowernumber` int(11) NOT NULL,
1991             `biblionumber` int(11) NOT NULL,
1992             `itemnumber` int(11) NOT NULL,
1993             `source_branchcode`  varchar(10) default NULL,
1994             `item_level_request` tinyint(4) NOT NULL default 0,
1995             PRIMARY KEY `itemnumber` (`itemnumber`),
1996             KEY `bib_branch` (`biblionumber`, `source_branchcode`),
1997             CONSTRAINT `hold_fill_targets_ibfk_1` FOREIGN KEY (`borrowernumber`)
1998                 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1999             CONSTRAINT `hold_fill_targets_ibfk_2` FOREIGN KEY (`biblionumber`)
2000                 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2001             CONSTRAINT `hold_fill_targets_ibfk_3` FOREIGN KEY (`itemnumber`)
2002                 REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2003             CONSTRAINT `hold_fill_targets_ibfk_4` FOREIGN KEY (`source_branchcode`)
2004                 REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2005         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2006     ");
2007     $dbh->do("
2008         ALTER TABLE tmp_holdsqueue
2009             ADD item_level_request tinyint(4) NOT NULL default 0
2010     ");
2011
2012     print "Upgrade to $DBversion done (add hold_fill_targets table and a column to tmp_holdsqueue)\n";
2013     SetVersion($DBversion);
2014 }
2015
2016 $DBversion = '3.01.00.002';
2017 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2018     # use statistics where available
2019     $dbh->do("
2020         ALTER TABLE statistics ADD KEY  tmp_stats (type, itemnumber, borrowernumber)
2021     ");
2022     $dbh->do("
2023         UPDATE issues iss
2024         SET issuedate = (
2025             SELECT max(datetime)
2026             FROM statistics
2027             WHERE type = 'issue'
2028             AND itemnumber = iss.itemnumber
2029             AND borrowernumber = iss.borrowernumber
2030         )
2031         WHERE issuedate IS NULL;
2032     ");
2033     $dbh->do("ALTER TABLE statistics DROP KEY tmp_stats");
2034
2035     # default to last renewal date
2036     $dbh->do("
2037         UPDATE issues
2038         SET issuedate = lastreneweddate
2039         WHERE issuedate IS NULL
2040         and lastreneweddate IS NOT NULL
2041     ");
2042
2043     my $num_bad_issuedates = $dbh->selectrow_array("SELECT COUNT(*) FROM issues WHERE issuedate IS NULL");
2044     if ($num_bad_issuedates > 0) {
2045         print STDERR "After the upgrade to $DBversion, there are still $num_bad_issuedates loan(s) with a NULL (blank) loan date. ",
2046                      "Please check the issues table in your database.";
2047     }
2048     print "Upgrade to $DBversion done (bug 2582: set null issues.issuedate to lastreneweddate)\n";
2049     SetVersion($DBversion);
2050 }
2051
2052 $DBversion = "3.01.00.003";
2053 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2054     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowRenewalLimitOverride', '0', 'if ON, allows renewal limits to be overridden on the circulation screen',NULL,'YesNo')");
2055     print "Upgrade to $DBversion done (add new syspref)\n";
2056     SetVersion ($DBversion);
2057 }
2058
2059 $DBversion = '3.01.00.004';
2060 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2061     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACDisplayRequestPriority','0','Show patrons the priority level on holds in the OPAC','','YesNo')");
2062     print "Upgrade to $DBversion done (added OPACDisplayRequestPriority system preference)\n";
2063     SetVersion ($DBversion);
2064 }
2065
2066 $DBversion = '3.01.00.005';
2067 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2068     $dbh->do("
2069         INSERT INTO `letter` (module, code, name, title, content)
2070         VALUES('reserves', 'HOLD', 'Hold Available for Pickup', 'Hold Available for Pickup at <<branches.branchname>>', 'Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYou have a hold available for pickup as of <<reserves.waitingdate>>:\r\n\r\nTitle: <<biblio.title>>\r\nAuthor: <<biblio.author>>\r\nCopy: <<items.copynumber>>\r\nLocation: <<branches.branchname>>\r\n<<branches.branchaddress1>>\r\n<<branches.branchaddress2>>\r\n<<branches.branchaddress3>>')
2071     ");
2072     $dbh->do("INSERT INTO `message_attributes` (message_attribute_id, message_name, takes_days) values(4, 'Hold Filled', 0)");
2073     $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'sms', 0, 'reserves', 'HOLD')");
2074     $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'email', 0, 'reserves', 'HOLD')");
2075     print "Upgrade to $DBversion done (Add letter for holds notifications)\n";
2076     SetVersion ($DBversion);
2077 }
2078
2079 $DBversion = '3.01.00.006';
2080 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2081     $dbh->do("ALTER TABLE `biblioitems` ADD KEY issn (issn)");
2082     print "Upgrade to $DBversion done (add index on biblioitems.issn)\n";
2083     SetVersion ($DBversion);
2084 }
2085
2086 $DBversion = "3.01.00.007";
2087 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2088     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetmainUserblock'");
2089     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetuserjs'");
2090     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacheader'");
2091     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacMainUserBlock'");
2092     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacNav'");
2093     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacuserjs'");
2094     $dbh->do("UPDATE `systempreferences` SET options='30|10', type='Textarea' WHERE variable='OAI-PMH:Set'");
2095     $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetstylesheet'");
2096     $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetcolorstylesheet'");
2097     $dbh->do("UPDATE `systempreferences` SET options='10' WHERE variable='globalDueDate'");
2098     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='numSearchResults'");
2099     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='OPACnumSearchResults'");
2100     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='ReservesMaxPickupDelay'");
2101     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='TransfersMaxDaysWarning'");
2102     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='StaticHoldsQueueWeight'");
2103     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='holdCancelLength'");
2104     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='XISBNDailyLimit'");
2105     $dbh->do("UPDATE `systempreferences` SET type='Float' WHERE variable='gist'");
2106     $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorUsername'");
2107     $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorPassword'");
2108     $dbh->do("UPDATE `systempreferences` SET type='Textarea', options='70|10' WHERE variable='ISBD'");
2109     $dbh->do("UPDATE `systempreferences` SET type='Textarea', options='70|10', explanation='Enter a specific hash for NoZebra indexes. Enter : \\\'indexname\\\' => \\\'100a,245a,500*\\\',\\\'index2\\\' => \\\'...\\\'' WHERE variable='NoZebraIndexes'");
2110     print "Upgrade to $DBversion done (fix display of many sysprefs)\n";
2111     SetVersion ($DBversion);
2112 }
2113
2114 $DBversion = '3.01.00.008';
2115 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2116
2117     $dbh->do("CREATE TABLE branch_transfer_limits (
2118                           limitId int(8) NOT NULL auto_increment,
2119                           toBranch varchar(4) NOT NULL,
2120                           fromBranch varchar(4) NOT NULL,
2121                           itemtype varchar(4) NOT NULL,
2122                           PRIMARY KEY  (limitId)
2123                           ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
2124                         );
2125
2126     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'UseBranchTransferLimits', '0', '', 'If ON, Koha will will use the rules defined in branch_transfer_limits to decide if an item transfer should be allowed.', 'YesNo')");
2127
2128     print "Upgrade to $DBversion done (added branch_transfer_limits table and UseBranchTransferLimits system preference)\n";
2129     SetVersion ($DBversion);
2130 }
2131
2132 $DBversion = "3.01.00.009";
2133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2134     $dbh->do("ALTER TABLE permissions MODIFY `code` varchar(64) DEFAULT NULL");
2135     $dbh->do("ALTER TABLE user_permissions MODIFY `code` varchar(64) DEFAULT NULL");
2136     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'circulate_remaining_permissions', 'Remaining circulation permissions')");
2137     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'override_renewals', 'Override blocked renewals')");
2138     print "Upgrade to $DBversion done (added subpermissions for circulate permission)\n";
2139 }
2140
2141 $DBversion = '3.01.00.010';
2142 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2143     $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `attribute` VARCHAR(64) DEFAULT NULL");
2144     $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `password` VARCHAR(64) DEFAULT NULL");
2145     print "Upgrade to $DBversion done (bug 2687: increase length of borrower attribute fields)\n";
2146     SetVersion ($DBversion);
2147 }
2148
2149 $DBversion = '3.01.00.011';
2150 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2151
2152     # Yes, the old value was ^M terminated.
2153     my $bad_value = "function prepareEmailPopup(){\r\n  if (!document.getElementById) return false;\r\n  if (!document.getElementById('reserveemail')) return false;\r\n  rsvlink = document.getElementById('reserveemail');\r\n  rsvlink.onclick = function() {\r\n      doReservePopup();\r\n      return false;\r\n  }\r\n}\r\n\r\nfunction doReservePopup(){\r\n}\r\n\r\nfunction prepareReserveList(){\r\n}\r\n\r\naddLoadEvent(prepareEmailPopup);\r\naddLoadEvent(prepareReserveList);";
2154
2155     my $intranetuserjs = C4::Context->preference('intranetuserjs');
2156     if ($intranetuserjs  and  $intranetuserjs eq $bad_value) {
2157         my $sql = <<'END_SQL';
2158 UPDATE systempreferences
2159 SET value = ''
2160 WHERE variable = 'intranetuserjs'
2161 END_SQL
2162         $dbh->do($sql);
2163     }
2164     print "Upgrade to $DBversion done (removed bogus intranetuserjs syspref)\n";
2165     SetVersion($DBversion);
2166 }
2167
2168 $DBversion = "3.01.00.012";
2169 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2170     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldPolicyOverride', '0', 'Allow staff to override hold policies when placing holds',NULL,'YesNo')");
2171     $dbh->do("
2172         CREATE TABLE `branch_item_rules` (
2173           `branchcode` varchar(10) NOT NULL,
2174           `itemtype` varchar(10) NOT NULL,
2175           `holdallowed` tinyint(1) default NULL,
2176           PRIMARY KEY  (`itemtype`,`branchcode`),
2177           KEY `branch_item_rules_ibfk_2` (`branchcode`),
2178           CONSTRAINT `branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE,
2179           CONSTRAINT `branch_item_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2180         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2181     ");
2182     $dbh->do("
2183         CREATE TABLE `default_branch_item_rules` (
2184           `itemtype` varchar(10) NOT NULL,
2185           `holdallowed` tinyint(1) default NULL,
2186           PRIMARY KEY  (`itemtype`),
2187           CONSTRAINT `default_branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE
2188         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2189     ");
2190     $dbh->do("
2191         ALTER TABLE default_branch_circ_rules
2192             ADD COLUMN holdallowed tinyint(1) NULL
2193     ");
2194     $dbh->do("
2195         ALTER TABLE default_circ_rules
2196             ADD COLUMN holdallowed tinyint(1) NULL
2197     ");
2198     print "Upgrade to $DBversion done (Add tables and system preferences for holds policies)\n";
2199     SetVersion ($DBversion);
2200 }
2201
2202 $DBversion = '3.01.00.013';
2203 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2204     $dbh->do("
2205         CREATE TABLE item_circulation_alert_preferences (
2206             id           int(11) AUTO_INCREMENT,
2207             branchcode   varchar(10) NOT NULL,
2208             categorycode varchar(10) NOT NULL,
2209             item_type    varchar(10) NOT NULL,
2210             notification varchar(16) NOT NULL,
2211             PRIMARY KEY (id),
2212             KEY (branchcode, categorycode, item_type, notification)
2213         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2214     ");
2215
2216     $dbh->do(q{ ALTER TABLE `message_queue` ADD metadata text DEFAULT NULL           AFTER content;  });
2217     $dbh->do(q{ ALTER TABLE `message_queue` ADD letter_code varchar(64) DEFAULT NULL AFTER metadata; });
2218
2219     $dbh->do(q{
2220         INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2221         ('circulation','CHECKIN','Item Check-in','Check-ins','The following items have been checked in:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you.');
2222     });
2223     $dbh->do(q{
2224         INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2225         ('circulation','CHECKOUT','Item Checkout','Checkouts','The following items have been checked out:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you for visiting <<branches.branchname>>.');
2226     });
2227
2228     $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (5, 'Item Check-in', 0);});
2229     $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (6, 'Item Checkout', 0);});
2230
2231     $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (5, 'email', 0, 'circulation', 'CHECKIN');});
2232     $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (5, 'sms',   0, 'circulation', 'CHECKIN');});
2233     $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (6, 'email', 0, 'circulation', 'CHECKOUT');});
2234     $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (6, 'sms',   0, 'circulation', 'CHECKOUT');});
2235
2236     print "Upgrade to $DBversion done (data for Email Checkout Slips project)\n";
2237          SetVersion ($DBversion);
2238 }
2239
2240 $DBversion = "3.01.00.014";
2241 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2242     $dbh->do("ALTER TABLE `branch_transfer_limits` CHANGE `itemtype` `itemtype` VARCHAR( 4 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL");
2243     $dbh->do("ALTER TABLE `branch_transfer_limits` ADD `ccode` VARCHAR( 10 ) NULL ;");
2244     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2245     VALUES (
2246     'BranchTransferLimitsType', 'ccode', 'itemtype|ccode', 'When using branch transfer limits, choose whether to limit by itemtype or collection code.', 'Choice'
2247     );");
2248
2249     print "Upgrade to $DBversion done ( Updated table for Branch Transfer Limits)\n";
2250     SetVersion ($DBversion);
2251 }
2252
2253 $DBversion = '3.01.00.015';
2254 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2255     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsClientCode', '0', 'Client Code for using Syndetics Solutions content','','free')");
2256
2257     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEnabled', '0', 'Turn on Syndetics Enhanced Content','','YesNo')");
2258
2259     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImages', '0', 'Display Cover Images from Syndetics','','YesNo')");
2260
2261     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsTOC', '0', 'Display Table of Content information from Syndetics','','YesNo')");
2262
2263     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSummary', '0', 'Display Summary Information from Syndetics','','YesNo')");
2264
2265     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEditions', '0', 'Display Editions from Syndetics','','YesNo')");
2266
2267     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsExcerpt', '0', 'Display Excerpts and first chapters on OPAC from Syndetics','','YesNo')");
2268
2269     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsReviews', '0', 'Display Reviews on OPAC from Syndetics','','YesNo')");
2270
2271     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAuthorNotes', '0', 'Display Notes about the Author on OPAC from Syndetics','','YesNo')");
2272
2273     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAwards', '0', 'Display Awards on OPAC from Syndetics','','YesNo')");
2274
2275     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSeries', '0', 'Display Series information on OPAC from Syndetics','','YesNo')");
2276
2277     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImageSize', 'MC', 'Choose the size of the Syndetics Cover Image to display on the OPAC detail page, MC is Medium, LC is Large','MC|LC','Choice')");
2278
2279     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonCoverImages', '0', 'Display cover images on OPAC from Amazon Web Services','','YesNo')");
2280
2281     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonCoverImages', '0', 'Display Cover Images in Staff Client from Amazon Web Services','','YesNo')");
2282
2283     $dbh->do("UPDATE systempreferences SET variable='AmazonEnabled' WHERE variable = 'AmazonContent'");
2284
2285     $dbh->do("UPDATE systempreferences SET variable='OPACAmazonEnabled' WHERE variable = 'OPACAmazonContent'");
2286
2287     print "Upgrade to $DBversion done (added Syndetics Enhanced Content system preferences)\n";
2288     SetVersion ($DBversion);
2289 }
2290
2291 $DBversion = "3.01.00.016";
2292 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2293     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('Babeltheque',0,'Turn ON Babeltheque content  - See babeltheque.com to subscribe to this service','','YesNo')");
2294     print "Upgrade to $DBversion done (Added Babeltheque syspref)\n";
2295     SetVersion ($DBversion);
2296 }
2297
2298 $DBversion = "3.01.00.017";
2299 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2300     $dbh->do("ALTER TABLE `subscription` ADD `staffdisplaycount` VARCHAR(10) NULL;");
2301     $dbh->do("ALTER TABLE `subscription` ADD `opacdisplaycount` VARCHAR(10) NULL;");
2302     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2303     VALUES (
2304     'StaffSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the Staff client', 'Integer'
2305     );");
2306         $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2307     VALUES (
2308     'OPACSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the OPAC', 'Integer'
2309     );");
2310
2311     print "Upgrade to $DBversion done ( Updated table for Serials Display)\n";
2312     SetVersion ($DBversion);
2313 }
2314
2315 $DBversion = "3.01.00.018";
2316 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2317     $dbh->do("ALTER TABLE deletedborrowers ADD `smsalertnumber` varchar(50) default NULL");
2318     print "Upgrade to $DBversion done (added deletedborrowers.smsalertnumber, missed in 3.00.00.091)\n";
2319     SetVersion ($DBversion);
2320 }
2321
2322 $DBversion = "3.01.00.019";
2323 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2324         $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowCheckoutName','0','Displays in the OPAC the name of patron who has checked out the material. WARNING: Most sites should leave this off. It is intended for corporate or special sites which need to track who has the item.','','YesNo')");
2325     print "Upgrade to $DBversion done (adding OPACShowCheckoutName systempref)\n";
2326     SetVersion ($DBversion);
2327 }
2328
2329 $DBversion = "3.01.00.020";
2330 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2331     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesID','','See:http://librarything.com/forlibraries/','','free')");
2332     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesEnabled','0','Enable or Disable Library Thing for Libraries Features','','YesNo')");
2333     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesTabbedView','0','Put LibraryThingForLibraries Content in Tabs.','','YesNo')");
2334     print "Upgrade to $DBversion done (adding LibraryThing for Libraries sysprefs)\n";
2335     SetVersion ($DBversion);
2336 }
2337
2338 $DBversion = "3.01.00.021";
2339 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2340     my $enable_reviews = C4::Context->preference('OPACAmazonEnabled') ? '1' : '0';
2341     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonReviews', '$enable_reviews', 'Display Amazon readers reviews on OPAC','','YesNo')");
2342     print "Upgrade to $DBversion done (adding OPACAmazonReviews syspref)\n";
2343     SetVersion ($DBversion);
2344 }
2345
2346 $DBversion = '3.01.00.022';
2347 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2348     $dbh->do("ALTER TABLE `labels_conf` MODIFY COLUMN `formatstring` mediumtext DEFAULT NULL");
2349     print "Upgrade to $DBversion done (bug 2945: increase size of labels_conf.formatstring)\n";
2350     SetVersion ($DBversion);
2351 }
2352
2353 $DBversion = '3.01.00.023';
2354 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2355     $dbh->do("ALTER TABLE biblioitems        MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2356     $dbh->do("ALTER TABLE deletedbiblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2357     $dbh->do("ALTER TABLE import_biblios     MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2358     $dbh->do("ALTER TABLE suggestions        MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2359     print "Upgrade to $DBversion done (bug 2765: increase width of isbn column in several tables)\n";
2360     SetVersion ($DBversion);
2361 }
2362
2363 $DBversion = "3.01.00.024";
2364 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2365     $dbh->do("ALTER TABLE labels MODIFY COLUMN batch_id int(10) NOT NULL default 1;");
2366     print "Upgrade to $DBversion done (change labels.batch_id from varchar to int)\n";
2367     SetVersion ($DBversion);
2368 }
2369
2370 $DBversion = '3.01.00.025';
2371 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2372     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'ceilingDueDate', '', '', 'If set, date due will not be past this date.  Enter date according to the dateformat System Preference', 'free')");
2373
2374     print "Upgrade to $DBversion done (added ceilingDueDate system preference)\n";
2375     SetVersion ($DBversion);
2376 }
2377
2378 $DBversion = '3.01.00.026';
2379 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2380     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'numReturnedItemsToShow', '20', '', 'Number of returned items to show on the check-in page', 'Integer')");
2381
2382     print "Upgrade to $DBversion done (added numReturnedItemsToShow system preference)\n";
2383     SetVersion ($DBversion);
2384 }
2385
2386 $DBversion = '3.01.00.027';
2387 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2388     $dbh->do("ALTER TABLE zebraqueue CHANGE `biblio_auth_number` `biblio_auth_number` bigint(20) unsigned NOT NULL default 0");
2389     print "Upgrade to $DBversion done (Increased size of zebraqueue biblio_auth_number to address bug 3148.)\n";
2390     SetVersion ($DBversion);
2391 }
2392
2393 $DBversion = '3.01.00.028';
2394 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2395     my $enable_reviews = C4::Context->preference('AmazonEnabled') ? '1' : '0';
2396     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonReviews', '$enable_reviews', 'Display Amazon reviews on staff interface','','YesNo')");
2397     print "Upgrade to $DBversion done (added AmazonReviews)\n";
2398     SetVersion ($DBversion);
2399 }
2400
2401 $DBversion = '3.01.00.029';
2402 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2403     $dbh->do(q( UPDATE language_rfc4646_to_iso639
2404                 SET iso639_2_code = 'spa'
2405                 WHERE rfc4646_subtag = 'es'
2406                 AND   iso639_2_code = 'rus' )
2407             );
2408     print "Upgrade to $DBversion done (fixed bug 2599: using Spanish search limit retrieves Russian results)\n";
2409     SetVersion ($DBversion);
2410 }
2411
2412 $DBversion = "3.01.00.030";
2413 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2414     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'AllowNotForLoanOverride', '0', '', 'If ON, Koha will allow the librarian to loan a not for loan item.', 'YesNo')");
2415     print "Upgrade to $DBversion done (added AllowNotForLoanOverride system preference)\n";
2416     SetVersion ($DBversion);
2417 }
2418
2419 $DBversion = "3.01.00.031";
2420 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2421     $dbh->do("ALTER TABLE branch_transfer_limits
2422               MODIFY toBranch   varchar(10) NOT NULL,
2423               MODIFY fromBranch varchar(10) NOT NULL,
2424               MODIFY itemtype   varchar(10) NULL");
2425     print "Upgrade to $DBversion done (fix column widths in branch_transfer_limits)\n";
2426     SetVersion ($DBversion);
2427 }
2428
2429 $DBversion = "3.01.00.032";
2430 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2431     $dbh->do(<<ENDOFRENEWAL);
2432 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RenewalPeriodBase', 'now', 'Set whether the renewal date should be counted from the date_due or from the moment the Patron asks for renewal ','date_due|now','Choice');
2433 ENDOFRENEWAL
2434     print "Upgrade to $DBversion done (Change the field)\n";
2435     SetVersion ($DBversion);
2436 }
2437
2438 $DBversion = "3.01.00.033";
2439 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2440     $dbh->do(q/
2441         ALTER TABLE borrower_message_preferences
2442         MODIFY borrowernumber int(11) default NULL,
2443         ADD    categorycode varchar(10) default NULL AFTER borrowernumber,
2444         ADD KEY `categorycode` (`categorycode`),
2445         ADD CONSTRAINT `borrower_message_preferences_ibfk_3`
2446                        FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
2447                        ON DELETE CASCADE ON UPDATE CASCADE
2448     /);
2449     print "Upgrade to $DBversion done (DB changes to allow patron category defaults for messaging preferences)\n";
2450     SetVersion ($DBversion);
2451 }
2452
2453 $DBversion = "3.01.00.034";
2454 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2455     $dbh->do("ALTER TABLE `subscription` ADD COLUMN `graceperiod` INT(11) NOT NULL default '0';");
2456     print "Upgrade to $DBversion done (Adding graceperiod column to subscription table)\n";
2457     SetVersion ($DBversion);
2458 }
2459
2460 $DBversion = '3.01.00.035';
2461 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2462     $dbh->do(q{ ALTER TABLE `subscription` ADD location varchar(80) NULL DEFAULT '' AFTER callnumber; });
2463    print "Upgrade to $DBversion done (Adding location to subscription table)\n";
2464     SetVersion ($DBversion);
2465 }
2466
2467 $DBversion = '3.01.00.036';
2468 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2469     $dbh->do("UPDATE systempreferences SET explanation = 'Choose the default detail view in the staff interface; choose between normal, labeled_marc, marc or isbd'
2470               WHERE variable = 'IntranetBiblioDefaultView'
2471               AND   explanation = 'IntranetBiblioDefaultView'");
2472     $dbh->do("UPDATE systempreferences SET type = 'Choice', options = 'normal|marc|isbd|labeled_marc'
2473               WHERE variable = 'IntranetBiblioDefaultView'");
2474     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewISBD','1','Allow display of ISBD view of bibiographic records','','YesNo')");
2475     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewLabeledMARC','0','Allow display of labeled MARC view of bibiographic records','','YesNo')");
2476     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewMARC','1','Allow display of MARC view of bibiographic records','','YesNo')");
2477     print "Upgrade to $DBversion done (new viewISBD, viewLabeledMARC, viewMARC sysprefs and tweak IntranetBiblioDefaultView)\n";
2478     SetVersion ($DBversion);
2479 }
2480
2481 $DBversion = '3.01.00.037';
2482 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2483     $dbh->do('ALTER TABLE authorised_values ADD KEY `lib` (`lib`)');
2484     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('FilterBeforeOverdueReport','0','Do not run overdue report until filter selected','','YesNo')");
2485     SetVersion ($DBversion);
2486     print "Upgrade to $DBversion done (added FilterBeforeOverdueReport syspref and new index on authorised_values)\n";
2487 }
2488
2489 $DBversion = "3.01.00.038";
2490 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2491     # update branches table
2492     #
2493     $dbh->do("ALTER TABLE branches ADD `branchzip` varchar(25) default NULL AFTER `branchaddress3`");
2494     $dbh->do("ALTER TABLE branches ADD `branchcity` mediumtext AFTER `branchzip`");
2495     $dbh->do("ALTER TABLE branches ADD `branchcountry` text AFTER `branchcity`");
2496     $dbh->do("ALTER TABLE branches ADD `branchurl` mediumtext AFTER `branchemail`");
2497     $dbh->do("ALTER TABLE branches ADD `branchnotes` mediumtext AFTER `branchprinter`");
2498     print "Upgrade to $DBversion done (add ZIP, city, country, URL, and notes column to branches)\n";
2499     SetVersion ($DBversion);
2500 }
2501
2502 $DBversion = '3.01.00.039';
2503 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2504     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('SpineLabelFormat', '<itemcallnumber><copynumber>', '30|10', 'This preference defines the format for the quick spine label printer. Just list the fields you would like to see in the order you would like to see them, surrounded by <>, for example <itemcallnumber>.', 'Textarea')");
2505     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('SpineLabelAutoPrint', '0', '', 'If this setting is turned on, a print dialog will automatically pop up for the quick spine label printer.', 'YesNo')");
2506     SetVersion ($DBversion);
2507     print "Upgrade to $DBversion done (added SpineLabelFormat and SpineLabelAutoPrint sysprefs)\n";
2508 }
2509
2510 $DBversion = '3.01.00.040';
2511 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2512     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('AllowHoldDateInFuture','0','If set a date field is displayed on the Hold screen of the Staff Interface, allowing the hold date to be set in the future.','','YesNo')");
2513     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('OPACAllowHoldDateInFuture','0','If set, along with the AllowHoldDateInFuture system preference, OPAC users can set the date of a hold to be in the future.','','YesNo')");
2514     SetVersion ($DBversion);
2515     print "Upgrade to $DBversion done (AllowHoldDateInFuture and OPACAllowHoldDateInFuture sysprefs)\n";
2516 }
2517
2518 $DBversion = '3.01.00.041';
2519 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2520     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSPrivateKey','','See:  http://aws.amazon.com.  Note that this is required after 2009/08/15 in order to retrieve any enhanced content other than book covers from Amazon.','','free')");
2521     SetVersion ($DBversion);
2522     print "Upgrade to $DBversion done (added AWSPrivateKey syspref - note that if you use enhanced content from Amazon, this should be set right away.)\n";
2523 }
2524
2525 $DBversion = '3.01.00.042';
2526 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2527     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACFineNoRenewals','99999','Fine Limit above which user canmot renew books via OPAC','','Integer')");
2528     SetVersion ($DBversion);
2529     print "Upgrade to $DBversion done (added OPACFineNoRenewals syspref)\n";
2530 }
2531
2532 $DBversion = '3.01.00.043';
2533 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2534     $dbh->do('ALTER TABLE items ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2535     $dbh->do('UPDATE items SET permanent_location = location');
2536     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'NewItemsDefaultLocation', '', '', 'If set, all new items will have a location of the given Location Code ( Authorized Value type LOC )', '')");
2537     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'InProcessingToShelvingCart', '0', '', 'If set, when any item with a location code of PROC is ''checked in'', it''s location code will be changed to CART.', 'YesNo')");
2538     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'ReturnToShelvingCart', '0', '', 'If set, when any item is ''checked in'', it''s location code will be changed to CART.', 'YesNo')");
2539     SetVersion ($DBversion);
2540     print "Upgrade to $DBversion done (amended Item added NewItemsDefaultLocation, InProcessingToShelvingCart, ReturnToShelvingCart sysprefs)\n";
2541 }
2542
2543 $DBversion = '3.01.00.044';
2544 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2545     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES( 'DisplayClearScreenButton', '0', 'If set to yes, a clear screen button will appear on the circulation page.', 'If set to yes, a clear screen button will appear on the circulation page.', 'YesNo')");
2546     SetVersion ($DBversion);
2547     print "Upgrade to $DBversion done (added DisplayClearScreenButton system preference)\n";
2548 }
2549
2550 $DBversion = '3.01.00.045';
2551 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2552     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('HidePatronName', '0', '', 'If this is switched on, patron''s cardnumber will be shown instead of their name on the holds and catalog screens', 'YesNo')");
2553     SetVersion ($DBversion);
2554     print "Upgrade to $DBversion done (added a preference to hide the patrons name in the staff catalog)\n";
2555 }
2556
2557 $DBversion = "3.01.00.046";
2558 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2559     # update borrowers table
2560     #
2561     $dbh->do("ALTER TABLE borrowers ADD `country` text AFTER zipcode");
2562     $dbh->do("ALTER TABLE borrowers ADD `B_country` text AFTER B_zipcode");
2563     $dbh->do("ALTER TABLE deletedborrowers ADD `country` text AFTER zipcode");
2564     $dbh->do("ALTER TABLE deletedborrowers ADD `B_country` text AFTER B_zipcode");
2565     print "Upgrade to $DBversion done (add country and B_country to borrowers)\n";
2566     SetVersion ($DBversion);
2567 }
2568
2569 $DBversion = '3.01.00.047';
2570 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2571     $dbh->do("ALTER TABLE items MODIFY itemcallnumber varchar(255);");
2572     $dbh->do("ALTER TABLE deleteditems MODIFY itemcallnumber varchar(255);");
2573     $dbh->do("ALTER TABLE tmp_holdsqueue MODIFY itemcallnumber varchar(255);");
2574     SetVersion ($DBversion);
2575     print " Upgrade to $DBversion done (bug 2761: change max length of itemcallnumber to 255 from 30)\n";
2576 }
2577
2578 $DBversion = '3.01.00.048';
2579 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2580     $dbh->do("UPDATE userflags SET flagdesc='View Catalog (Librarian Interface)' WHERE bit=2;");
2581     $dbh->do("UPDATE userflags SET flagdesc='Edit Catalog (Modify bibliographic/holdings data)' WHERE bit=9;");
2582     $dbh->do("UPDATE userflags SET flagdesc='Allow to edit authorities' WHERE bit=14;");
2583     $dbh->do("UPDATE userflags SET flagdesc='Allow to access to the reports module' WHERE bit=16;");
2584     $dbh->do("UPDATE userflags SET flagdesc='Allow to manage serials subscriptions' WHERE bit=15;");
2585     SetVersion ($DBversion);
2586     print " Upgrade to $DBversion done (bug 2611: fix spelling/capitalization in permission flag descriptions)\n";
2587 }
2588
2589 $DBversion = '3.01.00.049';
2590 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2591     $dbh->do("UPDATE permissions SET description = 'Perform inventory (stocktaking) of your catalog' WHERE code = 'inventory';");
2592      SetVersion ($DBversion);
2593     print "Upgrade to $DBversion done (bug 2611: changed catalogue to catalog per the standard)\n";
2594 }
2595
2596 $DBversion = '3.01.00.050';
2597 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2598     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACSearchForTitleIn','<li class=\"yuimenuitem\">\n<a target=\"_blank\" class=\"yuimenuitemlabel\" href=\"http://worldcat.org/search?q=TITLE\">Other Libraries (WorldCat)</a></li>\n<li class=\"yuimenuitem\">\n<a class=\"yuimenuitemlabel\" href=\"http://www.scholar.google.com/scholar?q=TITLE\" target=\"_blank\">Other Databases (Google Scholar)</a></li>\n<li class=\"yuimenuitem\">\n<a class=\"yuimenuitemlabel\" href=\"http://www.bookfinder.com/search/?author=AUTHOR&amp;title=TITLE&amp;st=xl&amp;ac=qr\" target=\"_blank\">Online Stores (Bookfinder.com)</a></li>','Enter the HTML that will appear in the ''Search for this title in'' box on the detail page in the OPAC.  Enter TITLE, AUTHOR, or ISBN in place of their respective variables in the URL.  Leave blank to disable ''More Searches'' menu.','70|10','Textarea');");
2599     SetVersion ($DBversion);
2600     print "Upgrade to $DBversion done (bug 1934: Add OPACSearchForTitleIn syspref)\n";
2601 }
2602
2603 $DBversion = '3.01.00.051';
2604 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2605     $dbh->do("UPDATE systempreferences SET explanation='Fine limit above which user cannot renew books via OPAC' WHERE variable='OPACFineNoRenewals';");
2606     $dbh->do("UPDATE systempreferences SET explanation='If set to ON, a clear screen button will appear on the circulation page.' WHERE variable='DisplayClearScreenButton';");
2607     SetVersion ($DBversion);
2608     print "Upgrade to $DBversion done (fixed typos in new sysprefs)\n";
2609 }
2610
2611 $DBversion = '3.01.00.052';
2612 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2613     $dbh->do('ALTER TABLE deleteditems ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2614     SetVersion ($DBversion);
2615     print "Upgrade to $DBversion done (bug 3481: add permanent_location column to deleteditems)\n";
2616 }
2617
2618 $DBversion = '3.01.00.053';
2619 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2620     my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/labels_upgrade.pl";
2621     system("perl $upgrade_script");
2622     print "Upgrade to $DBversion done (Migrated labels tables and data to new schema.) NOTE: All existing label batches have been assigned to the first branch in the list of branches. This is ONLY true of migrated label batches.\n";
2623     SetVersion ($DBversion);
2624 }
2625
2626 $DBversion = '3.01.00.054';
2627 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2628     $dbh->do("ALTER TABLE borrowers ADD `B_address2` text AFTER B_address");
2629     $dbh->do("ALTER TABLE borrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2630     $dbh->do("ALTER TABLE deletedborrowers ADD `B_address2` text AFTER B_address");
2631     $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2632     SetVersion ($DBversion);
2633     print "Upgrade to $DBversion done (bug 1600, bug 3454: add altcontactcountry and B_address2 to borrowers and deletedborrowers)\n";
2634 }
2635
2636 $DBversion = '3.01.00.055';
2637 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2638     $dbh->do(qq|UPDATE systempreferences set explanation='Enter the HTML that will appear in the ''Search for this title in'' box on the detail page in the OPAC.  Enter {TITLE}, {AUTHOR}, or {ISBN} in place of their respective variables in the URL. Leave blank to disable ''More Searches'' menu.', value='<li><a  href="http://worldcat.org/search?q={TITLE}" target="_blank">Other Libraries (WorldCat)</a></li>\n<li><a href="http://www.scholar.google.com/scholar?q={TITLE}" target="_blank">Other Databases (Google Scholar)</a></li>\n<li><a href="http://www.bookfinder.com/search/?author={AUTHOR}&amp;title={TITLE}&amp;st=xl&amp;ac=qr" target="_blank">Online Stores (Bookfinder.com)</a></li>' WHERE variable='OPACSearchForTitleIn'|);
2639     SetVersion ($DBversion);
2640     print "Upgrade to $DBversion done (changed OPACSearchForTitleIn per requests in bug 1934)\n";
2641 }
2642
2643 $DBversion = '3.01.00.056';
2644 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2645     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACPatronDetails','1','If OFF the patron details tab in the OPAC is disabled.','','YesNo');");
2646     SetVersion ($DBversion);
2647     print "Upgrade to $DBversion done (Bug 1172 : Add OPACPatronDetails syspref)\n";
2648 }
2649
2650 $DBversion = '3.01.00.057';
2651 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2652     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACFinesTab','1','If OFF the patron fines tab in the OPAC is disabled.','','YesNo');");
2653     SetVersion ($DBversion);
2654     print "Upgrade to $DBversion done (Bug 2576 : Add OPACFinesTab syspref)\n";
2655 }
2656
2657 $DBversion = '3.01.00.058';
2658 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2659     $dbh->do("ALTER TABLE `language_subtag_registry` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2660     $dbh->do("ALTER TABLE `language_rfc4646_to_iso639` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2661     $dbh->do("ALTER TABLE `language_descriptions` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2662     SetVersion ($DBversion);
2663     print "Upgrade to $DBversion done (Added primary keys to language tables)\n";
2664 }
2665
2666 $DBversion = '3.01.00.059';
2667 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2668     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('DisplayOPACiconsXSLT', '1', '', 'If ON, displays the format, audience, type icons in XSLT MARC21 results and display pages.', 'YesNo')");
2669     SetVersion ($DBversion);
2670     print "Upgrade to $DBversion done (added DisplayOPACiconsXSLT sysprefs)\n";
2671 }
2672
2673 $DBversion = '3.01.00.060';
2674 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2675     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowAllMessageDeletion','0','Allow any Library to delete any message','','YesNo');");
2676     $dbh->do('DROP TABLE IF EXISTS messages');
2677     $dbh->do("CREATE TABLE messages ( `message_id` int(11) NOT NULL auto_increment,
2678         `borrowernumber` int(11) NOT NULL,
2679         `branchcode` varchar(4) default NULL,
2680         `message_type` varchar(1) NOT NULL,
2681         `message` text NOT NULL,
2682         `message_date` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,
2683         PRIMARY KEY (`message_id`)
2684         ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
2685
2686         print "Upgrade to $DBversion done ( Added AllowAllMessageDeletion syspref and messages table )\n";
2687     SetVersion ($DBversion);
2688 }
2689
2690 $DBversion = '3.01.00.061';
2691 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2692     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('ShowPatronImageInWebBasedSelfCheck', '0', 'If ON, displays patron image when a patron uses web-based self-checkout', '', 'YesNo')");
2693         print "Upgrade to $DBversion done ( Added ShowPatronImageInWebBasedSelfCheck system preference )\n";
2694     SetVersion ($DBversion);
2695 }
2696
2697 $DBversion = "3.01.00.062";
2698 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2699     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'manage_csv_profiles', 'Manage CSV export profiles')");
2700     $dbh->do(q/
2701         CREATE TABLE `export_format` (
2702           `export_format_id` int(11) NOT NULL auto_increment,
2703           `profile` varchar(255) NOT NULL,
2704           `description` mediumtext NOT NULL,
2705           `marcfields` mediumtext NOT NULL,
2706           PRIMARY KEY  (`export_format_id`)
2707         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Used for CSV export';
2708     /);
2709     print "Upgrade to $DBversion done (added csv export profiles)\n";
2710 }
2711
2712 $DBversion = "3.01.00.063";
2713 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2714     $dbh->do("
2715         CREATE TABLE `fieldmapping` (
2716           `id` int(11) NOT NULL auto_increment,
2717           `field` varchar(255) NOT NULL,
2718           `frameworkcode` char(4) NOT NULL default '',
2719           `fieldcode` char(3) NOT NULL,
2720           `subfieldcode` char(1) NOT NULL,
2721           PRIMARY KEY  (`id`)
2722         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2723              ");
2724     SetVersion ($DBversion);print "Upgrade to $DBversion done (Created table fieldmapping)\n";print "Upgrade to 3.01.00.064 done (Version number skipped: nothing done)\n";
2725 }
2726
2727 $DBversion = '3.01.00.065';
2728 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2729     $dbh->do('ALTER TABLE issuingrules ADD COLUMN `renewalsallowed` smallint(6) NOT NULL default "0" AFTER `issuelength`;');
2730     $sth = $dbh->prepare("SELECT itemtype, renewalsallowed FROM itemtypes");
2731     $sth->execute();
2732
2733     my $sthupd = $dbh->prepare("UPDATE issuingrules SET renewalsallowed = ? WHERE itemtype = ?");
2734
2735     while(my $row = $sth->fetchrow_hashref){
2736         $sthupd->execute($row->{renewalsallowed}, $row->{itemtype});
2737     }
2738
2739     $dbh->do('ALTER TABLE itemtypes DROP COLUMN `renewalsallowed`;');
2740
2741     SetVersion ($DBversion);
2742     print "Upgrade to $DBversion done (Moving allowed renewals from itemtypes to issuingrule)\n";
2743 }
2744
2745 $DBversion = '3.01.00.066';
2746 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2747     $dbh->do('ALTER TABLE issuingrules ADD COLUMN `reservesallowed` smallint(6) NOT NULL default "0" AFTER `renewalsallowed`;');
2748
2749     my $maxreserves = C4::Context->preference('maxreserves');
2750     $sth = $dbh->prepare('UPDATE issuingrules SET reservesallowed = ?;');
2751     $sth->execute($maxreserves);
2752
2753     $dbh->do('DELETE FROM systempreferences WHERE variable = "maxreserves";');
2754
2755     $dbh->do("INSERT INTO systempreferences (variable,value, options, explanation, type) VALUES('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights','Choice')");
2756
2757     SetVersion ($DBversion);
2758     print "Upgrade to $DBversion done (Moving max allowed reserves from system preference to issuingrule)\n";
2759 }
2760
2761 $DBversion = "3.01.00.067";
2762 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2763     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchmod', 'Perform batch modification of items')");
2764     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchdel', 'Perform batch deletion of items')");
2765     print "Upgrade to $DBversion done (added permissions for batch modification and deletion)\n";
2766     SetVersion ($DBversion);
2767 }
2768
2769 $DBversion = "3.01.00.068";
2770 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2771         $dbh->do("ALTER TABLE issuingrules ADD COLUMN `finedays` int(11) default NULL AFTER `fine` ");
2772         print "Upgrade to $DBversion done (Adding finedays in issuingrules table)\n";
2773     SetVersion ($DBversion);
2774 }
2775
2776
2777 $DBversion = "3.01.00.069";
2778 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2779         $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('EnableOpacSearchHistory', '1', '', 'Enable or disable opac search history', 'YesNo')");
2780
2781         my $create = <<SEARCHHIST;
2782 CREATE TABLE IF NOT EXISTS `search_history` (
2783   `userid` int(11) NOT NULL,
2784   `sessionid` varchar(32) NOT NULL,
2785   `query_desc` varchar(255) NOT NULL,
2786   `query_cgi` varchar(255) NOT NULL,
2787   `total` int(11) NOT NULL,
2788   `time` timestamp NOT NULL default CURRENT_TIMESTAMP,
2789   KEY `userid` (`userid`),
2790   KEY `sessionid` (`sessionid`)
2791 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Opac search history results';
2792 SEARCHHIST
2793         $dbh->do($create);
2794
2795         print "Upgrade to $DBversion done (added OPAC search history preference and table)\n";
2796 }
2797
2798 $DBversion = "3.01.00.070";
2799 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2800         $dbh->do("ALTER TABLE authorised_values ADD COLUMN `lib_opac` VARCHAR(80) default NULL AFTER `lib`");
2801         print "Upgrade to $DBversion done (Added a lib_opac field in authorised_values table)\n";
2802 }
2803
2804 $DBversion = "3.01.00.071";
2805 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2806         $dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");
2807         $dbh->do("ALTER TABLE subscriptionhistory CHANGE enddate histenddate DATE default NULL");
2808         print "Upgrade to $DBversion done ( Adding enddate to subscription)\n";
2809 }
2810
2811 # Acquisitions update
2812
2813 $DBversion = "3.01.00.072";
2814 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2815     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacPrivacy', '0', 'if ON, allows patrons to define their privacy rules (reading history)',NULL,'YesNo')");
2816     # create a new syspref for the 'Mr anonymous' patron
2817     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AnonymousPatron', '0', \"Set the identifier (borrowernumber) of the 'Mister anonymous' patron. Used for Suggestion and reading history privacy\",NULL,'')");
2818     # fill AnonymousPatron with AnonymousSuggestion value (copy)
2819     my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='AnonSuggestions'");
2820     $sth->execute;
2821     my ($value) = $sth->fetchrow() || 0;
2822     $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='AnonymousPatron'");
2823     # set AnonymousSuggestion do YesNo
2824     # 1st, set the value (1/True if it had a borrowernumber)
2825     $dbh->do("UPDATE systempreferences SET value=1 WHERE variable='AnonSuggestions' AND value>0");
2826     # 2nd, change the type to Choice
2827     $dbh->do("UPDATE systempreferences SET type='YesNo' WHERE variable='AnonSuggestions'");
2828         # borrower reading record privacy : 0 : forever, 1 : laws, 2 : don't keep at all
2829     $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
2830     print "Upgrade to $DBversion done (add new syspref and column in borrowers)\n";
2831     SetVersion ($DBversion);
2832 }
2833
2834 $DBversion = '3.01.00.073';
2835 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2836     $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2837     $dbh->do(<<'END_SQL');
2838 CREATE TABLE IF NOT EXISTS `aqcontract` (
2839   `contractnumber` int(11) NOT NULL auto_increment,
2840   `contractstartdate` date default NULL,
2841   `contractenddate` date default NULL,
2842   `contractname` varchar(50) default NULL,
2843   `contractdescription` mediumtext,
2844   `booksellerid` int(11) not NULL,
2845     PRIMARY KEY  (`contractnumber`),
2846         CONSTRAINT `booksellerid_fk1` FOREIGN KEY (`booksellerid`)
2847         REFERENCES `aqbooksellers` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
2848 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
2849 END_SQL
2850     $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2851     print "Upgrade to $DBversion done (adding aqcontract table)\n";
2852     SetVersion ($DBversion);
2853 }
2854
2855 $DBversion = '3.01.00.074';
2856 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2857     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `basketname` varchar(50) default NULL AFTER `basketno`");
2858     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `note` mediumtext AFTER `basketname`");
2859     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `booksellernote` mediumtext AFTER `note`");
2860     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `contractnumber` int(11) AFTER `booksellernote`");
2861     $dbh->do("ALTER TABLE `aqbasket` ADD FOREIGN KEY (`contractnumber`) REFERENCES `aqcontract` (`contractnumber`)");
2862     print "Upgrade to $DBversion done (edit aqbasket table done)\n";
2863     SetVersion ($DBversion);
2864 }
2865
2866 $DBversion = '3.01.00.075';
2867 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2868     $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `uncertainprice` tinyint(1)");
2869
2870     print "Upgrade to $DBversion done (adding uncertainprices)\n";
2871     SetVersion ($DBversion);
2872 }
2873
2874 $DBversion = '3.01.00.076';
2875 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2876     $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2877     $dbh->do("CREATE TABLE IF NOT EXISTS `aqbasketgroups` (
2878                          `id` int(11) NOT NULL auto_increment,
2879                          `name` varchar(50) default NULL,
2880                          `closed` tinyint(1) default NULL,
2881                          `booksellerid` int(11) NOT NULL,
2882                          PRIMARY KEY (`id`),
2883                          KEY `booksellerid` (`booksellerid`),
2884                          CONSTRAINT `aqbasketgroups_ibfk_1` FOREIGN KEY (`booksellerid`) REFERENCES `aqbooksellers` (`id`) ON UPDATE CASCADE ON DELETE CASCADE
2885                          ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
2886     $dbh->do("ALTER TABLE aqbasket ADD COLUMN `basketgroupid` int(11)");
2887     $dbh->do("ALTER TABLE aqbasket ADD FOREIGN KEY (`basketgroupid`) REFERENCES `aqbasketgroups` (`id`) ON UPDATE CASCADE ON DELETE SET NULL");
2888     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('pdfformat','pdfformat::layout2pages','Controls what script is used for printing (basketgroups)','','free')");
2889     $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2890     print "Upgrade to $DBversion done (adding basketgroups)\n";
2891     SetVersion ($DBversion);
2892 }
2893 $DBversion = '3.01.00.077';
2894 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2895
2896     $dbh->do("SET FOREIGN_KEY_CHECKS=0 ");
2897     # create a mapping table holding the info we need to match orders to budgets
2898     $dbh->do('DROP TABLE IF EXISTS fundmapping');
2899     $dbh->do(
2900         q|CREATE TABLE fundmapping AS
2901         SELECT aqorderbreakdown.ordernumber, branchcode, bookfundid, budgetdate, entrydate
2902         FROM aqorderbreakdown JOIN aqorders ON aqorderbreakdown.ordernumber = aqorders.ordernumber|);
2903     # match the new type of the corresponding field
2904     $dbh->do('ALTER TABLE fundmapping modify column bookfundid varchar(30)');
2905     # System did not ensure budgetdate was valid historically
2906     $dbh->do(q|UPDATE fundmapping SET budgetdate = entrydate WHERE budgetdate = '0000-00-00' OR budgetdate IS NULL|);
2907     # We save the map in fundmapping in case you need later processing
2908     $dbh->do(q|ALTER TABLE fundmapping add column aqbudgetid integer|);
2909     # these can speed processing up
2910     $dbh->do(q|CREATE INDEX fundmaporder ON fundmapping (ordernumber)|);
2911     $dbh->do(q|CREATE INDEX fundmapid ON fundmapping (bookfundid)|);
2912
2913     $dbh->do("DROP TABLE IF EXISTS `aqbudgetperiods` ");
2914
2915     $dbh->do(qq|
2916                     CREATE TABLE `aqbudgetperiods` (
2917                     `budget_period_id` int(11) NOT NULL auto_increment,
2918                     `budget_period_startdate` date NOT NULL,
2919                     `budget_period_enddate` date NOT NULL,
2920                     `budget_period_active` tinyint(1) default '0',
2921                     `budget_period_description` mediumtext,
2922                     `budget_period_locked` tinyint(1) default NULL,
2923                     `sort1_authcat` varchar(10) default NULL,
2924                     `sort2_authcat` varchar(10) default NULL,
2925                     PRIMARY KEY  (`budget_period_id`)
2926                     ) ENGINE=InnoDB  DEFAULT CHARSET=utf8 |);
2927
2928    $dbh->do(<<ADDPERIODS);
2929 INSERT INTO aqbudgetperiods (budget_period_startdate,budget_period_enddate,budget_period_active,budget_period_description,budget_period_locked)
2930 SELECT DISTINCT startdate, enddate, NOW() BETWEEN startdate and enddate, concat(startdate," ",enddate),NOT NOW() BETWEEN startdate AND enddate from aqbudget
2931 ADDPERIODS
2932 # SORRY , NO AQBUDGET/AQBOOKFUND -> AQBUDGETS IMPORT JUST YET,
2933 # BUT A NEW CLEAN AQBUDGETS TABLE CREATE FOR NOW..
2934 # DROP TABLE IF EXISTS `aqbudget`;
2935 #CREATE TABLE `aqbudget` (
2936 #  `bookfundid` varchar(10) NOT NULL default ',
2937 #    `startdate` date NOT NULL default 0,
2938 #         `enddate` date default NULL,
2939 #           `budgetamount` decimal(13,2) default NULL,
2940 #                 `aqbudgetid` tinyint(4) NOT NULL auto_increment,
2941 #                   `branchcode` varchar(10) default NULL,
2942     DropAllForeignKeys('aqbudget');
2943   #$dbh->do("drop table aqbudget;");
2944
2945
2946     my $maxbudgetid = $dbh->selectcol_arrayref(<<IDsBUDGET);
2947 SELECT MAX(aqbudgetid) from aqbudget
2948 IDsBUDGET
2949
2950 $$maxbudgetid[0] = 0 if !$$maxbudgetid[0];
2951
2952     $dbh->do(<<BUDGETAUTOINCREMENT);
2953 ALTER TABLE aqbudget AUTO_INCREMENT=$$maxbudgetid[0]
2954 BUDGETAUTOINCREMENT
2955
2956     $dbh->do(<<BUDGETNAME);
2957 ALTER TABLE aqbudget RENAME `aqbudgets`
2958 BUDGETNAME
2959
2960     $dbh->do(<<BUDGETS);
2961 ALTER TABLE `aqbudgets`
2962    CHANGE  COLUMN aqbudgetid `budget_id` int(11) NOT NULL AUTO_INCREMENT,
2963    CHANGE  COLUMN branchcode `budget_branchcode` varchar(10) default NULL,
2964    CHANGE  COLUMN budgetamount `budget_amount` decimal(28,6) NOT NULL default '0.00',
2965    CHANGE  COLUMN bookfundid   `budget_code` varchar(30) default NULL,
2966    ADD     COLUMN `budget_parent_id` int(11) default NULL,
2967    ADD     COLUMN `budget_name` varchar(80) default NULL,
2968    ADD     COLUMN `budget_encumb` decimal(28,6) default '0.00',
2969    ADD     COLUMN `budget_expend` decimal(28,6) default '0.00',
2970    ADD     COLUMN `budget_notes` mediumtext,
2971    ADD     COLUMN `budget_description` mediumtext,
2972    ADD     COLUMN `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
2973    ADD     COLUMN `budget_amount_sublevel`  decimal(28,6) AFTER `budget_amount`,
2974    ADD     COLUMN `budget_period_id` int(11) default NULL,
2975    ADD     COLUMN `sort1_authcat` varchar(80) default NULL,
2976    ADD     COLUMN `sort2_authcat` varchar(80) default NULL,
2977    ADD     COLUMN `budget_owner_id` int(11) default NULL,
2978    ADD     COLUMN `budget_permission` int(1) default '0';
2979 BUDGETS
2980
2981     $dbh->do(<<BUDGETCONSTRAINTS);
2982 ALTER TABLE `aqbudgets`
2983    ADD CONSTRAINT `aqbudgets_ifbk_1` FOREIGN KEY (`budget_period_id`) REFERENCES `aqbudgetperiods` (`budget_period_id`) ON DELETE CASCADE ON UPDATE CASCADE
2984 BUDGETCONSTRAINTS
2985 #    $dbh->do(<<BUDGETPKDROP);
2986 #ALTER TABLE `aqbudgets`
2987 #   DROP PRIMARY KEY
2988 #BUDGETPKDROP
2989 #    $dbh->do(<<BUDGETPKADD);
2990 #ALTER TABLE `aqbudgets`
2991 #   ADD PRIMARY KEY budget_id
2992 #BUDGETPKADD
2993
2994
2995         my $query_period= $dbh->prepare(qq|SELECT budget_period_id from aqbudgetperiods where budget_period_startdate=? and budget_period_enddate=?|);
2996         my $query_bookfund= $dbh->prepare(qq|SELECT * from aqbookfund where bookfundid=?|);
2997         my $selectbudgets=$dbh->prepare(qq|SELECT * from aqbudgets|);
2998         my $updatebudgets=$dbh->prepare(qq|UPDATE aqbudgets SET budget_period_id= ? , budget_name=?, budget_branchcode=? where budget_id=?|);
2999         $selectbudgets->execute;
3000         while (my $databudget=$selectbudgets->fetchrow_hashref){
3001                 $query_period->execute ($$databudget{startdate},$$databudget{enddate});
3002                 my ($budgetperiodid)=$query_period->fetchrow;
3003                 $query_bookfund->execute ($$databudget{budget_code});
3004                 my $databf=$query_bookfund->fetchrow_hashref;
3005                 my $branchcode=$$databudget{budget_branchcode}||$$databf{branchcode};
3006                 $updatebudgets->execute($budgetperiodid,$$databf{bookfundname},$branchcode,$$databudget{budget_id});
3007         }
3008     $dbh->do(<<BUDGETDROPDATES);
3009 ALTER TABLE `aqbudgets`
3010    DROP startdate,
3011    DROP enddate
3012 BUDGETDROPDATES
3013
3014
3015     $dbh->do("DROP TABLE IF EXISTS `aqbudgets_planning` ");
3016     $dbh->do("CREATE TABLE  `aqbudgets_planning` (
3017                     `plan_id` int(11) NOT NULL auto_increment,
3018                     `budget_id` int(11) NOT NULL,
3019                     `budget_period_id` int(11) NOT NULL,
3020                     `estimated_amount` decimal(28,6) default NULL,
3021                     `authcat` varchar(30) NOT NULL,
3022                     `authvalue` varchar(30) NOT NULL,
3023                                         `display` tinyint(1) DEFAULT 1,
3024                         PRIMARY KEY  (`plan_id`),
3025                         CONSTRAINT `aqbudgets_planning_ifbk_1` FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON DELETE CASCADE ON UPDATE CASCADE
3026                         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
3027
3028     $dbh->do("ALTER TABLE `aqorders`
3029                     ADD COLUMN `budget_id` tinyint(4) NOT NULL,
3030                     ADD COLUMN `budgetgroup_id` int(11) NOT NULL,
3031                     ADD COLUMN  `sort1_authcat` varchar(10) default NULL,
3032                     ADD COLUMN  `sort2_authcat` varchar(10) default NULL" );
3033                 # We need to map the orders to the budgets
3034                 # For Historic reasons this is more complex than it should be on occasions
3035                 my $budg_arr = $dbh->selectall_arrayref(
3036                     q|SELECT aqbudgets.budget_id, aqbudgets.budget_code, aqbudgetperiods.budget_period_startdate,
3037                     aqbudgetperiods.budget_period_enddate
3038                     FROM aqbudgets JOIN aqbudgetperiods ON aqbudgets.budget_period_id = aqbudgetperiods.budget_period_id
3039                     ORDER BY budget_code, budget_period_startdate|, { Slice => {} });
3040                 # We arbitarily order on start date, this means if you have overlapping periods the order will be
3041                 # linked to the latest matching budget YMMV
3042                 my $b_sth = $dbh->prepare(
3043                     'UPDATE fundmapping set aqbudgetid = ? where bookfundid =? AND budgetdate >= ? AND budgetdate <= ?');
3044                 for my $b ( @{$budg_arr}) {
3045                     $b_sth->execute($b->{budget_id}, $b->{budget_code}, $b->{budget_period_startdate}, $b->{budget_period_enddate});
3046                 }
3047                 # move the budgetids to aqorders
3048                 $dbh->do(q|UPDATE aqorders, fundmapping SET aqorders.budget_id = fundmapping.aqbudgetid
3049                     WHERE aqorders.ordernumber = fundmapping.ordernumber AND fundmapping.aqbudgetid IS NOT NULL|);
3050                 # NB fundmapping is left as an accontants trail also if you have budgetids that werent set
3051                 # you can decide what to do with them
3052
3053      $dbh->do(
3054          q|UPDATE aqorders, aqbudgets SET aqorders.budgetgroup_id = aqbudgets.budget_period_id
3055          WHERE aqorders.budget_id = aqbudgets.budget_id|);
3056                 # cannot do until aqorderbreakdown removed
3057 #    $dbh->do("DROP TABLE aqbookfund ");
3058 #    $dbh->do("ALTER TABLE aqorders  ADD FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON UPDATE CASCADE  " ); ????
3059     $dbh->do("SET FOREIGN_KEY_CHECKS=1 ");
3060
3061     print "Upgrade to $DBversion done (Adding new aqbudgetperiods, aqbudgets and aqbudget_planning tables  )\n";
3062     SetVersion ($DBversion);
3063 }
3064
3065
3066
3067 $DBversion = '3.01.00.078';
3068 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3069     $dbh->do("ALTER TABLE aqbudgetperiods ADD COLUMN budget_period_total decimal(28,6)");
3070     print "Upgrade to $DBversion done (adds 'budget_period_total' column to aqbudgetperiods table)\n";
3071     SetVersion($DBversion);
3072 }
3073
3074
3075 $DBversion = '3.01.00.079';
3076 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3077     $dbh->do("ALTER TABLE currency ADD COLUMN active  tinyint(1)");
3078
3079     print "Upgrade to $DBversion done (adds 'active' column to currencies table)\n";
3080     SetVersion($DBversion);
3081 }
3082
3083 $DBversion = '3.01.00.080';
3084 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3085     $dbh->do(<<BUDG_PERM );
3086 INSERT INTO permissions (module_bit, code, description) VALUES
3087             (11, 'vendors_manage', 'Manage vendors'),
3088             (11, 'contracts_manage', 'Manage contracts'),
3089             (11, 'period_manage', 'Manage periods'),
3090             (11, 'budget_manage', 'Manage budgets'),
3091             (11, 'budget_modify', "Modify budget (can't create lines but can modify existing ones)"),
3092             (11, 'planning_manage', 'Manage budget plannings'),
3093             (11, 'order_manage', 'Manage orders & basket'),
3094             (11, 'group_manage', 'Manage orders & basketgroups'),
3095             (11, 'order_receive', 'Manage orders & basket'),
3096             (11, 'budget_add_del', "Add and delete budgets (but can't modify budgets)");
3097 BUDG_PERM
3098
3099     print "Upgrade to $DBversion done (adds permissions for the acquisitions module)\n";
3100     SetVersion($DBversion);
3101 }
3102
3103
3104 $DBversion = '3.01.00.081';
3105 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3106     $dbh->do("ALTER TABLE aqbooksellers ADD COLUMN `gstrate` decimal(6,4) default NULL");
3107     if (my $gist=C4::Context->preference("gist")){
3108                 my $sql=$dbh->prepare("UPDATE aqbooksellers set `gstrate`=? ");
3109         $sql->execute($gist) ;
3110         }
3111     print "Upgrade to $DBversion done (added per-supplier gstrate setting)\n";
3112     SetVersion($DBversion);
3113 }
3114
3115 $DBversion = "3.01.00.082";
3116 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3117     if (C4::Context->preference("opaclanguages") eq "fr") {
3118         $dbh->do(qq#INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AcqCreateItem','ordering',"Définit quand l'exemplaire est créé : à la commande, à la livraison, au catalogage",'ordering|receiving|cataloguing','Choice')#);
3119     } else {
3120         $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AcqCreateItem','ordering','Define when the item is created : when ordering, when receiving, or in cataloguing module','ordering|receiving|cataloguing','Choice')");
3121     }
3122     print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
3123     SetVersion ($DBversion);
3124 }
3125
3126 $DBversion = "3.01.00.083";
3127 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3128     $dbh->do(qq|
3129  CREATE TABLE `aqorders_items` (
3130   `ordernumber` int(11) NOT NULL,
3131   `itemnumber` int(11) NOT NULL,
3132   `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
3133   PRIMARY KEY  (`itemnumber`),
3134   KEY `ordernumber` (`ordernumber`)
3135 ) ENGINE=InnoDB DEFAULT CHARSET=utf8   |
3136     );
3137
3138     $dbh->do(qq| DROP TABLE aqorderbreakdown |);
3139     $dbh->do('DROP TABLE aqbookfund');
3140     print "Upgrade to $DBversion done (New aqorders_items table for acqui)\n";
3141     SetVersion ($DBversion);
3142 }
3143
3144 $DBversion = "3.01.00.084";
3145 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3146     $dbh->do(  qq# INSERT INTO `systempreferences` VALUES ('CurrencyFormat','US','US|FR','Determines the display format of currencies. eg: ''36000'' is displayed as ''360 000,00''  in ''FR'' or 360,000.00''  in ''US''.','Choice')  #);
3147
3148     print "Upgrade to $DBversion done (CurrencyFormat syspref added)\n";
3149     SetVersion ($DBversion);
3150 }
3151
3152 $DBversion = "3.01.00.085";
3153 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3154     $dbh->do("ALTER table aqorders drop column title");
3155     $dbh->do("ALTER TABLE `aqorders` CHANGE `budget_id` `budget_id` INT( 11 ) NOT NULL");
3156     print "Upgrade to $DBversion done update budget_id size that should not be a tinyint\n";
3157     SetVersion ($DBversion);
3158 }
3159
3160 $DBversion = "3.01.00.086";
3161 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3162     $dbh->do(<<SUGGESTIONS);
3163 ALTER table suggestions
3164     ADD budgetid INT(11),
3165     ADD branchcode VARCHAR(10) default NULL,
3166     ADD acceptedby INT(11) default NULL,
3167     ADD accepteddate date default NULL,
3168     ADD suggesteddate date default NULL,
3169     ADD manageddate date default NULL,
3170     ADD rejectedby INT(11) default NULL,
3171     ADD rejecteddate date default NULL,
3172     ADD collectiontitle text default NULL,
3173     ADD itemtype VARCHAR(30) default NULL
3174     ;
3175 SUGGESTIONS
3176     print "Upgrade to $DBversion done (Suggestions)\n";
3177     SetVersion ($DBversion);
3178 }
3179
3180 $DBversion = "3.01.00.087";
3181 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3182     $dbh->do("ALTER table aqbudgets drop column budget_amount_sublevel;");
3183     print "Upgrade to $DBversion done (Drop column budget_amount_sublevel from aqbudgets)\n";
3184     SetVersion ($DBversion);
3185 }
3186
3187 $DBversion = "3.01.00.088";
3188 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3189     $dbh->do(  qq# INSERT INTO `systempreferences` VALUES ('intranetbookbag','1','','If ON, enables display of Cart feature in the intranet','YesNo')  #);
3190
3191     print "Upgrade to $DBversion done (intranetbookbag syspref added)\n";
3192     SetVersion ($DBversion);
3193 }
3194
3195 $DBversion = "3.01.00.090";
3196 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3197 $dbh->do("
3198        INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3199                 (16, 'execute_reports', 'Execute SQL reports'),
3200                 (16, 'create_reports', 'Create SQL Reports')
3201         ");
3202
3203     print "Upgrade to $DBversion done (granular permissions for guided reports added)\n";
3204     SetVersion ($DBversion);
3205 }
3206
3207 $DBversion = "3.01.00.091";
3208 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3209 $dbh->do("
3210         UPDATE `systempreferences` SET `options` = 'holdings|serialcollection|subscriptions'
3211         WHERE `systempreferences`.`variable` = 'opacSerialDefaultTab' LIMIT 1
3212         ");
3213
3214     print "Upgrade to $DBversion done (opac-detail default tag updated)\n";
3215     SetVersion ($DBversion);
3216 }
3217
3218 $DBversion = "3.01.00.092";
3219 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3220     if (C4::Context->preference("opaclanguages") =~ /fr/) {
3221         $dbh->do(qq{
3222 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('RoutingListAddReserves','1','Si activé, des reservations sont automatiquement créées pour chaque lecteur de la liste de circulation d''un numéro de périodique','','YesNo');
3223         });
3224         }else{
3225         $dbh->do(qq{
3226 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('RoutingListAddReserves','1','If ON the patrons on routing lists are automatically added to holds on the issue.','','YesNo');
3227         });
3228         }
3229     print "Upgrade to $DBversion done (Added RoutingListAddReserves syspref)\n";
3230     SetVersion ($DBversion);
3231 }
3232
3233 $DBversion = "3.01.00.093";
3234 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3235         $dbh->do(qq{
3236         ALTER TABLE biblioitems ADD INDEX issn_idx (issn);
3237         });
3238     print "Upgrade to $DBversion done (added index to ISSN)\n";
3239     SetVersion ($DBversion);
3240 }
3241
3242 $DBversion = "3.01.00.094";
3243 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3244         $dbh->do(qq{
3245         ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10) default NULL, ADD deliverycomment VARCHAR(255) default NULL;
3246         });
3247
3248     print "Upgrade to $DBversion done (adding deliveryplace deliverycomment to basketgroups)\n";
3249     SetVersion ($DBversion);
3250 }
3251
3252 $DBversion = "3.01.00.095";
3253 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3254         $dbh->do(qq{
3255         ALTER TABLE items ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number";
3256         });
3257         $dbh->do(qq{
3258         ALTER TABLE items ADD UNIQUE INDEX itemsstocknumberidx (stocknumber);
3259         });
3260         $dbh->do(qq{
3261         ALTER TABLE deleteditems ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number of deleted items";
3262         });
3263         $dbh->do(qq{
3264         ALTER TABLE deleteditems ADD UNIQUE INDEX deleteditemsstocknumberidx (stocknumber);
3265         });
3266         if (C4::Context->preference('marcflavour') eq 'UNIMARC'){
3267                 $dbh->do(qq{
3268         INSERT IGNORE INTO marc_subfield_structure (frameworkcode,tagfield, tagsubfield, tab, repeatable, mandatory,kohafield)
3269         SELECT DISTINCT (frameworkcode),995,"j",10,0,0,"items.stocknumber" from biblio_framework ;
3270                 });
3271                 #Previously, copynumber was used as stocknumber
3272                 $dbh->do(qq{
3273         UPDATE items set stocknumber=copynumber;
3274                 });
3275                 $dbh->do(qq{
3276         UPDATE items set copynumber=NULL;
3277                 });
3278         }
3279     print "Upgrade to $DBversion done (stocknumber field added)\n";
3280     SetVersion ($DBversion);
3281 }
3282
3283 $DBversion = "3.01.00.096";
3284 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3285     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OrderPdfTemplate','','Uploads a PDF template to use for printing baskets','NULL','Upload')");
3286     $dbh->do("UPDATE systempreferences SET variable='OrderPdfFormat' WHERE variable='pdfformat'");
3287     print "Upgrade to $DBversion done (PDF orders system preferences added and updated)\n";
3288     SetVersion ($DBversion);
3289 }
3290
3291 $DBversion = "3.01.00.097";
3292 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3293         $dbh->do(qq{
3294         ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10) NOT NULL AFTER deliverycomment;
3295         });
3296
3297     print "Upgrade to $DBversion done (Adding billingplace to aqbasketgroups)\n";
3298     SetVersion ($DBversion);
3299 }
3300
3301 $DBversion = "3.01.00.098";
3302 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3303         $dbh->do(qq{
3304         ALTER TABLE auth_subfield_structure MODIFY frameworkcode VARCHAR(10) NULL;
3305         });
3306
3307     print "Upgrade to $DBversion done (changing frameworkcode length in auth_subfield_structure)\n";
3308     SetVersion ($DBversion);
3309 }
3310
3311 $DBversion = "3.01.00.099";
3312 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3313         $dbh->do(qq{
3314                 INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3315                 (9, 'edit_catalogue', 'Edit catalogue'),
3316                 (9, 'fast_cataloging', 'Fast cataloging')
3317         });
3318
3319     print "Upgrade to $DBversion done (granular permissions for cataloging added)\n";
3320     SetVersion ($DBversion);
3321 }
3322
3323 $DBversion = "3.01.00.100";
3324 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3325         $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('casAuthentication', '0', '', 'Enable or disable CAS authentication', 'YesNo'), ('casLogout', '1', '', 'Does a logout from Koha should also log out of CAS ?', 'YesNo'), ('casServerUrl', 'https://localhost:8443/cas', '', 'URL of the cas server', 'Free')");
3326         print "Upgrade to $DBversion done (added CAS authentication system preferences)\n";
3327     SetVersion ($DBversion);
3328 }
3329
3330 $DBversion = "3.01.00.101";
3331 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3332         $dbh->do(
3333         "INSERT INTO systempreferences
3334            (variable, value, options, explanation, type)
3335          VALUES (
3336             'OverdueNoticeBcc', '', '',
3337             'Email address to Bcc outgoing notices sent by email',
3338             'free')
3339          ");
3340         print "Upgrade to $DBversion done (added OverdueNoticeBcc system preferences)\n";
3341     SetVersion ($DBversion);
3342 }
3343 $DBversion = "3.01.00.102";
3344 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3345     $dbh->do(
3346     "UPDATE permissions set description = 'Edit catalog (Modify bibliographic/holdings data)' where module_bit = 9 and code = 'edit_catalogue'"
3347     );
3348         print "Upgrade to $DBversion done (fixed spelling error in edit_catalogue permission)\n";
3349     SetVersion ($DBversion);
3350 }
3351
3352 $DBversion = "3.01.00.103";
3353 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3354         $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES (13, 'moderate_tags', 'Moderate patron tags')");
3355         print "Upgrade to $DBversion done (adding patron permissions for tags tool)\n";
3356     SetVersion ($DBversion);
3357 }
3358
3359 $DBversion = "3.01.00.104";
3360 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3361
3362     my ($maninv_count, $borrnotes_count);
3363     eval { $maninv_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='MANUAL_INV'"); };
3364     if ($maninv_count == 0) {
3365         $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('MANUAL_INV','Copier Fees','.25')");
3366     }
3367     eval { $borrnotes_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='BOR_NOTES'"); };
3368     if ($borrnotes_count == 0) {
3369         $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('BOR_NOTES','ADDR','Address Notes')");
3370     }
3371
3372     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','CART','Book Cart')");
3373     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','PROC','Processing Center')");
3374
3375         print "Upgrade to $DBversion done ( add defaults to authorized values for MANUAL_INV and BOR_NOTES and add new default LOC authorized values for shelf to cart processing )\n";
3376         SetVersion ($DBversion);
3377 }
3378
3379
3380 $DBversion = "3.01.00.105";
3381 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3382     $dbh->do("
3383       CREATE TABLE `collections` (
3384         `colId` int(11) NOT NULL auto_increment,
3385         `colTitle` varchar(100) NOT NULL default '',
3386         `colDesc` text NOT NULL,
3387         `colBranchcode` varchar(4) default NULL COMMENT 'branchcode for branch where item should be held.',
3388         PRIMARY KEY  (`colId`)
3389       ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3390     ");
3391
3392     $dbh->do("
3393       CREATE TABLE `collections_tracking` (
3394         `ctId` int(11) NOT NULL auto_increment,
3395         `colId` int(11) NOT NULL default '0' COMMENT 'collections.colId',
3396         `itemnumber` int(11) NOT NULL default '0' COMMENT 'items.itemnumber',
3397         PRIMARY KEY  (`ctId`)
3398       ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3399     ");
3400     $dbh->do("
3401         INSERT INTO permissions (module_bit, code, description)
3402         VALUES ( 13, 'rotating_collections', 'Manage Rotating collections')" );
3403         print "Upgrade to $DBversion done (added collection and collection_tracking tables for rotating collections functionality)\n";
3404     SetVersion ($DBversion);
3405 }
3406 $DBversion = "3.01.00.106";
3407 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3408         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ( 'OpacAddMastheadLibraryPulldown', '0', '', 'Adds a pulldown menu to select the library to search on the opac masthead.', 'YesNo' )");
3409         print "Upgrade to $DBversion done (added OpacAddMastheadLibraryPulldown system preferences)\n";
3410     SetVersion ($DBversion);
3411 }
3412
3413 $DBversion = '3.01.00.107';
3414 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3415     my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/patroncards_upgrade.pl";
3416     system("perl $upgrade_script");
3417     print "Upgrade to $DBversion done (Migrated labels and patroncards tables and data to new schema.)\n";
3418     SetVersion ($DBversion);
3419 }
3420
3421 $DBversion = '3.01.00.108';
3422 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3423         $dbh->do(qq{
3424     ALTER TABLE `export_format` ADD `csv_separator` VARCHAR( 2 ) NOT NULL AFTER `marcfields` ,
3425     ADD `field_separator` VARCHAR( 2 ) NOT NULL AFTER `csv_separator` ,
3426     ADD `subfield_separator` VARCHAR( 2 ) NOT NULL AFTER `field_separator`
3427     });
3428         print "Upgrade to $DBversion done (added separators for csv export)\n";
3429     SetVersion ($DBversion);
3430 }
3431
3432 $DBversion = "3.01.00.109";
3433 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3434         $dbh->do(qq{
3435         ALTER TABLE `export_format` ADD `encoding` VARCHAR(255) NOT NULL AFTER `subfield_separator`
3436         });
3437         print "Upgrade to $DBversion done (added encoding for csv export)\n";
3438     SetVersion ($DBversion);
3439 }
3440
3441 $DBversion = '3.01.00.110';
3442 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3443     $dbh->do('ALTER TABLE `categories` ADD COLUMN `enrolmentperioddate` DATE NULL DEFAULT NULL AFTER `enrolmentperiod`');
3444     print "Upgrade to $DBversion done (Add enrolment period date support)\n";
3445     SetVersion ($DBversion);
3446 }
3447
3448 $DBversion = '3.01.00.111';
3449 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3450     print "Upgrade to $DBversion done (mark DBrev for 3.2-alpha release)\n";
3451     SetVersion ($DBversion);
3452 }
3453
3454 $DBversion = '3.01.00.112';
3455 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3456         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('SpineLabelShowPrintOnBibDetails', '0', '', 'If turned on, a \"Print Label\" link will appear for each item on the bib details page in the staff interface.', 'YesNo');");
3457         print "Upgrade to $DBversion done ( added Show Spine Label Printer on Bib Items Details preferences )\n";
3458     SetVersion ($DBversion);
3459 }
3460
3461 $DBversion = '3.01.00.113';
3462 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3463     my $value = C4::Context->preference("XSLTResultsDisplay");
3464     $dbh->do(
3465         "INSERT INTO systempreferences (variable,value,type)
3466          VALUES('OPACXSLTResultsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3467     $value = C4::Context->preference("XSLTDetailsDisplay");
3468     $dbh->do(
3469         "INSERT INTO systempreferences (variable,value,type)
3470          VALUES('OPACXSLTDetailsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3471     print "Upgrade to $DBversion done (added two new syspref: OPACXSLTResultsDisplay and OPACXSLTDetailDisplay). You may have to go in Admin > System preference to tweak XSLT related syspref both in OPAC and Search tabs.\n";
3472     SetVersion ($DBversion);
3473 }
3474
3475 $DBversion = '3.01.00.114';
3476 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3477     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('AutoSelfCheckAllowed', '0', 'For corporate and special libraries which want web-based self-check available from any PC without the need for a manual staff login. Most libraries will want to leave this turned off. If on, requires self-check ID and password to be entered in AutoSelfCheckID and AutoSelfCheckPass sysprefs.', '', 'YesNo')");
3478     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AutoSelfCheckID','','Staff ID with circulation rights to be used for automatic web-based self-check. Only applies if AutoSelfCheckAllowed syspref is turned on.','','free')");
3479     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AutoSelfCheckPass','','Password to be used for automatic web-based self-check. Only applies if AutoSelfCheckAllowed syspref is turned on.','','free')");
3480         print "Upgrade to $DBversion done ( Added AutoSelfCheckAllowed, AutoSelfCheckID, and AutoShelfCheckPass system preference )\n";
3481     SetVersion ($DBversion);
3482 }
3483
3484 $DBversion = '3.01.00.115';
3485 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3486     $dbh->do('UPDATE aqorders SET quantityreceived = 0 WHERE quantityreceived IS NULL');
3487     $dbh->do('ALTER TABLE aqorders MODIFY COLUMN quantityreceived smallint(6) NOT NULL DEFAULT 0');
3488         print "Upgrade to $DBversion done ( Default aqorders.quantityreceived to 0 )\n";
3489     SetVersion ($DBversion);
3490 }
3491
3492 $DBversion = '3.01.00.116';
3493 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3494         if (C4::Context->preference('OrderPdfFormat') eq 'pdfformat::example'){
3495                 $dbh->do("UPDATE `systempreferences` set value='pdfformat::layout2pages' WHERE variable='OrderPdfFormat'");
3496         }
3497         print "Upgrade to $DBversion done (corrected default OrderPdfFormat value if still set wrong )\n";
3498     SetVersion ($DBversion);
3499 }
3500
3501 $DBversion = '3.01.00.117';
3502 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3503     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'por' WHERE rfc4646_subtag='pt' ");
3504     print "Upgrade to $DBversion done (corrected ISO 639-2 language code for Portuguese)\n";
3505     SetVersion ($DBversion);
3506 }
3507
3508 $DBversion = '3.01.00.118';
3509 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3510     my ($count) = $dbh->selectrow_array("SELECT count(*) FROM information_schema.columns
3511                                          WHERE table_name = 'aqbudgets_planning'
3512                                          AND column_name = 'display'");
3513     if ($count < 1) {
3514         $dbh->do("ALTER TABLE aqbudgets_planning ADD COLUMN display tinyint(1) DEFAULT 1");
3515     }
3516     print "Upgrade to $DBversion done (bug 4203: add display column to aqbudgets_planning if missing)\n";
3517     SetVersion ($DBversion);
3518 }
3519
3520 $DBversion = '3.01.00.119';
3521 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3522     eval{require Locale::Currency::Format};
3523     if (!$@) {
3524         print "Upgrade to $DBversion done (Locale::Currency::Format installed.)\n";
3525         SetVersion ($DBversion);
3526     }
3527     else {
3528         print "Upgrade to $DBversion done.\n";
3529         print "NOTICE: The Locale::Currency::Format package is not installed on your system or not found in \@INC.\nThis dependency is required in order to include fine information in overdue notices.\nPlease ask your system administrator to install this package.\n";
3530         SetVersion ($DBversion);
3531     }
3532 }
3533
3534 $DBversion = '3.01.00.120';
3535 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3536     $dbh->do(q{
3537 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('soundon','0','Enable circulation sounds during checkin and checkout in the staff interface.  Not supported by all web browsers yet.','','YesNo');
3538 });
3539     print "Upgrade to $DBversion done (bug 1080: add soundon system preference for circulation sounds)\n";
3540     SetVersion ($DBversion);
3541 }
3542
3543 $DBversion = '3.01.00.121';
3544 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3545     $dbh->do("ALTER TABLE `reserves` ADD `expirationdate` DATE DEFAULT NULL");
3546     $dbh->do("ALTER TABLE `reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3547     $dbh->do("ALTER TABLE `old_reserves` ADD `expirationdate` DATE DEFAULT NULL");
3548     $dbh->do("ALTER TABLE `old_reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3549     print "Upgrade to $DBversion done ( Added Additional Fields to Reserves tables )\n";
3550     SetVersion ($DBversion);
3551 }
3552
3553 $DBversion = '3.01.00.122';
3554 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3555     $dbh->do(q{
3556       INSERT INTO systempreferences (variable,value,explanation,options,type)
3557       VALUES ('OAI-PMH:ConfFile', '', 'If empty, Koha OAI Server operates in normal mode, otherwise it operates in extended mode.','','File');
3558 });
3559     print "Upgrade to $DBversion done. — Add a new system preference OAI-PMF:ConfFile\n";
3560     SetVersion ($DBversion);
3561 }
3562
3563 $DBversion = "3.01.00.123";
3564 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3565     $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3566         (6, 'place_holds', 'Place holds for patrons')");
3567     $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3568         (6, 'modify_holds_priority', 'Modify holds priority')");
3569     $dbh->do("UPDATE `userflags` SET `flagdesc` = 'Place and modify holds for patrons' WHERE `flag` = 'reserveforothers'");
3570     print "Upgrade to $DBversion done (Add granular permission for holds modification and update description of reserveforothers permission)\n";
3571     SetVersion ($DBversion);
3572 }
3573
3574 $DBversion = '3.01.00.124';
3575 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3576     $dbh->do("
3577         INSERT INTO `letter` (module, code, name, title, content)         VALUES('reserves', 'HOLDPLACED', 'Hold Placed on Item', 'Hold Placed on Item','A hold has been placed on the following item : <<title>> (<<biblionumber>>) by the user <<firstname>> <<surname>> (<<cardnumber>>).');
3578     ");
3579     print "Upgrade to $DBversion done (bug 3242: add HOLDPLACED letter template, which is used when emailLibrarianWhenHoldIsPlaced is enabled)\n";
3580     SetVersion ($DBversion);
3581 }
3582
3583 $DBversion = '3.01.00.125';
3584 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3585     $dbh->do("
3586         INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'PrintNoticesMaxLines', '0', '', 'If greater than 0, sets the maximum number of lines an overdue notice will print. If the number of items is greater than this number, the notice will end with a warning asking the borrower to check their online account for a full list of overdue items.', 'Integer' );
3587     ");
3588     $dbh->do("
3589         INSERT INTO message_transport_types (message_transport_type) values ('print');
3590     ");
3591     print "Upgrade to $DBversion done (bug 3482: Printable hold and overdue notices)\n";
3592     SetVersion ($DBversion);
3593 }
3594
3595 $DBversion = "3.01.00.126";
3596 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3597         $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ILS-DI','0','Enable ILS-DI services. See http://your.opac.name/cgi-bin/koha/ilsdi.pl for online documentation.','','YesNo')");
3598         $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ILS-DI:AuthorizedIPs','127.0.0.1','A comma separated list of IP addresses authorized to access the web services.','','free')");
3599
3600     print "Upgrade to $DBversion done (Adding ILS-DI updates and ILS-DI:AuthorizedIPs)\n";
3601     SetVersion ($DBversion);
3602 }
3603
3604 $DBversion = '3.01.00.127';
3605 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3606     $dbh->do("ALTER TABLE messages CHANGE branchcode branchcode varchar(10);");
3607     print "Upgrade to $DBversion done (bug 4190: messages in patron account did not work with branchcodes > 4)\n";
3608     SetVersion ($DBversion);
3609 }
3610
3611 $DBversion = '3.01.00.128';
3612 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3613     $dbh->do('CREATE INDEX budget_id ON aqorders (budget_id );');
3614     print "Upgrade to $DBversion done (bug 4331: index orders by budget_id)\n";
3615     SetVersion ($DBversion);
3616 }
3617
3618 $DBversion = "3.01.00.129";
3619 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3620         $dbh->do("UPDATE `permissions` SET `code` = 'items_batchdel' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchdel' LIMIT 1 ;");
3621         $dbh->do("UPDATE `permissions` SET `code` = 'items_batchmod' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchmod' LIMIT 1 ;");
3622         print "Upgrade to $DBversion done (Change permissions names for item batch modification / deletion)\n";
3623
3624     SetVersion ($DBversion);
3625 }
3626
3627 $DBversion = "3.01.00.130";
3628 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3629     $dbh->do("UPDATE reserves SET expirationdate = NULL WHERE expirationdate = '0000-00-00'");
3630     print "Upgrade to $DBversion done (change reserves.expirationdate values of 0000-00-00 to NULL (bug 1532)\n";
3631     SetVersion ($DBversion);
3632 }
3633
3634 $DBversion = "3.01.00.131";
3635 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3636         $dbh->do(q{
3637 INSERT IGNORE INTO message_transport_types (message_transport_type) VALUES ('print'),('feed');
3638     });
3639     print "Upgrade to $DBversion done (adding print and feed message transport types)\n";
3640     SetVersion ($DBversion);
3641 }
3642
3643 $DBversion = "3.01.00.132";
3644 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3645         $dbh->do(q{
3646     ALTER TABLE language_descriptions ADD INDEX subtag_type_lang (subtag, type, lang);
3647     });
3648     print "Upgrade to $DBversion done (Adding index to language_descriptions table)\n";
3649     SetVersion ($DBversion);
3650 }
3651
3652 $DBversion = '3.01.00.133';
3653 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3654     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OverduesBlockCirc','noblock','When checking out an item should overdues block checkout, generate a confirmation dialogue, or allow checkout','noblock|confirmation|block','Choice')");
3655     print "Upgrade to $DBversion done (bug 4405: added OverduesBlockCirc syspref to control whether circulation is blocked if a borrower has overdues)\n";
3656     SetVersion ($DBversion);
3657 }
3658
3659 $DBversion = '3.01.00.134';
3660 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3661     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('DisplayMultiPlaceHold','1','Display the ability to place multiple holds or not','','YesNo')");
3662     print "Upgrade to $DBversion done (adding syspref DisplayMultiPlaceHold to control whether multiple holds can be placed from the search results page)\n";
3663     SetVersion ($DBversion);
3664 }
3665
3666 $DBversion = '3.01.00.135';
3667 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3668     $dbh->do("
3669         INSERT INTO `letter` (module, code, name, title, content) VALUES
3670 ('reserves', 'HOLD_PRINT', 'Hold Available for Pickup (print notice)', 'Hold Available for Pickup (print notice)', '<<branches.branchname>>\r\n<<branches.branchaddress1>>\r\n<<branches.branchaddress2>>\r\n\r\n\r\nChange Service Requested\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>>\r\n<<borrowers.address>>\r\n<<borrowers.city>> <<borrowers.zipcode>>\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>> <<borrowers.cardnumber>>\r\n\r\nYou have a hold available for pickup as of <<reserves.waitingdate>>:\r\n\r\nTitle: <<biblio.title>>\r\nAuthor: <<biblio.author>>\r\nCopy: <<items.copynumber>>\r\n')
3671 ");
3672     print "Upgrade to $DBversion done (bug 4377: added HOLD_PRINT message template)\n";
3673     SetVersion ($DBversion);
3674 }
3675
3676 $DBversion = '3.01.00.136';
3677 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3678     $dbh->do(qq{
3679 INSERT INTO permissions (module_bit, code, description) VALUES
3680    ( 9, 'edit_items', 'Edit Items');});
3681     print "Upgrade to $DBversion done (Adding a new permission to edit items)\n";
3682     SetVersion ($DBversion);
3683 }
3684
3685 $DBversion = "3.01.00.137";
3686 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3687         $dbh->do("
3688           INSERT INTO permissions (module_bit, code, description) VALUES
3689           (15, 'check_expiration', 'Check the expiration of a serial'),
3690           (15, 'claim_serials', 'Claim missing serials'),
3691           (15, 'create_subscription', 'Create a new subscription'),
3692           (15, 'delete_subscription', 'Delete an existing subscription'),
3693           (15, 'edit_subscription', 'Edit an existing subscription'),
3694           (15, 'receive_serials', 'Serials receiving'),
3695           (15, 'renew_subscription', 'Renew a subscription'),
3696           (15, 'routing', 'Routing');
3697                  ");
3698     print "Upgrade to $DBversion done (adding granular permissions for serials)\n";
3699     SetVersion ($DBversion);
3700 }
3701
3702 $DBversion = "3.01.00.138";
3703 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3704     $dbh->do("DELETE FROM systempreferences WHERE variable = 'GranularPermissions'");
3705     print "Upgrade to $DBversion done (bug 4896: removing GranularPermissions syspref; use of granular permissions is now the default)\n";
3706     SetVersion ($DBversion);
3707 }
3708
3709 $DBversion = '3.01.00.139';
3710 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3711     $dbh->do("ALTER TABLE message_attributes CHANGE message_name message_name varchar(40);");
3712     print "Upgrade to $DBversion done (bug 3682: change message_name from varchar(20) to varchar(40))\n";
3713     SetVersion ($DBversion);
3714 }
3715
3716 $DBversion = '3.01.00.140';
3717 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3718     $dbh->do("UPDATE systempreferences SET value = '0' WHERE variable = 'TagsModeration' AND value is NULL");
3719     print "Upgrade to $DBversion done (bug 4312 TagsModeration changed from NULL to 0)\n";
3720     SetVersion ($DBversion);
3721 }
3722
3723 $DBversion = '3.01.00.141';
3724 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3725     $dbh->do(qq{DELETE FROM message_attributes WHERE message_attribute_id=3;});
3726     $dbh->do(qq{DELETE FROM letter WHERE code='EVENT' AND title='Upcoming Library Event';});
3727     print "Upgrade to $DBversion done Remove upcoming events messaging option (bug 2434)\n";
3728     SetVersion ($DBversion);
3729 }
3730
3731 $DBversion = '3.01.00.142';
3732 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3733     $dbh->do(qq{DELETE FROM message_transports WHERE message_attribute_id=3;});
3734     print "Upgrade to $DBversion done (Remove upcoming events messaging option part 2 (bug 2434))\n";
3735     SetVersion ($DBversion);
3736 }
3737
3738 $DBversion = '3.01.00.143';
3739 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3740     $dbh->do(qq{CREATE INDEX auth_value_idx ON authorised_values (authorised_value)});
3741     $dbh->do(qq{CREATE INDEX auth_val_cat_idx ON borrower_attribute_types (authorised_value_category)});
3742     print "Upgrade to $DBversion done (Create index on authorised_values and borrower_attribute_types (bug 4139))\n";
3743     SetVersion ($DBversion);
3744 }
3745
3746 $DBversion = '3.01.00.144';
3747 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3748     $dbh->do(qq{UPDATE systempreferences SET value='normal' where value='default' and variable='IntranetBiblioDefaultView'});
3749     print "Upgrade to $DBversion done (Update the 'default' to 'normal' for the IntranetBiblioDefaultView syspref (bug 5007))\n";
3750     SetVersion ($DBversion);
3751 }
3752
3753 $DBversion = "3.01.00.145";
3754 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3755     $dbh->do("ALTER TABLE borrowers ADD KEY `guarantorid` (guarantorid);");
3756     print "Upgrade to $DBversion done (Add index on guarantorid)\n";
3757     SetVersion ($DBversion);
3758 }
3759
3760 $DBversion = '3.01.00.999';
3761 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3762     print "Upgrade to $DBversion done (3.2.0 release candidate)\n";
3763     SetVersion ($DBversion);
3764 }
3765
3766 $DBversion = "3.02.00.000";
3767 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3768     my $value = $dbh->selectrow_array("SELECT value FROM systempreferences WHERE variable = 'HomeOrHoldingBranch'");
3769     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('HomeOrHoldingBranchReturn','$value','Used by Circulation to determine which branch of an item to check checking-in items','holdingbranch|homebranch','Choice');");
3770     print "Upgrade to $DBversion done (Add HomeOrHoldingBranchReturn system preference)\n";
3771     SetVersion ($DBversion);
3772 }
3773
3774 $DBversion = "3.02.00.001";
3775 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3776     $dbh->do(q{DELETE FROM systempreferences WHERE variable IN (
3777                 'holdCancelLength',
3778                 'PINESISBN',
3779                 'sortbynonfiling',
3780                 'TemplateEncoding',
3781                 'OPACSubscriptionDisplay',
3782                 'OPACDisplayExtendedSubInfo',
3783                 'OAI-PMH:Set',
3784                 'OAI-PMH:Subset',
3785                 'libraryAddress',
3786                 'kohaspsuggest',
3787                 'OrderPdfTemplate',
3788                 'marc',
3789                 'acquisitions',
3790                 'MIME')
3791                }
3792     );
3793     print "Upgrade to $DBversion done (bug 3756: remove disused system preferences)\n";
3794     SetVersion ($DBversion);
3795 }
3796
3797 $DBversion = "3.02.00.002";
3798 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3799     $dbh->do(q{DELETE FROM systempreferences WHERE variable = 'OpacPrivacy'});
3800     print "Upgrade to $DBversion done (bug 3881: remove unused OpacPrivacy system preference)\n";
3801     SetVersion ($DBversion);
3802 }
3803
3804 $DBversion = "3.02.00.003";
3805 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3806     $dbh->do(q{UPDATE systempreferences SET variable = 'ILS-DI:AuthorizedIPs' WHERE variable = 'ILS-DI:Authorized_IPs'});
3807     print "Upgrade to $DBversion done (correct ILS-DI:AuthorizedIPs)\n";
3808     SetVersion ($DBversion);
3809 }
3810
3811 $DBversion = "3.02.00.004";
3812 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3813     print "Upgrade to $DBversion done (3.2.0 general release)\n";
3814     SetVersion ($DBversion);
3815 }
3816 # This is the point where 3.2.x and master diverged, we can use $original_version to make sure we don't
3817
3818 # apply updates that have already been done
3819
3820 $DBversion = "3.03.00.001";
3821 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.005")) {
3822     $dbh->do("DELETE FROM subscriptionroutinglist WHERE borrowernumber IS NULL;");
3823     $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `borrowernumber` int(11) NOT NULL;");
3824     $dbh->do("DELETE FROM subscriptionroutinglist WHERE subscriptionid IS NULL;");
3825     $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `subscriptionid` int(11) NOT NULL;");
3826     $dbh->do("CREATE TEMPORARY TABLE del_subscriptionroutinglist
3827               SELECT s1.routingid FROM subscriptionroutinglist s1
3828               WHERE EXISTS (SELECT * FROM subscriptionroutinglist s2
3829                             WHERE s2.borrowernumber = s1.borrowernumber
3830                             AND   s2.subscriptionid = s1.subscriptionid
3831                             AND   s2.routingid < s1.routingid);");
3832     $dbh->do("DELETE FROM subscriptionroutinglist
3833               WHERE routingid IN (SELECT routingid FROM del_subscriptionroutinglist);");
3834     $dbh->do("ALTER TABLE subscriptionroutinglist ADD UNIQUE (subscriptionid, borrowernumber);");
3835     $dbh->do("ALTER TABLE subscriptionroutinglist
3836                 ADD CONSTRAINT `subscriptionroutinglist_ibfk_1` FOREIGN KEY (`borrowernumber`)
3837                 REFERENCES `borrowers` (`borrowernumber`)
3838                 ON DELETE CASCADE ON UPDATE CASCADE");
3839     $dbh->do("ALTER TABLE subscriptionroutinglist
3840                 ADD CONSTRAINT `subscriptionroutinglist_ibfk_2` FOREIGN KEY (`subscriptionid`)
3841                 REFERENCES `subscription` (`subscriptionid`)
3842                 ON DELETE CASCADE ON UPDATE CASCADE");
3843     print "Upgrade to $DBversion done (Make subscriptionroutinglist more strict)\n";
3844     SetVersion ($DBversion);
3845 }
3846
3847 $DBversion = '3.03.00.002';
3848 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.006")) {
3849     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='arm' WHERE rfc4646_subtag='hy';");
3850     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='eng' WHERE rfc4646_subtag='en';");
3851     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'fi','fin');");
3852     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='fre' WHERE rfc4646_subtag='fr';");
3853     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'lo','lao');");
3854     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it';");
3855     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'sr','srp');");
3856     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'tet','tet');");
3857     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ur','urd');");
3858
3859     print "Upgrade to $DBversion done (Correct language mappings)\n";
3860     SetVersion ($DBversion);
3861 }
3862
3863 $DBversion = '3.03.00.003';
3864 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.007")) {
3865     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTablesortForCirc','0','If on, use the JQuery tablesort function on the list of current borrower checkouts on the circulation page. Note that the use of this function may slow down circ for patrons with may checkouts.','','YesNo');");
3866     print "Upgrade to $DBversion done (Add UseTablesortForCirc syspref)\n";
3867     SetVersion ($DBversion);
3868 }
3869
3870 $DBversion = '3.03.00.004';
3871 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.001")) {
3872     my $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ACCEPTED');
3873     $dbh->do(q/
3874 INSERT INTO `letter`
3875 (module, code, name, title, content)
3876 VALUES
3877 ('suggestions','ACCEPTED','Suggestion accepted', 'Purchase suggestion accepted','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nThe library has reviewed your suggestion today. The item will be ordered as soon as possible. You will be notified by mail when the order is completed, and again when the item arrives at the library.\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3878 /) unless $count > 0;
3879     $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'AVAILABLE');
3880     $dbh->do(q/
3881 INSERT INTO `letter`
3882 (module, code, name, title, content)
3883 VALUES
3884 ('suggestions','AVAILABLE','Suggestion available', 'Suggested purchase available','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nWe are pleased to inform you that the item you requested is now part of the collection.\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3885 /) unless $count > 0;
3886     $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ORDERED');
3887     $dbh->do(q/
3888 INSERT INTO `letter`
3889 (module, code, name, title, content)
3890 VALUES
3891 ('suggestions','ORDERED','Suggestion ordered', 'Suggested item ordered','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nWe are pleased to inform you that the item you requested has now been ordered. It should arrive soon, at which time it will be processed for addition into the collection.\n\nYou will be notified again when the book is available.\n\nIf you have any questions, please email us at <<branches.branchemail>>\n\nThank you,\n\n<<branches.branchname>>')
3892 /) unless $count > 0;
3893     $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'REJECTED');
3894     $dbh->do(q/
3895 INSERT INTO `letter`
3896 (module, code, name, title, content)
3897 VALUES
3898 ('suggestions','REJECTED','Suggestion rejected', 'Purchase suggestion declined','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nThe library has reviewed your request today, and has decided not to accept the suggestion at this time.\n\nThe reason given is: <<suggestions.reason>>\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3899 /) unless $count > 0;
3900     print "Upgrade to $DBversion done (bug 5127: add default templates for suggestion status change notifications)\n";
3901     SetVersion ($DBversion);
3902 };
3903
3904 $DBversion = '3.03.00.005';
3905 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3906     $dbh->do("update `systempreferences` set options='whitespace|T-prefix|cuecat|libsuite8' where variable='itemBarcodeInputFilter'");
3907     print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice libsuite8)\n";
3908 }
3909
3910 $DBversion = '3.03.00.006';
3911 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.002")) {
3912     $dbh->do("ALTER TABLE deletedborrowers ADD `privacy` int(11) AFTER smsalertnumber;");
3913     $dbh->do("ALTER TABLE deletedborrowers CHANGE `cardnumber` `cardnumber` varchar(16);");
3914     print "Upgrade to $DBversion done (Fix differences between borrowers and deletedborrowers)\n";
3915     SetVersion ($DBversion);
3916 }
3917
3918 $DBversion = '3.03.00.007';
3919 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3920     $dbh->do("ALTER table suggestions ADD quantity SMALLINT(6) default NULL,
3921                 ADD currency VARCHAR(3) default NULL,
3922                 ADD price DECIMAL(28,6) default NULL,
3923                 ADD total DECIMAL(28,6) default NULL;
3924                 ");
3925     print "Upgrade to $DBversion done (Added acq related columns to suggestions)\n";
3926     SetVersion ($DBversion);
3927 }
3928
3929 $DBversion = '3.03.00.008';
3930 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3931     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACNoResultsFound','','Display this HTML when no results are found for a search in the OPAC','70|10','Textarea')");
3932     print "Upgrade to $DBversion done (adding syspref OPACNoResultsFound to control what displays when no results are found for a search in the OPAC.)\n";
3933     SetVersion ($DBversion);
3934 }
3935
3936 $DBversion = '3.03.00.009';
3937 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.003")) {
3938     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetUserCSS','','Add CSS to be included in the Intranet',NULL,'free')");
3939     print "Upgrade to $DBversion done (Add IntranetUserCSS syspref)\n";
3940     SetVersion ($DBversion);
3941 }
3942
3943 $DBversion = "3.03.00.010";
3944 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.02.001")) {
3945     $dbh->do("UPDATE `marc_subfield_structure` SET liblibrarian = 'Distance from earth' WHERE liblibrarian = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3946     $dbh->do("UPDATE `marc_subfield_structure` SET libopac = 'Distance from earth' WHERE libopac = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3947     print "Upgrade to $DBversion done (Fix misspelled 034r subfield in MARC21 Frameworks)\n";
3948     SetVersion ($DBversion);
3949 }
3950
3951 $DBversion = "3.03.00.011";
3952 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3953     $dbh->do("UPDATE aqbooksellers SET gstrate=NULL WHERE gstrate=0.0");
3954     print "Upgrade to $DBversion done (Bug 5186: allow GST rate to be set to 0)\n";
3955     SetVersion ($DBversion);
3956 }
3957
3958 $DBversion = "3.03.00.012";
3959 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3960    $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxItemsInSearchResults',20,'Specify the maximum number of items to display for each result on a page of results',NULL,'free')");
3961    print "Upgrade to $DBversion done (Bug 2142: maxItemsInSearchResults syspref resurrected)\n";
3962    SetVersion ($DBversion);
3963 }
3964
3965 $DBversion = "3.03.00.013";
3966 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3967     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacPublic','1','If set to OFF and user is not logged in, all  OPAC pages require authentication, and OPAC searchbar is removed)','','YesNo')");
3968     print "Upgrade to $DBversion done (added 'OpacPublic' syspref)\n";
3969    SetVersion ($DBversion);
3970 }
3971
3972 $DBversion = "3.03.00.014";
3973 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3974     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesLocation','1','Use the item location when finding items for the shelf browser.','1','YesNo')");
3975     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesHomeBranch','1','Use the item home branch when finding items for the shelf browser.','1','YesNo')");
3976     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesCcode','0','Use the item collection code when finding items for the shelf browser.','1','YesNo')");
3977     print "Upgrade to $DBversion done (Add flexible shelf browser constraints)\n";
3978     SetVersion ($DBversion);
3979 }
3980
3981 $DBversion = "3.03.00.015";
3982 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3983     if ( C4::Context->preference("marcflavour") eq "MARC21" ) {
3984         my $sth = $dbh->prepare(
3985 "INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`,
3986                              `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`)
3987                              VALUES ( ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, '', 6, '', '', '', 0, -5, '', '', '', NULL)"
3988         );
3989         $sth->execute('648');
3990         $sth->execute('654');
3991         $sth->execute('655');
3992         $sth->execute('656');
3993         $sth->execute('657');
3994         $sth->execute('658');
3995         $sth->execute('662');
3996         $sth->finish;
3997         print
3998 "Upgrade to $DBversion done (Bug 5619: Add subfield 9 to marc21 648,654,655,656,657,658,662)\n";
3999     }
4000     SetVersion($DBversion);
4001 }
4002
4003 $DBversion = '3.03.00.016';
4004 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4005     # reimplement OpacPrivacy system preference
4006     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacPrivacy', '0', 'if ON, allows patrons to define their privacy rules (reading history)',NULL,'YesNo')");
4007     $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4008     $dbh->do("ALTER TABLE `deletedborrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4009     print "Upgrade to $DBversion done (OpacPrivacy reimplementation)\n";
4010     SetVersion($DBversion);
4011 };
4012
4013 $DBversion = '3.03.00.017';
4014 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.001")) {
4015     $dbh->do("ALTER TABLE  `currency` CHANGE `rate` `rate` FLOAT( 15, 5 ) NULL DEFAULT NULL;");
4016     print "Upgrade to $DBversion done (Enable currency rates >= 100)\n";
4017     SetVersion ($DBversion);
4018 }
4019
4020 $DBversion = '3.03.00.018';
4021 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.002")) {
4022     $dbh->do( q|update language_descriptions set description = 'Nederlands' where lang = 'nl' and subtag = 'nl'|);
4023     $dbh->do( q|update language_descriptions set description = 'Dansk' where lang = 'da' and subtag = 'da'|);
4024     print "Upgrade to $DBversion done (Correct language descriptions)\n";
4025     SetVersion ($DBversion);
4026 }
4027
4028 $DBversion = '3.03.00.019';
4029 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.003")) {
4030     # Fix bokmål
4031     $dbh->do("UPDATE language_subtag_registry SET description = 'Norwegian bokm&#229;l' WHERE subtag = 'nb';");
4032     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nb','nob');");
4033     $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokm&#229;l' WHERE subtag = 'nb' AND lang = 'nb';");
4034     $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokm&#229;l' WHERE subtag = 'nb' AND lang = 'en';");
4035     $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokm&#229;l' WHERE subtag = 'nb' AND lang = 'fr';");
4036     # Add nynorsk
4037     $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'nn', 'language', 'Norwegian nynorsk','2011-02-14' )");
4038     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nn','nno')");
4039     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nb', 'Norsk nynorsk')");
4040     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nn', 'Norsk nynorsk')");
4041     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'en', 'Norwegian nynorsk')");
4042     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'fr', 'Norvégien nynorsk')");
4043     print "Upgrade to $DBversion done (Correct language descriptions for Norwegian)\n";
4044     SetVersion ($DBversion);
4045 }
4046
4047 $DBversion = '3.03.00.020';
4048 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4049     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowFineOverride','0','If on, staff will be able to issue books to patrons with fines greater than noissuescharge.','0','YesNo')");
4050     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllFinesNeedOverride','1','If on, staff will be asked to override every fine, even if it is below noissuescharge.','0','YesNo')");
4051     print "Upgrade to $DBversion done (Bug 5811: Add sysprefs controlling overriding fines)\n";
4052     SetVersion($DBversion);
4053 };
4054
4055 $DBversion = '3.03.00.021';
4056 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.001")) {
4057     $dbh->do("ALTER TABLE items MODIFY enumchron TEXT");
4058     $dbh->do("ALTER TABLE deleteditems MODIFY enumchron TEXT");
4059     print "Upgrade to $DBversion done (bug 5642: longer serial enumeration)\n";
4060     SetVersion ($DBversion);
4061 }
4062
4063 $DBversion = '3.03.00.022';
4064 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4065     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AuthoritiesLog','0','If ON, log edit/create/delete actions on authorities.','','YesNo');");
4066     print "Upgrade to $DBversion done (Add AuthoritiesLog syspref)\n";
4067     SetVersion ($DBversion);
4068 }
4069
4070 # due to a mismatch in kohastructure.sql some koha will have missing columns in aqbasketgroup
4071 # this attempts to fix that
4072 $DBversion = '3.03.00.023';
4073 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.002")) {
4074     my $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'billingplace'");
4075     $sth->execute;
4076     $dbh->do("ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4077     $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliveryplace'");
4078     $sth->execute;
4079     $dbh->do("ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4080     $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliverycomment'");
4081     $sth->execute;
4082     $dbh->do("ALTER TABLE aqbasketgroups ADD deliverycomment VARCHAR(255)") if ! $sth->fetchrow_hashref;
4083     print "Upgrade to $DBversion done (Reconcile aqbasketgroups)\n";
4084     SetVersion ($DBversion);
4085 }
4086
4087 $DBversion = '3.03.00.024';
4088 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4089     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('TraceCompleteSubfields','0','Force subject tracings to only match complete subfields.','0','YesNo')");
4090     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('UseAuthoritiesForTracings','1','Use authority record numbers for subject tracings instead of heading strings.','0','YesNo')");
4091     print "Upgrade to $DBversion done (Add syspref to force whole-subfield matching on subject tracings)\n";
4092     SetVersion($DBversion);
4093 };
4094
4095 $DBversion = "3.03.00.025";
4096 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4097     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAllowUserToChooseBranch', 1, 'Allow the user to choose the branch they want to pickup their hold from','1','YesNo')");
4098     print "Upgrade to $DBversion done (Add syspref to control if user can choose pickup branch for holds)\n";
4099     SetVersion ($DBversion);
4100 }
4101
4102 $DBversion = '3.03.00.026';
4103 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.003")) {
4104     $dbh->do("UPDATE `message_attributes` SET message_name='Item Due' WHERE message_attribute_id=1 AND message_name LIKE 'Item DUE'");
4105         print "Upgrade to $DBversion done ( fix capitalization in message type )\n";
4106     SetVersion ($DBversion);
4107 }
4108
4109 $DBversion = '3.03.00.027';
4110 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4111     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('displayFacetCount', '0', NULL, NULL, 'YesNo')");
4112     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('maxRecordsForFacets', '20', NULL, NULL, 'Integer')");
4113     print "Upgrade to $DBversion done (Preferences for facet count)\n";
4114     SetVersion ($DBversion);
4115 }
4116
4117 $DBversion = "3.03.00.028";
4118 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4119     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('FacetLabelTruncationLength', 20, 'Truncate facets length to','','free')");
4120     print "Upgrade to $DBversion done (Add FacetLabelTruncationLength syspref to control facets displayed length)\n";
4121     SetVersion ($DBversion);
4122 }
4123
4124 $DBversion = "3.03.00.029";
4125 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4126     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowPurchaseSuggestionBranchChoice', 0, 'Allow user to choose branch when making a purchase suggestion','1','YesNo')");
4127     print "Upgrade to $DBversion done (Add syspref to control if user can choose branch when making purchase suggestion)\n";
4128     SetVersion ($DBversion);
4129 }
4130
4131 $DBversion = "3.03.00.030";
4132 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4133     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacFavicon','','Enter a complete URL to an image to replace the default Koha favicon on the OPAC','','free')");
4134     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetFavicon','','Enter a complete URL to an image to replace the default Koha favicon on the Staff client','','free')");
4135     print "Upgrade to $DBversion done (Add sysprefs to control custom favicons)\n";
4136     SetVersion ($DBversion);
4137 }
4138
4139 $DBversion = "3.03.00.031";
4140 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4141     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('FineNotifyAtCheckin',0,'If ON notify librarians of overdue fines on the items they are checking in.',NULL,'YesNo');");
4142     print "Upgrade to $DBversion done (Add syspref FineNotifyAtCheckin)\n";
4143     SetVersion ($DBversion);
4144 }
4145
4146 $DBversion = '3.03.00.032';
4147 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4148     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('TraceSubjectSubdivisions', 1, 'Create searches on all subdivisions for subject tracings.','1','YesNo')");
4149     print "Upgrade to $DBversion done ( include subdivisions when generating subject tracing searches )\n";
4150 }
4151
4152
4153 $DBversion = '3.03.00.033';
4154 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4155     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaffAuthorisedValueImages', '1', '', NULL, 'YesNo')");
4156     print "Upgrade to $DBversion done (System pref StaffAuthorisedValueImages)\n";
4157     SetVersion ($DBversion);
4158 }
4159
4160 $DBversion = '3.03.00.034';
4161 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4162     $dbh->do("ALTER TABLE `categories` ADD `hidelostitems` tinyint(1) NOT NULL default '0' AFTER `reservefee`");
4163     print "Upgrade to $DBversion done (Add hidelostitems preference to borrower categories)\n";
4164     SetVersion ($DBversion);
4165 }
4166
4167 $DBversion = '3.03.00.035';
4168 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4169     $dbh->do("ALTER TABLE `issuingrules` ADD hardduedate date default NULL AFTER issuelength");
4170     $dbh->do("ALTER TABLE `issuingrules` ADD hardduedatecompare tinyint NOT NULL default 0 AFTER hardduedate");
4171     my $duedate;
4172     if (C4::Context->preference("globalDueDate")) {
4173       $duedate = C4::Dates::format_date_in_iso(C4::Context->preference("globalDueDate"));
4174       $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = 0");
4175     } elsif (C4::Context->preference("ceilingDueDate")) {
4176       $duedate = C4::Dates::format_date_in_iso(C4::Context->preference("ceilingDueDate"));
4177       $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = -1");
4178     }
4179     $dbh->do("DELETE FROM `systempreferences` WHERE variable = 'globalDueDate' OR variable = 'ceilingDueDate'");
4180     print "Upgrade to $DBversion done (Move global and ceiling due dates to Circ Rules level)\n";
4181     SetVersion ($DBversion);
4182 }
4183
4184 $DBversion = '3.03.00.036';
4185 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4186     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('COinSinOPACResults', 1, 'If ON, use COinS in OPAC search results page.  NOTE: this can slow down search response time significantly','','YesNo')");
4187     print "Upgrade to $DBversion done ( Make COinS optional in OPAC search results )\n";
4188     SetVersion ($DBversion);
4189 }
4190
4191 $DBversion = '3.03.00.037';
4192 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4193     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACDisplay856uAsImage','OFF','Display the URI in the 856u field as an image, the corresponding OPACXSLT option must be on','OFF|Details|Results|Both','Choice')");
4194     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('Display856uAsImage','OFF','Display the URI in the 856u field as an image, the corresponding Staff Client XSLT option must be on','OFF|Details|Results|Both','Choice')");
4195     print "Upgrade to $DBversion done (Add 'Display856uAsImage' and 'OPACDisplay856uAsImage' syspref)\n";
4196     SetVersion ($DBversion);
4197 }
4198
4199 $DBversion = '3.03.00.038';
4200 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4201     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('SelfCheckTimeout',120,'Define the number of seconds before the Web-based Self Checkout times out a patron','','Integer')");
4202     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowSelfCheckReturns',0,'If enabled, patrons may return items through the Web-based Self Checkout','','YesNo')");
4203     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('SelfCheckHelpMessage','','Enter HTML to include under the basic Web-based Self Checkout instructions on the Help page','70|10','Textarea')");
4204     print "Upgrade to $DBversion done ( Add Self-checkout by Login system preferences )\n";
4205 }
4206
4207 $DBversion = "3.03.00.039";
4208 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4209     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ShowReviewer',1,'If ON, name of reviewer will be shown above comments in OPAC',NULL,'YesNo');");
4210     print "Upgrade to $DBversion done (Add syspref ShowReviewer)\n";
4211 }
4212
4213 $DBversion = "3.03.00.040";
4214 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4215     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseControlNumber',0,'If ON, record control number (w subfields) and control number (001) are used for linking of bibliographic records.','','YesNo');");
4216     print "Upgrade to $DBversion done (Add syspref UseControlNumber)\n";
4217 }
4218
4219 $DBversion = "3.03.00.041";
4220 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4221     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AlternateHoldingsField','','The MARC field/subfield that contains alternate holdings information for bibs taht do not have items attached (e.g. 852abchi for libraries converting from MARC Magician).',NULL,'free')");
4222     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AlternateHoldingsSeparator','','The string to use to separate subfields in alternate holdings displays.',NULL,'free')");
4223     print "Upgrade to $DBversion done (Add sysprefs to control alternate holdings information display)\n";
4224     SetVersion ($DBversion);
4225 }
4226
4227 $DBversion = '3.03.00.042';
4228 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4229     stocknumber_checker();
4230     print "Upgrade to $DBversion done (5860 Index itemstocknumber)\n";
4231     SetVersion ($DBversion);
4232 }
4233
4234 sub stocknumber_checker { #code reused later on
4235   my @row;
4236   #drop the obsolete itemSStocknumber idx if it exists
4237   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemsstocknumberidx'");
4238   $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;") if @row;
4239
4240   #check itemstocknumber idx; remove it if it is unique
4241   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx' AND non_unique=0");
4242   $dbh->do("ALTER TABLE `items` DROP INDEX `itemstocknumberidx`;") if @row;
4243
4244   #add itemstocknumber index non-unique IF it still not exists
4245   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx'");
4246   $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);") unless @row;
4247 }
4248
4249 $DBversion = "3.03.00.043";
4250 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4251
4252     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','0','No','No')");
4253     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','1','Yes','Yes')");
4254
4255         print "Upgrade to $DBversion done ( add generic boolean YES_NO authorised_values pair )\n";
4256         SetVersion ($DBversion);
4257 }
4258
4259 $DBversion = '3.03.00.044';
4260 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4261     $dbh->do("ALTER TABLE `aqbasketgroups` ADD `freedeliveryplace` TEXT NULL AFTER `deliveryplace`;");
4262     print "Upgrade to $DBversion done (adding freedeliveryplace to basketgroups)\n";
4263 }
4264
4265 $DBversion = '3.03.00.045';
4266 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4267     #Remove obsolete columns from aqbooksellers if needed
4268     my $a = $dbh->selectall_hashref('SHOW columns from aqbooksellers','Field');
4269     my $sqldrop="ALTER TABLE aqbooksellers DROP COLUMN ";
4270     foreach(qw/deliverydays followupdays followupscancel invoicedisc nocalc specialty/) {
4271       $dbh->do($sqldrop.$_) if exists $a->{$_};
4272     }
4273     #Remove obsolete column from aqbudgets if needed
4274     #The correct column is budget_notes
4275     $a = $dbh->selectall_hashref('SHOW columns from aqbudgets','Field');
4276     if(exists $a->{budget_description}) {
4277       $dbh->do("ALTER TABLE aqbudgets DROP COLUMN budget_description");
4278     }
4279     print "Upgrade to $DBversion done (Remove obsolete columns from aqbooksellers and aqbudgets if needed)\n";
4280     SetVersion ($DBversion);
4281 }
4282
4283 $DBversion = "3.03.00.046";
4284 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4285     $dbh->do("ALTER TABLE overduerules ALTER delay1 SET DEFAULT NULL, ALTER delay2 SET DEFAULT NULL, ALTER delay3 SET DEFAULT NULL");
4286     print "Upgrade to $DBversion done (Setting NULL default value for delayn columns in table overduerules)\n";
4287     SetVersion($DBversion);
4288 }
4289
4290 $DBversion = '3.03.00.047';
4291 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4292     $dbh->do("ALTER TABLE borrowers ADD `state` mediumtext AFTER city;");
4293     $dbh->do("ALTER TABLE borrowers ADD `B_state` mediumtext AFTER B_city;");
4294     $dbh->do("ALTER TABLE borrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4295     $dbh->do("ALTER TABLE deletedborrowers ADD `state` mediumtext AFTER city;");
4296     $dbh->do("ALTER TABLE deletedborrowers ADD `B_state` mediumtext AFTER B_city;");
4297     $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4298     print "Upgrade to $DBversion done (Add state field to patron's addresses)\n";
4299 }
4300
4301 $DBversion = '3.03.00.048';
4302 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4303     $dbh->do("ALTER TABLE branches ADD `branchstate` mediumtext AFTER `branchcity`;");
4304     print "Upgrade to $DBversion done (Add state to branch address)\n";
4305     SetVersion ($DBversion);
4306 }
4307
4308 $DBversion = '3.03.00.049';
4309 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4310     $dbh->do("ALTER TABLE `accountlines` ADD `note` text NULL default NULL");
4311     $dbh->do("ALTER TABLE `accountlines` ADD `manager_id` int( 11 ) NULL ");
4312     print "Upgrade to $DBversion done (adding note and manager_id fields in accountlines table)\n";
4313     SetVersion($DBversion);
4314 }
4315
4316 $DBversion = "3.03.00.050";
4317 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4318     $dbh->do("
4319         INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacHiddenItems','','This syspref allows to define custom rules for hiding specific items at opac. See docs/opac/OpacHiddenItems.txt for more informations.','','Textarea');
4320         ");
4321     print "Upgrade to $DBversion done (Adding OpacHiddenItems syspref)\n";
4322     SetVersion($DBversion);
4323 }
4324
4325 $DBversion = "3.03.00.051";
4326 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4327     print "Upgrade to $DBversion done (Remove spaces and dashes from message_attribute names)\n";
4328     $dbh->do("UPDATE message_attributes SET message_name = 'Item_Due' WHERE message_name='Item Due'");
4329     $dbh->do("UPDATE message_attributes SET message_name = 'Advance_Notice' WHERE message_name='Advance Notice'");
4330     $dbh->do("UPDATE message_attributes SET message_name = 'Hold_Filled' WHERE message_name='Hold Filled'");
4331     $dbh->do("UPDATE message_attributes SET message_name = 'Item_Check_in' WHERE message_name='Item Check-in'");
4332     $dbh->do("UPDATE message_attributes SET message_name = 'Item_Checkout' WHERE message_name='Item Checkout'");
4333     SetVersion ($DBversion);
4334 }
4335
4336 $DBversion = "3.03.00.052";
4337 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4338     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('WaitingNotifyAtCheckin',0,'If ON, notify librarians of waiting holds for the patron whose items they are checking in.',NULL,'YesNo');");
4339     print "Upgrade to $DBversion done (Add syspref WaitingNotifyAtCheckin)\n";
4340     SetVersion ($DBversion);
4341 }
4342
4343 $DBversion = "3.04.00.000";
4344 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4345     print "Upgrade to $DBversion done Koha 3.4.0 release \n";
4346     SetVersion ($DBversion);
4347 }
4348
4349 $DBversion = "3.05.00.001";
4350 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4351     $dbh->do(qq{
4352     INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('numSearchRSSResults',50,'Specify the maximum number of results to display on a RSS page of results',NULL,'Integer');
4353     });
4354     print "Upgrade to $DBversion done (Adds New System preference numSearchRSSResults)\n";
4355     SetVersion($DBversion);
4356 }
4357
4358 $DBversion = '3.05.00.002';
4359 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4360     #follow up fix 5860: some installs already past 3.3.0.42
4361     stocknumber_checker();
4362     print "Upgrade to $DBversion done (Fix for stocknumber index)\n";
4363     SetVersion ($DBversion);
4364 }
4365
4366 $DBversion = "3.05.00.003";
4367 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4368     $dbh->do(qq{
4369     INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacRenewalBranch','checkoutbranch','Choose how the branch for an OPAC renewal is recorded in statistics','itemhomebranch|patronhomebranch|checkoutbranch|null','Choice');
4370     });
4371     print "Upgrade to $DBversion done (Adds New System preference OpacRenewalBranch)\n";
4372     SetVersion($DBversion);
4373 }
4374
4375 $DBversion = "3.05.00.004";
4376 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4377     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ShowReviewerPhoto',1,'If ON, photo of reviewer will be shown beside comments in OPAC',NULL,'YesNo');");
4378     print "Upgrade to $DBversion done (Add syspref ShowReviewerPhoto)\n";
4379     SetVersion($DBversion);
4380 }
4381
4382 $DBversion = "3.05.00.005";
4383 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4384     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('BasketConfirmations', '1', 'When closing or reopening a basket,', 'always ask for confirmation.|do not ask for confirmation.', 'Choice');");
4385     print "Upgrade to $DBversion done (Adds pref BasketConfirmations)\n";
4386     SetVersion($DBversion);
4387 }
4388
4389 $DBversion = "3.05.00.006";
4390 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4391     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('MARCAuthorityControlField008', '|| aca||aabn           | a|a     d', NULL, NULL, 'Textarea')");
4392     print "Upgrade to $DBversion done (Add syspref MARCAuthorityControlField008)\n";
4393     SetVersion ($DBversion);
4394 }
4395
4396 $DBversion = "3.05.00.007";
4397 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4398     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpenLibraryCovers',0,'If ON Openlibrary book covers will be show',NULL,'YesNo');");
4399     print "Upgrade to $DBversion done (Add syspref OpenLibraryCovers)\n";
4400     SetVersion($DBversion);
4401 }
4402
4403 $DBversion = "3.05.00.008";
4404 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4405     $dbh->do("ALTER TABLE `cities` ADD `city_state` VARCHAR( 100 ) NULL DEFAULT NULL AFTER  `city_name`;");
4406     $dbh->do("ALTER TABLE `cities` ADD `city_country` VARCHAR( 100 ) NULL DEFAULT NULL AFTER  `city_zipcode`;");
4407     print "Add state and country to cities table corresponding to new columns in borrowers\n";
4408     SetVersion($DBversion);
4409 }
4410
4411 $DBversion = "3.05.00.009";
4412 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4413     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4414               SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE borrowernumber IS NULL");
4415     $dbh->do("DELETE FROM issues WHERE borrowernumber IS NULL");
4416
4417     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4418               SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE itemnumber IS NULL");
4419     $dbh->do("DELETE FROM issues WHERE itemnumber IS NULL");
4420
4421     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4422               SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowernumber = issues.borrowernumber)");
4423     $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowernumber = issues.borrowernumber)");
4424
4425     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4426               SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE NOT EXISTS (SELECT * FROM items WHERE itemnumber = issues.itemnumber)");
4427     $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM items WHERE itemnumber = issues.itemnumber)");
4428
4429     $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_1`");
4430     $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_2`");
4431     $dbh->do("ALTER TABLE issues ALTER COLUMN borrowernumber DROP DEFAULT");
4432     $dbh->do("ALTER TABLE issues ALTER COLUMN itemnumber DROP DEFAULT");
4433     $dbh->do("ALTER TABLE issues MODIFY COLUMN borrowernumber int(11) NOT NULL");
4434     $dbh->do("ALTER TABLE issues MODIFY COLUMN itemnumber int(11) NOT NULL");
4435     $dbh->do("ALTER TABLE issues DROP KEY `issuesitemidx`");
4436     $dbh->do("ALTER TABLE issues ADD PRIMARY KEY (`itemnumber`)");
4437     $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4438     $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4439
4440     print "Upgrade to $DBversion done (issues referential integrity)\n";
4441     SetVersion ($DBversion);
4442 }
4443
4444 $DBversion = "3.05.00.010";
4445 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4446     $dbh->do("CREATE INDEX priorityfoundidx ON reserves (priority,found)");
4447     print "Create an index on reserves to speed up holds awaiting pickup report bug 5866\n";
4448     SetVersion($DBversion);
4449 }
4450
4451
4452 $DBversion = "3.05.00.011";
4453 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4454     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACResultsSidebar','','Define HTML to be included on the search results page, underneath the facets sidebar','70|10','Textarea')");
4455     print "Upgrade to $DBversion done (add OPACResultsSidebar syspref (enh 6165))\n";
4456     SetVersion($DBversion);
4457 }
4458
4459 $DBversion = "3.05.00.012";
4460 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4461     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('RecordLocalUseOnReturn',0,'If ON, statistically record returns of unissued items as local use, instead of return',NULL,'YesNo')");
4462     print "Upgrade to $DBversion done (add RecordLocalUseOnReturn syspref (enh 6403))\n";
4463     SetVersion($DBversion);
4464 }
4465
4466 $DBversion = "3.05.00.013";
4467 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4468     $dbh->do(qq|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OpacKohaUrl','0',"Show 'Powered by Koha' text on OPAC footer.",NULL,NULL)|);
4469     print "Upgrade to $DBversion done (Add syspref 'OpacKohaUrl')\n";
4470     SetVersion($DBversion);
4471 }
4472
4473 $DBversion = "3.05.00.014";
4474 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4475     $dbh->do("ALTER TABLE `borrowers` MODIFY `userid` VARCHAR(75)");
4476     print "Modified userid column length into 75 in borrowers\n";
4477     SetVersion($DBversion);
4478 }
4479
4480 $DBversion = "3.05.00.015";
4481 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4482     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectEnabled',0,'Enable Novelist Select content.  Requires Novelist Profile and Password',NULL,'YesNo')");
4483     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectProfile',NULL,'Novelist Select user Password',NULL,'free')");
4484     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectPassword',NULL,'Enable Novelist user Profile',NULL,'free')");
4485     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectView','tab','Where to display Novelist Select content','tab|above|below|right','Choice')");
4486     print "Upgrade to $DBversion done (Add support for EBSCO's NoveList Select (enh 6902))\n";
4487     SetVersion($DBversion);
4488 }
4489
4490 $DBversion = '3.05.00.016';
4491 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4492     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('EasyAnalyticalRecords','0','If on, display in the catalogue screens tools to easily setup analytical record relationships','','YesNo');");
4493     print "Upgrade to $DBversion done (Add EasyAnalyticalRecords syspref)\n";
4494     SetVersion ($DBversion);
4495 }
4496
4497 $DBversion = '3.05.00.017';
4498 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4499     if (C4::Context->preference("marcflavour") eq 'MARC21' ||
4500         C4::Context->preference("marcflavour") eq 'NORMARC'){
4501         $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('773', '0', 'Host Biblionumber', 'Host Biblionumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4502         $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('773', '9', 'Host Itemnumber', 'Host Itemnumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4503         print "Upgrade to $DBversion done (Add 773 subfield 9 and 0 to default framework)\n";
4504         SetVersion ($DBversion);
4505     } elsif (C4::Context->preference("marcflavour") eq 'UNIMARC'){
4506         $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('461', '9', 'Host Itemnumber', 'Host Itemnumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4507         print "Upgrade to $DBversion done (Add 461 subfield 9 to default framework)\n";
4508         SetVersion ($DBversion);
4509     }
4510 }
4511
4512 $DBversion = "3.05.00.018";
4513 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4514     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacNavBottom','','Links after OpacNav links','70|10','Textarea')");
4515     print "Upgrade to $DBversion done (add OpacNavBottom syspref (enh 6825): if appropriate, you can split OpacNav into OpacNav and OpacNavBottom)\n";
4516     SetVersion($DBversion);
4517 }
4518
4519 $DBversion = "3.05.00.019";
4520 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4521     $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4522     $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4523     $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4524     $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4525     print "Upgrade to $DBversion done (remove duplicate VOKAL Book icons, bug 6862)\n";
4526     SetVersion($DBversion);
4527 }
4528
4529 $DBversion = "3.05.00.020";
4530 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4531     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('AcqViewBaskets','user','user|branch|all','Define which baskets a user is allowed to view: his own only, any within his branch or all','Choice')");
4532     print "Upgrade to $DBversion done (Add syspref AcqViewBaskets)\n";
4533     SetVersion($DBversion);
4534 }
4535
4536 $DBversion = "3.05.00.021";
4537 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4538     $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN display_checkout TINYINT(1) NOT NULL DEFAULT '0';");
4539     print "Upgrade to $DBversion done (Added a display_checkout field in borrower_attribute_types table)\n";
4540     SetVersion($DBversion);
4541 }
4542
4543 $DBversion = "3.05.00.022";
4544 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4545     $dbh->do("CREATE TABLE need_merge_authorities (id int NOT NULL auto_increment PRIMARY KEY, authid bigint NOT NULL, done tinyint DEFAULT 0) ENGINE=InnoDB DEFAULT CHARSET=utf8");
4546     print "Upgrade to $DBversion done (6094: Fixing ModAuthority problems, add a need_merge_authorities table)\n";
4547     SetVersion($DBversion);
4548 }
4549
4550 $DBversion = "3.05.00.023";
4551 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4552     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowRecentComments',0,'If ON a link to recent comments will appear in the OPAC masthead',NULL,'YesNo');");
4553     print "Upgrade to $DBversion done (Add syspref OpacShowRecentComments. When the preference is turned on a link to recent comments will appear in the OPAC masthead. )\n";
4554     SetVersion($DBversion);
4555 }
4556
4557 $DBversion = "3.06.00.000";
4558 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4559     print "Upgrade to $DBversion done Koha 3.6.0 release \n";
4560     SetVersion ($DBversion);
4561 }
4562
4563 $DBversion = "3.07.00.001";
4564 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4565     my $borrowers = $dbh->selectcol_arrayref( "SELECT borrowernumber from borrowers where debarred =1;", { Columns => [1] } );
4566     $dbh->do("ALTER TABLE borrowers MODIFY debarred DATE DEFAULT NULL;");
4567     $dbh->do( "UPDATE borrowers set debarred='9999-12-31' where borrowernumber IN (" . join( ",", @$borrowers ) . ");" ) if ($borrowers and scalar(@$borrowers)>0);
4568     $dbh->do("ALTER TABLE borrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4569     $dbh->do("ALTER TABLE deletedborrowers MODIFY debarred DATE DEFAULT NULL;");
4570     $dbh->do("ALTER TABLE deletedborrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4571     print "Upgrade done (Change borrowers.debarred into Date )\n";
4572     SetVersion($DBversion);
4573 }
4574
4575 $DBversion = "3.07.00.002";
4576 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4577     $dbh->do("UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00';");
4578     print "Setting NULL to debarred where 0000-00-00 is stored (bug 7272)\n";
4579     SetVersion($DBversion);
4580 }
4581
4582 $DBversion = "3.07.00.003";
4583 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4584     $dbh->do(" UPDATE `message_attributes` SET message_name='Item_Due' WHERE message_name='Item_DUE'");
4585     print "Updating message_name in message_attributes\n";
4586     SetVersion($DBversion);
4587 }
4588
4589 $DBversion = "3.07.00.004";
4590 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4591     $dbh->do("ALTER TABLE  `suggestions` ADD  `patronreason` TEXT NULL AFTER  `reason`");
4592     print "Upgrade to $DBversion done (Add column to suggestions table to store patrons' reasons for submitting a suggestion. )\n";
4593     SetVersion($DBversion);
4594 }
4595
4596 $DBversion = "3.07.00.005";
4597 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4598     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('BorrowerUnwantedField','','Name the fields you don''t need to store for a patron''s account',NULL,'free')");
4599     print "Upgrade to $DBversion done (BorrowerUnwantedField syspref)\n";
4600     SetVersion ($DBversion);
4601 }
4602
4603 $DBversion = "3.07.00.006";
4604 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4605     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('CircAutoPrintQuickSlip', '1', 'Choose what should happen when an empty barcode field is submitted in circulation: Display a print quick slip window or Clear the screen.',NULL,'YesNo');");
4606     print "Upgrade to $DBversion done (Add syspref CircAutoPrintQuickSlip to control what should happen when an empty barcode field is submitted in circulation: Display a print quick slip window (default value, 3.6 behaviour) or clear the screen (previous 3.6 behaviour). )\n";
4607     SetVersion($DBversion);
4608 }
4609
4610 $DBversion = "3.07.00.007";
4611 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4612     $dbh->do("ALTER TABLE items MODIFY materials text;");
4613     print "Upgrade to $DBversion done alter items.material from varchar(10) to text \n";
4614     SetVersion($DBversion);
4615 }
4616
4617 $DBversion = '3.07.00.008';
4618 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4619     if (C4::Context->preference("marcflavour") eq 'MARC21') {
4620         if (C4::Context->preference("opaclanguages") eq "de") {
4621             $dbh->do("INSERT INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES ('545', 'Fußnote zu biografischen oder historischen Daten', 'Fußnote zu biografischen oder historischen Daten', 1, 0, NULL, '');");
4622         } else {
4623             $dbh->do("INSERT INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES ('545', 'BIOGRAPHICAL OR HISTORICAL DATA', 'BIOGRAPHICAL OR HISTORICAL DATA', 1, 0, NULL, '');");
4624         }
4625     }
4626     print "Upgrade to $DBversion done (add MARC21 field 545 to framework)\n";
4627     SetVersion ($DBversion);
4628 }
4629
4630 $DBversion = "3.07.00.009";
4631 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4632     $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `claims_count` INT(11)  DEFAULT 0, ADD COLUMN `claimed_date` DATE  DEFAULT NULL AFTER `claims_count`");
4633     print "Upgrade to $DBversion done (Add claims_count and claimed_date fields in aqorders table)\n";
4634     SetVersion($DBversion);
4635 }
4636
4637 $DBversion = "3.07.00.010";
4638 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4639     $dbh->do(
4640         q|CREATE TABLE `biblioimages` (
4641           `imagenumber` int(11) NOT NULL AUTO_INCREMENT,
4642           `biblionumber` int(11) NOT NULL,
4643           `mimetype` varchar(15) NOT NULL,
4644           `imagefile` mediumblob NOT NULL,
4645           `thumbnail` mediumblob NOT NULL,
4646           PRIMARY KEY (`imagenumber`),
4647           CONSTRAINT `bibliocoverimage_fk1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
4648           ) ENGINE=InnoDB DEFAULT CHARSET=utf8|
4649     );
4650     $dbh->do(
4651         q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACLocalCoverImages','0','Display local cover images on OPAC search and details pages.','1','YesNo')|
4652         );
4653     $dbh->do(
4654         q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('LocalCoverImages','0','Display local cover images on intranet search and details pages.','1','YesNo')|
4655         );
4656     $dbh->do(
4657         q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowMultipleCovers','0','Allow multiple cover images to be attached to each bibliographic record.','1','YesNo')|
4658     );
4659     $dbh->do(
4660         q|INSERT INTO permissions (module_bit, code, description) VALUES (13, 'upload_local_cover_images', 'Upload local cover images')|
4661     );
4662     print "Upgrade to $DBversion done (Added support for local cover images)\n";
4663     SetVersion($DBversion);
4664 }
4665
4666 $DBversion = "3.07.00.011";
4667 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4668     $dbh->do(<<ENDOFRENEWAL);
4669     INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('BorrowerRenewalPeriodBase', 'now', 'Set whether the borrower renewal date should be counted from the dateexpiry or from the current date ','dateexpiry|now','Choice');
4670 ENDOFRENEWAL
4671     print "Upgrade to $DBversion done (Added a system preference to allow renewal of Patron account either from todays date or from existing expiry date in the patrons account.)\n";
4672     SetVersion($DBversion);
4673 }
4674
4675 $DBversion = "3.07.00.012";
4676 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4677     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowItemsOnHoldCheckout',0,'Do not generate RESERVE_WAITING and RESERVED warning when checking out items reserved to someone else. This allows self checkouts for those items.','','YesNo')");
4678     print "Upgrade to $DBversion add 'AllowItemsOnHoldCheckout' syspref \n";
4679     SetVersion ($DBversion);
4680 }
4681
4682 $DBversion = "3.07.00.013";
4683 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4684     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacExportOptions','bibtex|dc|marcxml|marc8|utf8|marcstd|mods|ris','Define available export options on OPAC detail page.','','free');");
4685     print "Upgrade to $DBversion done (Bug 7345: Add system preference OpacExportOptions.)\n";
4686     SetVersion ($DBversion);
4687 }
4688
4689 $DBversion = "3.07.00.014";
4690 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4691     print "RELTERMS category available for English-, French-, and Spanish-language relator terms. They are not loaded during upgrade but can be easily inserted using the provided marc21_relatorterms.sql SQL script (MARC21 only, and currently available for en, es, and fr only).\n";
4692     SetVersion($DBversion);
4693 }
4694
4695 $DBversion = "3.07.00.015";
4696 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4697     my $sth = $dbh->prepare(q|
4698         SELECT COUNT(*) FROM marc_subfield_structure where kohafield="biblioitems.editionstatement"
4699         |);
4700     $sth->execute;
4701     my $already_exists = $sth->fetchrow;
4702     if ( not $already_exists ) {
4703         my $field = C4::Context->preference("marcflavour") eq "UNIMARC" ? "205" : "250";
4704         my $subfield = "a";
4705         my $sth = $dbh->prepare( q|
4706             UPDATE marc_subfield_structure SET kohafield = "biblioitems.editionstatement"
4707             WHERE tagfield = ? AND tagsubfield = ?
4708         |);
4709         $sth->execute( $field, $subfield );
4710         print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement.)\n";
4711     } else {
4712         print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement (already exists, nothing to do).)\n";
4713     }
4714     SetVersion($DBversion);
4715 }
4716
4717 $DBversion = "3.07.00.016";
4718 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4719     $dbh->do("ALTER TABLE items ADD KEY `itemcallnumber` (itemcallnumber)");
4720     print "Upgrade to $DBversion done (Added index on items.itemcallnumber)\n";
4721     SetVersion($DBversion);
4722 }
4723
4724 $DBversion = "3.07.00.017";
4725 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4726     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('TransferWhenCancelAllWaitingHolds','0','Transfer items when cancelling all waiting holds',NULL,'YesNo')");
4727     print "Upgrade to $DBversion done (Add sysprefs to control transfer when cancel all waiting holds)\n";
4728     SetVersion ($DBversion);
4729 }
4730
4731 $DBversion = "3.07.00.018";
4732 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4733     $dbh->do("CREATE TABLE pending_offline_operations ( operationid int(11) NOT NULL AUTO_INCREMENT, userid varchar(30) NOT NULL, branchcode varchar(10) NOT NULL, timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP, action varchar(10) NOT NULL, barcode varchar(20) NOT NULL, cardnumber varchar(16) DEFAULT NULL, PRIMARY KEY (operationid) ) ENGINE=MyISAM DEFAULT CHARSET=utf8;");
4734     print "Upgrade to $DBversion done ( adding offline operations table )\n";
4735     SetVersion($DBversion);
4736 }
4737
4738 $DBversion = "3.07.00.019";
4739 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4740     $dbh->do(" UPDATE `systempreferences` SET  `value` =  'none', `options` =  'none|full|first|surname|firstandinitial|username', `explanation` =  'Choose how a commenter''s identity is presented alongside comments in the OPAC', `type` =  'Choice' WHERE  `systempreferences`.`variable` =  'ShowReviewer' AND `systempreferences`.`variable` = 0");
4741     $dbh->do(" UPDATE `systempreferences` SET  `value` =  'full', `options` =  'none|full|first|surname|firstandinitial|username', `explanation` =  'Choose how a commenter''s identity is presented alongside comments in the OPAC', `type` =  'Choice' WHERE  `systempreferences`.`variable` =  'ShowReviewer' AND `systempreferences`.`variable` = 1");
4742     print "Upgrade to $DBversion done ( Adding additional options for the display of commenter's identity in the OPAC: Full name, first name, last name, first name and last name first initial, username, or no information)\n";
4743     SetVersion($DBversion);
4744 }
4745
4746 $DBversion = "3.07.00.020";
4747 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4748     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACpatronimages',0,'Enable patron images in the OPAC',NULL,'YesNo');");
4749     print "Upgrade to $DBversion done (Bug 3516: Add the option to show patron images in the OPAC.)\n";
4750     SetVersion($DBversion);
4751 }
4752
4753 $DBversion = "3.07.00.021";
4754 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4755     $dbh->do(
4756     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerModule','Default','Chooses which linker module to use (see documentation).','Default|FirstMatchLastMatch','Choice');"
4757     );
4758     $dbh->do(
4759     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerOptions','','A pipe-separated list of options for the linker.','','free');"
4760     );
4761     $dbh->do(
4762     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerRelink',1,'If ON the authority linker will relink headings that have previously been linked every time it runs.',NULL,'YesNo');"
4763     );
4764     $dbh->do(
4765     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerKeepStale',0,'If ON the authority linker will keep existing authority links for headings where it is unable to find a match.',NULL,'YesNo');"
4766     );
4767     $dbh->do(
4768     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AutoCreateAuthorities',0,'Automatically create authorities that do not exist when cataloging records.',NULL,'YesNo');"
4769     );
4770     $dbh->do(
4771     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('CatalogModuleRelink',0,'If OFF the linker will never replace the authids that are set in the cataloging module.',NULL,'YesNo');"
4772     );
4773     print "Upgrade to $DBversion done (Enhancement 7284, improved authority matching, see http://wiki.koha-community.org/wiki/Bug7284_authority_matching_improvement wiki page for configuration update needed)\n";
4774     SetVersion($DBversion);
4775 }
4776
4777 $DBversion = "3.07.00.022";
4778 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4779     $dbh->do("DELETE FROM reviews WHERE biblionumber NOT IN (SELECT biblionumber from biblio)");
4780     $dbh->do("UPDATE reviews SET borrowernumber = NULL WHERE borrowernumber NOT IN (SELECT borrowernumber FROM borrowers)");
4781     $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_2 FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
4782     $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber ) ON UPDATE CASCADE ON DELETE SET NULL");
4783     print "Upgrade to $DBversion done (Bug 7493 - Add constraint linking OPAC comment biblionumber to biblio, OPAC comment borrowernumber to borrowers.)\n";
4784     SetVersion($DBversion);
4785 }
4786
4787 $DBversion = "3.07.00.023";
4788 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4789     $dbh->do("ALTER TABLE `message_transports` DROP FOREIGN KEY `message_transports_ibfk_3`");
4790     $dbh->do("ALTER TABLE `letter` DROP PRIMARY KEY");
4791     $dbh->do("ALTER TABLE `letter` ADD `branchcode` varchar(10) default NULL AFTER `code`");
4792     $dbh->do("ALTER TABLE `letter` ADD PRIMARY KEY  (`module`,`code`, `branchcode`)");
4793     $dbh->do("ALTER TABLE `message_transports` ADD `branchcode` varchar(10) NOT NULL default ''");
4794     $dbh->do("ALTER TABLE `message_transports` ADD CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`, `branchcode`) REFERENCES `letter` (`module`, `code`, `branchcode`) ON DELETE CASCADE ON UPDATE CASCADE");
4795     $dbh->do("ALTER TABLE `letter` ADD `is_html` tinyint(1) default 0 AFTER `name`");
4796
4797     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4798               VALUES ('circulation','ISSUESLIP','Issue Slip','Issue Slip', '<h3><<branches.branchname>></h3>
4799 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4800 (<<borrowers.cardnumber>>) <br />
4801
4802 <<today>><br />
4803
4804 <h4>Checked Out</h4>
4805 <checkedout>
4806 <p>
4807 <<biblio.title>> <br />
4808 Barcode: <<items.barcode>><br />
4809 Date due: <<issues.date_due>><br />
4810 </p>
4811 </checkedout>
4812
4813 <h4>Overdues</h4>
4814 <overdue>
4815 <p>
4816 <<biblio.title>> <br />
4817 Barcode: <<items.barcode>><br />
4818 Date due: <<issues.date_due>><br />
4819 </p>
4820 </overdue>
4821
4822 <hr>
4823
4824 <h4 style=\"text-align: center; font-style:italic;\">News</h4>
4825 <news>
4826 <div class=\"newsitem\">
4827 <h5 style=\"margin-bottom: 1px; margin-top: 1px\"><b><<opac_news.title>></b></h5>
4828 <p style=\"margin-bottom: 1px; margin-top: 1px\"><<opac_news.new>></p>
4829 <p class=\"newsfooter\" style=\"font-size: 8pt; font-style:italic; margin-bottom: 1px; margin-top: 1px\">Posted on <<opac_news.timestamp>></p>
4830 <hr />
4831 </div>
4832 </news>', 1)");
4833     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4834               VALUES ('circulation','ISSUEQSLIP','Issue Quick Slip','Issue Quick Slip', '<h3><<branches.branchname>></h3>
4835 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4836 (<<borrowers.cardnumber>>) <br />
4837
4838 <<today>><br />
4839
4840 <h4>Checked Out Today</h4>
4841 <checkedout>
4842 <p>
4843 <<biblio.title>> <br />
4844 Barcode: <<items.barcode>><br />
4845 Date due: <<issues.date_due>><br />
4846 </p>
4847 </checkedout>', 1)");
4848     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4849               VALUES ('circulation','RESERVESLIP','Reserve Slip','Reserve Slip', '<h5>Date: <<today>></h5>
4850
4851 <h3> Transfer to/Hold in <<branches.branchname>></h3>
4852
4853 <h3><<borrowers.surname>>, <<borrowers.firstname>></h3>
4854
4855 <ul>
4856     <li><<borrowers.cardnumber>></li>
4857     <li><<borrowers.phone>></li>
4858     <li> <<borrowers.address>><br />
4859          <<borrowers.address2>><br />
4860          <<borrowers.city >>  <<borrowers.zipcode>>
4861     </li>
4862     <li><<borrowers.email>></li>
4863 </ul>
4864 <br />
4865 <h3>ITEM ON HOLD</h3>
4866 <h4><<biblio.title>></h4>
4867 <h5><<biblio.author>></h5>
4868 <ul>
4869    <li><<items.barcode>></li>
4870    <li><<items.itemcallnumber>></li>
4871    <li><<reserves.waitingdate>></li>
4872 </ul>
4873 <p>Notes:
4874 <pre><<reserves.reservenotes>></pre>
4875 </p>', 1)");
4876     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4877               VALUES ('circulation','TRANSFERSLIP','Transfer Slip','Transfer Slip', '<h5>Date: <<today>></h5>
4878 <h3>Transfer to <<branches.branchname>></h3>
4879
4880 <h3>ITEM</h3>
4881 <h4><<biblio.title>></h4>
4882 <h5><<biblio.author>></h5>
4883 <ul>
4884    <li><<items.barcode>></li>
4885    <li><<items.itemcallnumber>></li>
4886 </ul>', 1)");
4887
4888     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NoticeCSS','','Notices CSS url.',NULL,'free')");
4889     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('SlipCSS','','Slips CSS url.',NULL,'free')");
4890
4891     $dbh->do("UPDATE `letter` SET content = replace(content, '<<title>>', '<<biblio.title>>') WHERE code = 'HOLDPLACED'");
4892
4893     print "Upgrade to $DBversion done (Add branchcode and is_html to letter table; Default ISSUESLIP, RESERVESLIP and TRANSFERSLIP letters; Add NoticeCSS and SlipCSS sysprefs)\n";
4894     SetVersion($DBversion);
4895 }
4896
4897 $DBversion = "3.07.00.024";
4898 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4899     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesMaxPickUpDelayCharge', '0', NULL , 'If ExpireReservesMaxPickUpDelay is enabled, and this field has a non-zero value, than a borrower whose waiting hold has expired will be charged this amount.',  'free')");
4900     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesMaxPickUpDelay', '0', '', 'Enabling this allows holds to expire automatically if they have not been picked by within the time period specified in ReservesMaxPickUpDelay', 'YesNo')");
4901     print "Upgrade to $DBversion done (Added system preference ExpireReservesMaxPickUpDelay, system preference ExpireReservesMaxPickUpDelayCharge, add reseves.charge_if_expired)\n";
4902 }
4903
4904 $DBversion = "3.07.00.025";
4905 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4906     if (TableExists('bibliocoverimage')) {
4907         $dbh->do( q|DROP TABLE bibliocoverimage;| );
4908         $dbh->do(
4909             q|CREATE TABLE biblioimages (
4910               imagenumber int(11) NOT NULL AUTO_INCREMENT,
4911               biblionumber int(11) NOT NULL,
4912               mimetype varchar(15) NOT NULL,
4913               imagefile mediumblob NOT NULL,
4914               thumbnail mediumblob NOT NULL,
4915               PRIMARY KEY (imagenumber),
4916               CONSTRAINT bibliocoverimage_fk1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
4917               ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
4918         );
4919     }
4920     print "Upgrade to $DBversion done (Correct table name for local cover images if needed. )\n";
4921     SetVersion($DBversion);
4922 }
4923
4924 $DBversion = "3.07.00.026";
4925 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4926     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('CalendarFirstDayOfWeek','Sunday','Select the first day of week to use in the calendar.','Sunday|Monday','Choice');");
4927     print "Upgrade to $DBversion done (Add syspref CalendarFirstDayOfWeek used to select the first day of week to use in the calendar. )\n";
4928     SetVersion($DBversion);
4929 }
4930
4931 $DBversion = "3.07.00.027";
4932 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4933     $dbh->do(q{INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RoutingListNote','','Define a note to be shown on all routing lists','70|10','Textarea');});
4934     print "Upgrade to $DBversion done (Added system preference RoutingListNote for adding a general note to all routing lists.)\n";
4935     SetVersion($DBversion);
4936 }
4937
4938 $DBversion = "3.07.00.028";
4939 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4940     $dbh->do(qq{
4941     INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowPKIAuth','None','Use the field from a client-side SSL certificate to look a user in the Koha database','None|Common Name|emailAddress','Choice');
4942     });
4943     print "Upgrade to $DBversion done (Bug 6296 New System preference AllowPKIAuth)\n";
4944 }
4945
4946 $DBversion = "3.07.00.029";
4947 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4948     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_descriptions`;});
4949     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_mappings`;});
4950     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_biblios`;});
4951     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets`;});
4952
4953     $dbh->do(q{
4954         CREATE TABLE `oai_sets` (
4955           `id` int(11) NOT NULL auto_increment,
4956           `spec` varchar(80) NOT NULL UNIQUE,
4957           `name` varchar(80) NOT NULL,
4958           PRIMARY KEY (`id`)
4959         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4960     });
4961
4962     $dbh->do(q{
4963         CREATE TABLE `oai_sets_descriptions` (
4964           `set_id` int(11) NOT NULL,
4965           `description` varchar(255) NOT NULL,
4966           CONSTRAINT `oai_sets_descriptions_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4967         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4968     });
4969
4970     $dbh->do(q{
4971         CREATE TABLE `oai_sets_mappings` (
4972           `set_id` int(11) NOT NULL,
4973           `marcfield` char(3) NOT NULL,
4974           `marcsubfield` char(1) NOT NULL,
4975           `marcvalue` varchar(80) NOT NULL,
4976           CONSTRAINT `oai_sets_mappings_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4977         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4978     });
4979
4980     $dbh->do(q{
4981         CREATE TABLE `oai_sets_biblios` (
4982           `biblionumber` int(11) NOT NULL,
4983           `set_id` int(11) NOT NULL,
4984           PRIMARY KEY (`biblionumber`, `set_id`),
4985           CONSTRAINT `oai_sets_biblios_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
4986           CONSTRAINT `oai_sets_biblios_ibfk_2` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4987         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4988     });
4989
4990     $dbh->do(q{
4991         INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OAI-PMH:AutoUpdateSets','0','Automatically update OAI sets when a bibliographic record is created or updated','','YesNo');
4992     });
4993
4994     print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
4995     SetVersion($DBversion);
4996 }
4997
4998 $DBversion = "3.07.00.030";
4999 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5000     $dbh->do("ALTER TABLE default_circ_rules ADD
5001             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5002     $dbh->do("ALTER TABLE branch_item_rules ADD
5003             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5004     $dbh->do("ALTER TABLE default_branch_circ_rules ADD
5005             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5006     $dbh->do("ALTER TABLE default_branch_item_rules ADD
5007             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5008     # set the default rule to the current value of HomeOrHoldingBranchReturn (default to 'homebranch' if need be)
5009     my $homeorholdingbranchreturn = C4::Context->preference('HomeOrHoldingBranchReturn') || 'homebranch';
5010     $dbh->do("UPDATE default_circ_rules SET returnbranch = '$homeorholdingbranchreturn'");
5011     print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
5012     SetVersion($DBversion);
5013 }
5014
5015 $DBversion = "3.07.00.031";
5016 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5017     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UseICU', '1', 'Tell Koha if ICU indexing is in use for Zebra or not.','1','YesNo')");
5018     print "Upgrade to $DBversion done (Add syspref to tell Koha if ICU indexing is in use for Zebra or not.)\n";
5019     SetVersion ($DBversion);
5020 }
5021
5022 $DBversion = "3.07.00.032";
5023 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5024     $dbh->do("ALTER TABLE virtualshelves MODIFY COLUMN owner int"); #should have been int already (fk to borrowers)
5025     $dbh->do("UPDATE virtualshelves vi LEFT JOIN borrowers bo ON bo.borrowernumber=vi.owner SET vi.owner=NULL where bo.borrowernumber IS NULL"); #before adding the constraint on borrowernumber, we need to get rid of deleted owners
5026     $dbh->do("DELETE FROM virtualshelves WHERE owner IS NULL and category=1"); #delete private lists without owner (cascades to shelfcontents)
5027     $dbh->do("ALTER TABLE virtualshelves ADD COLUMN allow_add tinyint(1) DEFAULT 0, ADD COLUMN allow_delete_own tinyint(1) DEFAULT 1, ADD COLUMN allow_delete_other tinyint(1) DEFAULT 0, ADD CONSTRAINT `virtualshelves_ibfk_1` FOREIGN KEY (`owner`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL");
5028     $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=1");
5029     $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=2");
5030     $dbh->do("UPDATE virtualshelves SET allow_add=1, allow_delete_own=1, allow_delete_other=1 WHERE category=3");
5031     $dbh->do("UPDATE virtualshelves SET category=2 WHERE category=3");
5032
5033     $dbh->do("ALTER TABLE virtualshelfcontents ADD COLUMN borrowernumber int, ADD CONSTRAINT `shelfcontents_ibfk_3` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL");
5034     $dbh->do("UPDATE virtualshelfcontents co LEFT JOIN virtualshelves sh USING (shelfnumber) SET co.borrowernumber=sh.owner");
5035
5036     $dbh->do("CREATE TABLE virtualshelfshares
5037     (id int AUTO_INCREMENT PRIMARY KEY, shelfnumber int NOT NULL,
5038     borrowernumber int, invitekey varchar(10), sharedate datetime,
5039     CONSTRAINT `virtualshelfshares_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
5040         CONSTRAINT `virtualshelfshares_ibfk_2` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5041
5042     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowPublicListCreation',1,'If set, allows opac users to create public lists',NULL,'YesNo');");
5043     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowSharingPrivateLists',0,'If set, allows opac users to share private lists with other patrons',NULL,'YesNo');");
5044
5045     print "Upgrade to $DBversion done (BZ7310: Improving list permissions)\n";
5046     SetVersion($DBversion);
5047 }
5048
5049 $DBversion = "3.07.00.033";
5050 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5051     $dbh->do("ALTER TABLE branches ADD opac_info text;");
5052     print "Upgrade to $DBversion done add opac_info to branches \n";
5053     SetVersion($DBversion);
5054 }
5055
5056 $DBversion = "3.07.00.034";
5057 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5058     $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN category_code VARCHAR(10) NULL DEFAULT NULL AFTER `display_checkout`");
5059     $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN class VARCHAR(255)  NOT NULL DEFAULT '' AFTER `category_code`");
5060     $dbh->do("ALTER TABLE borrower_attribute_types ADD CONSTRAINT category_code_fk FOREIGN KEY (category_code) REFERENCES categories(categorycode)");
5061     print "Upgrade to $DBversion done (New fields category_code and class in borrower_attribute_types table)\n";
5062     SetVersion($DBversion);
5063 }
5064
5065 $DBversion = "3.07.00.035";
5066 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5067     $dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");
5068     $dbh->do("UPDATE issues SET date_due = CONCAT(SUBSTR(date_due,1,11),'23:59:00')");
5069     $dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");
5070     $dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");
5071     $dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");
5072     $dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");
5073     $dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");
5074     $dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");
5075     $dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");
5076     $dbh->do("UPDATE accountlines SET description = CONCAT(description,' 23:59') WHERE accounttype='F' OR accounttype='FU'"); #BUG-8253
5077     print "Upgrade to $DBversion done (Setting up issues and accountlines tables for hourly loans)\n";
5078     SetVersion($DBversion);
5079 }
5080
5081 $DBversion = "3.07.00.036";
5082 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5083     $dbh->do(qq{
5084        ALTER TABLE z3950servers ADD timeout INT( 11 ) NOT NULL DEFAULT '0' AFTER syntax;
5085     });
5086     print "Upgrade to $DBversion done (New timeout field in z3950servers)\n";
5087 }
5088
5089 $DBversion = "3.07.00.037";
5090 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5091     $dbh->do("
5092        ALTER TABLE  `marc_subfield_structure` ADD  `maxlength` INT( 4 ) NOT NULL DEFAULT  '9999';
5093        ");
5094        $dbh->do("
5095        UPDATE `marc_subfield_structure` SET maxlength=24 WHERE tagfield='000';
5096        ");
5097        $dbh->do("
5098        UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='MARC21','40','9999') WHERE tagfield='008';
5099        ");
5100        $dbh->do("
5101        UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='NORMARC','40','9999') WHERE tagfield='008';
5102        ");
5103        $dbh->do("
5104        UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='UNIMARC','36','9999') WHERE tagfield='100';
5105        ");
5106     print "Upgrade to $DBversion done (Add new field maxlength to marc_subfield_structure)\n";
5107     SetVersion($DBversion);
5108 }
5109
5110 $DBversion = "3.07.00.038";
5111 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5112     $dbh->do(qq{
5113         INSERT INTO systempreferences(variable,value,explanation,options,type)
5114         VALUES('UniqueItemFields', 'barcode', 'Space-separated list of fields that should be unique (used in acquisition module for item creation). Fields must be valid SQL column names of items table', '', 'Free')
5115     });
5116     print "Upgrade to $DBversion done (Added system preference 'UniqueItemFields')\n";
5117     SetVersion($DBversion);
5118 }
5119
5120 $DBversion = "3.07.00.039";
5121 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5122     $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('Babeltheque_url_js','','Url for Babeltheque javascript (e.g. http://www.babeltheque.com/bw_XX.js','','Free')} );
5123     $dbh->do( qq{CREATE TABLE IF NOT EXISTS social_data
5124       ( isbn VARCHAR(30),
5125         num_critics INT,
5126         num_critics_pro INT,
5127         num_quotations INT,
5128         num_videos INT,
5129         score_avg DECIMAL(5,2),
5130         num_scores INT,
5131         PRIMARY KEY  (isbn)
5132       ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5133     } );
5134     $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('Babeltheque_url_update', '', 'Url for Babeltheque update (E.G. http://www.babeltheque.com/.../file.csv.bz2)', '', 'Free')} );
5135     print "Upgrade to $DBversion done (added syspref and table for babeltheque (Babeltheque_url_js, babeltheque))\n";
5136     SetVersion($DBversion);
5137 }
5138
5139 $DBversion = "3.07.00.040";
5140 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5141     $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('SocialNetworks','0','Enable/Disable social networks links in opac detail','','YesNo')} );
5142     print "Upgrade to $DBversion done (added syspref SocialNetworks, to display facebook/ggl+ and other buttons)\n";
5143     SetVersion($DBversion);
5144 }
5145
5146
5147
5148 $DBversion = "3.07.00.041";
5149 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5150     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('SubscriptionDuplicateDroppedInput','','','List of fields which must not be rewritten when a subscription is duplicated (Separated by pipe |)','Free')");
5151     print "Upgrade to $DBversion done (Add system preference SubscriptionDuplicateDroppedInput)\n";
5152     SetVersion($DBversion);
5153 }
5154
5155 $DBversion = "3.07.00.042";
5156 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5157     $dbh->do("ALTER TABLE reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5158     $dbh->do("ALTER TABLE old_reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5159
5160     $dbh->do("ALTER TABLE reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5161     $dbh->do("ALTER TABLE old_reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5162
5163     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AutoResumeSuspendedHolds',  '1', NULL ,  'Allow suspended holds to be automatically resumed by a set date.',  'YesNo')");
5164
5165     print "Upgrade to $DBversion done (Add suspend fields to reserves table, add syspref AutoResumeSuspendedHolds)\n";
5166     SetVersion ($DBversion);
5167 }
5168
5169 $DBversion = "3.07.00.043";
5170 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5171     my $countXSLTDetailsDisplay = 0;
5172     my $valueXSLTDetailsDisplay = "";
5173     my $valueXSLTResultsDisplay = "";
5174     my $valueOPACXSLTDetailsDisplay = "";
5175     my $valueOPACXSLTResultsDisplay = "";
5176     #the line below test if database comes from a BibLibre's branch
5177     $countXSLTDetailsDisplay = $dbh->do('SELECT 1 FROM systempreferences WHERE variable="IntranetXSLTDetailsDisplay"');
5178     if ($countXSLTDetailsDisplay > 0)
5179     {
5180         #the two lines below will only be used to update the databases from the BibLibre's branch. They will not affect the others
5181         $dbh->do(q|UPDATE systempreferences SET variable="XSLTDetailsDisplay" WHERE variable="IntranetXSLTDetailsDisplay"|);
5182         $dbh->do(q|UPDATE systempreferences SET variable="XSLTResultsDisplay" WHERE variable="IntranetXSLTResultsDisplay"|);
5183     }
5184     else
5185     {
5186         $valueXSLTDetailsDisplay = "default" if (C4::Context->preference("XSLTDetailsDisplay"));
5187         $valueXSLTResultsDisplay = "default" if (C4::Context->preference("XSLTResultsDisplay"));
5188         $valueOPACXSLTDetailsDisplay = "default" if (C4::Context->preference("OPACXSLTDetailsDisplay"));
5189         $valueOPACXSLTResultsDisplay = "default" if (C4::Context->preference("OPACXSLTResultsDisplay"));
5190         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTDetailsDisplay\" WHERE variable='XSLTDetailsDisplay'");
5191         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTResultsDisplay\" WHERE variable='XSLTResultsDisplay'");
5192         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTDetailsDisplay\" WHERE variable='OPACXSLTDetailsDisplay'");
5193         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTResultsDisplay\" WHERE variable='OPACXSLTResultsDisplay'");
5194     }
5195     print "Upgrade to $DBversion done (XSLT systempreference takes a path to file rather than YesNo)\n";
5196     SetVersion($DBversion);
5197 }
5198
5199 $DBversion = "3.07.00.044";
5200 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5201     $dbh->do("ALTER TABLE aqbooksellers ADD deliverytime INT DEFAULT NULL");
5202     print "Upgrade to $DBversion done (Add deliverytime field in aqbooksellers table)";
5203     SetVersion($DBversion);
5204 }
5205
5206 $DBversion = "3.07.00.045";
5207 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5208     $dbh->do("ALTER TABLE import_batches MODIFY COLUMN batch_type ENUM('batch','z3950','webservice') NOT NULL default 'batch'");
5209     print "Upgrade to $DBversion done (Add 'webservice' to batch_type enum)\n";
5210     SetVersion ($DBversion);
5211 }
5212
5213 $DBversion = "3.07.00.046";
5214 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5215     $dbh->do("ALTER TABLE issuingrules ADD COLUMN lengthunit varchar(10) DEFAULT 'days' AFTER issuelength");
5216     print "Upgrade to $DBversion done (Setting up issues tables for hourly loans (lengthunit fix))\n";
5217     SetVersion($DBversion);
5218 }
5219
5220 $DBversion = "3.07.00.047";
5221 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5222     $dbh->do("CREATE INDEX items_location ON items(location)");
5223     $dbh->do("CREATE INDEX items_ccode ON items(ccode)");
5224     print "Upgrade to $DBversion done (items_location and items_ccode indexes added for ShelfBrowser)\n";
5225     SetVersion($DBversion);
5226 }
5227
5228 $DBversion = "3.07.00.048";
5229 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5230     $dbh->do(
5231         q | CREATE TABLE ratings (
5232   borrowernumber int(11) NOT NULL,
5233   biblionumber int(11) NOT NULL,
5234   rating_value tinyint(1) NOT NULL,
5235   timestamp timestamp NOT NULL default CURRENT_TIMESTAMP,
5236   PRIMARY KEY  (borrowernumber,biblionumber),
5237   CONSTRAINT ratings_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
5238   CONSTRAINT ratings_ibfk_2 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
5239 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |
5240     );
5241
5242     $dbh->do(
5243 q /INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacStarRatings','disable',NULL,'disable|all|details','Choice') /
5244     );
5245
5246     print
5247 "Upgrade to $DBversion done (Add 'ratings' table and 'OpacStarRatings' syspref)\n";
5248     SetVersion($DBversion);
5249 }
5250
5251 $DBversion = "3.07.00.049";
5252 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5253     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacBrowseResults','1','Disable/enable browsing and paging search results from the OPAC detail page.',NULL,'YesNo')");
5254     print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5255     SetVersion($DBversion);
5256 }
5257
5258 $DBversion = "3.08.00.000";
5259 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5260     print "Upgrade to $DBversion done\n";
5261     SetVersion($DBversion);
5262 }
5263
5264 $DBversion = "3.09.00.001";
5265 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5266     $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 1 ) NULL DEFAULT NULL");
5267     print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table to allow NULL category_code)\n";
5268     SetVersion($DBversion);
5269 }
5270
5271 $DBversion = "3.09.00.002";
5272 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5273     $dbh->do("ALTER TABLE saved_sql
5274         ADD (
5275             cache_expiry INT NOT NULL DEFAULT 300,
5276             public BOOLEAN NOT NULL DEFAULT FALSE
5277         );
5278     ");
5279     print "Upgrade to $DBversion done (Added cache_expiry and public fields in
5280 saved_reports table.)\n";
5281     SetVersion($DBversion);
5282 }
5283
5284 $DBversion = "3.09.00.003";
5285 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5286     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');");
5287     print "Upgrade to $DBversion done (Added SvcMaxReportRows syspref)\n";
5288     SetVersion($DBversion);
5289 }
5290
5291 $DBversion = "3.09.00.004";
5292 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5293     $dbh->do("INSERT IGNORE INTO permissions (module_bit, code, description) VALUES('13', 'edit_patrons', 'Perform batch modifivation of patrons')");
5294     print "Upgrade to $DBversion done (Adds permissions flag for access to the patron modifications tool)\n";
5295     SetVersion($DBversion);
5296 }
5297
5298 $DBversion = "3.09.00.005";
5299 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5300     unless (TableExists('quotes')) {
5301         $dbh->do( qq{
5302             CREATE TABLE `quotes` (
5303               `id` int(11) NOT NULL AUTO_INCREMENT,
5304               `source` text DEFAULT NULL,
5305               `text` mediumtext NOT NULL,
5306               `timestamp` datetime NOT NULL,
5307               PRIMARY KEY (`id`)
5308             ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5309         });
5310     }
5311     $dbh->do( qq{
5312         INSERT IGNORE INTO permissions VALUES (13, "edit_quotes","Edit quotes for quote-of-the-day feature");
5313     });
5314     $dbh->do( qq{
5315         INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QuoteOfTheDay',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL,'YesNo');
5316     });
5317     print "Upgrade to $DBversion done (Adding Quote of the Day Option.)\n";
5318     SetVersion($DBversion);
5319 }
5320
5321 $DBversion = "3.09.00.006";
5322 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5323     $dbh->do("UPDATE systempreferences SET
5324                 variable = 'OPACShowHoldQueueDetails',
5325                 value = CASE value WHEN '1' THEN 'priority' ELSE 'none' END,
5326                 options = 'none|priority|holds|holds_priority',
5327                 explanation = 'Show holds details in OPAC',
5328                 type = 'Choice'
5329               WHERE variable = 'OPACDisplayRequestPriority'");
5330     print "Upgrade to $DBversion done (Changed system preference OPACDisplayRequestPriority -> OPACShowHoldQueueDetails)\n";
5331     SetVersion($DBversion);
5332 }
5333
5334 $DBversion = "3.09.00.007";
5335 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5336     unless(C4::Context->preference('ReservesControlBranch')){
5337         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights.','Choice')");
5338     }
5339     print "Upgrade to $DBversion done (Insert ReservesControlBranch systempreference into systempreferences table )\n";
5340     SetVersion($DBversion);
5341 }
5342
5343 $DBversion = "3.09.00.008";
5344 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5345     $dbh->do("ALTER TABLE sessions ADD PRIMARY KEY (id);");
5346     $dbh->do("ALTER TABLE sessions DROP INDEX `id`;");
5347     print "Upgrade to $DBversion done (redefine the field id as PRIMARY KEY of sessions)\n";
5348     SetVersion($DBversion);
5349 }
5350
5351 $DBversion = "3.09.00.009";
5352 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5353     $dbh->do("ALTER TABLE branches ADD PRIMARY KEY (branchcode);");
5354     $dbh->do("ALTER TABLE branches DROP INDEX branchcode;");
5355     print "Upgrade to $DBversion done (redefine the field branchcode as PRIMARY KEY of branches)\n";
5356     SetVersion ($DBversion);
5357 }
5358
5359 $DBversion = "3.09.00.010";
5360 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5361     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('IssueLostItem', 'alert', 'alert|confirm|nothing', 'Defines what should be done when an attempt is made to issue an item that has been marked as lost.', 'Choice')");
5362     print "Upgrade to $DBversion done (Add system preference issuelostitem ))\n";
5363     SetVersion($DBversion);
5364 }
5365
5366 $DBversion = "3.09.00.011";
5367 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5368     $dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5369     $dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) ");
5370     $dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5371     if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
5372          $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'");
5373     }
5374     print "Upgrade to $DBversion done (Adding ean in biblioitems and deletedbiblioitems)\n";
5375     print "If you have records with ean, please run misc/batchRebuildBiblioTables.pl to populate bibliotems.ean\n" if (C4::Context->preference("marcflavour") eq 'UNIMARC');
5376     SetVersion($DBversion);
5377 }
5378
5379 $DBversion = "3.09.00.012";
5380 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5381     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsIntranet', '1', NULL , 'Allow holds to be suspended from the intranet.', 'YesNo')");
5382     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsOpac', '1', NULL , 'Allow holds to be suspended from the OPAC.', 'YesNo')");
5383     print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5384     SetVersion($DBversion);
5385 }
5386
5387 $DBversion ="3.09.00.013";
5388 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5389     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('DefaultLanguageField008','','Fill in the default language for field 008 Range 35-37 (e.g. eng, nor, ger, see www.loc.gov/marc/languages/language_code.html)','','Free');");
5390     print "Upgrade to $DBversion done (Add system preference DefaultLanguageField008))\n";
5391     SetVersion($DBversion);
5392 }
5393
5394 $DBversion ="3.09.00.014";
5395 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5396     # add phone message transport type
5397     $dbh->do("INSERT INTO message_transport_types (message_transport_type) VALUES ('phone')");
5398
5399     # adds HOLD_PHONE and PREDUE_PHONE letters (as placeholders)
5400     $dbh->do("INSERT INTO letter (module, code, name, title, content) VALUES
5401               ('reserves', 'HOLD_PHONE', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup'),
5402               ('circulation', 'PREDUE_PHONE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon'),
5403               ('circulation', 'OVERDUE_PHONE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue')
5404               ");
5405
5406     # add phone notifications to patron message preferences options
5407     $dbh->do("INSERT INTO message_transports
5408              (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES
5409              (4, 'phone', 0, 'reserves', 'HOLD_PHONE'),
5410              (2, 'phone', 0, 'circulation', 'PREDUE_PHONE')
5411              ");
5412
5413     # add TalkingTechItivaPhoneNotification syspref
5414     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('TalkingTechItivaPhoneNotification',0,'If ON, enables Talking Tech I-tiva phone notifications',NULL,'YesNo');");
5415
5416     print "Upgrade done (Support for Talking Tech i-tiva phone notification system)\n";
5417     SetVersion($DBversion);
5418 }
5419
5420 $DBversion = "3.09.00.015";
5421 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5422     $dbh->do(qq{
5423         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('StatisticsFields','location|itype|ccode','Define Fields (from the items table) used for statistics members','location|itype|ccode','free')
5424     });
5425     print "Upgrade to $DBversion done (Add System preference StatisticsFields)\n";
5426     SetVersion($DBversion);
5427 }
5428
5429 $DBversion = "3.09.00.016";
5430 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5431     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowBarcode','0','Show items barcode in holding tab','','YesNo')");
5432     print "Upgrade to $DBversion done (Add syspref OPACShowBarcode)\n";
5433     SetVersion ($DBversion);
5434 }
5435
5436 $DBversion = "3.09.00.017";
5437 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5438     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OpacNavRight', '', '70|10', 'Show the following HTML in the right hand column of the main page under the main login form', 'Textarea');");
5439     print "Upgrade to $DBversion done (Add customizable OpacNavRight region to the OPAC main page)\n";
5440     SetVersion ($DBversion);
5441 }
5442
5443 $DBversion = "3.09.00.018";
5444 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5445     $dbh->do("DROP TABLE IF EXISTS aqbudgetborrowers");
5446     $dbh->do("
5447         CREATE TABLE aqbudgetborrowers (
5448           budget_id int(11) NOT NULL,
5449           borrowernumber int(11) NOT NULL,
5450           PRIMARY KEY (budget_id, borrowernumber),
5451           CONSTRAINT aqbudgetborrowers_ibfk_1 FOREIGN KEY (budget_id)
5452             REFERENCES aqbudgets (budget_id)
5453             ON DELETE CASCADE ON UPDATE CASCADE,
5454           CONSTRAINT aqbudgetborrowers_ibfk_2 FOREIGN KEY (borrowernumber)
5455             REFERENCES borrowers (borrowernumber)
5456             ON DELETE CASCADE ON UPDATE CASCADE
5457         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5458     ");
5459     $dbh->do("
5460         INSERT INTO permissions (module_bit, code, description)
5461         VALUES (11, 'budget_manage_all', 'Manage all budgets')
5462     ");
5463     print "Upgrade to $DBversion done (Add aqbudgetborrowers table)\n";
5464     SetVersion($DBversion);
5465 }
5466
5467 $DBversion = "3.09.00.019";
5468 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5469     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACShowUnusedAuthorities','1','','Show authorities that are not being used in the OPAC.','YesNo')");
5470     print "Upgrade to $DBversion done (Add OPACShowUnusedAuthorities system preference)\n";
5471     SetVersion ($DBversion);
5472 }
5473
5474 $DBversion = "3.09.00.020";
5475 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5476     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('EnableBorrowerFiles','0','If enabled, allows librarians to upload and attach arbitrary files to a borrower record.','YesNo')");
5477     $dbh->do("
5478 CREATE TABLE IF NOT EXISTS borrower_files (
5479   file_id int(11) NOT NULL AUTO_INCREMENT,
5480   borrowernumber int(11) NOT NULL,
5481   file_name varchar(255) NOT NULL,
5482   file_type varchar(255) NOT NULL,
5483   file_description varchar(255) DEFAULT NULL,
5484   file_content longblob NOT NULL,
5485   date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
5486   PRIMARY KEY (file_id),
5487   KEY borrowernumber (borrowernumber)
5488 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
5489     ");
5490     $dbh->do("ALTER TABLE borrower_files ADD CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE");
5491
5492     print "Upgrade to $DBversion done (Added borrow_files table, EnableBorrowerFiles syspref)\n";
5493     SetVersion($DBversion);
5494 }
5495
5496 $DBversion = "3.09.00.021";
5497 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5498     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UpdateTotalIssuesOnCirc','0','Whether to update the totalissues field in the biblio on each circ.',NULL,'YesNo');");
5499     print "Upgrade to $DBversion done (Add syspref UpdateTotalIssuesOnCirc)\n";
5500     SetVersion($DBversion);
5501 }
5502
5503 $DBversion = "3.09.00.022";
5504 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5505     $dbh->do("ALTER TABLE search_history MODIFY COLUMN query_cgi text NOT NULL");
5506     print "Upgrade to $DBversion done (Change search_history.query_cgi type to text. bug 5981)\n";
5507     SetVersion($DBversion);
5508 }
5509
5510 $DBversion = "3.09.00.023";
5511 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5512     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
5513     print "Upgrade to $DBversion done (Add system preference SearchEngine )\n";
5514     SetVersion($DBversion);
5515 }
5516
5517 $DBversion ="3.09.00.024";
5518 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5519     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('IntranetSlipPrinterJS','','Use this JavaScript for printing slips. Define at least function printThenClose(). For use e.g. with Firefox PlugIn jsPrintSetup, see http://jsprintsetup.mozdev.org/','','Free')");
5520     print "Upgrade to $DBversion done (Add system preference IntranetSlipPrinterJS))\n";
5521     SetVersion($DBversion);
5522 }
5523
5524 $DBversion = "3.09.00.025";
5525 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5526     $dbh->do('START TRANSACTION');
5527     $dbh->do('CREATE TABLE tmp_reserves AS SELECT * FROM old_reserves LIMIT 0');
5528     $dbh->do('ALTER TABLE tmp_reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5529     $dbh->do("
5530         INSERT INTO tmp_reserves (
5531           borrowernumber, reservedate, biblionumber,
5532           constrainttype, branchcode, notificationdate,
5533           reminderdate, cancellationdate, reservenotes,
5534           priority, found, timestamp, itemnumber,
5535           waitingdate, expirationdate, lowestPriority,
5536           suspend, suspend_until
5537         ) SELECT
5538           borrowernumber, reservedate, biblionumber,
5539           constrainttype, branchcode, notificationdate,
5540           reminderdate, cancellationdate, reservenotes,
5541           priority, found, timestamp, itemnumber,
5542           waitingdate, expirationdate, lowestPriority,
5543           suspend, suspend_until
5544         FROM old_reserves ORDER BY reservedate
5545     ");
5546     $dbh->do('SET @ai = ( SELECT MAX( reserve_id ) FROM tmp_reserves )');
5547     $dbh->do('TRUNCATE old_reserves');
5548     $dbh->do('ALTER TABLE old_reserves ADD reserve_id INT( 11 ) NOT NULL PRIMARY KEY FIRST');
5549     $dbh->do('INSERT INTO old_reserves SELECT * FROM tmp_reserves WHERE reserve_id <= @ai');
5550     $dbh->do("
5551         INSERT INTO tmp_reserves (
5552           borrowernumber, reservedate, biblionumber,
5553           constrainttype, branchcode, notificationdate,
5554           reminderdate, cancellationdate, reservenotes,
5555           priority, found, timestamp, itemnumber,
5556           waitingdate, expirationdate, lowestPriority,
5557           suspend, suspend_until
5558         ) SELECT
5559           borrowernumber, reservedate, biblionumber,
5560           constrainttype, branchcode, notificationdate,
5561           reminderdate, cancellationdate, reservenotes,
5562           priority, found, timestamp, itemnumber,
5563           waitingdate, expirationdate, lowestPriority,
5564           suspend, suspend_until
5565         FROM reserves ORDER BY reservedate
5566     ");
5567     $dbh->do('TRUNCATE reserves');
5568     $dbh->do('ALTER TABLE reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5569     $dbh->do('INSERT INTO reserves SELECT * FROM tmp_reserves WHERE reserve_id > COALESCE(@ai, 0)');
5570     $dbh->do('DROP TABLE tmp_reserves');
5571     $dbh->do('COMMIT');
5572
5573     my $sth = $dbh->prepare("
5574         SELECT COUNT( * ) AS count
5575         FROM information_schema.COLUMNS
5576         WHERE COLUMN_NAME =  'reserve_id'
5577         AND (
5578           TABLE_NAME LIKE  'reserves'
5579           OR
5580           TABLE_NAME LIKE  'old_reserves'
5581         )
5582     ");
5583     $sth->execute();
5584     my $row = $sth->fetchrow_hashref();
5585     die("Failed to add reserve_id to reserves tables, please refresh the page to try again.") unless ( $row->{'count'} );
5586
5587     print "Upgrade to $DBversion done (add reserve_id to reserves & old_reserves tables)\n";
5588     SetVersion($DBversion);
5589 }
5590
5591 $DBversion = "3.09.00.026";
5592 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5593     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
5594         ( 3, 'parameters_remaining_permissions', 'Remaining system parameters permissions'),
5595         ( 3, 'manage_circ_rules', 'manage circulation rules')");
5596     $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5597         SELECT borrowernumber, 3, 'parameters_remaining_permissions'
5598         FROM borrowers WHERE flags & (1 << 3)");
5599     # Give new subpermissions to all users that have 'parameters' permission flag (bit 3) set
5600     # see userflags table
5601     $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5602         SELECT borrowernumber, 3, 'manage_circ_rules'
5603         FROM borrowers WHERE flags & (1 << 3)");
5604     print "Upgrade to $DBversion done (Added parameters subpermissions)\n";
5605     SetVersion($DBversion);
5606 }
5607
5608 $DBversion = '3.09.00.027';
5609 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5610     $dbh->do("ALTER TABLE issuingrules ADD overduefinescap decimal(28,6) DEFAULT NULL");
5611     my $maxfine = C4::Context->preference('MaxFine');
5612     if ($maxfine && $maxfine < 900) { # an arbitrary value that tells us it's not "some huge value"
5613       $dbh->do("UPDATE issuingrules SET overduefinescap=?",undef,$maxfine);
5614       $dbh->do("UPDATE systempreferences SET value = NULL WHERE variable = 'MaxFine'");
5615     }
5616     $dbh->do("UPDATE systempreferences SET explanation = 'Maximum fine a patron can have for all late returns at one moment. Single item caps are specified in the circulation rules matrix.' WHERE variable = 'MaxFine'");
5617     print "Upgrade to $DBversion done (Bug 7420 add overduefinescap to circulation matrix)\n";
5618     SetVersion ($DBversion);
5619 }
5620
5621 $DBversion = "3.09.00.028";
5622 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5623     unless ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
5624         my %referencetypes = (  '00' => 'PERSO_NAME',
5625                                 '10' => 'CORPO_NAME',
5626                                 '11' => 'MEETI_NAME',
5627                                 '30' => 'UNIF_TITLE',
5628                                 '48' => 'CHRON_TERM',
5629                                 '50' => 'TOPIC_TERM',
5630                                 '51' => 'GEOGR_NAME',
5631                                 '55' => 'GENRE/FORM'
5632                 );
5633         my $query = q{SELECT DISTINCT authtypecode, tagfield
5634                     FROM auth_subfield_structure
5635                     WHERE (tagfield BETWEEN '400' AND '455' OR
5636                     tagfield BETWEEN '500' and '555') AND tagsubfield='a' AND
5637                     frameworkcode = '' AND ROW(authtypecode, tagfield) NOT IN
5638                     (SELECT authtypecode, tagfield FROM auth_subfield_structure
5639                     WHERE tagsubfield ='9' )};
5640         $sth = $dbh->prepare($query);
5641         $sth->execute;
5642         my $sth2 = $dbh->prepare(q{INSERT INTO auth_subfield_structure
5643                 (authtypecode, tagfield, tagsubfield, liblibrarian, libopac,
5644                  repeatable, mandatory, tab, authorised_value, value_builder,
5645                  seealso, isurl, hidden, linkid, kohafield, frameworkcode)
5646                 VALUES (?, ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, ?, NULL, NULL,
5647                     NULL, 0, 1, '', '', '')});
5648         my $sth3 = $dbh->prepare(q{UPDATE auth_subfield_structure SET
5649                                     frameworkcode = ? WHERE authtypecode = ? AND
5650                                     tagfield = ? AND tagsubfield = 'a'});
5651         while (my $row = $sth->fetchrow_arrayref()) {
5652             my ($authtypecode, $field) = @$row;
5653             $sth2->execute($authtypecode, $field, substr($field, 0, 1));
5654             my $authtypemarker = substr $field, 1, 2;
5655             if ($authtypemarker && $referencetypes{$authtypemarker}) {
5656                 $sth3->execute($referencetypes{$authtypemarker}, $authtypecode, $field);
5657             }
5658         }
5659     }
5660
5661     print "Upgrade to $DBversion done (Add thesaurus links for MARC21/NORMARC)\n";
5662     SetVersion($DBversion);
5663 }
5664
5665 $DBversion = "3.09.00.029"; # FIXME
5666 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5667     $dbh->do("UPDATE systempreferences SET options=concat(options,'|EAN13') WHERE variable='itemBarcodeInputFilter' AND options NOT LIKE '%EAN13%'");
5668     print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice EAN13)\n";
5669
5670     $dbh->do("UPDATE systempreferences SET options = concat(options,'|EAN13'), explanation = concat(explanation,'; EAN13 - incremental') WHERE variable = 'autoBarcode' AND options NOT LIKE '%EAN13%'");
5671     print "Upgrade to $DBversion done ( Added EAN13 barcode autogeneration sequence )\n";
5672     SetVersion($DBversion);
5673 }
5674
5675 $DBversion ="3.09.00.030";
5676 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5677     my $query = "SELECT value FROM systempreferences WHERE variable='opacstylesheet'";
5678     my $remote= $dbh->selectrow_arrayref($query);
5679     $dbh->do("DELETE from systempreferences WHERE variable='opacstylesheet'");
5680     if($remote && $remote->[0]) {
5681         $query="UPDATE systempreferences SET value=? WHERE variable='opaclayoutstylesheet'";
5682         $dbh->do($query,undef,$remote->[0]);
5683         print "NOTE: The URL of your remote opac css file has been moved to preference opaclayoutstylesheet.\n";
5684     }
5685     print "Upgrade to $DBversion done (BZ 8263: Make OPAC stylesheet preferences more consistent)\n";
5686     SetVersion($DBversion);
5687 }
5688
5689 $DBversion = "3.09.00.031";
5690 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5691     $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonReviews'");
5692     $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonSimilarItems'");
5693     $dbh->do("DELETE FROM systempreferences WHERE variable='AWSAccessKeyID'");
5694     $dbh->do("DELETE FROM systempreferences WHERE variable='AWSPrivateKey'");
5695     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonReviews'");
5696     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonSimilarItems'");
5697     $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonEnabled'");
5698     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonEnabled'");
5699     print "Upgrade to $DBversion done ('Remove preferences controlling broken Amazon features (Bug 8679')\n";
5700     SetVersion ($DBversion);
5701 }
5702
5703 $DBversion = "3.09.00.032";
5704 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5705     $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'defaultSortField' AND value = 'callnumber'");
5706     $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'");
5707     print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n";
5708     SetVersion ($DBversion);
5709 }
5710
5711
5712 $DBversion = '3.09.00.033';
5713 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5714    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacSuppressionByIPRange','','Restrict the suppression to IP adresses outside of the IP range','','free');");
5715    print "Upgrade to $DBversion done (Add OpacSuppressionByIPRange syspref)\n";
5716    SetVersion ($DBversion);
5717 }
5718
5719 $DBversion ="3.09.00.034";
5720 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5721     $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'PERSO_NAME' WHERE frameworkcode = 'PERSO_CODE'");
5722     $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'CORPO_NAME' WHERE frameworkcode = 'ORGO_CODE'");
5723     print "Upgrade to $DBversion done (Bug 8207: correct typo in authority types)\n";
5724     SetVersion ($DBversion);
5725 }
5726
5727 $DBversion = "3.09.00.035";
5728 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5729     $dbh->do("
5730     INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('PrefillItem','0','When a new item is added, should it be prefilled with last created item values?','','YesNo');
5731     ");
5732     $dbh->do(
5733     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SubfieldsToUseWhenPrefill','','Define a list of subfields to use when prefilling items (separated by space)','','Free');
5734     ");
5735     print "Upgrade to $DBversion done (Adding PrefillItem and SubfieldsToUseWhenPrefill sysprefs)\n";
5736     SetVersion ($DBversion);
5737 }
5738
5739 $DBversion = "3.09.00.036";
5740 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5741     # biblioitems changes
5742     $dbh->do("ALTER TABLE biblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5743     $dbh->do("ALTER TABLE deletedbiblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5744     # preferences changes
5745     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AgeRestrictionMarker','','Markers for age restriction indication, e.g. FSK|PEGI|Age|. See: http://wiki.koha-community.org/wiki/Age_restriction',NULL,'free')");
5746     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AgeRestrictionOverride',0,'Allow staff to check out an item with age restriction.',NULL,'YesNo')");
5747
5748     print "Upgrade to $DBversion done (Add colum agerestriction to biblioitems and deletedbiblioitems, add system preferences AgeRestrictionMarker and AgeRestrictionOverride)\n";
5749    SetVersion ($DBversion);
5750 }
5751
5752 $DBversion = "3.09.00.037";
5753 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5754     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTransportCostMatrix',0,'Use Transport Cost Matrix when filling holds','','YesNo')");
5755
5756  $dbh->do("CREATE TABLE `transport_cost` (
5757               `frombranch` varchar(10) NOT NULL,
5758               `tobranch` varchar(10) NOT NULL,
5759               `cost` decimal(6,2) NOT NULL,
5760               `disable_transfer` tinyint(1) NOT NULL DEFAULT 0,
5761               CHECK ( `frombranch` <> `tobranch` ), -- a dud check, mysql does not support that
5762               PRIMARY KEY (`frombranch`, `tobranch`),
5763               CONSTRAINT `transport_cost_ibfk_1` FOREIGN KEY (`frombranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
5764               CONSTRAINT `transport_cost_ibfk_2` FOREIGN KEY (`tobranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
5765           ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5766
5767     print "Upgrade to $DBversion done (creating `transport_cost` table; adding UseTransportCostMatrix systempref, in circulation)\n";
5768     SetVersion($DBversion);
5769 }
5770
5771 $DBversion ="3.09.00.038";
5772 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5773     $dbh->do("ALTER TABLE borrower_attributes CHANGE  attribute  attribute VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
5774     print "Upgrade to $DBversion done (Increase the maximum size of a borrower attribute value)\n";
5775     SetVersion($DBversion);
5776 }
5777
5778 $DBversion ="3.09.00.039";
5779 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5780     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('DidYouMeanFromAuthorities','0','Suggest searches based on authority file.','YesNo');");
5781     print "Upgrade to $DBversion done (Add system preference DidYouMeanFromAuthorities)\n";
5782     SetVersion($DBversion);
5783 }
5784
5785 $DBversion = "3.09.00.040";
5786 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5787     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IncludeSeeFromInSearches','0','','Include see-from references in searches.','YesNo');");
5788     print "Upgrade to $DBversion done (Add IncludeSeeFromInSearches system preference)\n";
5789     SetVersion ($DBversion);
5790 }
5791
5792 $DBversion = "3.09.00.041";
5793 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5794     $dbh->do(qq{
5795         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportRemoveFields','','List of fields for non export in circulation.pl (separated by a space)','','');
5796     });
5797     print "Upgrade to $DBversion done (Add system preference ExportRemoveFields)\n";
5798     SetVersion($DBversion);
5799 }
5800
5801 $DBversion = "3.09.00.042";
5802 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5803     $dbh->do(qq{
5804         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportWithCsvProfile','','Set a profile name for CSV export','','');
5805     });
5806     print "Upgrade to $DBversion done (Adds New System preference ExportWithCsvProfile)\n";
5807     SetVersion($DBversion)
5808 }
5809
5810 $DBversion = "3.09.00.043";
5811 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5812     $dbh->do("
5813         ALTER TABLE aqorders
5814         ADD parent_ordernumber int(11) DEFAULT NULL
5815     ");
5816     $dbh->do("
5817         UPDATE aqorders
5818         SET parent_ordernumber = ordernumber;
5819     ");
5820     print "Upgrade to $DBversion done (Adding parent_ordernumber in aqorders)\n";
5821     SetVersion($DBversion);
5822 }
5823
5824 $DBversion = '3.09.00.044';
5825 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5826     $dbh->do("ALTER TABLE statistics ADD COLUMN ccode VARCHAR ( 10 ) NULL AFTER associatedborrower");
5827     $dbh->do("UPDATE statistics SET statistics.ccode = ( SELECT items.ccode FROM items WHERE statistics.itemnumber = items.itemnumber )");
5828     $dbh->do("UPDATE statistics SET statistics.ccode = (
5829               SELECT deleteditems.ccode FROM deleteditems
5830                   WHERE statistics.itemnumber = deleteditems.itemnumber
5831               ) WHERE statistics.ccode IS NULL");
5832     print "Upgrade done ( Added Collection Code to Statistics table. )\n";
5833     SetVersion ($DBversion);
5834 }
5835
5836 $DBversion = "3.09.00.045";
5837 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5838     $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 10 ) NULL DEFAULT NULL");
5839     print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table from varchar(1) to varchar(10) category_code)\nWarning to Koha System Administrators: If you use borrower attributes defined by borrower categories, you have to check your configuration. A bug may have removed your attribute links to borrower categories.\nPlease check, and fix it if necessary.";
5840     SetVersion($DBversion);
5841 }
5842
5843 $DBversion = "3.09.00.046";
5844 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5845     $dbh->do("ALTER TABLE `accountlines` ADD `accountlines_id` INT NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST;");
5846     print "Upgrade to $DBversion done (adding accountlines_id field in accountlines table)\n";
5847     SetVersion($DBversion);
5848 }
5849
5850 $DBversion = "3.09.00.047";
5851 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5852     # to preserve default behaviour as best as possible, set this new preference differently depending on whether IndependantBranches is set or not
5853     my $prefvalue = 'anywhere';
5854     if (C4::Context->preference("IndependantBranches")) { $prefvalue = 'homeorholdingbranch';}
5855     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowReturnToBranch', '$prefvalue', 'Where an item may be returned', 'anywhere|homebranch|holdingbranch|homeorholdingbranch', 'Choice');");
5856
5857     print "Upgrade to $DBversion done: adding AllowReturnToBranch syspref (bug 6151)";
5858     SetVersion($DBversion);
5859 }
5860
5861 $DBversion = "3.09.00.048";
5862 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5863     $dbh->do("ALTER TABLE authorised_values MODIFY lib varchar(200)");
5864     $dbh->do("ALTER TABLE authorised_values MODIFY lib_opac varchar(200)");
5865
5866     print "Upgrade to $DBversion done (Raise the length of Authorised Values descriptions)\n";
5867     SetVersion($DBversion);
5868 }
5869
5870 $DBversion ="3.09.00.049";
5871 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5872     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACMobileUserCSS','','Include the following CSS for the mobile view on all pages in the OPAC:',NULL,'free');");
5873     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacMainUserBlockMobile','','Show the following HTML in its own column on the main page of the OPAC (mobile version):',NULL,'free');");
5874     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowLibrariesPulldownMobile','1','Show the libraries pulldown on the mobile version of the OPAC.',NULL,'YesNo');");
5875     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowFiltersPulldownMobile','1','Show the search filters pulldown on the mobile version of the OPAC.',NULL,'YesNo');");
5876     print "Upgrade to $DBversion done (Add OPACMobileUserCSS, OpacMainUserBlockMobile, OpacShowLibrariesPulldownMobile and OpacShowFiltersPulldownMobile sysprefs)\n";
5877     SetVersion($DBversion);
5878 }
5879
5880 $DBversion = "3.09.00.050";
5881 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5882     $dbh->do("ALTER TABLE authorised_values MODIFY category varchar(16) NOT NULL DEFAULT '';");
5883     $dbh->do("INSERT INTO authorised_values (category, authorised_value, lib) VALUES
5884               ('REPORT_GROUP', 'CIRC', 'Circulation'),
5885               ('REPORT_GROUP', 'CAT', 'Catalog'),
5886               ('REPORT_GROUP', 'PAT', 'Patrons'),
5887               ('REPORT_GROUP', 'ACQ', 'Acquisitions'),
5888               ('REPORT_GROUP', 'ACC', 'Accounts');");
5889
5890     $dbh->do("ALTER TABLE reports_dictionary ADD report_area varchar(6) DEFAULT NULL;");
5891     $dbh->do("UPDATE reports_dictionary SET report_area = CASE area
5892                   WHEN 1 THEN 'CIRC'
5893                   WHEN 2 THEN 'CAT'
5894                   WHEN 3 THEN 'PAT'
5895                   WHEN 4 THEN 'ACQ'
5896                   WHEN 5 THEN 'ACC'
5897                   END;");
5898     $dbh->do("ALTER TABLE reports_dictionary DROP area;");
5899     $dbh->do("ALTER TABLE reports_dictionary ADD KEY dictionary_area_idx (report_area);");
5900
5901     $dbh->do("ALTER TABLE saved_sql ADD report_area varchar(6) DEFAULT NULL;");
5902     $dbh->do("ALTER TABLE saved_sql ADD report_group varchar(80) DEFAULT NULL;");
5903     $dbh->do("ALTER TABLE saved_sql ADD report_subgroup varchar(80) DEFAULT NULL;");
5904     $dbh->do("ALTER TABLE saved_sql ADD KEY sql_area_group_idx (report_group, report_subgroup);");
5905
5906     print "Upgrade to $DBversion done saved_sql new fields report_group and report_area; authorised_values.category 16 char \n";
5907     SetVersion($DBversion);
5908 }
5909
5910 $DBversion = "3.09.00.051";
5911 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5912     $dbh->do("
5913         CREATE TABLE aqinvoices (
5914           invoiceid int(11) NOT NULL AUTO_INCREMENT,
5915           invoicenumber mediumtext NOT NULL,
5916           booksellerid int(11) NOT NULL,
5917           shipmentdate date default NULL,
5918           billingdate date default NULL,
5919           closedate date default NULL,
5920           shipmentcost decimal(28,6) default NULL,
5921           shipmentcost_budgetid int(11) default NULL,
5922           PRIMARY KEY (invoiceid),
5923           CONSTRAINT aqinvoices_fk_aqbooksellerid FOREIGN KEY (booksellerid) REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE,
5924           CONSTRAINT aqinvoices_fk_shipmentcost_budgetid FOREIGN KEY (shipmentcost_budgetid) REFERENCES aqbudgets (budget_id) ON DELETE SET NULL ON UPDATE CASCADE
5925         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5926     ");
5927
5928     # Fill this new table with existing invoices
5929     my $sth = $dbh->prepare("
5930         SELECT aqorders.booksellerinvoicenumber AS invoicenumber, aqbasket.booksellerid, aqorders.datereceived
5931         FROM aqorders
5932           LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
5933         WHERE aqorders.booksellerinvoicenumber IS NOT NULL
5934           AND aqorders.booksellerinvoicenumber != ''
5935         GROUP BY aqorders.booksellerinvoicenumber
5936     ");
5937     $sth->execute;
5938     my $results = $sth->fetchall_arrayref({});
5939     $sth = $dbh->prepare("
5940         INSERT INTO aqinvoices (invoicenumber, booksellerid, shipmentdate) VALUES (?,?,?)
5941     ");
5942     foreach(@$results) {
5943         $sth->execute($_->{invoicenumber}, $_->{booksellerid}, $_->{datereceived});
5944     }
5945
5946     # Add the column in aqorders, fill it with correct value
5947     # and then drop booksellerinvoicenumber column
5948     $dbh->do("
5949         ALTER TABLE aqorders
5950         ADD COLUMN invoiceid int(11) default NULL AFTER booksellerinvoicenumber,
5951         ADD CONSTRAINT aqorders_ibfk_3 FOREIGN KEY (invoiceid) REFERENCES aqinvoices (invoiceid) ON DELETE SET NULL ON UPDATE CASCADE
5952     ");
5953
5954     $dbh->do("
5955         UPDATE aqorders, aqinvoices
5956         SET aqorders.invoiceid = aqinvoices.invoiceid
5957         WHERE aqorders.booksellerinvoicenumber = aqinvoices.invoicenumber
5958     ");
5959
5960     $dbh->do("
5961         ALTER TABLE aqorders
5962         DROP COLUMN booksellerinvoicenumber
5963     ");
5964
5965     print "Upgrade to $DBversion done (Add aqinvoices table) \n";
5966     SetVersion ($DBversion);
5967 }
5968
5969 $DBversion = "3.09.00.052";
5970 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5971     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHolds', NULL, '', 'Decreases the loan period for items with number of holds above the threshold specified in decreaseLoanHighHoldsValue', 'YesNo');");
5972     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHoldsValue', NULL, '', 'Specifies a threshold for the minimum number of holds needed to trigger a reduction in loan duration (used with decreaseLoanHighHolds)', 'Integer');");
5973     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHoldsDuration', NULL, '', 'Specifies a number of days that a loan is reduced to when used in conjunction with decreaseLoanHighHolds', 'Integer');");
5974     print "Upgrade to $DBversion done (Add systempreferences to decrease loan length on high demand items decreaseLoanHighHolds, decreaseLoanHighHoldsValue and decreaseLoanHighHoldsDuration) \n";
5975     SetVersion ($DBversion);
5976 }
5977
5978 $DBversion = "3.09.00.053";
5979 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5980     $dbh->do(
5981     q|CREATE TABLE `import_auths` (
5982         import_record_id int(11) NOT NULL,
5983         matched_authid int(11) default NULL,
5984         control_number varchar(25) default NULL,
5985         authorized_heading varchar(128) default NULL,
5986         original_source varchar(25) default NULL,
5987         CONSTRAINT import_auths_ibfk_1 FOREIGN KEY (import_record_id)
5988         REFERENCES import_records (import_record_id) ON DELETE CASCADE ON UPDATE CASCADE,
5989         KEY matched_authid (matched_authid)
5990         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
5991     );
5992     $dbh->do("ALTER TABLE import_batches
5993                 CHANGE COLUMN num_biblios num_records int(11) NOT NULL default 0,
5994                 ADD COLUMN record_type enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio'");
5995     $dbh->do("UPDATE import_batches SET record_type='auth' WHERE import_batch_id IN
5996                 (SELECT import_batch_id FROM import_records WHERE record_type='auth')");
5997
5998     print "Upgrade to $DBversion done (Added support for staging authorities)\n";
5999     SetVersion ($DBversion);
6000 }
6001
6002 $DBversion = "3.09.00.054";
6003 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6004     $dbh->do("ALTER TABLE aqorders CHANGE COLUMN gst gstrate DECIMAL(6,4)  DEFAULT NULL");
6005     print "Upgrade to $DBversion done (Change column name in aqorders gst --> gstrate)\n";
6006     SetVersion($DBversion);
6007 }
6008
6009 $DBversion = "3.09.00.055";
6010 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6011     $dbh->do("ALTER TABLE aqorders ADD discount float(6,4) DEFAULT NULL AFTER gstrate");
6012     print "Upgrade to $DBversion done (Add discount field in aqorders table)\n";
6013     SetVersion($DBversion);
6014 }
6015
6016 $DBversion ="3.09.00.056";
6017 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6018     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('AuthDisplayHierarchy','0','Display authority hierarchies','','YesNo')");
6019     print "Upgrade to $DBversion done (Add system preference AuthDisplayHierarchy)\n";
6020     SetVersion($DBversion);
6021 }
6022
6023 $DBversion = "3.09.00.057";
6024 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6025     $dbh->do("ALTER TABLE aqbasket ADD deliveryplace VARCHAR(10) default NULL AFTER basketgroupid;");
6026     $dbh->do("ALTER TABLE aqbasket ADD billingplace VARCHAR(10) default NULL AFTER deliveryplace;");
6027     print "Upgrade to $DBversion done (Bug 5356: Added billingplace, deliveryplace to the aqbasket table)\n";
6028     SetVersion($DBversion);
6029 }
6030
6031 $DBversion ="3.09.00.058";
6032 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6033     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('OPACdidyoumean',NULL,'Did you mean? configuration for the OPAC. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free');");
6034     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('INTRAdidyoumean',NULL,'Did you mean? configuration for the Intranet. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free');");
6035     print "Upgrade to $DBversion done (Add Did You Mean? configuration)\n";
6036     SetVersion($DBversion);
6037 }
6038
6039 $DBversion ="3.09.00.059";
6040 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6041     $dbh->do("INSERT INTO systempreferences (variable, value, options, explanation, type) VALUES ('BlockReturnOfWithdrawnItems', '1', '0', 'If enabled, items that are marked as withdrawn cannot be returned.', 'YesNo');");
6042     print "Upgrade to $DBversion done (Add system preference BlockReturnOfWithdrawnItems)\n";
6043     SetVersion($DBversion);
6044 }
6045
6046 $DBversion = "3.09.00.060";
6047 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6048     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HoldsToPullStartDate','2','Set the default start date for the Holds to pull list to this many days ago',NULL,'Integer')");
6049     print "Upgrade to $DBversion done (Added HoldsToPullStartDate syspref)\n";
6050     SetVersion($DBversion);
6051 }
6052
6053 $DBversion = "3.09.00.061";
6054 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6055     $dbh->do("UPDATE systempreferences set value=0 WHERE variable='OPACItemsResultsDisplay' AND value='statuses'");
6056     $dbh->do("UPDATE systempreferences set value=1 WHERE variable='OPACItemsResultsDisplay' AND value='itemdetails'");
6057     $dbh->do("UPDATE systempreferences SET explanation='If No, show only the status of items in result list. If Yes, show full location of items (branchlocation+callnumber) as in staff interface',options=NULL,type='YesNo' WHERE variable='OPACItemsResultsDisplay'");
6058     print "Upgrade to $DBversion done (Fixes Bug 5409, Set the syspref value to 1 if it is itemdetails and 0 if it is statuses, leaving it alone if it is already 1 or 0 and change the type of the syspref to YesNo.)\n";
6059     SetVersion ($DBversion);
6060 }
6061
6062 $DBversion = "3.09.00.062";
6063 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6064    $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='NoZebra'");
6065    $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='QueryRemoveStopwords'");
6066    print "Upgrade to $DBversion done (Disable obsolete NoZebra and QueryRemoveStopwords sysprefs)\n";
6067    SetVersion ($DBversion);
6068 }
6069
6070 $DBversion = "3.09.00.063";
6071 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6072     my $gst_booksellers = $dbh->selectcol_arrayref("SELECT DISTINCT(gstrate) FROM aqbooksellers");
6073     my $gist_syspref = C4::Context->preference("gist");
6074     # remove the undef values and construct and array with the syspref and the supplier values
6075     my @gstrates = map { defined $_ ? $_ : () } @$gst_booksellers;
6076     push @gstrates, split ('\|', $gist_syspref);
6077     # we want to compare integer (or float)
6078     $_ = $_ + 0 for @gstrates;
6079     use List::MoreUtils qw/uniq/;
6080     # remove duplicate values
6081     @gstrates = uniq sort @gstrates;
6082     my $new_syspref_value = join '|', @gstrates;
6083     # update the syspref with the new values
6084     my $sth = $dbh->prepare("UPDATE systempreferences set value=? WHERE variable='gist'");
6085     $sth->execute( $new_syspref_value );
6086
6087     print "Upgrade to $DBversion done (Bug 8832, Set the syspref gist with the existing values)\n";
6088     SetVersion ($DBversion);
6089 }
6090
6091 $DBversion = "3.09.00.064";
6092 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6093    $dbh->do('ALTER TABLE items ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6094    print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the items table)\n";
6095    SetVersion ($DBversion);
6096 }
6097
6098 $DBversion = "3.09.00.065";
6099 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6100    $dbh->do('ALTER TABLE deleteditems ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6101    print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the deleteditems table)\n";
6102    SetVersion ($DBversion);
6103 }
6104
6105 $DBversion = "3.09.00.066";
6106 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6107    $dbh->do("DELETE FROM systempreferences WHERE variable='DidYouMeanFromAuthorities'");
6108    print "Upgrade to $DBversion done (Bug 9107: remove DidYouMeanFromAuthorities syspref)\n";
6109    SetVersion ($DBversion);
6110 }
6111
6112 $DBversion = "3.09.00.067";
6113 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6114    $dbh->do("ALTER TABLE statistics CHANGE COLUMN ccode ccode varchar(10) NULL");
6115    print "Upgrade to $DBversion done (Bug 9064: statistics.ccode potentially wrongly defined)\n";
6116    SetVersion ($DBversion);
6117 }
6118
6119 $DBversion = "3.10.00.00";
6120 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6121    print "Upgrade to $DBversion done (release tag)\n";
6122    SetVersion ($DBversion);
6123 }
6124
6125 $DBversion = "3.11.00.001";
6126 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6127     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('alphabet','A B C D E F G H I J K L M N O P Q R S T U V W X Y Z','Alphabet that can be expanded into browse links, e.g. on Home > Patrons',NULL,'free')");
6128     print "Upgrade to $DBversion done (Bug 2832 - Add alphabet syspref)\n";
6129 }
6130
6131 $DBversion = "3.11.00.002";
6132 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6133     $dbh->do(q{
6134         DELETE from aqorders_items where ordernumber NOT IN (SELECT ordernumber FROM aqorders);
6135     });
6136     $dbh->do(q{
6137         ALTER TABLE aqorders_items
6138         ADD CONSTRAINT aqorders_items_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber)
6139         ON DELETE CASCADE ON UPDATE CASCADE;
6140     });
6141     print "Upgrade to $DBversion done (Bug 9030: Add constraint on aqorders_items.ordernumber)\n";
6142     SetVersion ($DBversion);
6143 }
6144
6145 $DBversion = "3.11.00.003";
6146 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6147     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RefundLostItemFeeOnReturn', '1', 'If enabled, the lost item fee charged to a borrower will be refunded when the lost item is returned.', NULL, 'YesNo')");
6148     print "Upgrade to $DBversion done (Bug 7189: Add system preference RefundLostItemFeeOnReturn)\n";
6149     SetVersion($DBversion);
6150 }
6151
6152 $DBversion = "3.11.00.004";
6153 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6154     $dbh->do(qq{
6155         ALTER TABLE subscription ADD COLUMN closed INT(1) NOT NULL DEFAULT 0 AFTER enddate;
6156     });
6157
6158     print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n";
6159     SetVersion($DBversion);
6160 }
6161
6162 $DBversion = "3.11.00.005";
6163 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6164     $dbh->do(qq{CREATE TABLE borrower_attribute_types_branches(bat_code VARCHAR(10), b_branchcode VARCHAR(10),FOREIGN KEY (bat_code) REFERENCES borrower_attribute_types(code) ON DELETE CASCADE,FOREIGN KEY (b_branchcode) REFERENCES branches(branchcode) ON DELETE CASCADE ) ENGINE=INNODB DEFAULT CHARSET=utf8;});
6165
6166     $dbh->do(qq{CREATE TABLE categories_branches(categorycode VARCHAR(10), branchcode VARCHAR(10), FOREIGN KEY (categorycode) REFERENCES categories(categorycode) ON DELETE CASCADE, FOREIGN KEY (branchcode) REFERENCES branches(branchcode) ON DELETE CASCADE ) ENGINE=INNODB DEFAULT CHARSET=utf8;});
6167
6168     $dbh->do(qq{CREATE TABLE authorised_values_branches(av_id INTEGER, branchcode VARCHAR(10), FOREIGN KEY (av_id) REFERENCES authorised_values(id) ON DELETE CASCADE, FOREIGN KEY  (branchcode) REFERENCES branches(branchcode) ON DELETE CASCADE ) ENGINE=INNODB DEFAULT CHARSET=utf8;});
6169
6170     print "Upgrade to $DBversion done (Bug 7919: Display of values depending on the connexion library)\n";
6171     SetVersion($DBversion);
6172 }
6173
6174 $DBversion = "3.11.00.006";
6175 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6176     $dbh->do(q{
6177         UPDATE virtualshelves SET sortfield="copyrightdate" where sortfield="year";
6178     });
6179     print "Upgrade to $DBversion done (Bug 9167: Update the virtualshelves.sortfield column with 'copyrightdate' if needed)\n";
6180     SetVersion($DBversion);
6181 }
6182
6183 $DBversion = "3.11.00.007";
6184 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6185     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ar', 'language', 'de', 'Arabisch')");
6186     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hy', 'language', 'de', 'Armenisch')");
6187     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'bg', 'language', 'de', 'Bulgarisch')");
6188     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'zh', 'language', 'de', 'Chinesisch')");
6189     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'cs', 'language', 'de', 'Tschechisch')");
6190     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'da', 'language', 'de', 'Dänisch')");
6191     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nl', 'language', 'de', 'Niederländisch')");
6192     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'en', 'language', 'de', 'Englisch')");
6193     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fi', 'language', 'de', 'Finnisch')");
6194     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fr', 'language', 'de', 'Französisch')");
6195     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'fr', 'Laotien')");
6196     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'de', 'Laotisch')");
6197     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'el', 'language', 'de', 'Griechisch (Nach 1453)')");
6198     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'he', 'language', 'de', 'Hebräisch')");
6199     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hi', 'language', 'de', 'Hindi')");
6200     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hu', 'language', 'de', 'Ungarisch')");
6201     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'id', 'language', 'de', 'Indonesisch')");
6202     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'it', 'language', 'de', 'Italienisch')");
6203     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ja', 'language', 'de', 'Japanisch')");
6204     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ko', 'language', 'de', 'Koreanisch')");
6205     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'la', 'language', 'de', 'Latein')");
6206     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'fr', 'Galicien')");
6207     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'de', 'Galizisch')");
6208     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nb', 'language', 'de', 'Norwegisch bokm&#229;l')");
6209     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nn', 'language', 'de', 'Norwegisch nynorsk')");
6210     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fa', 'language', 'de', 'Persisch')");
6211     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pl', 'language', 'de', 'Polnisch')");
6212     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pt', 'language', 'de', 'Portugiesisch')");
6213     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ro', 'language', 'de', 'Rumänisch')");
6214     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ru', 'language', 'de', 'Russisch')");
6215     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'fr', 'Serbe')");
6216     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'de', 'Serbisch')");
6217     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'es', 'language', 'de', 'Spanisch')");
6218     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sv', 'language', 'de', 'Schwedisch')");
6219     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'fr', 'Tétoum')");
6220     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'de', 'Tetum')");
6221     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'th', 'language', 'de', 'Thailändisch')");
6222     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tr', 'language', 'de', 'Türkisch')");
6223     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'uk', 'language', 'de', 'Ukrainisch')");
6224     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'fr', 'Ourdou')");
6225     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'de', 'Urdu')");
6226     print "Upgrade to $DBversion done (Bug 9056: add German and a couple of French translations to language_descriptions)\n";
6227     SetVersion ($DBversion);
6228 }
6229
6230 $DBversion = "3.11.00.008";
6231 if (CheckVersion($DBversion)) {
6232     $dbh->do("
6233         CREATE TABLE IF NOT EXISTS `borrower_modifications` (
6234           `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6235           `verification_token` varchar(255) NOT NULL DEFAULT '',
6236           `borrowernumber` int(11) NOT NULL DEFAULT '0',
6237           `cardnumber` varchar(16) DEFAULT NULL,
6238           `surname` mediumtext,
6239           `firstname` text,
6240           `title` mediumtext,
6241           `othernames` mediumtext,
6242           `initials` text,
6243           `streetnumber` varchar(10) DEFAULT NULL,
6244           `streettype` varchar(50) DEFAULT NULL,
6245           `address` mediumtext,
6246           `address2` text,
6247           `city` mediumtext,
6248           `state` text,
6249           `zipcode` varchar(25) DEFAULT NULL,
6250           `country` text,
6251           `email` mediumtext,
6252           `phone` text,
6253           `mobile` varchar(50) DEFAULT NULL,
6254           `fax` mediumtext,
6255           `emailpro` text,
6256           `phonepro` text,
6257           `B_streetnumber` varchar(10) DEFAULT NULL,
6258           `B_streettype` varchar(50) DEFAULT NULL,
6259           `B_address` varchar(100) DEFAULT NULL,
6260           `B_address2` text,
6261           `B_city` mediumtext,
6262           `B_state` text,
6263           `B_zipcode` varchar(25) DEFAULT NULL,
6264           `B_country` text,
6265           `B_email` text,
6266           `B_phone` mediumtext,
6267           `dateofbirth` date DEFAULT NULL,
6268           `branchcode` varchar(10) DEFAULT NULL,
6269           `categorycode` varchar(10) DEFAULT NULL,
6270           `dateenrolled` date DEFAULT NULL,
6271           `dateexpiry` date DEFAULT NULL,
6272           `gonenoaddress` tinyint(1) DEFAULT NULL,
6273           `lost` tinyint(1) DEFAULT NULL,
6274           `debarred` date DEFAULT NULL,
6275           `debarredcomment` varchar(255) DEFAULT NULL,
6276           `contactname` mediumtext,
6277           `contactfirstname` text,
6278           `contacttitle` text,
6279           `guarantorid` int(11) DEFAULT NULL,
6280           `borrowernotes` mediumtext,
6281           `relationship` varchar(100) DEFAULT NULL,
6282           `ethnicity` varchar(50) DEFAULT NULL,
6283           `ethnotes` varchar(255) DEFAULT NULL,
6284           `sex` varchar(1) DEFAULT NULL,
6285           `password` varchar(30) DEFAULT NULL,
6286           `flags` int(11) DEFAULT NULL,
6287           `userid` varchar(75) DEFAULT NULL,
6288           `opacnote` mediumtext,
6289           `contactnote` varchar(255) DEFAULT NULL,
6290           `sort1` varchar(80) DEFAULT NULL,
6291           `sort2` varchar(80) DEFAULT NULL,
6292           `altcontactfirstname` varchar(255) DEFAULT NULL,
6293           `altcontactsurname` varchar(255) DEFAULT NULL,
6294           `altcontactaddress1` varchar(255) DEFAULT NULL,
6295           `altcontactaddress2` varchar(255) DEFAULT NULL,
6296           `altcontactaddress3` varchar(255) DEFAULT NULL,
6297           `altcontactstate` text,
6298           `altcontactzipcode` varchar(50) DEFAULT NULL,
6299           `altcontactcountry` text,
6300           `altcontactphone` varchar(50) DEFAULT NULL,
6301           `smsalertnumber` varchar(50) DEFAULT NULL,
6302           `privacy` int(11) DEFAULT NULL,
6303           PRIMARY KEY (`verification_token`,`borrowernumber`),
6304           KEY `verification_token` (`verification_token`),
6305           KEY `borrowernumber` (`borrowernumber`)
6306         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6307 ");
6308
6309     $dbh->do("
6310         INSERT INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES
6311         ('PatronSelfRegistration', '0', NULL, 'If enabled, patrons will be able to register themselves via the OPAC.', 'YesNo'),
6312         ('PatronSelfRegistrationVerifyByEmail', '0', NULL, 'If enabled, any patron attempting to register themselves via the OPAC will be required to verify themselves via email to activate his or her account.', 'YesNo'),
6313         ('PatronSelfRegistrationDefaultCategory', '', '', 'A patron registered via the OPAC will receive a borrower category code set in this system preference.', 'free'),
6314         ('PatronSelfRegistrationExpireTemporaryAccountsDelay', '0', NULL, 'If PatronSelfRegistrationDefaultCategory is enabled, this system preference controls how long a patron can have a temporary status before the account is deleted automatically. It is an integer value representing a number of days to wait before deleting a temporary patron account. Setting it to 0 disables the deleting of temporary accounts.', 'Integer'),
6315         ('PatronSelfRegistrationBorrowerMandatoryField',  'surname|firstname', NULL ,  'Choose the mandatory fields for a patron''s account, when registering via the OPAC.',  'free'),
6316         ('PatronSelfRegistrationBorrowerUnwantedField',  '', NULL ,  'Name the fields you don''t want to display when registering a new patron via the OPAC.',  'free');
6317     ");
6318
6319     $dbh->do("
6320     INSERT INTO  letter ( `module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content` )
6321     VALUES ( 'members', 'OPAC_REG_VERIFY', '', 'Opac Self-Registration Verification Email', '1', 'Verify Your Account', 'Hello!
6322
6323     Your library account has been created. Please verify your email address by clicking this link to complete the signup process:
6324
6325     http://<<OPACBaseURL>>/cgi-bin/koha/opac-registration-verify.pl?token=<<borrower_modifications.verification_token>>
6326
6327     If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly.'
6328     )");
6329
6330     print "Upgrade to $DBversion done (Bug 7067: Add Patron Self Registration)\n";
6331     SetVersion ($DBversion);
6332 }
6333
6334 $DBversion = "3.11.00.009";
6335 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6336     $dbh->do("
6337         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
6338         ('SeparateHoldings', '0', 'Separate current branch holdings from other holdings', NULL, 'YesNo'),
6339         ('SeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings', 'homebranch|holdingbranch', 'Choice'),
6340         ('OpacSeparateHoldings', '0', 'Separate current branch holdings from other holdings (OPAC)', NULL, 'YesNo'),
6341         ('OpacSeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings (OPAC)', 'homebranch|holdingbranch', 'Choice')
6342     ");
6343
6344     print "Upgrade to $DBversion done (Bug 7674: Add systempreferences SeparateHoldings, SeparateHoldingsBranch, OpacSeparateHoldings and OpacSeparateHoldingsBranch) \n";
6345     SetVersion ($DBversion);
6346 }
6347
6348 $DBversion = "3.11.00.010";
6349 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6350     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('RenewalSendNotice', '0', '', NULL, 'YesNo')");
6351     $dbh->do(q{
6352         INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
6353         ('circulation','RENEWAL','Item Renewals','Item Renewals','The following items have been renewed:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you for visiting <<branches.branchname>>.');
6354     });
6355     print "Upgrade to $DBversion done (Bug 9151 - Renewal notice according to patron alert preferences)\n";
6356     SetVersion($DBversion);
6357 }
6358
6359 $DBversion = "3.11.00.011";
6360 if ( CheckVersion($DBversion) ) {
6361    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaEnabled','not','Show a HTML5 media player in a tab on opac-detail.pl for media files catalogued in field 856.','not|opac|staff|both','Choice');");
6362    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaExtensions','webm|ogg|ogv|oga|vtt','Media file extensions','','free');");
6363    print "Upgrade to $DBversion done (Bug 8377: Add HTML5MediaEnabled and HTML5MediaExtensions sysprefs)\n";
6364    SetVersion ($DBversion);
6365 }
6366
6367 $DBversion = "3.11.00.012";
6368 if ( CheckVersion($DBversion) ) {
6369     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldsOnPatronsPossessions', '1', 'Allow holds on records that patron have items of it',NULL,'YesNo')");
6370     print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6371     SetVersion($DBversion);
6372 }
6373
6374 $DBversion = "3.11.00.013";
6375 if ( CheckVersion($DBversion) ) {
6376     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('NotesBlacklist','','List of notes fields that should not appear in the title notes/description separator of details',NULL,'free')");
6377     print "Upgrade to $DBversion done (Bug 9162 - Add a system preference to set which notes fields appears on title notes/description separator)\n";
6378     SetVersion($DBversion);
6379 }
6380
6381 $DBversion = "3.11.00.014";
6382 if ( CheckVersion($DBversion) ) {
6383    $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserCSS', '', 'Add CSS to be included in the SCO module in an embedded <style> tag.', 'free' )");
6384    $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserJS', '', 'Define custom javascript for inclusion in the SCO module', 'free' )");
6385    print "Upgrade to $DBversion done (Bug 9009: Add SCOUserCSS and SCOUserJS sysprefs)\n";
6386 }
6387
6388 $DBversion = "3.11.00.015";
6389 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6390     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('RentalsInNoissuesCharge', '1', 'Rental charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6391     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ManInvInNoissuesCharge', '1', 'MANUAL_INV charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6392     print "Upgrade to $DBversion done (Add sysprefs RentalsInNoissuesCharge and ManInvInNoissuesCharge.)\n";
6393     SetVersion($DBversion);
6394 }
6395
6396 $DBversion = "3.11.00.016";
6397 if ( CheckVersion($DBversion) ) {
6398    $dbh->do(q{
6399         UPDATE userflags SET flagdesc="<b>Required for staff login.</b> Staff access, allows viewing of catalogue in staff client." where flagdesc="Modify login / permissions for staff users";
6400         });
6401    $dbh->do(q{
6402         UPDATE userflags SET flagdesc="Edit Authorities" where flagdesc="Allow to edit authorities";
6403         });
6404    $dbh->do(q{
6405         UPDATE userflags SET flagdesc="Allow access to the reports module" where flagdesc="Allow to access to the reports module";
6406         });
6407    $dbh->do(q{
6408         UPDATE userflags SET flagdesc="Set library management parameters (deprecated)" where flagdesc="Set library management parameters";
6409         });
6410    $dbh->do(q{
6411         UPDATE userflags SET flagdesc="Manage serial subscriptions" where flagdesc="Allow to manage serials subscriptions";
6412         });
6413    $dbh->do(q{
6414         UPDATE userflags SET flagdesc="Manage patrons fines and fees" where flagdesc="Update borrower charges";
6415         });
6416    $dbh->do(q{
6417         UPDATE userflags SET flagdesc="Check out and check in items" where flagdesc="Circulate books";
6418         });
6419    $dbh->do(q{
6420         UPDATE userflags SET flagdesc="Manage Koha system settings (Administration panel)" where flagdesc="Set Koha system parameters";
6421         });
6422    $dbh->do(q{
6423         UPDATE userflags SET flagdesc="Add or modify patrons" where flagdesc="Add or modify borrowers";
6424         });
6425    $dbh->do(q{
6426         UPDATE userflags SET flagdesc="Use all tools (expand for granular tools permissions)" where flagdesc="Use tools (export, import, barcodes)";
6427         });
6428    $dbh->do(q{
6429         UPDATE userflags SET flagdesc="Allow staff members to modify permissions for other staff members" where flagdesc="Set user permissions";
6430         });
6431    $dbh->do(q{
6432         UPDATE permissions SET description="Perform batch modification of patrons" where description="Perform batch modifivation of patrons";
6433         });
6434
6435    print "Upgrade to $DBversion done (Bug 9382 (updated with bug 9745) - refresh permission descriptions to make more sense)\n";
6436    SetVersion ($DBversion);
6437 }
6438
6439 $DBversion ="3.11.00.017";
6440 if ( CheckVersion($DBversion) ) {
6441     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');");
6442     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');");
6443     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');");
6444     print "Upgrade to $DBversion done (Add IDreamBooks enhanced content)\n";
6445     SetVersion($DBversion);
6446 }
6447
6448 $DBversion = "3.11.00.018";
6449 if ( CheckVersion($DBversion) ) {
6450    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACNumbersPreferPhrase','0', NULL, 'Control the use of phr operator in callnumber and standard number OPAC searches', 'YesNo')");
6451    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IntranetNumbersPreferPhrase','0', NULL, 'Control the use of phr operator in callnumber and standard number staff client searches', 'YesNo')");
6452    print "Upgrade to $DBversion done (Bug 9395: Problem with callnumber and standard number search in OPAC and Staff Client)\n";
6453    SetVersion ($DBversion);
6454 }
6455
6456 $DBversion = "3.11.00.019";
6457 if ( CheckVersion($DBversion) ) {
6458     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorityField100', 'afrey50      ba0', NULL, NULL, 'Textarea')");
6459     print "Upgrade to $DBversion done (Bug 9145 - Add syspref UNIMARCAuthorityField100)\n";
6460     SetVersion ($DBversion);
6461 }
6462
6463 $DBversion = "3.11.00.020";
6464 if ( CheckVersion($DBversion) ) {
6465     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UNIMARCField100Language', 'fre','UNIMARC field 100 default language',NULL,'short')");
6466     print "Upgrade to $DBversion done (Bug 8347 - Koha forces UNIMARC 100 field code language to 'fre')\n";
6467     SetVersion($DBversion);
6468 }
6469
6470 $DBversion ="3.11.00.021";
6471 if ( CheckVersion($DBversion) ) {
6472     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACPopupAuthorsSearch','0','Display the list of authors when clicking on one author.','','YesNo');");
6473     print "Upgrade to $DBversion done (Bug 5888 - Subject search pop-up for the OPAC)\n";
6474     SetVersion($DBversion);
6475 }
6476
6477 $DBversion = "3.11.00.022";
6478 if ( CheckVersion($DBversion) ) {
6479     $dbh->do(
6480 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('Persona',0,'Use Mozilla Persona for login','','YesNo')"
6481     );
6482     print "Upgrade to $DBversion done (Bug 9587 - Allow login via Persona)\n";
6483     SetVersion($DBversion);
6484 }
6485
6486 $DBversion = "3.11.00.023";
6487 if ( CheckVersion($DBversion) ) {
6488     $dbh->do("UPDATE z3950servers SET host = 'lx2.loc.gov', port = 210, db = 'LCDB', syntax = 'USMARC', encoding = 'utf8' WHERE name = 'LIBRARY OF CONGRESS'");
6489     print "Upgrade to $DBversion done (Bug 9520 - Update default LOC Z39.50 target)\n";
6490     SetVersion($DBversion);
6491 }
6492
6493 $DBversion = "3.11.00.024";
6494 if ( CheckVersion($DBversion) ) {
6495     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacItemLocation','callnum','Show the shelving location of items in the opac','callnum|ccode|location','Choice');");
6496     print "Upgrade to $DBversion done (Bug 5079: Add OpacItemLocation syspref)\n";
6497     SetVersion ($DBversion);
6498 }
6499
6500 $DBversion = "3.11.00.025";
6501 if ( CheckVersion($DBversion) ) {
6502     $dbh->do(
6503         "CREATE TABLE linktracker (
6504   id int(11) NOT NULL AUTO_INCREMENT,
6505   biblionumber int(11) DEFAULT NULL,
6506   itemnumber int(11) DEFAULT NULL,
6507   borrowernumber int(11) DEFAULT NULL,
6508   url text,
6509   timeclicked datetime DEFAULT NULL,
6510   PRIMARY KEY (id),
6511   KEY bibidx (biblionumber),
6512   KEY itemidx (itemnumber),
6513   KEY borridx (borrowernumber),
6514   KEY dateidx (timeclicked)
6515     ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
6516     );
6517     $dbh->do( "
6518   INSERT INTO systempreferences (variable,value,explanation,options,type)
6519   VALUES('TrackClicks','0','Track links clicked',NULL,'Integer')" );
6520     print
6521 "Upgrade to $DBversion done (Adds feature Bug 8917, the ability to track links clicked)\n";
6522     SetVersion($DBversion);
6523 }
6524
6525 $DBversion = "3.11.00.026";
6526 if ( CheckVersion($DBversion) ) {
6527     $dbh->do(qq{
6528         ALTER TABLE import_records ADD INDEX batch_id_record_type ( import_batch_id, record_type );
6529     });
6530     print "Upgrade to $DBversion done (Bug 9207: Add new index batch_id_record_type to import_records)\n";
6531     SetVersion($DBversion);
6532 }
6533
6534 $DBversion = "3.11.00.027";
6535 if ( CheckVersion($DBversion) ) {
6536     $dbh->do(q{
6537         INSERT INTO permissions ( module_bit, code, description )
6538         VALUES  ( '1', 'overdues_report', 'Execute overdue items report' )
6539     });
6540     # add new permission for users with all report permissions and circulation remaining permission
6541     $dbh->do(q{
6542         INSERT INTO user_permissions (borrowernumber, module_bit, code)
6543         SELECT user_permissions.borrowernumber, 1, 'overdues_report'
6544         FROM user_permissions
6545         LEFT JOIN borrowers USING(borrowernumber)
6546         WHERE borrowers.flags & (1 << 16)
6547         AND user_permissions.code = 'circulate_remaining_permissions'
6548     });
6549     print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n";
6550     SetVersion($DBversion);
6551 }
6552
6553 $DBversion = "3.11.00.028";
6554 if ( CheckVersion($DBversion) ) {
6555     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('PatronSelfRegistrationAdditionalInstructions', '', NULL , 'A free text field to display additional instructions to newly self registered patrons.', 'free'    );");
6556     print "Upgrade to $DBversion done (Bug 9756 - Patron self registration missing the system preference PatronSelfRegistrationAdditionalInstructions)\n";
6557     SetVersion($DBversion);
6558 }
6559
6560 $DBversion = "3.11.00.029";
6561 if (CheckVersion($DBversion)) {
6562     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseQueryParser', '0', 'If enabled, try to use QueryParser for queries.', NULL, 'YesNo')");
6563     print "Upgrade to $DBversion done (Bug 9239: Make it possible for Koha to use QueryParser)\n";
6564     SetVersion ($DBversion);
6565 }
6566
6567 $DBversion = "3.11.00.030";
6568 if ( CheckVersion($DBversion) ) {
6569     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('FinesIncludeGracePeriod','1','If enabled, fines calculations will include the grace period.',NULL,'YesNo');");
6570     print "Upgrade to $DBversion done (Add system preference FinesIncludeGracePeriod)\n";
6571     SetVersion($DBversion);
6572 }
6573
6574 $DBversion = "3.11.00.100";
6575 if ( CheckVersion($DBversion) ) {
6576     print "Upgrade to $DBversion done (3.12-alpha release)\n";
6577     SetVersion ($DBversion);
6578 }
6579
6580 $DBversion = "3.11.00.101";
6581 if ( CheckVersion($DBversion) ) {
6582    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorsFacetsSeparator',', ', 'UNIMARC authors facets separator', NULL, 'short')");
6583    print "Upgrade to $DBversion done (Bug 9341: Problem with UNIMARC authors facets)\n";
6584    SetVersion ($DBversion);
6585 }
6586
6587 $DBversion = "3.11.00.102";
6588 if ( CheckVersion($DBversion) ) {
6589     $dbh->do(q{
6590         DELETE FROM systempreferences WHERE variable='NoZebra'
6591     });
6592     $dbh->do(q{
6593         DELETE FROM systempreferences WHERE variable='QueryRemoveStopwords'
6594     });
6595     print "Upgrade to $DBversion done (Remove deprecated NoZebra and QueryRemoveStopwords sysprefs)\n";
6596     SetVersion($DBversion);
6597 }
6598
6599 $DBversion = "3.11.00.103";
6600 if ( CheckVersion($DBversion) ) {
6601     $dbh->do("DELETE FROM systempreferences WHERE variable = 'insecure';");
6602     print "Upgrade to $DBversion done (Bug 9827 - Remove 'insecure' system preference)\n";
6603     SetVersion($DBversion);
6604 }
6605
6606 $DBversion = "3.11.00.104";
6607 if ( CheckVersion($DBversion) ) {
6608     print "Upgrade to $DBversion done (3.12-alpha2 release)\n";
6609     SetVersion ($DBversion);
6610 }
6611
6612 $DBversion = "3.11.00.105";
6613 if ( CheckVersion($DBversion) ) {
6614     if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
6615         $sth = $dbh->prepare(
6616 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '029'"
6617         );
6618         $sth->execute;
6619         my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6620
6621         for my $frameworkcode ( keys %$frameworkcodes ) {
6622             $dbh->do( "
6623     INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6624     libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6625     value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6626     ('029', 'a', 'OCLC library identifier', 'OCLC library identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6627     ('029', 'b', 'System control number', 'System control number', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6628     ('029', 'c', 'OAI set name', 'OAI set name', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6629     ('029', 't', 'Content type identifier', 'Content type identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL)
6630    " );
6631         }
6632
6633         for my $tag ( '863', '864', '865' ) {
6634             $sth = $dbh->prepare(
6635 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '$tag'"
6636             );
6637             $sth->execute;
6638             my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6639
6640             for my $frameworkcode ( keys %$frameworkcodes ) {
6641                 $dbh->do( "
6642      INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6643      libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6644      value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6645      ('$tag', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6646      ('$tag', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6647      ('$tag', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6648      ('$tag', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6649      ('$tag', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6650      ('$tag', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6651      ('$tag', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6652      ('$tag', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6653      ('$tag', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6654      ('$tag', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6655      ('$tag', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6656      ('$tag', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6657      ('$tag', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6658      ('$tag', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6659      ('$tag', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6660      ('$tag', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6661      ('$tag', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6662      ('$tag', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6663      ('$tag', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6664      ('$tag', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6665      ('$tag', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6666      ('$tag', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6667      ('$tag', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6668      ('$tag', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6669      ('$tag', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL)
6670     " );
6671             }
6672         }
6673     }
6674     print "Upgrade to $DBversion done (Bug 9353: Missing subfields on MARC21 frameworks)\n";
6675     SetVersion($DBversion);
6676 }
6677
6678
6679 $DBversion = "3.11.00.106";
6680 if ( CheckVersion($DBversion) ) {
6681     $dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('19', 'plugins', 'Koha plugins', '0')");
6682     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
6683               ('19', 'manage', 'Manage plugins ( install / uninstall )'),
6684               ('19', 'tool', 'Use tool plugins'),
6685               ('19', 'report', 'Use report plugins'),
6686               ('19', 'configure', 'Configure plugins')
6687             ");
6688     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseKohaPlugins','0','Enable or disable the ability to use Koha Plugins.','','YesNo')");
6689
6690     $dbh->do("
6691         CREATE TABLE IF NOT EXISTS plugin_data (
6692             plugin_class varchar(255) NOT NULL,
6693             plugin_key varchar(255) NOT NULL,
6694             plugin_value text,
6695             PRIMARY KEY (plugin_class,plugin_key)
6696         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6697     ");
6698
6699     print "Upgrade to $DBversion done (Bug 7804: Added plugin system.)\n";
6700     SetVersion($DBversion);
6701 }
6702
6703 $DBversion = "3.11.00.107";
6704 if ( CheckVersion($DBversion) ) {
6705    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('TimeFormat','24hr','12hr|24hr','Defines the global time format for visual output.','Choice')");
6706    print "Upgrade to $DBversion done (Bug 9014: Add syspref TimeFormat)\n";
6707    SetVersion ($DBversion);
6708 }
6709
6710 $DBversion = "3.11.00.108";
6711 if ( CheckVersion($DBversion) ) {
6712     $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP;");
6713     $dbh->do("UPDATE action_logs SET info=(SELECT itemnumber FROM items WHERE biblionumber= action_logs.info LIMIT 1) WHERE module='CIRCULATION' AND action in ('ISSUE','RETURN');");
6714     $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP;");
6715     print "Upgrade to $DBversion done (Bug 7241: Fix on circulation logs)\n";
6716     print "WARNING about bug 7241: to partially correct the broken logs, the log history is filled with the first found item for each biblio.\n";
6717     SetVersion($DBversion);
6718 }
6719
6720 $DBversion = "3.11.00.109";
6721 if ( CheckVersion($DBversion) ) {
6722    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('DisplayIconsXSLT', '1', '', 'If ON, displays the format, audience, and material type icons in XSLT MARC21 results and detail pages.', 'YesNo');");
6723    print "Upgrade to $DBversion done (Bug 9403: Add DisplayIconsXSLT)\n";
6724    SetVersion ($DBversion);
6725 }
6726
6727 $DBversion = "3.11.00.110";
6728 if ( CheckVersion($DBversion) ) {
6729     $dbh->do("ALTER TABLE pending_offline_operations CHANGE barcode barcode VARCHAR( 20 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
6730     $dbh->do("ALTER TABLE pending_offline_operations ADD amount DECIMAL( 28, 6 ) NULL DEFAULT NULL");
6731     print "Upgrade to $DBversion done (Bug 8220 - Allow koc uploads to go to process queue)\n";
6732     SetVersion ($DBversion);
6733 }
6734
6735 $DBversion = "3.11.00.111";
6736 if ( CheckVersion($DBversion) ) {
6737     my $sth = $dbh->prepare("
6738         SELECT module, code, branchcode, content
6739         FROM letter
6740         WHERE content LIKE '%<fine>%'
6741     ");
6742     $sth->execute;
6743     my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?");
6744     while(my $row = $sth->fetchrow_hashref){
6745         $row->{content} =~ s/<fine>\w+<\/fine>/<<items.fine>>/;
6746         $sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode});
6747     }
6748     print "Upgrade to $DBversion done (use new <<items.fine>> syntax in notices)\n";
6749     SetVersion($DBversion);
6750 }
6751
6752 $DBversion = "3.11.00.112";
6753 if ( CheckVersion($DBversion) ) {
6754     $dbh->do(qq{
6755         ALTER TABLE issuingrules ADD COLUMN renewalperiod int(4) DEFAULT NULL AFTER renewalsallowed
6756     });
6757     $dbh->do(qq{
6758         UPDATE issuingrules SET renewalperiod = issuelength
6759     });
6760     print "Upgrade to $DBversion done (Bug 8365: Add colum issuingrules.renewalperiod)\n";
6761     SetVersion ($DBversion);
6762 }
6763
6764 $DBversion = "3.11.00.113";
6765 if ( CheckVersion($DBversion) ) {
6766     $dbh->do(q{
6767         ALTER TABLE branchcategories ADD show_in_pulldown BOOLEAN NOT NULL DEFAULT '0',
6768         ADD INDEX ( show_in_pulldown )
6769     });
6770     print "Upgrade to $DBversion done (Bug 9257 - Add groups to normal search pulldown)\n";
6771     SetVersion ($DBversion);
6772 }
6773
6774 $DBversion = "3.11.00.115";
6775 if ( CheckVersion($DBversion) ) {
6776     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his or her home library will be emphasized and shown first in search results and item details.','YesNo')");
6777     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich','PatronBranch','PatronBranch|OpacURLBranch','Decides which branch''s items to emphasize. If PatronBranch, emphasize the logged in user''s library''s items. If OpacURLBranch, highlight the items of the Apache var BRANCHCODE defined in Koha''s Apache configuration file.','Choice')");
6778     print "Upgrade to $DBversion done (Bug 7740: Add syspref HighlightOwnItemsOnOPAC)\n";
6779     SetVersion ($DBversion);
6780 }
6781
6782 $DBversion = "3.11.00.116";
6783 if ( CheckVersion($DBversion) ) {
6784     $dbh->do(q{ALTER TABLE aqorders DROP COLUMN serialid;});
6785     $dbh->do(q{ALTER TABLE aqorders DROP COLUMN subscription;});
6786     $dbh->do(q{ALTER TABLE aqorders ADD COLUMN subscriptionid INT(11) DEFAULT NULL;});
6787     $dbh->do(q{ALTER TABLE aqorders ADD CONSTRAINT aqorders_subscriptionid FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE;});
6788     $dbh->do(q{ALTER TABLE subscription ADD COLUMN reneweddate DATE DEFAULT NULL;});
6789     print "Upgrade to $DBversion done (Bug 5343: table aqorders: DROP serialid and subscription fields and ADD subscriptionid, table subscription: ADD reneweddate)\n";
6790     SetVersion ($DBversion);
6791 }
6792
6793 $DBversion = "3.11.00.200";
6794 if ( CheckVersion($DBversion) ) {
6795     print "Upgrade to $DBversion done (3.12-beta1 release)\n";
6796     SetVersion ($DBversion);
6797 }
6798
6799 $DBversion = "3.11.00.201";
6800 if ( CheckVersion($DBversion) ) {
6801     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS' AND host LIKE 'z3950.bibsys.no'");
6802     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK' AND host LIKE 'z3950.nb.no'");
6803     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK' AND host LIKE 'z3950.nb.no'");
6804     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN' AND host like 'z3950.deich.folkebibl.no'");
6805     print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n";
6806     SetVersion($DBversion);
6807 }
6808
6809 $DBversion = "3.11.00.202";
6810 if ( CheckVersion($DBversion) ) {
6811    $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ca', 'language', 'Catalan','2013-01-12' )");
6812    $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ca','cat')");
6813    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'es', 'Catalán')");
6814    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'en', 'Catalan')");
6815    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'fr', 'Catalan')");
6816    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'ca', 'Català')");
6817    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'de', 'Katalanisch')");
6818    print "Upgrade to $DBversion done (Bug 9381: Add Catalan laguage)\n";
6819    SetVersion ($DBversion);
6820 }
6821
6822 $DBversion = "3.11.00.203";
6823 if ( CheckVersion($DBversion) ) {
6824     $dbh->do(q{ALTER TABLE suggestions CHANGE COLUMN title title VARCHAR(255) DEFAULT NULL;});
6825     print "Upgrade to $DBversion done (Bug 2046 - increasing title column length for suggestions)\n";
6826     SetVersion ($DBversion);
6827 }
6828
6829 $DBversion = "3.11.00.300";
6830 if ( CheckVersion($DBversion) ) {
6831     print "Upgrade to $DBversion done (3.12-beta3 release)\n";
6832     SetVersion ($DBversion);
6833 }
6834
6835 $DBversion = "3.11.00.301";
6836 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6837     #issues
6838     $dbh->do(q{
6839         ALTER TABLE `issues`
6840             ADD KEY `itemnumber_idx` (`itemnumber`),
6841             ADD KEY `branchcode_idx` (`branchcode`),
6842             ADD KEY `issuingbranch_idx` (`issuingbranch`)
6843     });
6844     $dbh->do(q{
6845         ALTER TABLE `old_issues`
6846             ADD KEY `branchcode_idx` (`branchcode`),
6847             ADD KEY `issuingbranch_idx` (`issuingbranch`)
6848     });
6849     #items
6850     $dbh->do(q{
6851         ALTER TABLE `items` ADD KEY `itype_idx` (`itype`)
6852     });
6853     $dbh->do(q{
6854         ALTER TABLE `deleteditems` ADD KEY `itype_idx` (`itype`)
6855     });
6856     # biblioitems
6857     $dbh->do(q{
6858         ALTER TABLE `biblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6859     });
6860     $dbh->do(q{
6861         ALTER TABLE `deletedbiblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6862     });
6863     # statistics
6864     $dbh->do(q{
6865         ALTER TABLE `statistics`
6866             ADD KEY `branch_idx` (`branch`),
6867             ADD KEY `proccode_idx` (`proccode`),
6868             ADD KEY `type_idx` (`type`),
6869             ADD KEY `usercode_idx` (`usercode`),
6870             ADD KEY `itemnumber_idx` (`itemnumber`),
6871             ADD KEY `itemtype_idx` (`itemtype`),
6872             ADD KEY `borrowernumber_idx` (`borrowernumber`),
6873             ADD KEY `associatedborrower_idx` (`associatedborrower`),
6874             ADD KEY `ccode_idx` (`ccode`)
6875     });
6876
6877     print "Upgrade to $DBversion done (Bug 9681: Add some database indexes)\n";
6878     SetVersion($DBversion);
6879 }
6880
6881 $DBversion = "3.12.00.000";
6882 if ( CheckVersion($DBversion) ) {
6883     print "Upgrade to $DBversion done (3.12.0 release)\n";
6884     SetVersion ($DBversion);
6885 }
6886
6887 $DBversion = '3.13.00.000';
6888 if ( CheckVersion($DBversion) ) {
6889     print "Upgrade to $DBversion done (start the journey to Koha Pi)\n";
6890     SetVersion ($DBversion);
6891 }
6892
6893 $DBversion = "3.13.00.001";
6894 if ( CheckVersion($DBversion) ) {
6895     $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('UseCourseReserves', '0', NULL, 'Enable the course reserves feature.', 'YesNo')");
6896     $dbh->do("INSERT INTO userflags (bit,flag,flagdesc,defaulton) VALUES ('18','coursereserves','Course Reserves','0')");
6897     $dbh->do("
6898 CREATE TABLE `courses` (
6899   `course_id` int(11) NOT NULL AUTO_INCREMENT,
6900   `department` varchar(20) DEFAULT NULL,
6901   `course_number` varchar(255) DEFAULT NULL,
6902   `section` varchar(255) DEFAULT NULL,
6903   `course_name` varchar(255) DEFAULT NULL,
6904   `term` varchar(20) DEFAULT NULL,
6905   `staff_note` mediumtext,
6906   `public_note` mediumtext,
6907   `students_count` varchar(20) DEFAULT NULL,
6908   `enabled` enum('yes','no') NOT NULL DEFAULT 'yes',
6909   `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6910    PRIMARY KEY (`course_id`)
6911 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
6912     ");
6913
6914     $dbh->do("
6915 CREATE TABLE `course_instructors` (
6916   `course_id` int(11) NOT NULL,
6917   `borrowernumber` int(11) NOT NULL,
6918   PRIMARY KEY (`course_id`,`borrowernumber`),
6919   KEY `borrowernumber` (`borrowernumber`)
6920 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6921     ");
6922
6923     $dbh->do("
6924 ALTER TABLE `course_instructors`
6925   ADD CONSTRAINT `course_instructors_ibfk_2` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`),
6926   ADD CONSTRAINT `course_instructors_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6927     ");
6928
6929     $dbh->do("
6930 CREATE TABLE `course_items` (
6931   `ci_id` int(11) NOT NULL AUTO_INCREMENT,
6932   `itemnumber` int(11) NOT NULL,
6933   `itype` varchar(10) DEFAULT NULL,
6934   `ccode` varchar(10) DEFAULT NULL,
6935   `holdingbranch` varchar(10) DEFAULT NULL,
6936   `location` varchar(80) DEFAULT NULL,
6937   `enabled` enum('yes','no') NOT NULL DEFAULT 'no',
6938   `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6939    PRIMARY KEY (`ci_id`),
6940    UNIQUE KEY `itemnumber` (`itemnumber`),
6941    KEY `holdingbranch` (`holdingbranch`)
6942 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
6943     ");
6944
6945     $dbh->do("
6946 ALTER TABLE `course_items`
6947   ADD CONSTRAINT `course_items_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
6948   ADD CONSTRAINT `course_items_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6949 ");
6950
6951     $dbh->do("
6952 CREATE TABLE `course_reserves` (
6953   `cr_id` int(11) NOT NULL AUTO_INCREMENT,
6954   `course_id` int(11) NOT NULL,
6955   `ci_id` int(11) NOT NULL,
6956   `staff_note` mediumtext,
6957   `public_note` mediumtext,
6958   `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6959    PRIMARY KEY (`cr_id`),
6960    UNIQUE KEY `pseudo_key` (`course_id`,`ci_id`),
6961    KEY `course_id` (`course_id`)
6962 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
6963 ");
6964
6965     $dbh->do("
6966 ALTER TABLE `course_reserves`
6967   ADD CONSTRAINT `course_reserves_ibfk_1` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`);
6968     ");
6969
6970     $dbh->do("
6971 INSERT INTO permissions (module_bit, code, description) VALUES
6972   (18, 'manage_courses', 'Add, edit and delete courses'),
6973   (18, 'add_reserves', 'Add course reserves'),
6974   (18, 'delete_reserves', 'Remove course reserves')
6975 ;
6976     ");
6977
6978
6979     print "Upgrade to $DBversion done (Add Course Reserves ( system preference UseCourseReserves ))\n";
6980     SetVersion($DBversion);
6981 }
6982
6983 $DBversion = "3.13.00.002";
6984 if ( CheckVersion($DBversion) ) {
6985    $dbh->do("UPDATE systempreferences SET variable = 'IndependentBranches' WHERE variable = 'IndependantBranches'");
6986    print "Upgrade to $DBversion done (Bug 10080 - Change system pref IndependantBranches to IndependentBranches)\n";
6987    SetVersion ($DBversion);
6988 }
6989
6990 $DBversion = '3.13.00.003';
6991 if ( CheckVersion($DBversion) ) {
6992     $dbh->do("ALTER TABLE serial DROP itemnumber");
6993     print "Upgrade to $DBversion done (Bug 7718 - Remove itemnumber column from serials table)\n";
6994     SetVersion($DBversion);
6995 }
6996
6997 $DBversion = "3.13.00.004";
6998 if(CheckVersion($DBversion)) {
6999     $dbh->do(
7000 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowHoldNotes',0,'Show hold notes on OPAC','','YesNo')"
7001     );
7002     print "Upgrade to $DBversion done (Bug 9722: Allow users to add notes when placing a hold in OPAC)\n";
7003     SetVersion($DBversion);
7004 }
7005
7006 $DBversion = "3.13.00.005";
7007 if(CheckVersion($DBversion)) {
7008     my $intra= C4::Context->preference("intranetstylesheet");
7009     #if this pref is not blank or starting with http, https or / [root], then
7010     #add an additional / to the front
7011     if($intra && $intra !~ /^(\/|https?)/) {
7012         $dbh->do("UPDATE systempreferences SET value=? WHERE variable=?",
7013             undef,('/'.$intra,"intranetstylesheet"));
7014         print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n";
7015     }
7016     print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n";
7017     SetVersion ($DBversion);
7018 }
7019
7020 $DBversion = "3.13.00.006";
7021 if ( CheckVersion($DBversion) ) {
7022     $dbh->do(q{
7023         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
7024         VALUES ('CalculateFinesOnReturn','1','Switch to control if overdue fines are calculated on return or not', '', 'YesNo')
7025     });
7026     print "Upgrade to $DBversion done (Bug 10120: Fines on item return controlled by a systempreference)\n";
7027     SetVersion($DBversion);
7028 }
7029
7030 $DBversion = "3.13.00.007";
7031 if ( CheckVersion($DBversion) ) {
7032     $dbh->do("UPDATE systempreferences SET variable='OpacHoldNotes' WHERE variable='OpacShowHoldNotes'");
7033     print "Upgrade to $DBversion done (Bug 10343: Rename OpacShowHoldNotes to OpacHoldNotes)\n";
7034     SetVersion($DBversion);
7035 }
7036
7037 $DBversion = "3.13.00.008";
7038 if ( CheckVersion($DBversion) ) {
7039     $dbh->do("
7040 CREATE TABLE IF NOT EXISTS borrower_files (
7041   file_id int(11) NOT NULL AUTO_INCREMENT,
7042   borrowernumber int(11) NOT NULL,
7043   file_name varchar(255) NOT NULL,
7044   file_type varchar(255) NOT NULL,
7045   file_description varchar(255) DEFAULT NULL,
7046   file_content longblob NOT NULL,
7047   date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7048   PRIMARY KEY (file_id),
7049   KEY borrowernumber (borrowernumber),
7050   CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7051 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
7052     ");
7053     print "Upgrade to $DBversion done (Bug 10443: make sure borrower_files table exists)\n";
7054     SetVersion($DBversion);
7055 }
7056
7057 $DBversion = "3.13.00.009";
7058 if ( CheckVersion($DBversion) ) {
7059     $dbh->do("ALTER TABLE aqorders DROP COLUMN biblioitemnumber");
7060     print "Upgrade to $DBversion done (Bug 9987 - Drop column aqorders.biblioitemnumber)\n";
7061     SetVersion($DBversion);
7062 }
7063
7064 $DBversion = "3.13.00.010";
7065 if ( CheckVersion($DBversion) ) {
7066     $dbh->do(
7067         q{
7068 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AcqWarnOnDuplicateInvoice','0','Warn librarians when they try to create a duplicate invoice', '', 'YesNo');
7069 }
7070     );
7071     print
7072 "Upgrade to $DBversion done (Bug 10366 - Add system preference to enabling warning librarian when invoice is duplicated)\n";
7073     SetVersion($DBversion);
7074 }
7075
7076 $DBversion = "3.13.00.011";
7077 if ( CheckVersion($DBversion) ) {
7078     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it'");
7079     print "Upgrade to $DBversion done (Bug 9519: Wrong language code for Italian in the advanced search language limitations)\n";
7080     SetVersion($DBversion);
7081 }
7082
7083 $DBversion = "3.13.00.012";
7084 if ( CheckVersion($DBversion) ) {
7085     $dbh->do("ALTER TABLE issuingrules MODIFY COLUMN overduefinescap decimal(28,6) DEFAULT NULL;");
7086     print "Upgrade to $DBversion done (Bug 10490: Correct datatype for overduefinescap in issuingrules)\n";
7087     SetVersion($DBversion);
7088 }
7089
7090 $DBversion ="3.13.00.013";
7091 if ( CheckVersion($DBversion) ) {
7092     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowTooManyOverride', '1', 'If on, allow staff to override and check out items when the patron has reached the maximum number of allowed checkouts', '', 'YesNo');");
7093     print "Upgrade to $DBversion done (Bug 9576: add AllowTooManyOverride syspref to enable or disable issue limit confirmation)\n";
7094     SetVersion($DBversion);
7095 }
7096
7097 $DBversion = "3.13.00.014";
7098 if ( CheckVersion($DBversion) ) {
7099     $dbh->do("ALTER TABLE courses MODIFY COLUMN department varchar(80) DEFAULT NULL;");
7100     $dbh->do("ALTER TABLE courses MODIFY COLUMN term       varchar(80) DEFAULT NULL;");
7101     print "Upgrade to $DBversion done (Bug 10604: correct width of courses.department and courses.term)\n";
7102     SetVersion($DBversion);
7103 }
7104
7105 $DBversion = "3.13.00.015";
7106 if ( CheckVersion($DBversion) ) {
7107     $dbh->do(
7108 "INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('itemBarcodeFallbackSearch','','If set, enables the automatic use of a keyword catalog search if the phrase entered as a barcode on the checkout page does not turn up any results during an item barcode search',NULL,'YesNo')"
7109     );
7110     print "Upgrade to $DBversion done (Bug 7494: Add itemBarcodeFallbackSearch syspref)\n";
7111     SetVersion($DBversion);
7112 }
7113
7114 $DBversion = "3.13.00.016";
7115 if ( CheckVersion($DBversion) ) {
7116     $dbh->do(q{
7117         ALTER TABLE items CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT  '0'
7118     });
7119
7120     $dbh->do(q{
7121         ALTER TABLE deleteditems CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT  '0'
7122     });
7123
7124     $dbh->do(q{
7125         UPDATE saved_sql SET savedsql = REPLACE(savedsql, 'wthdrawn', 'withdrawn')
7126     });
7127
7128     $dbh->do(q{
7129         UPDATE marc_subfield_structure SET kohafield = 'items.withdrawn' WHERE kohafield = 'items.wthdrawn'
7130     });
7131
7132     print "Upgrade to $DBversion done (Bug 10550 - Fix database typo wthdrawn)\n";
7133     SetVersion($DBversion);
7134 }
7135
7136 $DBversion = "3.13.00.017";
7137 if ( CheckVersion($DBversion) ) {
7138     $dbh->do(
7139 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientKey','','Client key for OverDrive integration','30','Free')"
7140     );
7141     $dbh->do(
7142 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientSecret','','Client key for OverDrive integration','30','YesNo')"
7143     );
7144     $dbh->do(
7145 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveLibraryID','','Library ID for OverDrive integration','','Integer')"
7146     );
7147     print "Upgrade to $DBversion done (Bug 10320 - Show results from library's OverDrive collection in OPAC search)\n";
7148     SetVersion($DBversion);
7149 }
7150
7151 $DBversion = "3.13.00.018";
7152 if ( CheckVersion($DBversion) ) {
7153     $dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers;});
7154     $dbh->do(qq{
7155         CREATE TABLE aqorders_transfers (
7156           ordernumber_from int(11) NULL,
7157           ordernumber_to int(11) NULL,
7158           timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7159           UNIQUE KEY ordernumber_from (ordernumber_from),
7160           UNIQUE KEY ordernumber_to (ordernumber_to),
7161           CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
7162           CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
7163         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7164     });
7165     print "Upgrade to $DBversion done (Bug 5349: Add aqorders_transfers table)\n";
7166     SetVersion($DBversion);
7167 }
7168
7169 $DBversion = "3.13.00.019";
7170 if ( CheckVersion($DBversion) ) {
7171     $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsg VARCHAR(255) AFTER summary;");
7172     $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsgtype CHAR(16) DEFAULT 'message' NOT NULL AFTER checkinmsg;");
7173     print "Upgrade to $DBversion done (Bug 10513 - Light up a warning/message when returning a chosen item type)\n";
7174     SetVersion($DBversion);
7175 }
7176
7177 $DBversion = "3.13.00.020";
7178 if ( CheckVersion($DBversion) ) {
7179     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('WhenLostForgiveFine','0',NULL,'If ON, Forgives the fines on an item when it is lost.','YesNo')");
7180     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('WhenLostChargeReplacementFee','1',NULL,'If ON, Charge the replacement price when a patron loses an item.','YesNo')");
7181     print "Upgrade to $DBversion done (Bug 7639: system preferences to forgive fines on lost items)\n";
7182     SetVersion($DBversion);
7183 }
7184
7185 $DBversion ="3.13.00.021";
7186 if ( CheckVersion($DBversion) ) {
7187     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ConfirmFutureHolds','0','Number of days for confirming future holds','','Integer');");
7188     print "Upgrade to $DBversion done (Bug 9761: Add ConfirmFutureHolds pref)\n";
7189     SetVersion($DBversion);
7190 }
7191
7192 $DBversion = "3.13.00.022";
7193 if ( CheckVersion($DBversion) ) {
7194     $dbh->do("DELETE from auth_tag_structure WHERE tagfield IN ('68a','68b')");
7195     $dbh->do("DELETE from auth_subfield_structure WHERE tagfield IN ('68a','68b')");
7196     print "Upgrade to $DBversion done (Bug 10687 - Delete erroneous tags 68a and 68b on default MARC21 auth framework)\n";
7197     SetVersion($DBversion);
7198 }
7199
7200 $DBversion = "3.13.00.023";
7201 if ( CheckVersion($DBversion) ) {
7202     $dbh->do("ALTER TABLE borrowers CHANGE password password VARCHAR(60);");
7203     print "Upgrade to $DBversion done (Bug 9611 upgrading password storage system)\n";
7204     SetVersion($DBversion);
7205 }
7206
7207 $DBversion = "3.13.00.024";
7208 if ( CheckVersion($DBversion) ) {
7209     $dbh->do(q{ALTER TABLE z3950servers ADD COLUMN recordtype VARCHAR(45) NOT NULL DEFAULT 'biblio' AFTER description;});
7210     print "Upgrade to $DBversion done (Bug 10096 - Add a Z39.50 interface for authority searching)\n";
7211 }
7212
7213 $DBversion = "3.13.00.025";
7214 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7215    $dbh->do("ALTER TABLE oai_sets_mappings ADD COLUMN operator varchar(8) NOT NULL default 'equal' AFTER marcsubfield;");
7216    print "Upgrade to $DBversion done (Bug 9295: OAI notequal: add operator column to OAI mappings table)\n";
7217    SetVersion ($DBversion);
7218 }
7219
7220 $DBversion = "3.13.00.026";
7221 if ( CheckVersion($DBversion) ) {
7222     $dbh->do(q|
7223         ALTER TABLE auth_subfield_structure ADD COLUMN defaultvalue TEXT DEFAULT NULL AFTER frameworkcode
7224     |);
7225     print "Upgrade to $DBversion done (Bug 10602: Add the column auth_subfield_structure.defaultvalue)\n";
7226     SetVersion($DBversion);
7227 }
7228
7229 $DBversion = "3.13.00.027";
7230 if ( CheckVersion($DBversion) ) {
7231     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AllowOfflineCirculation','0','','If on, enables HTML5 offline circulation functionality.','YesNo')");
7232     print "Upgrade to $DBversion done (Bug 10240: Add syspref AllowOfflineCirculation)\n";
7233     SetVersion ($DBversion);
7234 }
7235
7236 $DBversion = "3.13.00.028";
7237 if ( CheckVersion($DBversion) ) {
7238     $dbh->do(q{
7239         ALTER TABLE export_format ADD type VARCHAR(255) DEFAULT 'marc' AFTER encoding
7240     });
7241     $dbh->do(q{
7242         ALTER TABLE export_format CHANGE marcfields content mediumtext NOT NULL
7243     });
7244     print "Upgrade to $DBversion done (Bug 10853: Add new field export_format.type and rename export_format.marcfields with export_format.content)\n";
7245     SetVersion($DBversion);
7246 }
7247
7248 $DBversion = "3.13.00.029";
7249 if ( CheckVersion($DBversion) ) {
7250     $dbh->do(q{
7251         INSERT IGNORE INTO export_format( profile, description, content, csv_separator, type )
7252         VALUES ( "issues to claim", "Default CSV export for serial issue claims",
7253                 "SUPPLIER=aqbooksellers.name|TITLE=subscription.title|ISSUE NUMBER=serial.serialseq|LATE SINCE=serial.planneddate",
7254                 ",", "sql" )
7255     });
7256     print "Upgrade to $DBversion done (Bug 10854: Add the default CSV profile for claiming issues)\n";
7257     SetVersion($DBversion);
7258 }
7259
7260 $DBversion = "3.13.00.030";
7261 if ( CheckVersion($DBversion) ) {
7262     $dbh->do(qq{
7263         DELETE FROM patronimage WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowers.cardnumber = patronimage.cardnumber)
7264     });
7265
7266     $dbh->do(qq{
7267         ALTER TABLE patronimage ADD borrowernumber INT( 11 ) NULL FIRST
7268     });
7269
7270     $dbh->{AutoCommit} = 0;
7271     $dbh->{RaiseError} = 1;
7272
7273     eval {
7274         $dbh->do(qq{
7275             UPDATE patronimage LEFT JOIN borrowers USING ( cardnumber ) SET patronimage.borrowernumber = borrowers.borrowernumber
7276         });
7277         $dbh->commit();
7278     };
7279
7280     if ($@) {
7281         print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber) failed! Transaction aborted because $@\n";
7282         eval { $dbh->rollback };
7283     }
7284     else {
7285         $dbh->do(qq{
7286             ALTER TABLE patronimage DROP FOREIGN KEY patronimage_fk1
7287         });
7288         $dbh->do(qq{
7289             ALTER TABLE patronimage DROP PRIMARY KEY, ADD PRIMARY KEY( borrowernumber )
7290         });
7291         $dbh->do(qq{
7292             ALTER TABLE patronimage DROP cardnumber
7293         });
7294         $dbh->do(qq{
7295             ALTER TABLE patronimage ADD FOREIGN KEY ( borrowernumber ) REFERENCES borrowers ( borrowernumber ) ON DELETE CASCADE ON UPDATE CASCADE
7296         });
7297
7298         print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber)\n";
7299         SetVersion($DBversion);
7300     }
7301
7302     $dbh->{AutoCommit} = 1;
7303     $dbh->{RaiseError} = 0;
7304 }
7305
7306 $DBversion = "3.13.00.031";
7307 if ( CheckVersion($DBversion) ) {
7308
7309     $dbh->do(q{
7310         CREATE TABLE IF NOT EXISTS `patron_lists` (
7311           patron_list_id int(11) NOT NULL AUTO_INCREMENT,
7312           name varchar(255) CHARACTER SET utf8 NOT NULL,
7313           owner int(11) NOT NULL,
7314           PRIMARY KEY (patron_list_id),
7315           KEY owner (owner)
7316         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7317     });
7318
7319     $dbh->do(q{
7320         ALTER TABLE `patron_lists`
7321           ADD CONSTRAINT patron_lists_ibfk_1 FOREIGN KEY (`owner`) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7322     });
7323
7324     $dbh->do(q{
7325         CREATE TABLE patron_list_patrons (
7326           patron_list_patron_id int(11) NOT NULL AUTO_INCREMENT,
7327           patron_list_id int(11) NOT NULL,
7328           borrowernumber int(11) NOT NULL,
7329           PRIMARY KEY (patron_list_patron_id),
7330           KEY patron_list_id (patron_list_id),
7331           KEY borrowernumber (borrowernumber)
7332         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7333     });
7334
7335     $dbh->do(q{
7336         ALTER TABLE `patron_list_patrons`
7337           ADD CONSTRAINT patron_list_patrons_ibfk_1 FOREIGN KEY (patron_list_id) REFERENCES patron_lists (patron_list_id) ON DELETE CASCADE ON UPDATE CASCADE,
7338           ADD CONSTRAINT patron_list_patrons_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7339     });
7340
7341     $dbh->do(q{
7342         INSERT INTO permissions (module_bit, code, description) VALUES
7343         (13, 'manage_patron_lists', 'Add, edit and delete patron lists and their contents')
7344     });
7345
7346     print "Upgrade to $DBversion done (Bug 10565 - Add a 'Patron List' feature for storing and manipulating collections of patrons)\n";
7347     SetVersion($DBversion);
7348 }
7349
7350 $DBversion = "3.13.00.032";
7351 if ( CheckVersion($DBversion) ) {
7352     $dbh->do("ALTER TABLE aqorders ADD COLUMN orderstatus varchar(16) DEFAULT 'new' AFTER parent_ordernumber");
7353     $dbh->do("UPDATE aqorders SET orderstatus='ordered' WHERE basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)");
7354     $dbh->do(q{
7355         UPDATE aqorders SET orderstatus='partial'
7356         WHERE quantity > quantityreceived
7357         AND quantityreceived > 0
7358         AND ordernumber IN (
7359             SELECT parent_ordernumber
7360             FROM (
7361                 SELECT DISTINCT(parent_ordernumber)
7362                 FROM aqorders
7363                 WHERE ordernumber != parent_ordernumber
7364             ) AS aq
7365         )
7366         AND basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)
7367     });
7368     $dbh->do("UPDATE aqorders SET orderstatus='complete' WHERE quantity=quantityreceived");
7369     $dbh->do("UPDATE aqorders SET orderstatus='cancelled' WHERE datecancellationprinted IS NOT NULL");
7370     print "Upgrade to $DBversion done (Bug 5336: Add the new column aqorders.orderstatus)\n";
7371     SetVersion($DBversion);
7372 }
7373
7374 $DBversion = "3.13.00.033";
7375 if ( CheckVersion($DBversion) ) {
7376     $dbh->do(qq|
7377         DROP TABLE IF EXISTS subscription_frequencies
7378     |);
7379     $dbh->do(qq|
7380         CREATE TABLE subscription_frequencies (
7381             id INTEGER NOT NULL AUTO_INCREMENT,
7382             description TEXT NOT NULL,
7383             displayorder INT DEFAULT NULL,
7384             unit ENUM('day','week','month','year') DEFAULT NULL,
7385             unitsperissue INTEGER NOT NULL DEFAULT '1',
7386             issuesperunit INTEGER NOT NULL DEFAULT '1',
7387             PRIMARY KEY (id)
7388         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7389     |);
7390
7391     $dbh->do(qq|
7392         DROP TABLE IF EXISTS subscription_numberpatterns
7393     |);
7394     $dbh->do(qq|
7395         CREATE TABLE subscription_numberpatterns (
7396             id INTEGER NOT NULL AUTO_INCREMENT,
7397             label VARCHAR(255) NOT NULL,
7398             displayorder INTEGER DEFAULT NULL,
7399             description TEXT NOT NULL,
7400             numberingmethod VARCHAR(255) NOT NULL,
7401             label1 VARCHAR(255) DEFAULT NULL,
7402             add1 INTEGER DEFAULT NULL,
7403             every1 INTEGER DEFAULT NULL,
7404             whenmorethan1 INTEGER DEFAULT NULL,
7405             setto1 INTEGER DEFAULT NULL,
7406             numbering1 VARCHAR(255) DEFAULT NULL,
7407             label2 VARCHAR(255) DEFAULT NULL,
7408             add2 INTEGER DEFAULT NULL,
7409             every2 INTEGER DEFAULT NULL,
7410             whenmorethan2 INTEGER DEFAULT NULL,
7411             setto2 INTEGER DEFAULT NULL,
7412             numbering2 VARCHAR(255) DEFAULT NULL,
7413             label3 VARCHAR(255) DEFAULT NULL,
7414             add3 INTEGER DEFAULT NULL,
7415             every3 INTEGER DEFAULT NULL,
7416             whenmorethan3 INTEGER DEFAULT NULL,
7417             setto3 INTEGER DEFAULT NULL,
7418             numbering3 VARCHAR(255) DEFAULT NULL,
7419             PRIMARY KEY (id)
7420         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7421     |);
7422
7423     $dbh->do(qq|
7424         INSERT INTO subscription_frequencies (description, unit, unitsperissue, issuesperunit, displayorder)
7425         VALUES
7426             ('2/day', 'day', 1, 2, 1),
7427             ('1/day', 'day', 1, 1, 2),
7428             ('3/week', 'week', 1, 3, 3),
7429             ('1/week', 'week', 1, 1, 4),
7430             ('1/2 weeks', 'week', 2, 1, 5),
7431             ('1/3 weeks', 'week', 3, 1, 6),
7432             ('1/month', 'month', 1, 1, 7),
7433             ('1/2 months', 'month', 2, 1, 8),
7434             ('1/3 months', 'month', 3, 1, 9),
7435             ('2/year', 'month', 6, 1, 10),
7436             ('1/year', 'year', 1, 1, 11),
7437             ('1/2 year', 'year', 2, 1, 12),
7438             ('Irregular', NULL, 1, 1, 13)
7439     |);
7440
7441     # Used to link existing subscription to newly created frequencies
7442     my $frequencies_mapping = {     # keys are old frequency numbers, values are the new ones
7443         1 => 2,     # daily (n/week)
7444         2 => 4,     # 1/week
7445         3 => 5,     # 1/2 weeks
7446         4 => 6,     # 1/3 weeks
7447         5 => 7,     # 1/month
7448         6 => 8,     # 1/2 months (6/year)
7449         7 => 9,     # 1/3 months (1/quarter)
7450         8 => 9,    # 1/quarter (seasonal)
7451         9 => 10,    # 2/year
7452         10 => 11,   # 1/year
7453         11 => 12,   # 1/2 years
7454         12 => 1,    # 2/day
7455         16 => 13,   # Without periodicity
7456         32 => 13,   # Irregular
7457         48 => 13    # Unknown
7458     };
7459
7460     $dbh->do(qq|
7461         INSERT INTO subscription_numberpatterns
7462             (label, displayorder, description, numberingmethod,
7463             label1, add1, every1, whenmorethan1, setto1, numbering1,
7464             label2, add2, every2, whenmorethan2, setto2, numbering2,
7465             label3, add3, every3, whenmorethan3, setto3, numbering3)
7466         VALUES
7467             ('Number', 1, 'Simple Numbering method', 'No.{X}',
7468             'Number', 1, 1, 99999, 1, NULL,
7469             NULL, NULL, NULL, NULL, NULL, NULL,
7470             NULL, NULL, NULL, NULL, NULL, NULL),
7471
7472             ('Volume, Number, Issue', 2, 'Volume Number Issue 1', 'Vol.{X}, Number {Y}, Issue {Z}',
7473             'Volume', 1, 48, 99999, 1, NULL,
7474             'Number', 1, 4, 12, 1, NULL,
7475             'Issue', 1, 1, 4, 1, NULL),
7476
7477             ('Volume, Number', 3, 'Volume Number 1', 'Vol {X}, No {Y}',
7478             'Volume', 1, 12, 99999, 1, NULL,
7479             'Number', 1, 1, 12, 1, NULL,
7480             NULL, NULL, NULL, NULL, NULL, NULL),
7481
7482             ('Seasonal', 4, 'Season Year', '{X} {Y}',
7483             'Season', 1, 1, 3, 0, 'season',
7484             'Year', 1, 4, 99999, 1, NULL,
7485             NULL, NULL, NULL, NULL, NULL, NULL)
7486     |);
7487
7488     $dbh->do(qq|
7489         ALTER TABLE subscription
7490         MODIFY COLUMN numberpattern INTEGER DEFAULT NULL,
7491         MODIFY COLUMN periodicity INTEGER DEFAULT NULL
7492     |);
7493
7494     # Update existing subscriptions
7495
7496     my $query = qq|
7497         SELECT subscriptionid, periodicity, numberingmethod,
7498             add1, every1, whenmorethan1, setto1,
7499             add2, every2, whenmorethan2, setto2,
7500             add3, every3, whenmorethan3, setto3
7501         FROM subscription
7502         ORDER BY subscriptionid
7503     |;
7504     my $sth = $dbh->prepare($query);
7505     $sth->execute;
7506     my $insert_numberpatterns_sth = $dbh->prepare(qq|
7507         INSERT INTO subscription_numberpatterns
7508              (label, displayorder, description, numberingmethod,
7509             label1, add1, every1, whenmorethan1, setto1, numbering1,
7510             label2, add2, every2, whenmorethan2, setto2, numbering2,
7511             label3, add3, every3, whenmorethan3, setto3, numbering3)
7512         VALUES
7513             (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
7514     |);
7515     my $check_numberpatterns_sth = $dbh->prepare(qq|
7516         SELECT * FROM subscription_numberpatterns
7517         WHERE (add1 = ? OR (add1 IS NULL AND ? IS NULL)) AND (add2 = ? OR (add2 IS NULL AND ? IS NULL))
7518         AND (add3 = ? OR (add3 IS NULL AND ? IS NULL)) AND (every1 = ? OR (every1 IS NULL AND ? IS NULL))
7519         AND (every2 = ? OR (every2 IS NULL AND ? IS NULL)) AND (every3 = ? OR (every3 IS NULL AND ? IS NULL))
7520         AND (whenmorethan1 = ? OR (whenmorethan1 IS NULL AND ? IS NULL)) AND (whenmorethan2 = ? OR (whenmorethan2 IS NULL AND ? IS NULL))
7521         AND (whenmorethan3 = ? OR (whenmorethan3 IS NULL AND ? IS NULL)) AND (setto1 = ? OR (setto1 IS NULL AND ? IS NULL))
7522         AND (setto2 = ? OR (setto2 IS NULL AND ? IS NULL)) AND (setto3 = ? OR (setto3 IS NULL AND ? IS NULL))
7523         AND (numberingmethod = ? OR (numberingmethod IS NULL AND ? IS NULL))
7524         LIMIT 1
7525     |);
7526     my $update_subscription_sth = $dbh->prepare(qq|
7527         UPDATE subscription
7528         SET numberpattern = ?,
7529             periodicity = ?
7530         WHERE subscriptionid = ?
7531     |);
7532
7533     my $i = 1;
7534     while(my $sub = $sth->fetchrow_hashref) {
7535         $check_numberpatterns_sth->execute(
7536             $sub->{add1}, $sub->{add1}, $sub->{add2}, $sub->{add2}, $sub->{add3}, $sub->{add3},
7537             $sub->{every1}, $sub->{every1}, $sub->{every2}, $sub->{every2}, $sub->{every3}, $sub->{every3},
7538             $sub->{whenmorethan1}, $sub->{whenmorethan1}, $sub->{whenmorethan2}, $sub->{whenmorethan2},
7539             $sub->{whenmorethan3}, $sub->{whenmorethan3}, $sub->{setto1}, $sub->{setto1}, $sub->{setto2},
7540             $sub->{setto2}, $sub->{setto3}, $sub->{setto3}, $sub->{numberingmethod}, $sub->{numberingmethod}
7541         );
7542         my $p = $check_numberpatterns_sth->fetchrow_hashref;
7543         if (defined $p) {
7544             # Pattern already exists, link to it
7545             $update_subscription_sth->execute($p->{id},
7546                 $frequencies_mapping->{$sub->{periodicity}},
7547                 $sub->{subscriptionid});
7548         } else {
7549             # Create a new numbering pattern for this subscription
7550             my $ok = $insert_numberpatterns_sth->execute(
7551                 "Backup pattern $i", 4+$i, "Automatically created pattern by updatedatabase", $sub->{numberingmethod},
7552                 "X", $sub->{add1}, $sub->{every1}, $sub->{whenmorethan1}, $sub->{setto1}, undef,
7553                 "Y", $sub->{add2}, $sub->{every2}, $sub->{whenmorethan2}, $sub->{setto2}, undef,
7554                 "Z", $sub->{add3}, $sub->{every3}, $sub->{whenmorethan3}, $sub->{setto3}, undef
7555             );
7556             if($ok) {
7557                 my $id = $dbh->last_insert_id(undef, undef, 'subscription_numberpatterns', undef);
7558                 # Link to subscription_numberpatterns and subscription_frequencies
7559                 $update_subscription_sth->execute($id,
7560                     $frequencies_mapping->{$sub->{periodicity}},
7561                     $sub->{subscriptionid});
7562             }
7563             $i++;
7564         }
7565     }
7566
7567     # Remove now useless columns
7568     $dbh->do(qq|
7569         ALTER TABLE subscription
7570         DROP COLUMN numberingmethod,
7571         DROP COLUMN add1,
7572         DROP COLUMN every1,
7573         DROP COLUMN whenmorethan1,
7574         DROP COLUMN setto1,
7575         DROP COLUMN add2,
7576         DROP COLUMN every2,
7577         DROP COLUMN whenmorethan2,
7578         DROP COLUMN setto2,
7579         DROP COLUMN add3,
7580         DROP COLUMN every3,
7581         DROP COLUMN whenmorethan3,
7582         DROP COLUMN setto3,
7583         DROP COLUMN dow,
7584         DROP COLUMN issuesatonce,
7585         DROP COLUMN hemisphere,
7586         ADD COLUMN countissuesperunit INTEGER NOT NULL DEFAULT 1 AFTER periodicity,
7587         ADD COLUMN skip_serialseq BOOLEAN NOT NULL DEFAULT 0 AFTER irregularity,
7588         ADD COLUMN locale VARCHAR(80) DEFAULT NULL AFTER numberpattern,
7589         ADD CONSTRAINT subscription_ibfk_1 FOREIGN KEY (periodicity) REFERENCES subscription_frequencies (id) ON DELETE SET NULL ON UPDATE CASCADE,
7590         ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY (numberpattern) REFERENCES subscription_numberpatterns (id) ON DELETE SET NULL ON UPDATE CASCADE
7591     |);
7592
7593     # Set firstacquidate if not already set (firstacquidate is now mandatory)
7594     my $get_first_planneddate_sth = $dbh->prepare(qq|
7595         SELECT planneddate
7596         FROM serial
7597         WHERE subscriptionid = ?
7598         ORDER BY serialid
7599         LIMIT 1
7600     |);
7601     my $update_firstacquidate_sth = $dbh->prepare(qq|
7602         UPDATE subscription
7603         SET firstacquidate = ?
7604         WHERE subscriptionid = ?
7605     |);
7606     my $get_subscriptions_sth = $dbh->prepare(qq|
7607         SELECT subscriptionid, startdate
7608         FROM subscription
7609         WHERE firstacquidate IS NULL
7610           OR firstacquidate = '0000-00-00'
7611     |);
7612     $get_subscriptions_sth->execute;
7613     while ( my ($subscriptionid, $startdate) = $get_subscriptions_sth->fetchrow ) {
7614         # Try to get the planned date of the first serial
7615         $get_first_planneddate_sth->execute($subscriptionid);
7616         my ($first_planneddate) = $get_first_planneddate_sth->fetchrow;
7617         if ($first_planneddate and $first_planneddate =~ /^\d{4}-\d{2}-\d{2}$/) {
7618             $update_firstacquidate_sth->execute($first_planneddate, $subscriptionid);
7619         } else {
7620             # Defaults to subscription start date
7621             $update_firstacquidate_sth->execute($startdate, $subscriptionid);
7622         }
7623     }
7624
7625     print "Upgrade to $DBversion done (Bug 7688: add subscription_frequencies and subscription_numberpatterns tables)\n";
7626     SetVersion($DBversion);
7627 }
7628
7629 $DBversion = "3.13.00.034";
7630 if ( CheckVersion($DBversion) ) {
7631     $dbh->do("
7632         ALTER TABLE `import_batches`
7633         CHANGE `item_action` `item_action`
7634           ENUM( 'always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore', 'replace' )
7635           NOT NULL DEFAULT 'always_add'
7636     ");
7637     print "Upgrade to $DBversion done (Bug 7131 - way to overlay items in in marc import)\n";
7638     SetVersion($DBversion);
7639 }
7640
7641 $DBversion ="3.13.00.035";
7642 if ( CheckVersion($DBversion) ) {
7643     $dbh->do(q{
7644 CREATE TABLE borrower_debarments (
7645   borrower_debarment_id int(11) NOT NULL AUTO_INCREMENT,
7646   borrowernumber int(11) NOT NULL,
7647   expiration date DEFAULT NULL,
7648   `type` enum('SUSPENSION','OVERDUES','MANUAL') NOT NULL DEFAULT 'MANUAL',
7649   `comment` text,
7650   manager_id int(11) DEFAULT NULL,
7651   created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
7652   updated timestamp NULL DEFAULT NULL,
7653   PRIMARY KEY (borrower_debarment_id),
7654   KEY borrowernumber (borrowernumber) ,
7655   CONSTRAINT `borrower_debarments_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
7656     ON DELETE CASCADE ON UPDATE CASCADE
7657 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
7658     });
7659
7660     # debarments with end date
7661     $dbh->do(q{
7662 INSERT INTO borrower_debarments ( borrowernumber, expiration, comment ) SELECT borrowernumber, debarred, debarredcomment FROM borrowers WHERE debarred IS NOT NULL AND debarred <> '9999-12-31'
7663     });
7664     # debarments with no end date
7665     $dbh->do(q{
7666 INSERT INTO borrower_debarments ( borrowernumber, comment ) SELECT borrowernumber, debarredcomment FROM borrowers WHERE debarred = '9999-12-31'
7667     });
7668
7669     $dbh->do(q{
7670 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES
7671 ('AutoRemoveOverduesRestrictions','0','Defines whether an OVERDUES debarment should be lifted automatically if all overdue items are returned by the patron.','YesNo')
7672     });
7673
7674     print "Upgrade to $DBversion done (Bug 2720 - Overdues which debar automatically should undebar automatically when returned)\n";
7675     SetVersion($DBversion);
7676 }
7677
7678 $DBversion = "3.13.00.036";
7679 if ( CheckVersion($DBversion) ) {
7680     $dbh->do(qq{
7681         INSERT INTO systempreferences (variable, value, explanation, options, type)
7682         VALUES ('StaffDetailItemSelection', '1', 'Enable item selection in record detail page', NULL, 'YesNo')
7683     });
7684     print "Upgrade to $DBversion done (Add system preference StaffDetailItemSelection)\n";
7685     SetVersion($DBversion);
7686 }
7687
7688 $DBversion = "3.13.00.037";
7689 if ( CheckVersion($DBversion) ) {
7690     #add phone if it is not there already (explains the ignore option)
7691     $dbh->do("
7692 INSERT IGNORE INTO message_transport_types (message_transport_type) values ('phone');
7693     ");
7694     print "Upgrade to $DBversion done (Bug 10572: Add phone to message_transport_types table for new installs)\n";
7695     SetVersion($DBversion);
7696 }
7697
7698 $DBversion = "3.13.00.038";
7699 if ( CheckVersion($DBversion) ) {
7700     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES(15, 'superserials', 'Manage subscriptions from any branch (only applies when IndependentBranches is used)')");
7701     print "Upgrade to $DBversion done (Bug 8435: Add superserials permission)\n";
7702     SetVersion($DBversion);
7703 }
7704
7705 $DBversion = "3.13.00.039";
7706 if ( CheckVersion($DBversion) ) {
7707     $dbh->do("
7708         ALTER TABLE aqbasket ADD branch varchar(10) default NULL
7709     ");
7710     $dbh->do("
7711         ALTER TABLE aqbasket
7712         ADD CONSTRAINT aqbasket_ibfk_4 FOREIGN KEY (branch)
7713             REFERENCES branches (branchcode)
7714             ON UPDATE CASCADE ON DELETE SET NULL
7715     ");
7716     $dbh->do("
7717         DROP TABLE IF EXISTS aqbasketusers
7718     ");
7719     $dbh->do("
7720         CREATE TABLE aqbasketusers (
7721             basketno int(11) NOT NULL,
7722             borrowernumber int(11) NOT NULL,
7723             PRIMARY KEY (basketno,borrowernumber),
7724             CONSTRAINT aqbasketusers_ibfk_1 FOREIGN KEY (basketno) REFERENCES aqbasket (basketno) ON DELETE CASCADE ON UPDATE CASCADE,
7725             CONSTRAINT aqbasketusers_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7726         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7727     ");
7728     $dbh->do("
7729         INSERT INTO permissions (module_bit, code, description)
7730         VALUES (11, 'order_manage_all', 'Manage all orders and baskets, regardless of restrictions on them')
7731     ");
7732
7733     print "Upgrade to $DBversion done (Add branch and users list to baskets. "
7734         . "New permission order_manage_all)\n";
7735     SetVersion($DBversion);
7736 }
7737
7738 $DBversion = "3.13.00.040";
7739 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7740     $dbh->do("CREATE TABLE IF NOT EXISTS marc_modification_templates (
7741               template_id int(11) NOT NULL auto_increment,
7742               name text NOT NULL,
7743               PRIMARY KEY  (template_id)
7744               ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;"
7745     );
7746
7747     $dbh->do("
7748       CREATE TABLE IF NOT EXISTS marc_modification_template_actions (
7749       mmta_id int(11) NOT NULL auto_increment,
7750       template_id int(11) NOT NULL,
7751       ordering int(3) NOT NULL,
7752       action enum('delete_field','update_field','move_field','copy_field') NOT NULL,
7753       field_number smallint(6) NOT NULL default '0',
7754       from_field varchar(3) NOT NULL,
7755       from_subfield varchar(1) NULL,
7756       field_value varchar(100) default NULL,
7757       to_field varchar(3) default NULL,
7758       to_subfield varchar(1) default NULL,
7759       to_regex_search text,
7760       to_regex_replace text,
7761       to_regex_modifiers varchar(8) default '',
7762       conditional enum('if','unless') default NULL,
7763       conditional_field varchar(3) default NULL,
7764       conditional_subfield varchar(1) default NULL,
7765       conditional_comparison enum('exists','not_exists','equals','not_equals') default NULL,
7766       conditional_value text,
7767       conditional_regex tinyint(1) NOT NULL default '0',
7768       description text,
7769       PRIMARY KEY  (mmta_id),
7770       CONSTRAINT `mmta_ibfk_1` FOREIGN KEY (`template_id`) REFERENCES `marc_modification_templates` (`template_id`) ON DELETE CASCADE ON UPDATE CASCADE
7771       ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
7772     ");
7773
7774     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('13', 'marc_modification_templates', 'Manage marc modification templates')");
7775
7776     print "Upgrade to $DBversion done ( Bug 8015: Added tables for MARC Modification Framework )\n";
7777     SetVersion($DBversion);
7778 }
7779
7780 $DBversion = "3.13.00.041";
7781 if(CheckVersion($DBversion)) {
7782     $dbh->do(q{
7783         INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AcqItemSetSubfieldsWhenReceived','','Set subfields for item when items are created when receiving (e.g. o=5|a="foo bar")','','Free');
7784     });
7785     print "Upgrade to $DBversion done (Bug 10986: Added AcqItemSetSubfieldsWhenReceived syspref)\n";
7786     SetVersion($DBversion);
7787 }
7788
7789 $DBversion = "3.13.00.042";
7790 if(CheckVersion($DBversion)) {
7791     print "Upgrade to $DBversion done (Koha 3.14 beta)\n";
7792     SetVersion($DBversion);
7793 }
7794
7795 $DBversion = "3.13.00.043";
7796 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
7797     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
7798     print "Upgrade to $DBversion done (Bug 11196: Add system preference SearchEngine if missing )\n";
7799     SetVersion($DBversion);
7800 }
7801
7802 $DBversion = "3.14.00.000";
7803 if ( CheckVersion($DBversion) ) {
7804     print "Upgrade to $DBversion done (3.14.0 release)\n";
7805     SetVersion ($DBversion);
7806 }
7807
7808 $DBversion = '3.15.00.000';
7809 if ( CheckVersion($DBversion) ) {
7810     print "Upgrade to $DBversion done (the road goes ever on)\n";
7811     SetVersion ($DBversion);
7812 }
7813
7814 $DBversion = "3.15.00.001";
7815 if ( CheckVersion($DBversion) ) {
7816     $dbh->do("UPDATE systempreferences SET value='clear' where variable = 'CircAutoPrintQuickSlip' and value = '0'");
7817     $dbh->do("UPDATE systempreferences SET value='qslip' where variable = 'CircAutoPrintQuickSlip' and value = '1'");
7818     $dbh->do("UPDATE systempreferences SET explanation = 'Choose what should happen when an empty barcode field is submitted in circulation: Display a print quick slip window, Display a print slip window or Clear the screen.', type = 'Choice' where variable = 'CircAutoPrintQuickSlip'");
7819     print "Upgrade to $DBversion done (Bug 11040: Add option to print full slip when checking out a null barcode)\n";
7820     SetVersion($DBversion);
7821 }
7822
7823 $DBversion = "3.15.00.002";
7824 if(CheckVersion($DBversion)) {
7825     $dbh->do("ALTER TABLE deleteditems MODIFY materials text;");
7826     print "Upgrade to $DBversion done (Bug 11275: alter deleteditems.materials from varchar(10) to text)\n";
7827     SetVersion($DBversion);
7828 }
7829
7830 $DBversion = "3.15.00.003";
7831 if ( CheckVersion($DBversion) ) {
7832     $dbh->do(q{
7833         UPDATE accountlines
7834         SET description = ''
7835         WHERE description IN (
7836             ' New Card',
7837             ' Fine',
7838             ' Sundry',
7839             'Writeoff',
7840             ' Account Management fee',
7841             'Payment,thanks', 'Payment,thanks - ',
7842             ' Lost Item'
7843         )
7844     });
7845     print "Upgrade to $DBversion done (Bug 2546: Update fine descriptions)\n";
7846     SetVersion($DBversion);
7847 }
7848
7849 $DBversion = "3.15.00.004";
7850 if ( CheckVersion($DBversion) ) {
7851     if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
7852         $dbh->do(qq{
7853             INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
7854             kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link,
7855             defaultvalue) VALUES
7856             ('015', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7857             ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7858             ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7859             ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7860             ('800', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7861             ('810', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7862             ('811', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7863             ('830', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL);
7864         });
7865         $dbh->do(qq{
7866             INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
7867             mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
7868             ('', '020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', ''),
7869             ('', '024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', '');
7870         });
7871     }
7872     print "Upgrade to $DBversion done (Bug 10970 - Update MARC21 frameworks to Update Nr. 17 - DB update)\n";
7873     SetVersion($DBversion);
7874 }
7875
7876 $DBversion = "3.15.00.005";
7877 if ( CheckVersion($DBversion) ) {
7878    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('AcquisitionDetails', '1', '', 'Hide/Show acquisition details on the biblio detail page.', 'YesNo');");
7879    print "Upgrade to $DBversion done (Bug 8230: Add AcquisitionDetails system preference)\n";
7880    SetVersion ($DBversion);
7881 }
7882
7883 $DBversion = "3.15.00.006";
7884 if(CheckVersion($DBversion)) {
7885     $dbh->do(q{
7886         ALTER TABLE `borrowers`
7887         ADD KEY `surname_idx` (`surname`(255)),
7888         ADD KEY `firstname_idx` (`firstname`(255)),
7889         ADD KEY `othernames_idx` (`othernames`(255))
7890     });
7891     print "Upgrade to $DBversion done (Bug 11249 - Add DB indexes on borrower names)\n";
7892     SetVersion($DBversion);
7893 }
7894
7895 $DBversion = "3.15.00.007";
7896 if ( CheckVersion($DBversion) ) {
7897    $dbh->do("ALTER TABLE items ADD itemlost_on DATETIME NULL AFTER itemlost");
7898    $dbh->do("ALTER TABLE items ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7899    $dbh->do("ALTER TABLE deleteditems ADD itemlost_on DATETIME NULL AFTER itemlost");
7900    $dbh->do("ALTER TABLE deleteditems ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7901    print "Upgrade to $DBversion done (Bug 9673 - Track when items are marked as lost or withdrawn)\n";
7902    SetVersion ($DBversion);
7903 }
7904
7905 $DBversion = "3.15.00.008";
7906 if ( CheckVersion($DBversion) ) {
7907     $dbh->do(q{
7908         ALTER TABLE collections_tracking CHANGE ctId collections_tracking_id integer(11) NOT NULL auto_increment;
7909     });
7910     print "Upgrade to $DBversion done (Bug 11384) - change name of collections_tracker.ctId column)\n";
7911    SetVersion ($DBversion);
7912 }
7913
7914 $DBversion = "3.15.00.009";
7915 if ( CheckVersion($DBversion) ) {
7916     $dbh->do(q{
7917         ALTER TABLE suggestions MODIFY suggesteddate DATE NOT NULL
7918     });
7919     print "Upgrade to $DBversion done (Bug 11391) - drop default value on suggestions.suggesteddate column)\n";
7920    SetVersion ($DBversion);
7921 }
7922
7923 $DBversion = "3.15.00.010";
7924 if(CheckVersion($DBversion)) {
7925     $dbh->do("ALTER TABLE deleteditems DROP COLUMN marc");
7926     print "Upgrade to $DBversion done (Bug 6331: remove obsolete column in deleteditems.marc)\n";
7927     SetVersion ($DBversion);
7928 }
7929
7930 $DBversion = "3.15.00.011";
7931 if(CheckVersion($DBversion)) {
7932     $dbh->do("UPDATE marc_subfield_structure SET maxlength=9999 WHERE maxlength IS NULL OR maxlength=0;");
7933     print "Upgrade to $DBversion done (Bug 8018: set 9999 as default max length for subfields)\n";
7934     SetVersion ($DBversion);
7935 }
7936
7937 $DBversion = "3.15.00.012";
7938 if ( CheckVersion($DBversion) ) {
7939     $dbh->do(q{
7940         INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'force_checkout', 'Force checkout if a limitation exists')
7941     });
7942     $dbh->do(q{
7943         INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'manage_restrictions', 'Manage restrictions for accounts')
7944     });
7945     $dbh->do(q{
7946         INSERT INTO user_permissions (borrowernumber, module_bit, code)
7947             SELECT user_permissions.borrowernumber, 1, 'force_checkout'
7948             FROM user_permissions
7949             LEFT JOIN borrowers USING(borrowernumber)
7950             WHERE borrowers.flags & (1 << 1)
7951     });
7952     $dbh->do(q{
7953         INSERT INTO user_permissions (borrowernumber, module_bit, code)
7954             SELECT user_permissions.borrowernumber, 1, 'manage_restrictions'
7955             FROM user_permissions
7956             LEFT JOIN borrowers USING(borrowernumber)
7957             WHERE borrowers.flags & (1 << 1)
7958     });
7959
7960     print "Upgrade to $DBversion done (Bug 10863 - Add permissions force_checkout and manage_restrictions)\n";
7961     SetVersion($DBversion);
7962 }
7963
7964 $DBversion = "3.15.00.013";
7965 if(CheckVersion($DBversion)) {
7966     $dbh->do(q{
7967         UPDATE systempreferences
7968         SET explanation = 'Upon receiving items, update their subfields if they were created when placing an order (e.g. o=5|a="foo bar")'
7969         WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7970     });
7971
7972     $dbh->do(q{
7973         UPDATE systempreferences
7974         SET value = ''
7975         WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7976             AND value = "0"
7977     });
7978     print "Upgrade to $DBversion done (Bug 11237: Update explanation and default value for AcqItemSetSubfieldsWhenReceived syspref)\n";
7979     SetVersion($DBversion);
7980 }
7981
7982 $DBversion = "3.15.00.014";
7983 if (CheckVersion($DBversion)) {
7984     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('SelfCheckReceiptPrompt', '1', 'NULL', 'If ON, print receipt dialog pops up when self checkout is finished.', 'YesNo');");
7985     print "Upgrade to $DBversion done (Bug 11415: add system preference for automatic self checkout receipt printing)\n";
7986     SetVersion($DBversion);
7987 }
7988
7989 $DBversion = "3.15.00.015";
7990 if (CheckVersion($DBversion)) {
7991     $dbh->do("INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
7992         ('OpacSuggestionManagedBy',1,'','Show the name of the staff member who managed a suggestion in OPAC','YesNo');");
7993     print "Upgrade to $DBversion done (Bug 10907: Add OpacSuggestionManagedBy system preference)\n";
7994     SetVersion($DBversion);
7995 }
7996
7997 $DBversion = "3.15.00.016";
7998 if (CheckVersion($DBversion)) {
7999     $dbh->do("ALTER TABLE biblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8000     $dbh->do("ALTER TABLE deletedbiblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8001     print "Upgrade to $DBversion done (Bug 11268 - Biblioitems URL field is too small for some URLs)\n";
8002     SetVersion($DBversion);
8003 }
8004
8005 $DBversion = "3.15.00.017";
8006 if(CheckVersion($DBversion)) {
8007     $dbh->do(q{
8008         UPDATE systempreferences
8009         SET explanation = 'Define the contents of UNIMARC authority control field 100 position 08-35'
8010         WHERE variable = "UNIMARCAuthorityField100"
8011     });
8012     $dbh->do(q{
8013         UPDATE systempreferences
8014         SET explanation = 'Define the contents of MARC21 authority control field 008 position 06-39'
8015         WHERE variable = "MARCAuthorityControlField008"
8016     });
8017     $dbh->do(q{
8018         UPDATE systempreferences
8019         SET explanation = 'Define MARC Organization Code for MARC21 records - http://www.loc.gov/marc/organizations/orgshome.html'
8020         WHERE variable = "MARCOrgCode"
8021     });
8022     print "Upgrade to $DBversion done (Bug 11611 - fix possible confusion between UNIMARC and MARC21 in some sysprefs)\n";
8023     SetVersion($DBversion);
8024 }
8025
8026 $DBversion = "3.15.00.018";
8027 if ( CheckVersion($DBversion) ) {
8028     $dbh->{AutoCommit} = 0;
8029     $dbh->{RaiseError} = 1;
8030
8031     eval {
8032         $dbh->selectcol_arrayref(q|SELECT COUNT(*) FROM roadtype|);
8033     };
8034     unless ( $@ ) {
8035         my $av_added = $dbh->do(q|
8036             INSERT INTO authorised_values(category, authorised_value, lib, lib_opac)
8037                 SELECT 'ROADTYPE', roadtypeid, road_type, road_type
8038                 FROM roadtype;
8039         |);
8040
8041         my $rt_deleted = $dbh->do(q|
8042             DELETE FROM roadtype
8043         |);
8044
8045         if ( $av_added == $rt_deleted or $rt_deleted eq "0E0" ) {
8046             $dbh->do(q|
8047                 DROP TABLE roadtype;
8048             |);
8049             $dbh->commit;
8050             print "Upgrade to $DBversion done (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values)\n";
8051             SetVersion($DBversion);
8052         } else {
8053             print "Upgrade to $DBversion failed (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values.\nTransaction aborted because $@\n)";
8054             $dbh->rollback;
8055         }
8056     }
8057     $dbh->{AutoCommit} = 1;
8058     $dbh->{RaiseError} = 0;
8059 }
8060
8061 $DBversion = "3.15.00.019";
8062 if ( CheckVersion($DBversion) ) {
8063     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('OpacMaxItemsToDisplay','50','','Max items to display at the OPAC on a biblio detail','Integer')");
8064     print "Upgrade to $DBversion done (Bug 11256: Add system preference OpacMaxItemsToDisplay)\n";
8065     SetVersion($DBversion);
8066 }
8067
8068 $DBversion = "3.15.00.020";
8069 if ( CheckVersion($DBversion) ) {
8070     $dbh->do(q|
8071         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('MaxItemsForBatch','1000',NULL,'Max number of items record to process in a batch (modification or deletion)','Integer')
8072     |);
8073     print "Upgrade to $DBversion done (Bug 11343: Add system preference MaxItemsForBatch )\n";
8074     SetVersion($DBversion);
8075 }
8076
8077 $DBversion = "3.15.00.021";
8078 if(CheckVersion($DBversion)) {
8079     $dbh->do(q{
8080         ALTER TABLE `action_logs`
8081             DROP KEY timestamp,
8082             ADD KEY `timestamp_idx` (`timestamp`),
8083             ADD KEY `user_idx` (`user`),
8084             ADD KEY `module_idx` (`module`(255)),
8085             ADD KEY `action_idx` (`action`(255)),
8086             ADD KEY `object_idx` (`object`),
8087             ADD KEY `info_idx` (`info`(255))
8088     });
8089     print "Upgrade to $DBversion done (Bug 3445: Add indexes to action_logs table)\n";
8090     SetVersion($DBversion);
8091 }
8092
8093 $DBversion = "3.15.00.022";
8094 if (CheckVersion($DBversion)) {
8095     $dbh->do(q|
8096         DELETE FROM systempreferences WHERE variable= "memberofinstitution"
8097     |);
8098     print "Upgrade to $DBversion done (Bug 11751: Remove memberofinstitytion system preference)\n";
8099     SetVersion($DBversion);
8100 }
8101
8102 $DBversion = "3.15.00.023";
8103 if ( CheckVersion($DBversion) ) {
8104    $dbh->do("
8105        INSERT INTO systempreferences (variable,value,options,explanation,type)
8106        VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free');
8107     ");
8108    print "Upgrade to $DBversion done (Bug 10861: Add CardnumberLength syspref)\n";
8109    SetVersion ($DBversion);
8110 }
8111
8112 $DBversion = "3.15.00.024";
8113 if ( CheckVersion($DBversion) ) {
8114     $dbh->do(q{
8115         DELETE FROM systempreferences WHERE variable = 'NoZebraIndexes'
8116     });
8117     print "Upgrade to $DBversion done (Bug 10012 - remove last vestiges of NoZebra)\n";
8118     SetVersion($DBversion);
8119 }
8120
8121 $DBversion = "3.15.00.025";
8122 if ( CheckVersion($DBversion) ) {
8123     $dbh->do(q{
8124         DROP TABLE aqorderdelivery;
8125     });
8126     print "Upgrade to $DBversion done (Bug 11928 - remove unused table)\n";
8127     SetVersion($DBversion);
8128 }
8129
8130 $DBversion = "3.15.00.026";
8131 if ( CheckVersion($DBversion) ) {
8132     $dbh->do(q{
8133         UPDATE language_descriptions SET description = 'Հայերեն' WHERE subtag = 'hy' AND lang = 'hy';
8134     });
8135     print "Upgrade to $DBversion done (Bug 11973 - Fix Armenian language description)\n";
8136     SetVersion($DBversion);
8137 }
8138
8139 $DBversion = "3.15.00.027";
8140 if (CheckVersion($DBversion)) {
8141     $dbh->do(q{
8142         ALTER TABLE opac_news ADD branchcode varchar(10) DEFAULT NULL
8143                                   AFTER idnew,
8144                               ADD CONSTRAINT opac_news_branchcode_ibfk
8145                                   FOREIGN KEY (branchcode)
8146                                   REFERENCES branches (branchcode)
8147                                   ON DELETE CASCADE ON UPDATE CASCADE;
8148     });
8149     print "Upgrade to $DBversion done (Bug 7567: Add branchcode to opac_news)\n";
8150     SetVersion($DBversion);
8151 }
8152
8153 $DBversion = "3.15.00.028";
8154 if(CheckVersion($DBversion)) {
8155     $dbh->do(q{
8156         ALTER TABLE issuingrules ADD norenewalbefore int(4) default NULL AFTER renewalperiod
8157     });
8158     print "Upgrade to $DBversion done (Bug 7413: Allow OPAC renewal x days before due date)\n";
8159     SetVersion($DBversion);
8160 }
8161
8162 $DBversion = "3.15.00.029";
8163 if ( CheckVersion($DBversion) ) {
8164     $dbh->do(q{
8165         UPDATE borrower_debarments SET expiration = NULL WHERE expiration = '9999-12-31'
8166     });
8167     print "Upgrade to $DBversion done (Bug 11846 - correct borrower_debarments with expiration 9999-12-31)\n";
8168     SetVersion($DBversion);
8169 }
8170
8171 $DBversion = "3.15.00.030";
8172 if(CheckVersion($DBversion)) {
8173     $dbh->do(q|
8174         INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACMySummaryNote','','','Note to display on the patron summary page. This note only appears if the patron is connected.','Free')
8175     |);
8176     print "Upgrade to $DBversion done (Bug 12052: Add OPACMySummaryNote syspref)\n";
8177     SetVersion($DBversion);
8178 }
8179
8180 $DBversion = "3.15.00.031";
8181 if ( CheckVersion($DBversion) ) {
8182    $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'writeoff', 'Write off fines and fees')");
8183    $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'remaining_permissions', 'Remaining permissions for managing fines and fees')");
8184    print "Upgrade to $DBversion done (Bug 9448 - Add separate permission for writing off fees)\n";
8185    SetVersion ($DBversion);
8186 }
8187
8188 $DBversion = "3.15.00.032";
8189 if ( CheckVersion($DBversion) ) {
8190     $dbh->do("ALTER TABLE aqorders CHANGE notes order_internalnote MEDIUMTEXT;");
8191     $dbh->do("ALTER TABLE aqorders ADD COLUMN order_vendornote MEDIUMTEXT AFTER order_internalnote;");
8192     print "Upgrade to $DBversion done (Bug 9416 - In each order, add a new note made for the vendor)\n";
8193    SetVersion ($DBversion);
8194 }
8195
8196 $DBversion = "3.15.00.033";
8197 if ( CheckVersion($DBversion) ) {
8198     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NoLoginInstructions', '', '60|10', 'Instructions to display on the OPAC login form when a patron is not logged in', 'Textarea')");
8199     print "Upgrade to $DBversion done (Bug 10951: Add NoLoginInstructions pref)\n";
8200     SetVersion($DBversion);
8201 }
8202
8203 $DBversion = "3.15.00.034";
8204 if ( CheckVersion($DBversion) ) {
8205     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('AdvancedSearchLanguages','','','ISO 639-2 codes of languages you wish to see appear as an advanced search option.  Example: eng|fra|ita','Textarea')");
8206     print "Upgrade to $DBversion done (Bug 10986: system preferences to limit languages in advanced search )\n";
8207     SetVersion ($DBversion);
8208 }
8209
8210 $DBversion = "3.15.00.035";
8211 if ( CheckVersion($DBversion) ) {
8212     #insert a notice for sharing a list and accepting a share
8213     $dbh->do("
8214 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8215 VALUES ( 'members', 'SHARE_INVITE', '', 'Invitation for sharing a list', '0', 'Share list <<listname>>', 'Dear patron,
8216
8217 One of our patrons, <<borrowers.firstname>> <<borrowers.surname>>, invites you to share a list <<listname>> in our library catalog.
8218
8219 To access this shared list, please click on the following URL or copy-and-paste it into your browser address bar.
8220
8221 <<shareurl>>
8222
8223 In case you are not a patron in our library or do not want to accept this invitation, please ignore this mail. Note also that this invitation expires within two weeks.
8224
8225 Thank you.
8226
8227 Your library.'
8228     )");
8229     $dbh->do("
8230 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8231 VALUES ( 'members', 'SHARE_ACCEPT', '', 'Notification about an accepted share', '0', 'Share on list <<listname>> accepted', 'Dear patron,
8232
8233 We want to inform you that <<borrowers.firstname>> <<borrowers.surname>> accepted your invitation to share your list <<listname>> in our library catalog.
8234
8235 Thank you.
8236
8237 Your library.'
8238     )");
8239     print "Upgrade to $DBversion done (Bug 9032: Share a list)\n";
8240     SetVersion($DBversion);
8241 }
8242
8243 $DBversion = "3.15.00.036";
8244 if ( CheckVersion($DBversion) ) {
8245     $dbh->do(q{
8246         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
8247         VALUES('AllowMultipleIssuesOnABiblio',1,'Allow/Don\'t allow patrons to check out multiple items from one biblio','','YesNo')
8248     });
8249
8250     print "Upgrade to $DBversion done (Bug 10859 - Add system preference AllowMultipleIssuesOnABiblio)\n";
8251     SetVersion($DBversion);
8252 }
8253
8254 $DBversion = "3.15.00.037";
8255 if(CheckVersion($DBversion)) {
8256     $dbh->do(q{
8257         ALTER TABLE itemtypes ADD sip_media_type VARCHAR( 3 ) DEFAULT NULL AFTER checkinmsgtype
8258     });
8259     $dbh->do(q{
8260         INSERT INTO authorised_values (category, authorised_value, lib) VALUES
8261          ('SIP_MEDIA_TYPE', '000', 'Other'),
8262          ('SIP_MEDIA_TYPE', '001', 'Book'),
8263          ('SIP_MEDIA_TYPE', '002', 'Magazine'),
8264          ('SIP_MEDIA_TYPE', '003', 'Bound journal'),
8265          ('SIP_MEDIA_TYPE', '004', 'Audio tape'),
8266          ('SIP_MEDIA_TYPE', '005', 'Video tape'),
8267          ('SIP_MEDIA_TYPE', '006', 'CD/CDROM'),
8268          ('SIP_MEDIA_TYPE', '007', 'Diskette'),
8269          ('SIP_MEDIA_TYPE', '008', 'Book with diskette'),
8270          ('SIP_MEDIA_TYPE', '009', 'Book with CD'),
8271          ('SIP_MEDIA_TYPE', '010', 'Book with audio tape')
8272     });
8273     print "Upgrade to $DBversion done (Bug 11351 - Add support for SIP2 media type)\n";
8274     SetVersion($DBversion);
8275 }
8276
8277 $DBversion = '3.15.00.038';
8278 if ( CheckVersion($DBversion) ) {
8279     $dbh->do(q{
8280         INSERT INTO  systempreferences (
8281             variable,
8282             value,
8283             options,
8284             explanation,
8285             type
8286             )
8287         VALUES (
8288             'DisplayLibraryFacets',  'holding',  'home|holding|both',  'Defines which library facets to display.',  'Choice'
8289         );
8290     });
8291     print "Upgrade to $DBversion done (Bug 11334 - Add facet for home library)\n";
8292     SetVersion ($DBversion);
8293 }
8294
8295 $DBversion = "3.15.00.039";
8296 if ( CheckVersion($DBversion) ) {
8297
8298     $dbh->do( q{
8299         ALTER TABLE letter ADD COLUMN message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email' AFTER content
8300     } );
8301
8302     $dbh->do( q{
8303         ALTER TABLE letter ADD CONSTRAINT message_transport_type_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types(message_transport_type);
8304     } );
8305
8306     $dbh->do( q{
8307         ALTER TABLE letter DROP PRIMARY KEY, ADD PRIMARY KEY (`module`,`code`,`branchcode`, message_transport_type);
8308     } );
8309
8310     $dbh->do( q{
8311         CREATE TABLE overduerules_transport_types(
8312             id INT(11) NOT NULL AUTO_INCREMENT,
8313             branchcode varchar(10) NOT NULL DEFAULT '',
8314             categorycode VARCHAR(10) NOT NULL DEFAULT '',
8315             letternumber INT(1) NOT NULL DEFAULT 1,
8316             message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email',
8317             PRIMARY KEY (id),
8318             CONSTRAINT overduerules_fk FOREIGN KEY (branchcode, categorycode) REFERENCES overduerules (branchcode, categorycode) ON DELETE CASCADE ON UPDATE CASCADE,
8319             CONSTRAINT mtt_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types (message_transport_type) ON DELETE CASCADE ON UPDATE CASCADE
8320         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8321     } );
8322
8323     my $sth = $dbh->prepare( q{
8324         SELECT * FROM overduerules;
8325     } );
8326
8327     $sth->execute;
8328     my $sth_insert_mtt = $dbh->prepare( q{
8329         INSERT INTO overduerules_transport_types (branchcode, categorycode, letternumber, message_transport_type) VALUES ( ?, ?, ?, ? )
8330     } );
8331     while ( my $row = $sth->fetchrow_hashref ) {
8332         my $branchcode = $row->{branchcode};
8333         my $categorycode = $row->{categorycode};
8334         for my $letternumber ( 1 .. 3 ) {
8335             next unless $row->{"letter$letternumber"};
8336             $sth_insert_mtt->execute(
8337                 $branchcode, $categorycode, $letternumber, 'email'
8338             );
8339         }
8340     }
8341
8342     print "Upgrade done (Bug 9016: Adds multi transport types management for notices)\n";
8343     SetVersion($DBversion);
8344 }
8345
8346 $DBversion = "3.15.00.040";
8347 if ( CheckVersion($DBversion) ) {
8348     $dbh->do(q|
8349         UPDATE message_transports SET letter_code='HOLD' WHERE letter_code='HOLD_PHONE' OR letter_code='HOLD_PRINT'
8350     |);
8351     $dbh->do(q|
8352         UPDATE letter SET code='HOLD', message_transport_type='print' WHERE code='HOLD_PRINT'
8353     |);
8354     $dbh->do(q|
8355         UPDATE letter SET code='HOLD', message_transport_type='phone' WHERE code='HOLD_PHONE'
8356     |);
8357     print "Upgrade to $DBversion done (Bug 10845: Multi transport types for holds)\n";
8358     SetVersion($DBversion);
8359 }
8360
8361 $DBversion = "3.15.00.041";
8362 if ( CheckVersion($DBversion) ) {
8363     my $name = $dbh->selectcol_arrayref(q|
8364         SELECT name FROM letter WHERE code="HOLD"
8365     |);
8366     $name = $name->[0];
8367     $dbh->do(q|
8368         UPDATE letter
8369         SET code="HOLD",
8370             message_transport_type="phone",
8371             name= ?
8372         WHERE code="HOLD_PHONE"
8373     |, {}, $name);
8374
8375     $dbh->do(q|
8376         UPDATE letter
8377         SET code="PREDUE",
8378             message_transport_type="phone",
8379             name= ?
8380         WHERE code="PREDUE_PHONE"
8381     |, {}, $name);
8382
8383     $dbh->do(q|
8384         UPDATE letter
8385         SET code="OVERDUE",
8386             message_transport_type="phone",
8387             name= ?
8388         WHERE code="OVERDUE_PHONE"
8389     |, {}, $name);
8390
8391     print "Upgrade to $DBversion done (Bug 11867: Update letters *_PHONE)\n";
8392     SetVersion($DBversion);
8393 }
8394
8395 $DBversion = "3.15.00.042";
8396 if ( CheckVersion($DBversion) ) {
8397     $dbh->do(q{
8398         INSERT INTO systempreferences
8399             (variable,value,explanation,options,type)
8400         VALUES
8401             ('SpecifyReturnDate',0,'Define whether to display \"Specify Return Date\" form in Circulation','','YesNo')
8402     });
8403     print "Upgrade to $DBversion done (Bug 10694 - Allow arbitrary backdating of returns)\n";
8404     SetVersion($DBversion);
8405 }
8406
8407 $DBversion = "3.15.00.043";
8408 if ( CheckVersion($DBversion) ) {
8409     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('MarcFieldsToOrder','','Set the mapping values for a new order line created from a MARC record in a staged file. In a YAML format.', NULL, 'textarea')");
8410    print "Upgrade to $DBversion done (Bug 7180: Added MarcFieldsToOrder syspref)\n";
8411    SetVersion ($DBversion);
8412 }
8413
8414 $DBversion = "3.15.00.044";
8415 if ( CheckVersion($DBversion) ) {
8416     $dbh->do("ALTER TABLE currency ADD isocode VARCHAR(5) default NULL AFTER symbol;");
8417     print "Upgrade to $DBversion done (Added isocode to the currency table)\n";
8418     SetVersion($DBversion);
8419 }
8420
8421 $DBversion = "3.15.00.045";
8422 if ( CheckVersion($DBversion) ) {
8423     $dbh->do("
8424         INSERT INTO systempreferences (variable,value,explanation,options,type)
8425         VALUES (
8426             'BlockExpiredPatronOpacActions',
8427             '0',
8428             'Set whether an expired patron can perform opac actions such as placing holds or renew books, can be overridden on a per patron-type basis',
8429             NULL,
8430             'YesNo'
8431         )
8432     ");
8433     $dbh->do("ALTER TABLE `categories` ADD COLUMN `BlockExpiredPatronOpacActions` TINYINT(1) DEFAULT -1 NOT NULL AFTER category_type");
8434     print "Upgraded to $DBversion done (Bug 6739 - expired patrons not blocked from opac actions)\n";
8435     SetVersion ($DBversion);
8436 }
8437
8438 $DBversion = "3.15.00.046";
8439 if ( CheckVersion($DBversion) ) {
8440     $dbh->do(q|
8441         ALTER TABLE search_history ADD COLUMN type VARCHAR(16) NOT NULL DEFAULT 'biblio' AFTER query_cgi
8442     |);
8443     print "Upgrade to $DBversion done (Bug 10807 - Add db field search_history.type)\n";
8444     SetVersion($DBversion);
8445 }
8446
8447 $DBversion = "3.15.00.047";
8448 if ( CheckVersion($DBversion) ) {
8449     $dbh->do(q|
8450         INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('EnableSearchHistory','0','','Enable or disable search history','YesNo')
8451     |);
8452     print "Upgrade to $DBversion done (Bug 10862: Add EnableSearchHistory syspref)\n";
8453     SetVersion($DBversion);
8454 }
8455
8456 $DBversion = "3.15.00.048";
8457 if ( CheckVersion($DBversion) ) {
8458     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacSuppressionRedirect','1','Redirect the opac detail page for suppressed records to an explanatory page (otherwise redirect to 404 error page)','','YesNo')");
8459     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacSuppressionMessage', '','Display this message on the redirect page for suppressed biblios','70|10','Textarea')");
8460     print "Upgrade to $DBversion done (Bug 10195: Records hidden with OpacSuppression can still be accessed)\n";
8461     SetVersion($DBversion);
8462 }
8463
8464 $DBversion = "3.15.00.049";
8465 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8466     $dbh->do("ALTER TABLE biblioitems DROP INDEX isbn");
8467     $dbh->do("ALTER TABLE biblioitems DROP INDEX issn");
8468     $dbh->do("ALTER TABLE biblioitems
8469               CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8470               CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8471     ");
8472     $dbh->do("ALTER TABLE biblioitems
8473               ADD INDEX isbn ( isbn ( 255 ) ),
8474               ADD INDEX issn ( issn ( 255 ) )
8475     ");
8476
8477     $dbh->do("ALTER TABLE deletedbiblioitems DROP INDEX isbn");
8478     $dbh->do("ALTER TABLE deletedbiblioitems
8479               CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8480               CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8481     ");
8482     $dbh->do("ALTER TABLE deletedbiblioitems
8483               ADD INDEX isbn ( isbn ( 255 ) )
8484     ");
8485
8486     print "Upgrade to $DBversion done (Bug 5377 - Biblioitems isbn and issn fields too small for multiple ISBN and ISSN)\n";
8487     SetVersion($DBversion);
8488 }
8489
8490 $DBversion = "3.15.00.050";
8491 if ( CheckVersion($DBversion) ) {
8492     $dbh->do("
8493         INSERT INTO systempreferences (
8494             variable,
8495             value,
8496             explanation,
8497             type
8498         ) VALUES (
8499             'AggressiveMatchOnISBN',
8500             '0',
8501             'If enabled, attempt to match aggressively by trying all variations of the ISBNs in the imported record as a phrase in the ISBN fields of already cataloged records when matching on ISBN with the record import tool',
8502             'YesNo'
8503         )
8504     ");
8505
8506     print "Upgrade to $DBversion done (Bug 10500 - Improve isbn matching when importing records)\n";
8507     SetVersion($DBversion);
8508 }
8509
8510 $DBversion = "3.15.00.051";
8511 if ( CheckVersion($DBversion) ) {
8512     print "Upgrade to $DBversion done (Koha 3.16 beta)\n";
8513     SetVersion($DBversion);
8514 }
8515
8516 $DBversion = "3.15.00.052";
8517 if ( CheckVersion($DBversion) ) {
8518     print "Upgrade to $DBversion done (Koha 3.16 RC)\n";
8519     SetVersion($DBversion);
8520 }
8521
8522 $DBversion = "3.16.00.000";
8523 if ( CheckVersion($DBversion) ) {
8524     print "Upgrade to $DBversion done (3.16.0 release)\n";
8525     SetVersion ($DBversion);
8526 }
8527
8528 $DBversion = '3.17.00.000';
8529 if ( CheckVersion($DBversion) ) {
8530     print "Upgrade to $DBversion done (there is no time to rest on our laurels)\n";
8531     SetVersion ($DBversion);
8532 }
8533
8534 $DBversion = '3.17.00.001';
8535 if ( CheckVersion($DBversion) ) {
8536    $dbh->do("UPDATE systempreferences SET variable = 'AuthoritySeparator' WHERE variable = 'authoritysep'");
8537    print "Upgrade to $DBversion done (Bug 10330 - Rename system preference authoritysep to AuthoritySeparator)\n";
8538    SetVersion ($DBversion);
8539 }
8540
8541 $DBversion = "3.17.00.002";
8542 if (CheckVersion($DBversion)) {
8543     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('AcqEnableFiles','0','If enabled, allows librarians to upload and attach arbitrary files to invoice records.','YesNo')");
8544     $dbh->do("
8545 CREATE TABLE IF NOT EXISTS `misc_files` (
8546   `file_id` int(11) NOT NULL AUTO_INCREMENT,
8547   `table_tag` varchar(255) NOT NULL,
8548   `record_id` int(11) NOT NULL,
8549   `file_name` varchar(255) NOT NULL,
8550   `file_type` varchar(255) NOT NULL,
8551   `file_description` varchar(255) DEFAULT NULL,
8552   `file_content` longblob NOT NULL, -- file content
8553   `date_uploaded` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
8554   PRIMARY KEY (`file_id`),
8555   KEY `table_tag` (`table_tag`),
8556   KEY `record_id` (`record_id`)
8557 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8558     ");
8559     print "Upgrade to $DBversion done (Bug 3050 - Add an option to upload scanned invoices)\n";
8560     SetVersion($DBversion);
8561 }
8562
8563 $DBversion = "3.17.00.003";
8564 if (CheckVersion($DBversion)) {
8565     $dbh->do("UPDATE systempreferences SET type = 'Choice', options = '0|1|force' WHERE variable = 'OPACItemHolds'");
8566     print "Upgrade to $DBversion done (Bug 7825 - Changed OPACItemHolds syspref to Choice)\n";
8567     SetVersion($DBversion);
8568 }
8569
8570 $DBversion = "3.17.00.004";
8571 if (CheckVersion($DBversion)) {
8572     $dbh->do("ALTER TABLE categories ADD default_privacy ENUM( 'default', 'never', 'forever' ) NOT NULL DEFAULT 'default' AFTER category_type");
8573     print "Upgrade to $DBversion done (Bug 6254 - can't set patron privacy by default)\n";
8574     SetVersion($DBversion);
8575 }
8576
8577 $DBversion = "3.17.00.005";
8578 if (CheckVersion($DBversion)) {
8579     $dbh->do(q|
8580         ALTER TABLE issuingrules
8581         ADD maxsuspensiondays INT(11) DEFAULT NULL AFTER finedays;
8582     |);
8583     print "Upgrade to $DBversion done (Bug 12230: Add new issuing rule maxsuspensiondays)\n";
8584     SetVersion($DBversion);
8585 }
8586
8587 $DBversion = "3.17.00.006";
8588 if ( CheckVersion($DBversion) ) {
8589     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OpacLocationBranchToDisplay',  'holding',  'holding|home|both',  'In the OPAC, under location show which branch for Location in the record details.',  'Choice')");
8590     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OpacLocationBranchToDisplayShelving',  'holding',  'holding|home|both',  'In the OPAC, display the shelving location under which which column',  'Choice')");
8591     print "Upgrade to $DBversion done (Bug 7720 - Ambiguity in OPAC Details location.)\n";
8592     SetVersion($DBversion);
8593 }
8594
8595 $DBversion = "3.17.00.007";
8596 if (CheckVersion($DBversion)) {
8597     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('UpdateNotForLoanStatusOnCheckin', '', 'NULL', 'This is a list of value pairs. When an item is checked in, if the not for loan value on the left matches the items not for loan value it will be updated to the right-hand value. E.g. ''-1: 0'' will cause an item that was set to ''Ordered'' to now be available for loan. Each pair of values should be on a separate line.', 'Free');");
8598     print "Upgrade to $DBversion done (Bug 11629 - Add ability to update not for loan status on checkin)\n";
8599     SetVersion($DBversion);
8600 }
8601
8602 $DBversion = "3.17.00.008";
8603 if ( CheckVersion($DBversion) ) {
8604     $dbh->do(q|
8605         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('OPACAcquisitionDetails','0', '','Show the acquisition details at the OPAC','YesNo')
8606     |);
8607     print "Upgrade to $DBversion done (Bug 11169 - Add OPACAcquisitionDetails syspref)\n";
8608     SetVersion($DBversion);
8609 }
8610
8611 $DBversion = "3.17.00.009";
8612 if ( CheckVersion($DBversion) ) {
8613     $dbh->do(q{
8614         DELETE FROM systempreferences WHERE variable = 'UseTablesortForCirc'
8615     });
8616
8617     print "Upgrade to $DBversion done (Bug 11703 - Remove UseTablesortForCirc syspref)\n";
8618     SetVersion($DBversion);
8619 }
8620
8621 $DBversion = "3.17.00.010";
8622 if ( CheckVersion($DBversion) ) {
8623     $dbh->do("DELETE FROM systempreferences WHERE variable='opacsmallimage'");
8624     print "Upgrade to $DBversion done (Bug 11347 - PROG/CCSR deprecation: Remove opacsmallimage system preference)\n";
8625     SetVersion($DBversion);
8626 }
8627
8628 $DBversion = "3.17.00.011";
8629 if ( CheckVersion($DBversion) ) {
8630     $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'hr', 'language', 'Croatian','2014-07-24' )");
8631     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'hr','hrv')");
8632     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'hr', 'Hrvatski')");
8633     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'en', 'Croatian')");
8634     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'fr', 'Croate')");
8635     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'de', 'Kroatisch')");
8636     print "Upgrade to $DBversion done (Bug 12649: Add Croatian language)\n";
8637     SetVersion ($DBversion);
8638 }
8639
8640 $DBversion = "3.17.00.012";
8641 if ( CheckVersion($DBversion) ) {
8642     $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowFiltersPulldownMobile'");
8643     print "Upgrade to $DBversion done ( Bug 12512 - PROG/CCSR deprecation: Remove OpacShowFiltersPulldownMobile system preference )\n";
8644     SetVersion ($DBversion);
8645 }
8646
8647 $DBversion = "3.17.00.013";
8648 if ( CheckVersion($DBversion) ) {
8649     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('maxreserves',50,'System-wide maximum number of holds a patron can place','','Integer')");
8650     print "Upgrade to $DBversion done (Re-add system preference maxreserves)\n";
8651     SetVersion ($DBversion);
8652 }
8653
8654 $DBversion = '3.17.00.014';
8655 if ( CheckVersion($DBversion) ) {
8656     $dbh->do("
8657         INSERT INTO systempreferences (variable,value,explanation,type) VALUES
8658         ('OverdueNoticeCalendar',0,'Take calendar into consideration when working out sending overdue notices','YesNo')
8659     ");
8660     print "Upgrade to $DBversion done (Bug 12529 - Adding a syspref to allow the overdue notices to consider the calendar when generating notices)\n";
8661     SetVersion($DBversion);
8662 }
8663
8664 $DBversion = "3.17.00.015";
8665 if ( CheckVersion($DBversion) ) {
8666     $dbh->do(q{
8667         CREATE TABLE IF NOT EXISTS columns_settings (
8668             module varchar(255) NOT NULL,
8669             page varchar(255) NOT NULL,
8670             tablename varchar(255) NOT NULL,
8671             columnname varchar(255) NOT NULL,
8672             cannot_be_toggled int(1) NOT NULL DEFAULT 0,
8673             is_hidden int(1) NOT NULL DEFAULT 0,
8674             PRIMARY KEY(module, page, tablename, columnname)
8675         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
8676     });
8677     print "Upgrade to $DBversion done (Bug 10212 - Create new table columns_settings)\n";
8678     SetVersion ($DBversion);
8679 }
8680
8681 $DBversion = "3.17.00.016";
8682 if ( CheckVersion($DBversion) ) {
8683     $dbh->do("CREATE TABLE aqcontacts (
8684         id int(11) NOT NULL auto_increment,
8685         name varchar(100) default NULL,
8686         position varchar(100) default NULL,
8687         phone varchar(100) default NULL,
8688         altphone varchar(100) default NULL,
8689         fax varchar(100) default NULL,
8690         email varchar(100) default NULL,
8691         notes mediumtext,
8692         claimacquisition BOOLEAN NOT NULL DEFAULT 0,
8693         claimissues BOOLEAN NOT NULL DEFAULT 0,
8694         acqprimary BOOLEAN NOT NULL DEFAULT 0,
8695         serialsprimary BOOLEAN NOT NULL DEFAULT 0,
8696         booksellerid int(11) not NULL,
8697         PRIMARY KEY  (id),
8698         CONSTRAINT booksellerid_aqcontacts_fk FOREIGN KEY (booksellerid)
8699             REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE
8700         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1;");
8701     $dbh->do("INSERT INTO aqcontacts (name, position, phone, altphone, fax,
8702             email, notes, booksellerid, claimacquisition, claimissues, acqprimary, serialsprimary)
8703         SELECT contact, contpos, contphone, contaltphone, contfax, contemail,
8704             contnotes, id, 1, 1, 1, 1 FROM aqbooksellers;");
8705     $dbh->do("ALTER TABLE aqbooksellers DROP COLUMN contact,
8706         DROP COLUMN contpos, DROP COLUMN contphone,
8707         DROP COLUMN contaltphone, DROP COLUMN contfax,
8708         DROP COLUMN contemail, DROP COLUMN contnotes;");
8709     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contact>>', '<<aqcontacts.name>>')");
8710     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contpos>>', '<<aqcontacts.position>>')");
8711     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contphone>>', '<<aqcontacts.phone>>')");
8712     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contaltphone>>', '<<aqcontacts.altphone>>')");
8713     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contfax>>', '<<aqcontacts.contfax>>')");
8714     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contemail>>', '<<aqcontacts.contemail>>')");
8715     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contnotes>>', '<<aqcontacts.contnotes>>')");
8716     print "Upgrade to $DBversion done (Bug 10402: Move bookseller contacts to separate table)\n";
8717     SetVersion($DBversion);
8718 }
8719
8720 $DBversion = "3.17.00.017";
8721 if ( CheckVersion($DBversion) ) {
8722     # Correct invalid recordtypes (should be very exceptional)
8723     $dbh->do(q{
8724         UPDATE z3950servers set recordtype='biblio' WHERE recordtype NOT IN ('authority','biblio')
8725     });
8726     # Correct invalid server types (should also be very exceptional)
8727     $dbh->do(q{
8728         UPDATE z3950servers set type='zed' WHERE type <> 'zed'
8729     });
8730     # Adjust table
8731     $dbh->do(q{
8732         ALTER TABLE z3950servers
8733         DROP COLUMN icon,
8734         DROP COLUMN description,
8735         DROP COLUMN position,
8736         MODIFY COLUMN id int NOT NULL AUTO_INCREMENT FIRST,
8737         MODIFY COLUMN recordtype enum('authority','biblio') NOT NULL DEFAULT 'biblio',
8738         CHANGE COLUMN name servername mediumtext NOT NULL,
8739         CHANGE COLUMN type servertype enum('zed','sru') NOT NULL DEFAULT 'zed',
8740         ADD COLUMN sru_options varchar(255) default NULL,
8741         ADD COLUMN sru_fields mediumtext default NULL,
8742         ADD COLUMN add_xslt mediumtext default NULL
8743     });
8744     print "Upgrade to $DBversion done (Bug 6536: Z3950 improvements)\n";
8745     SetVersion ($DBversion);
8746 }
8747
8748 $DBversion = "3.17.00.018";
8749 if ( CheckVersion($DBversion) ) {
8750     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('HoldsInNoissuesCharge', '0', 'Hold charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
8751     print "Upgrade to $DBversion done (Bug 12205: Add HoldsInNoissuesCharge systempreference)\n";
8752     SetVersion($DBversion);
8753 }
8754
8755 $DBversion = "3.17.00.019";
8756 if ( CheckVersion($DBversion) ) {
8757     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NotHighlightedWords','and|or|not',NULL,'List of words to NOT highlight when OpacHighlightedWords is enabled','free')"
8758     );
8759     print "Upgrade to $DBversion done (Bug 6149: Operator highlighted in search results)\n";
8760     SetVersion($DBversion);
8761 }
8762
8763 $DBversion = "3.17.00.020";
8764 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8765     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesOnHolidays', '1', NULL, 'If false, reserves at a library will not be canceled on days the library is not open.', 'YesNo')");
8766     print "Upgrade to $DBversion done (Bug 8735 - Expire holds waiting only on days the library is open)\n";
8767     SetVersion ($DBversion);
8768 }
8769
8770 $DBversion = "3.17.00.021";
8771 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
8772     my $pref = C4::Context->preference('HomeOrHoldingBranch');
8773     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
8774        VALUES ('StaffSearchResultsDisplayBranch', ?,'homebranch|holdingbranch','Controls the display of the home or holding branch for staff search results','choice')", undef, $pref);
8775     print "Upgrade to $DBversion done (Bug 12582 - Control of branch displayed in search results linked to HomeOrHoldingBranch)\n";
8776     SetVersion ($DBversion);
8777 }
8778
8779 $DBversion = '3.17.00.022';
8780 if ( CheckVersion($DBversion) ) {
8781     my @temp= $dbh->selectrow_array(qq|
8782         SELECT count(*)
8783         FROM marc_subfield_structure
8784         WHERE kohafield='permanent_location' OR kohafield='items.permanent_location'
8785     |);
8786     print "Upgrade to $DBversion done (Bug 7817: Check for permanent_location)\n";
8787     if( $temp[0] ) {
8788         print "WARNING for Koha administrator: Your database contains one or more mappings for permanent_location to the MARC structure. This item field however is for internal use and should not be linked to a MARC (sub)field. Please correct it. See also Bugzilla reports 7817 and 12818.\n";
8789     }
8790     SetVersion($DBversion);
8791 }
8792
8793 $DBversion = "3.17.00.023";
8794 if ( CheckVersion($DBversion) ) {
8795     $dbh->do(q{
8796         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('AcqItemSetSubfieldsWhenReceiptIsCancelled','', '','Upon cancelling a receipt, update the items subfields if they were created when placing an order (e.g. o=5|a="bar foo")', 'Free')
8797     });
8798     print "Upgrade to $DBversion done (Bug 11169 - Add AcqItemSetSubfieldsWhenReceiptIsCancelled syspref)\n";
8799     SetVersion($DBversion);
8800 }
8801
8802 $DBversion = "3.17.00.024";
8803 if(CheckVersion($DBversion)) {
8804     $dbh->do(q{
8805         ALTER TABLE issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8806     });
8807     $dbh->do(q{
8808         ALTER TABLE old_issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8809     });
8810     $dbh->do(q{
8811         ALTER TABLE issuingrules ADD auto_renew BOOLEAN default FALSE AFTER norenewalbefore
8812     });
8813     print "Upgrade to $DBversion done (Bug 11577: [ENH] Automatic renewal feature)\n";
8814     SetVersion($DBversion);
8815 }
8816
8817 $DBversion = '3.17.00.025';
8818 if ( CheckVersion($DBversion) ) {
8819     $dbh->do(qq{
8820         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('StatisticsFields','location|itype|ccode','Define fields (from the items table) used for statistics members',NULL,'Free')
8821     });
8822     print "Upgrade to $DBversion done (Bug 12728: Checked syspref StatisticsFields)\n";
8823 }
8824
8825 $DBversion = "3.17.00.026";
8826 if ( CheckVersion($DBversion) ) {
8827     if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
8828         $dbh->do("UPDATE marc_subfield_structure SET liblibrarian = 'Encoded bitrate', libopac = 'Encoded bitrate' WHERE tagfield = '347' AND tagsubfield = 'f'");
8829         $dbh->do("UPDATE marc_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','610','611','710','711','810','811') AND tagsubfield = 'c'");
8830         $dbh->do("UPDATE auth_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','410','411','510','511','710','711') AND tagsubfield = 'c'");
8831         print "Upgrade to $DBversion done (Bug 12435 - Update MARC21 frameworks to Update No. 18 (April 2014))\n";
8832     }
8833     SetVersion($DBversion);
8834 }
8835
8836 $DBversion = "3.17.00.027";
8837 if ( CheckVersion($DBversion) ) {
8838     $dbh->do(q{
8839         DELETE FROM systempreferences WHERE variable = 'SearchEngine'
8840     });
8841     print "Upgrade to $DBversion done (Bug 12538 - Remove SearchEngine syspref)\n";
8842     SetVersion($DBversion);
8843 }
8844
8845 $DBversion = "3.17.00.028";
8846 if ( CheckVersion($DBversion) ) {
8847     $dbh->do(q{
8848         INSERT INTO systempreferences (variable,value) VALUES('OpacCustomSearch','');
8849     });
8850     print "Upgrade to $DBversion done (Bug 12296 - search box replaceable with a system preference)\n";
8851     SetVersion($DBversion);
8852 }
8853
8854 $DBversion = "3.17.00.029";
8855 if ( CheckVersion($DBversion) ) {
8856     $dbh->do("ALTER TABLE  `items` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8857     $dbh->do("ALTER TABLE  `deleteditems` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8858     $dbh->do("ALTER TABLE  `biblioitems` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8859     $dbh->do("ALTER TABLE  `deletedbiblioitems` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8860     print "Upgrade to $DBversion done (Bug 12424 - ddc sorting of call numbers truncates long Cutter parts)\n";
8861     SetVersion ($DBversion);
8862 }
8863
8864 $DBversion = "3.17.00.030";
8865 if ( CheckVersion($DBversion) ) {
8866     $dbh->do(
8867         q{
8868        INSERT INTO systempreferences (variable, value, options, explanation, type )
8869        VALUES
8870         ('UsageStatsCountry', '', NULL, 'The country where your library is located, to be shown on the Hea Koha community website', 'YesNo'),
8871         ('UsageStatsID', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.',  'Free'),
8872         ('UsageStatsLastUpdateTime', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8873         ('UsageStatsLibraryName', '', NULL, 'The library name to be shown on Hea Koha community website', 'Free'),
8874         ('UsageStatsLibraryType', 'public', 'public|university', 'The library type to be shown on the Hea Koha community website', 'Choice'),
8875         ('UsageStatsLibraryUrl', '', NULL, 'The library URL to be shown on Hea Koha community website', 'Free'),
8876         ('UsageStats', 0, NULL, 'Share anonymous usage data on the Hea Koha community website.', 'YesNo')
8877     });
8878     print "Upgrade to $DBversion done (Bug 11926: Add UsageStats systempreferences (HEA))\n";
8879     SetVersion ($DBversion);
8880 }
8881
8882 $DBversion = "3.17.00.031";
8883 if ( CheckVersion($DBversion) ) {
8884    $dbh->do("ALTER TABLE saved_sql CHANGE report_name report_name VARCHAR( 255 ) NOT NULL DEFAULT '' ");
8885    print "Upgrade to $DBversion done (Bug 2969: Report Name should be mandatory for saved reports)\n";
8886    SetVersion ($DBversion);
8887 }
8888
8889 $DBversion = "3.17.00.032";
8890 if ( CheckVersion($DBversion) ) {
8891     $dbh->do(
8892 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReplytoDefault',  '',  NULL,  'The default email address to be set as replyto.',  'Free')"
8893     );
8894     $dbh->do(
8895 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReturnpathDefault',  '',  NULL,  'The default email address to be set as return-path',  'Free')"
8896     );
8897     $dbh->do("ALTER TABLE branches ADD branchreplyto mediumtext AFTER branchemail");
8898     $dbh->do("ALTER TABLE branches ADD branchreturnpath mediumtext AFTER branchreplyto");
8899     print "Upgrade to $DBversion done (Bug 9530: Adding replyto and returnpath addresses.)\n";
8900     SetVersion($DBversion);
8901 }
8902
8903 $DBversion = "3.17.00.033";
8904 if ( CheckVersion($DBversion) ) {
8905     $dbh->do(q{
8906         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
8907         VALUES('FacetMaxCount', '20','Specify the max facet count for each category',NULL,'Integer')
8908     });
8909     print "Upgrade to $DBversion done (Bug 13088 - Allow the user to specify a max amount of facets to show)\n";
8910     SetVersion($DBversion);
8911 }
8912
8913 $DBversion = "3.17.00.034";
8914 if ( CheckVersion($DBversion) ) {
8915     $dbh->do(q|
8916         ALTER TABLE aqorders DROP COLUMN cancelledby;
8917     |);
8918
8919     print "Upgrade to $DBversion done (Bug 11007 - DROP column aqorders.cancelledby)\n";
8920     SetVersion($DBversion);
8921 }
8922
8923 $DBversion = "3.17.00.035";
8924 if ( CheckVersion($DBversion) ) {
8925     $dbh->do(q|
8926         ALTER TABLE serial ADD COLUMN claims_count INT(11) DEFAULT 0 after claimdate
8927     |);
8928     $dbh->do(q|
8929         UPDATE serial
8930         SET claims_count = 1
8931         WHERE claimdate IS NOT NULL
8932     |);
8933     print "Upgrade to $DBversion done (Bug 5342: Add claims_count field in serial table)\n";
8934     SetVersion($DBversion);
8935 }
8936
8937 $DBversion = "3.17.00.036";
8938 if ( CheckVersion($DBversion) ) {
8939     $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowLibrariesPulldownMobile'");
8940     print "Upgrade to $DBversion done ( Bug 12513 - PROG/CCSR deprecation: Remove OpacShowLibrariesPulldownMobile system preference )\n";
8941     SetVersion ($DBversion);
8942 }
8943
8944 $DBversion = "3.17.00.037";
8945 if ( CheckVersion($DBversion) ) {
8946     $dbh->do("DELETE FROM systempreferences WHERE variable='OpacMainUserBlockMobile'");
8947     print "Upgrade to $DBversion done ( Bug 12246 - PROG/CCSR deprecation: Remove OpacMainUserBlockMobile system preference )\n";
8948     SetVersion ($DBversion);
8949 }
8950
8951 $DBversion = "3.17.00.038";
8952 if ( CheckVersion($DBversion) ) {
8953     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACMobileUserCSS'");
8954     print "Upgrade to $DBversion done ( Bug 12245 - PROG/CCSR deprecation: Remove OPACMobileUserCSS system preference )\n";
8955     SetVersion ($DBversion);
8956 }
8957
8958 $DBversion = "3.17.00.039";
8959 if ( CheckVersion($DBversion) ) {
8960     $dbh->do("INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
8961     ('OPACFallback', 'prog', 'bootstrap|prog', 'Define the fallback theme for the OPAC interface.', 'Themes')");
8962     print "Upgrade to $DBversion done (Bug 12539 - PROG/CCSR deprecation: Remove hardcoded theme from C4/Templates.pm)\n";
8963     SetVersion ($DBversion);
8964 }
8965
8966 $DBversion = "3.17.00.040";
8967 if ( CheckVersion($DBversion) ) {
8968     my $opac_theme = C4::Context->preference( 'opacthemes' );
8969     if ( !defined $opac_theme || $opac_theme eq 'prog' || $opac_theme eq 'ccsr' ) {
8970         $dbh->do("UPDATE systempreferences SET value='bootstrap' WHERE variable='opacthemes'");
8971     }
8972     print "Upgrade to $DBversion done (Bug 12223: 'prog' and 'ccsr' themes removed)\n";
8973     SetVersion($DBversion);
8974 }
8975
8976 $DBversion = "3.17.00.041";
8977 if ( CheckVersion($DBversion) ) {
8978     print "Upgrade to $DBversion done (Bug 11346: Deprecate the 'prog' and 'CCSR' themes)\n";
8979     SetVersion($DBversion);
8980 }
8981
8982 $DBversion = "3.17.00.042";
8983 if ( CheckVersion($DBversion) ) {
8984     $dbh->do("DELETE FROM systempreferences WHERE variable='yuipath'");
8985     print "Upgrade to $DBversion done (Bug 12494: Remove yuipath system preference)\n";
8986     SetVersion ($DBversion);
8987 }
8988
8989 $DBversion = "3.17.00.043";
8990 if ( CheckVersion($DBversion) ) {
8991     $dbh->do("
8992         ALTER TABLE aqorders
8993         ADD COLUMN cancellationreason TEXT DEFAULT NULL AFTER datecancellationprinted
8994     ");
8995     print "Upgrade to $DBversion done (Bug 7162: Add aqorders.cancellationreason)\n";
8996     SetVersion ($DBversion);
8997 }
8998
8999 $DBversion = "3.17.00.044";
9000 if ( CheckVersion($DBversion) ) {
9001     $dbh->do(q{
9002         INSERT IGNORE INTO systempreferences
9003             (variable,value,explanation,options,type)
9004             VALUES('OnSiteCheckouts','0','Enable/Disable the on-site checkouts feature','','YesNo');
9005     });
9006     $dbh->do(q{
9007         INSERT IGNORE INTO systempreferences
9008             (variable,value,explanation,options,type)
9009             VALUES('OnSiteCheckoutsForce','0','Enable/Disable the on-site for all cases (Even if a user is debarred, etc.)','','YesNo');
9010     });
9011     $dbh->do(q{
9012         ALTER TABLE issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9013     });
9014     $dbh->do(q{
9015         ALTER TABLE old_issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9016     });
9017     print "Upgrade to $DBversion done (Bug 10860: Add new system preference OnSiteCheckouts + fields [old_]issues.onsite_checkout)\n";
9018     SetVersion($DBversion);
9019 }
9020
9021 $DBversion = "3.17.00.045";
9022 if ( CheckVersion($DBversion) ) {
9023     $dbh->do(q{
9024         INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9025         ('LocalHoldsPriority',  '0', NULL,  'Enables the LocalHoldsPriority feature',  'YesNo'),
9026         ('LocalHoldsPriorityItemControl',  'holdingbranch',  'holdingbranch|homebranch',  'decides if the feature operates using the item''s home or holding library.',  'Choice'),
9027         ('LocalHoldsPriorityPatronControl',  'PickupLibrary',  'HomeLibrary|PickupLibrary',  'decides if the feature operates using the library set as the patron''s home library, or the library set as the pickup library for the given hold.',  'Choice')
9028     });
9029     print "Upgrade to $DBversion done (Bug 11126 - Make the holds system optionally give precedence to local holds)\n";
9030     SetVersion($DBversion);
9031 }
9032
9033 $DBversion = "3.17.00.046";
9034 if ( CheckVersion($DBversion) ) {
9035     $dbh->do(q{
9036         CREATE TABLE IF NOT EXISTS items_search_fields (
9037           name VARCHAR(255) NOT NULL,
9038           label VARCHAR(255) NOT NULL,
9039           tagfield CHAR(3) NOT NULL,
9040           tagsubfield CHAR(1) NULL DEFAULT NULL,
9041           authorised_values_category VARCHAR(16) NULL DEFAULT NULL,
9042           PRIMARY KEY(name),
9043           CONSTRAINT items_search_fields_authorised_values_category
9044             FOREIGN KEY (authorised_values_category) REFERENCES authorised_values (category)
9045             ON DELETE SET NULL ON UPDATE CASCADE
9046         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
9047     });
9048     print "Upgrade to $DBversion done (Bug 11425: Add items_search_fields table)\n";
9049     SetVersion($DBversion);
9050 }
9051
9052 $DBversion = "3.17.00.047";
9053 if ( CheckVersion($DBversion) ) {
9054     $dbh->do(q{
9055         ALTER TABLE collections
9056             CHANGE colBranchcode colBranchcode VARCHAR( 10 ) NULL DEFAULT NULL,
9057             ADD INDEX ( colBranchcode ),
9058             ADD CONSTRAINT collections_ibfk_1 FOREIGN KEY (colBranchcode) REFERENCES branches (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
9059     });
9060     print "Upgrade to $DBversion done (Bug 8836 - Resurrect Rotating Collections)\n";
9061     SetVersion($DBversion);
9062 }
9063
9064 $DBversion = "3.17.00.048";
9065 if ( CheckVersion($DBversion) ) {
9066     $dbh->do(q|
9067         INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('RentalFeesCheckoutConfirmation', '0', NULL , 'Allow user to confirm when checking out an item with rental fees.', 'YesNo')
9068     |);
9069     print "Upgrade to $DBversion done (Bug 12448 - Add RentalFeesCheckoutConfirmation syspref)\n";
9070     SetVersion($DBversion);
9071 }
9072
9073 $DBversion = "3.17.00.049";
9074 if ( CheckVersion($DBversion) ) {
9075     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'am', 'language', 'Amharic','2014-10-29')");
9076     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'am','amh')");
9077     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'am', 'አማርኛ')");
9078     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'en', 'Amharic')");
9079
9080     $dbh->do("UPDATE language_descriptions SET description = 'لعربية' WHERE subtag = 'ar' AND type = 'language' AND lang = 'ar'");
9081
9082     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'az', 'language', 'Azerbaijani','2014-10-30')");
9083     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'az','aze')");
9084     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'az', 'Azərbaycan dili')");
9085     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'en', 'Azerbaijani')");
9086
9087     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'be', 'language', 'Byelorussian','2014-10-30')");
9088     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'be','bel')");
9089     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'be', 'Беларуская мова')");
9090     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'en', 'Byelorussian')");
9091
9092     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'bn', 'language', 'Bengali','2014-10-30')");
9093     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'bn','ben')");
9094     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'bn', 'বাংলা')");
9095     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'en', 'Bengali')");
9096
9097     $dbh->do("UPDATE language_descriptions SET description = 'Български' WHERE subtag = 'bg' AND type = 'language' AND lang = 'bg'");
9098     $dbh->do("UPDATE language_descriptions SET description = 'Ceština' WHERE subtag = 'cs' AND type = 'language' AND lang = 'cs'");
9099     $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικά' WHERE subtag = 'el' AND type = 'language' AND lang = 'el'");
9100     $dbh->do("UPDATE language_descriptions SET description = 'Español' WHERE subtag = 'es' AND type = 'language' AND lang = 'es'");
9101
9102     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'eu', 'language', 'Basque','2014-10-30')");
9103     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'eu','eus')");
9104     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'eu', 'Euskera')");
9105     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'en', 'Basque')");
9106
9107     $dbh->do("UPDATE language_descriptions SET description = 'فارسى' WHERE subtag = 'fa' AND type = 'language' AND lang = 'fa'");
9108     $dbh->do("UPDATE language_descriptions SET description = 'Suomi' WHERE subtag = 'fi' AND type = 'language' AND lang = 'fi'");
9109
9110     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'fo', 'language', 'Faroese','2014-10-30')");
9111     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'fo','fao')");
9112     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'fo', 'Føroyskt')");
9113     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'en', 'Faroese')");
9114
9115     $dbh->do("UPDATE language_descriptions SET description = 'Français' WHERE subtag = 'fr' AND type = 'language' AND lang = 'fr'");
9116     $dbh->do("UPDATE language_descriptions SET description = 'עִבְרִית' WHERE subtag = 'he' AND type = 'language' AND lang = 'he'");
9117     $dbh->do("UPDATE language_descriptions SET description = 'हिन्दी' WHERE subtag = 'hi' AND type = 'language' AND lang = 'hi'");
9118
9119     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'is', 'language', 'Icelandic','2014-10-30')");
9120     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'is','ice')");
9121     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'is', 'Íslenska')");
9122     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'en', 'Icelandic')");
9123
9124     $dbh->do("UPDATE language_descriptions SET description = '日本語' WHERE subtag = 'ja' AND type = 'language' AND lang = 'ja'");
9125
9126     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Kannada','2014-10-30')");
9127     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka','kan')");
9128     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ಕನ್ನಡ')");
9129     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Kannada')");
9130
9131     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'km', 'language', 'Khmer','2014-10-30')");
9132     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'km','khm')");
9133     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'km', 'language', 'km', 'ភាសាខ្មែរ')");
9134     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'km', 'language', 'en', 'Khmer')");
9135
9136     $dbh->do("UPDATE language_descriptions SET description = '한국어' WHERE subtag = 'ko' AND type = 'language' AND lang = 'ko'");
9137
9138     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ku', 'language', 'Kurdish','2014-05-13')");
9139     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ku','kur')");
9140     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'ku', 'کوردی')");
9141     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'en', 'Kurdish')");
9142     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'fr', 'Kurde')");
9143     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'de', 'Kurdisch')");
9144     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'es', 'Kurdo')");
9145
9146     $dbh->do("UPDATE language_descriptions SET description = 'ພາສາລາວ' WHERE subtag = 'lo' AND type = 'language' AND lang = 'lo'");
9147
9148     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mi', 'language', 'Maori','2014-10-30')");
9149     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mi','mri')");
9150     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'mi', 'Te Reo Māori')");
9151     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'en', 'Maori')");
9152
9153     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mn', 'language', 'Mongolian','2014-10-30')");
9154     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mn','mon')");
9155     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'mn', 'Mонгол')");
9156     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'en', 'Mongolian')");
9157
9158     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mr', 'language', 'Marathi','2014-10-30')");
9159     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mr','mar')");
9160     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'mr', 'मराठी')");
9161     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'en', 'Marathi')");
9162
9163     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ms', 'language', 'Malay','2014-10-30')");
9164     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ms','may')");
9165     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'ms', 'Bahasa melayu')");
9166     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'en', 'Malay')");
9167
9168     $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'nb'");
9169     $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'en'");
9170     $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'fr'");
9171     $dbh->do("UPDATE language_descriptions SET description = 'Norwegisch bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'de'");
9172
9173     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ne', 'language', 'Nepali','2014-10-30')");
9174     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ne','nep')");
9175     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)VALUES ( 'ne', 'language', 'ne', 'नेपाली')");
9176     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ne', 'language', 'en', 'Nepali')");
9177
9178     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'pbr', 'language', 'Pangwa','2014-10-30')");
9179     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'pbr','pbr')");
9180     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'pbr', 'Ekipangwa')");
9181     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'en', 'Pangwa')");
9182
9183     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'prs', 'language', 'Dari','2014-10-30')");
9184     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'prs','prs')");
9185     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'prs', 'درى')");
9186     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'en', 'Dari')");
9187
9188     $dbh->do("UPDATE language_descriptions SET description = 'Português' WHERE subtag = 'pt' AND type = 'language' AND lang = 'pt'");
9189     $dbh->do("UPDATE language_descriptions SET description = 'Român' WHERE subtag = 'ro' AND type = 'language' AND lang = 'ro'");
9190     $dbh->do("UPDATE language_descriptions SET description = 'Русский' WHERE subtag = 'ru' AND type = 'language' AND lang = 'ru'");
9191
9192     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'rw', 'language', 'Kinyarwanda','2014-10-30')");
9193     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'rw','kin')");
9194     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'rw', 'Ikinyarwanda')");
9195     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'en', 'Kinyarwanda')");
9196
9197     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sd', 'language', 'Sindhi','2014-10-30')");
9198     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sd','snd')");
9199     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'sd', 'سنڌي')");
9200     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'en', 'Sindhi')");
9201
9202     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sk', 'language', 'Slovak','2014-10-30')");
9203     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sk','slk')");
9204     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'sk', 'Slovenčina')");
9205     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'en', 'Slovak')");
9206
9207     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sl', 'language', 'Slovene','2014-10-30')");
9208     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sl','slv')");
9209     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'sl', 'Slovenščina')");
9210     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'en', 'Slovene')");
9211
9212     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sq', 'language', 'Albanian','2014-10-30')");
9213     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sq','sqi')");
9214     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'sq', 'Shqip')");
9215     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'en', 'Albanian')");
9216
9217     $dbh->do("UPDATE language_descriptions SET description = 'Cрпски' WHERE subtag = 'sr' AND type = 'language' AND lang = 'sr'");
9218
9219     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sw', 'language', 'Swahili','2014-10-30')");
9220     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sw','swa')");
9221     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'sw', 'Kiswahili')");
9222     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'en', 'Swahili')");
9223
9224     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ta', 'language', 'Tamil','2014-10-30')");
9225     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ta','tam')");
9226     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'ta', 'தமிழ்')");
9227     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'en', 'Tamil')");
9228
9229     $dbh->do("UPDATE language_descriptions SET description = 'Tetun' WHERE subtag = 'tet' AND type = 'language' AND lang = 'tet'");
9230     $dbh->do("UPDATE language_descriptions SET description = 'ภาษาไทย' WHERE subtag = 'th' AND type = 'language' AND lang = 'th'");
9231
9232     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'tl', 'language', 'Tagalog','2014-10-30')");
9233     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'tl','tgl')");
9234     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'tl', 'Tagalog')");
9235     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'en', 'Tagalog')");
9236
9237     $dbh->do("UPDATE language_descriptions SET description = 'Türkçe' WHERE subtag = 'tr' AND type = 'language' AND lang = 'tr'");
9238     $dbh->do("UPDATE language_descriptions SET description = 'Українська' WHERE subtag = 'uk' AND type = 'language' AND lang = 'uk'");
9239     $dbh->do("UPDATE language_descriptions SET description = 'اردو' WHERE subtag = 'ur' AND type = 'language' AND lang = 'ur'");
9240
9241     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'vi', 'language', 'Vietnamese','2014-10-30')");
9242     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'vi','vie')");
9243     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'vi', '㗂越')");
9244     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'en', 'Vietnamese')");
9245
9246     $dbh->do("UPDATE language_descriptions SET description = '中文' WHERE subtag = 'zh' AND type = 'language' AND lang = 'zh'");
9247     $dbh->do("UPDATE language_descriptions SET description = '' WHERE subtag = 'Arab,script' AND type = 'Arab' AND lang = 'العربية'");
9248
9249     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Armn', 'script', 'Armenian','2014-10-30')");
9250     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Armn', 'script', 'Armn', 'Հայոց այբուբեն')");
9251     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Armn', 'script', 'en', 'Armenian')");
9252
9253     $dbh->do("UPDATE language_descriptions SET description = 'Кирилица' WHERE subtag = 'Cyrl' AND type = 'script' AND lang = 'Cyrl'");
9254
9255     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Ethi', 'script', 'Ethiopic','2014-10-30')");
9256     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Ethi', 'script', 'Ethi', 'ግዕዝ')");
9257     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Ethi', 'script', 'en', 'Ethiopic')");
9258
9259     $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικό αλφάβητο' WHERE subtag = 'Grek' AND type = 'script' AND lang = 'Grek'");
9260     $dbh->do("UPDATE language_descriptions SET description = '简体字' WHERE subtag = 'Hans' AND type = 'script' AND lang = 'Hans'");
9261     $dbh->do("UPDATE language_descriptions SET description = '繁體字' WHERE subtag = 'Hant' AND type = 'script' AND lang = 'Hant'");
9262     $dbh->do("UPDATE language_descriptions SET description = 'אָלֶף־בֵּית עִבְרִי' WHERE subtag = 'Hebr' AND type = 'script' AND lang = 'Hebr'");
9263
9264     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Jpan', 'script', 'Japanese','2014-10-30')");
9265     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Jpan', 'script', 'Jpan', '漢字')");
9266     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Jpan', 'script', 'en', 'Japanese')");
9267
9268     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Knda', 'script', 'Kannada','2014-10-30')");
9269     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Knda', 'script', 'Knda', 'ಕನ್ನಡ ಲಿಪಿ')");
9270     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Knda', 'script', 'en', 'Kannada')");
9271
9272     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Kore', 'script', 'Korean','2014-10-30')");
9273     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Kore', 'script', 'Kore', '한글')");
9274     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Kore', 'script', 'en', 'Korean')");
9275
9276     $dbh->do("UPDATE language_descriptions SET description = 'ອັກສອນລາວ' WHERE subtag = 'Laoo' AND type = 'script' AND lang = 'Laoo'");
9277
9278     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AL', 'region', 'Albania','2014-10-30')");
9279     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'en', 'Albania')");
9280     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'sq', 'Shqipërisë')");
9281
9282     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AZ', 'region', 'Azerbaijan','2014-10-30')");
9283     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'en', 'Azerbaijan')");
9284     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'az', 'Azərbaycan')");
9285
9286     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BE', 'region', 'Belgium','2014-10-30')");
9287     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'en', 'Belgium')");
9288     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'nl', 'België')");
9289
9290     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BR', 'region', 'Brazil','2014-10-30')");
9291     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'en', 'Brazil')");
9292     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'pt', 'Brasil')");
9293
9294     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BY', 'region', 'Belarus','2014-10-30')");
9295     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'en', 'Belarus')");
9296     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'be', 'Беларусь')");
9297
9298     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CA', 'region', 'fr', 'Canada')");
9299
9300     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CH', 'region', 'Switzerland','2014-10-30')");
9301     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'en', 'Switzerland')");
9302     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'de', 'Schweiz')");
9303
9304     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CN', 'region', 'China','2014-10-30')");
9305     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'en', 'China')");
9306     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'zh', '中国')");
9307
9308     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CZ', 'region', 'Czech Republic','2014-10-30')");
9309     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'en', 'Czech Republic')");
9310     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'cs', 'Česká republika')");
9311
9312     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'DE', 'region', 'Germany','2014-10-30')");
9313     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'en', 'Germany')");
9314     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'de', 'Deutschland')");
9315
9316     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DK', 'region', 'en', 'Denmark')");
9317
9318     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ES', 'region', 'Spain','2014-10-30')");
9319     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'en', 'Spain')");
9320     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'es', 'España')");
9321
9322     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FI', 'region', 'Finland','2014-10-30')");
9323     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'en', 'Finland')");
9324     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'fi', 'Suomi')");
9325
9326     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FO', 'region', 'Faroe Islands','2014-10-30')");
9327     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'en', 'Faroe Islands')");
9328     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'fo', 'Føroyar')");
9329
9330     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'GR', 'region', 'Greece','2014-10-30')");
9331     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'en', 'Greece')");
9332     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'el', 'Ελλάδα')");
9333
9334     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HR', 'region', 'Croatia','2014-10-30')");
9335     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'en', 'Croatia')");
9336     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'hr', 'Hrvatska')");
9337
9338     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HU', 'region', 'Hungary','2014-10-30')");
9339     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'en', 'Hungary')");
9340     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'hu', 'Magyarország')");
9341
9342     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ID', 'region', 'Indonesia','2014-10-30')");
9343     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'en', 'Indonesia')");
9344     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'id', 'Indonesia')");
9345
9346     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IS', 'region', 'Iceland','2014-10-30')");
9347     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'en', 'Iceland')");
9348     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'is', 'Ísland')");
9349
9350     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IT', 'region', 'Italy','2014-10-30')");
9351     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'en', 'Italy')");
9352     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'it', 'Italia')");
9353
9354     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'JP', 'region', 'Japan','2014-10-30')");
9355     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'en', 'Japan')");
9356     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'ja', '日本')");
9357
9358     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KE', 'region', 'Kenya','2014-10-30')");
9359     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'en', 'Kenya')");
9360     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'rw', 'Kenya')");
9361
9362     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KH', 'region', 'Cambodia','2014-10-30')");
9363     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'en', 'Cambodia')");
9364     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'km', 'កម្ពុជា')");
9365
9366     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KP', 'region', 'North Korea','2014-10-30')");
9367     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'en', 'North Korea')");
9368     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'ko', '조선민주주의인민공화국')");
9369
9370     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'LK', 'region', 'Sri Lanka','2014-10-30')");
9371     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'en', 'Sri Lanka')");
9372     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'ta', 'இலங்கை')");
9373
9374     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'MY', 'region', 'Malaysia','2014-10-30')");
9375     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'en', 'Malaysia')");
9376     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'ms', 'Malaysia')");
9377
9378     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NE', 'region', 'Niger','2014-10-30')");
9379     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'en', 'Niger')");
9380     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'ne', 'Niger')");
9381
9382     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NL', 'region', 'Netherlands','2014-10-30')");
9383     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'en', 'Netherlands')");
9384     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'nl', 'Nederland')");
9385
9386     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NO', 'region', 'Norway','2014-10-30')");
9387     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'en', 'Norway')");
9388     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'ne', 'Noreg')");
9389     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'nn', 'Noreg')");
9390
9391     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PH', 'region', 'Philippines','2014-10-30')");
9392     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'en', 'Philippines')");
9393     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'tl', 'Pilipinas')");
9394
9395     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PK', 'region', 'Pakistan','2014-10-30')");
9396     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'en', 'Pakistan')");
9397     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'sd', 'پاكستان')");
9398
9399     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PL', 'region', 'Poland','2014-10-30')");
9400     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'en', 'Poland')");
9401     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'pl', 'Polska')");
9402
9403     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PT', 'region', 'Portugal','2014-10-30')");
9404     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'en', 'Portugal')");
9405     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'pt', 'Portugal')");
9406
9407     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RO', 'region', 'Romania','2014-10-30')");
9408     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'en', 'Romania')");
9409     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'ro', 'România')");
9410
9411     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RU', 'region', 'Russia','2014-10-30')");
9412     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'en', 'Russia')");
9413     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'ru', 'Россия')");
9414
9415     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RW', 'region', 'Rwanda','2014-10-30')");
9416     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'en', 'Rwanda')");
9417     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'rw', 'Rwanda')");
9418
9419     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SE', 'region', 'Sweden','2014-10-30')");
9420     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'en', 'Sweden')");
9421     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'sv', 'Sverige')");
9422
9423     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SI', 'region', 'Slovenia','2014-10-30')");
9424     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'en', 'Slovenia')");
9425     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'sl', 'Slovenija')");
9426
9427     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SK', 'region', 'Slovakia','2014-10-30')");
9428     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'en', 'Slovakia')");
9429     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'sk', 'Slovensko')");
9430
9431     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TH', 'region', 'Thailand','2014-10-30')");
9432     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'en', 'Thailand')");
9433     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'th', 'ประเทศไทย')");
9434
9435     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TR', 'region', 'Turkey','2014-10-30')");
9436     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'en', 'Turkey')");
9437     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'tr', 'Türkiye')");
9438
9439     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TW', 'region', 'Taiwan','2014-10-30')");
9440     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'en', 'Taiwan')");
9441     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'zh', '台灣')");
9442
9443     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'UA', 'region', 'Ukraine','2014-10-30')");
9444     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'en', 'Ukraine')");
9445     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'uk', 'Україна')");
9446
9447     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'VN', 'region', 'Vietnam','2014-10-30')");
9448     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'en', 'Vietnam')");
9449     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'vi', 'Việt Nam')");
9450
9451     print "Upgrade to $DBversion done (Bug 12250: Update descriptions for languages, scripts and regions)\n";
9452     SetVersion($DBversion);
9453 }
9454
9455 $DBversion = "3.17.00.050";
9456 if ( CheckVersion($DBversion) ) {
9457     $dbh->do(q|
9458         INSERT INTO permissions (module_bit, code, description) VALUES
9459           (13, 'records_batchdel', 'Perform batch deletion of records (bibliographic or authority)')
9460     |);
9461     print "Upgrade to $DBversion done (Bug 12403: Add permission tools_records_batchdelitem)\n";
9462     SetVersion($DBversion);
9463 }
9464
9465 $DBversion = "3.17.00.051";
9466 if ( CheckVersion($DBversion) ) {
9467     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('GoogleIndicTransliteration','0','','GoogleIndicTransliteration on the OPAC.','YesNo')");
9468     print "Upgrade to $DBversion done (Bug 13211: Added system preferences GoogleIndicTransliteration on the OPAC)\n";
9469     SetVersion($DBversion);
9470 }
9471
9472 $DBversion = "3.17.00.052";
9473 if ( CheckVersion($DBversion) ) {
9474     $dbh->do(q{
9475         INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAdvSearchOptions','pubdate|itemtype|language|sorting|location','Show search options','pubdate|itemtype|language|subtype|sorting|location','multiple');
9476     });
9477
9478     $dbh->do(q{
9479         INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAdvSearchMoreOptions','pubdate|itemtype|language|subtype|sorting|location','Show search options for the expanded view (More options)','pubdate|itemtype|language|subtype|sorting|location','multiple');
9480    });
9481    print "Upgrade to $DBversion done (Bug 9043: Add system preference OpacAdvSearchOptions and OpacAdvSearchMoreOptions)\n";
9482    SetVersion ($DBversion);
9483 }
9484
9485 $DBversion = "3.17.00.053";
9486 if ( CheckVersion($DBversion) ) {
9487     $dbh->do(q{
9488         INSERT INTO permissions (module_bit, code, description) VALUES ('9', 'edit_items_restricted', 'Limit item modification to subfields defined in the SubfieldsToAllowForRestrictedEditing preference (please note that edit_item is still required)');
9489     });
9490
9491     $dbh->do(q{
9492         INSERT INTO permissions (module_bit, code, description) VALUES ('9', 'delete_all_items', 'Delete all items at once');
9493     });
9494
9495     $dbh->do(q{
9496         INSERT INTO permissions (module_bit, code, description) VALUES ('13', 'items_batchmod_restricted', 'Limit batch item modification to subfields defined in the SubfieldsToAllowForRestrictedBatchmod preference (please note that items_batchmod is still required)');
9497     });
9498
9499     # The delete_all_items permission should be added to users having the edit_items permission.
9500     $dbh->do(q{
9501         INSERT INTO user_permissions (borrowernumber, module_bit, code) SELECT borrowernumber, module_bit, "delete_all_items" FROM user_permissions WHERE code="edit_items";
9502     });
9503
9504     # Add 2 new prefs
9505     $dbh->do(q{
9506         INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SubfieldsToAllowForRestrictedEditing','','Define a list of subfields for which edition is authorized when edit_items_restricted permission is enabled, separated by spaces. Example: 995\$f 995\$h 995\$j','','Free');
9507     });
9508
9509     $dbh->do(q{
9510         INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SubfieldsToAllowForRestrictedBatchmod','','Define a list of subfields for which edition is authorized when items_batchmod_restricted permission is enabled, separated by spaces. Example: 995\$f 995\$h 995\$j','','Free');
9511     });
9512
9513     print "Upgrade to $DBversion done (Bug 7673: Adds 2 new prefs (SubfieldsToAllowForRestrictedEditing and SubfieldsToAllowForRestrictedBatchmod) and 3 new permissions (edit_items_restricted and delete_all_items and items_batchmod_restricted))\n";
9514     SetVersion($DBversion);
9515 }
9516
9517 $DBversion = "3.17.00.054";
9518 if (CheckVersion($DBversion)) {
9519     $dbh->do(q{
9520         INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9521         ('AllowRenewalIfOtherItemsAvailable','0',NULL,'If enabled, allow a patron to renew an item with unfilled holds if other available items can fill that hold.','YesNo')
9522     });
9523     print "Upgrade to $DBversion done (Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds)\n";
9524     SetVersion($DBversion);
9525 }
9526
9527 $DBversion = "3.17.00.055";
9528 if ( CheckVersion($DBversion) ) {
9529     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEnable', '0', NULL, 'Enable communication with the Norwegian national patron database.', 'YesNo')");
9530     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEndpoint', '', NULL, 'Which NL endpoint to use.', 'Free')");
9531     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBUsername', '', NULL, 'Username for communication with the Norwegian national patron database.', 'Free')");
9532     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBPassword', '', NULL, 'Password for communication with the Norwegian national patron database.', 'Free')");
9533     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBSearchNLAfterLocalHit','0',NULL,'Search NL if a search has already given one or more local hits?.','YesNo')");
9534     $dbh->do("
9535 CREATE TABLE borrower_sync (
9536     borrowersyncid int(11) NOT NULL AUTO_INCREMENT,
9537     borrowernumber int(11) NOT NULL,
9538     synctype varchar(32) NOT NULL,
9539     sync tinyint(1) NOT NULL DEFAULT '0',
9540     syncstatus varchar(10) DEFAULT NULL,
9541     lastsync varchar(50) DEFAULT NULL,
9542     hashed_pin varchar(64) DEFAULT NULL,
9543     PRIMARY KEY (borrowersyncid),
9544     KEY borrowernumber (borrowernumber),
9545     CONSTRAINT borrower_sync_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9546 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
9547 );
9548     print "Upgrade to $DBversion done (Bug 11401 - Add support for Norwegian national library card)\n";
9549     SetVersion($DBversion);
9550 }
9551
9552 $DBversion = "3.17.00.056";
9553 if ( CheckVersion($DBversion) ) {
9554     $dbh->do(q{
9555         UPDATE systempreferences SET value = 'pubdate,itemtype,language,sorting,location' WHERE variable='OpacAdvSearchOptions'
9556     });
9557
9558     $dbh->do(q{
9559         UPDATE systempreferences SET value = 'pubdate,itemtype,language,subtype,sorting,location' WHERE variable='OpacAdvSearchMoreOptions'
9560     });
9561
9562     print "Upgrade to $DBversion done (Bug 9043 - Update the values for OpacAdvSearchOptions and OpacAdvSearchOptions)\n";
9563     SetVersion($DBversion);
9564 }
9565
9566 $DBversion = "3.17.00.057";
9567 if ( CheckVersion($DBversion) ) {
9568     print "Upgrade to $DBversion done (Koha 3.18 beta)\n";
9569     SetVersion ($DBversion);
9570 }
9571
9572 $DBversion = "3.17.00.058";
9573 if( CheckVersion($DBversion) ){
9574     $dbh->do("INSERT INTO systempreferences (variable, explanation, type) VALUES('DefaultLongOverdueChargeValue','Charge a lost item to the borrower account when the LOST value of the item changes to n',  'integer')");
9575     $dbh->do("INSERT INTO systempreferences (variable, explanation, type) VALUES('DefaultLongOverdueLostValue', 'Set the LOST value of an item to n when the item has been overdue for more than defaultlongoverduedays days.', 'integer')");
9576     $dbh->do("INSERT INTO systempreferences (variable, explanation, type) VALUES('DefaultLongOverdueDays', 'Set the LOST value of an item when the item has been overdue for more than n days.',  'integer')");
9577     print "Upgrade to $DBversion done (Bug 8337: System preferences for longoverdue cron)\n";
9578     SetVersion($DBversion);
9579 }
9580
9581 $DBversion = "3.17.00.059";
9582 if ( CheckVersion($DBversion) ) {
9583     $dbh->do(q{
9584         UPDATE permissions SET description = "Add and delete budgets (but can't modifiy budgets)" WHERE description = "Add and delete budgets (but cant modify budgets)";
9585     });
9586     print "Upgrade to $DBversion done (Bug 10749: Fix typo in budget_add_del permission description)\n";
9587     SetVersion ($DBversion);
9588 }
9589
9590 $DBversion = "3.17.00.060";
9591 if ( CheckVersion($DBversion) ) {
9592     my $count_l = $dbh->selectcol_arrayref(q|
9593         SELECT COUNT(*) FROM letter WHERE message_transport_type='feed'
9594     |);
9595     my $count_mq = $dbh->selectcol_arrayref(q|
9596         SELECT COUNT(*) FROM message_queue WHERE message_transport_type='feed'
9597     |);
9598     my $count_ott = $dbh->selectcol_arrayref(q|
9599         SELECT COUNT(*) FROM overduerules_transport_types WHERE message_transport_type='feed'
9600     |);
9601     my $count_mt = $dbh->selectcol_arrayref(q|
9602         SELECT COUNT(*) FROM message_transports WHERE message_transport_type='feed'
9603     |);
9604     my $count_bmtp = $dbh->selectcol_arrayref(q|
9605         SELECT COUNT(*) FROM borrower_message_transport_preferences WHERE message_transport_type='feed'
9606     |);
9607
9608     my $deleted = 0;
9609     if ( $count_l->[0] == 0 and $count_mq->[0] == 0 and $count_ott->[0] == 0 and $count_mt->[0] == 0 and $count_bmtp->[0] == 0 ) {
9610         $deleted = $dbh->do(q|
9611             DELETE FROM message_transport_types where message_transport_type='feed'
9612         |);
9613         $deleted = $deleted ne '0E0' ? 1 : 0;
9614     }
9615
9616     print "Upgrade to $DBversion done (Bug 12298: Delete the 'feed' message transport type " . ($deleted ? '(deleted!)' : '(not deleted)') . ")\n";
9617     SetVersion($DBversion);
9618 }
9619
9620 $DBversion = "3.18.00.000";
9621 if ( CheckVersion($DBversion) ) {
9622     print "Upgrade to $DBversion done (3.18.0 release)\n";
9623     SetVersion($DBversion);
9624 }
9625
9626 $DBversion = "3.19.00.000";
9627 if ( CheckVersion($DBversion) ) {
9628     print "Upgrade to $DBversion done (there's life after 3.18)\n";
9629     SetVersion ($DBversion);
9630 }
9631
9632 $DBversion = "3.19.00.001";
9633 if ( CheckVersion($DBversion) ) {
9634     $dbh->do("
9635         UPDATE systempreferences
9636         SET options = 'public|school|academic|research|private|societyAssociation|corporate|government|religiousOrg|subscription'
9637         WHERE variable = 'UsageStatsLibraryType'
9638     ");
9639     if ( C4::Context->preference("UsageStatsLibraryType") eq "university" ) {
9640         C4::Context->set_preference("UsageStatsLibraryType", "academic")
9641     }
9642     print "Upgrade to $DBversion done (Bug 13436: Add more options to UsageStatsLibraryType)\n";
9643     SetVersion ($DBversion);
9644 }
9645
9646 $DBversion = "3.19.00.002";
9647 if ( CheckVersion($DBversion) ) {
9648     $dbh->do(q|
9649         UPDATE suggestions SET branchcode="" WHERE branchcode="__ANY__"
9650     |);
9651     print "upgrade to $DBversion done (Bug 10753: replace __ANY__ with empty string in suggestions.branchcode)\n";
9652     SetVersion ($DBversion);
9653 }
9654
9655
9656 $DBversion = "3.19.00.003";
9657 if ( CheckVersion($DBversion) ) {
9658     my ($count) = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers GROUP BY userid HAVING COUNT(userid) > 1");
9659
9660     if ( $count ) {
9661         print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced) FAILED!\n";
9662         print "Your database has users with duplicate user logins. Please have your administrator deduplicate your user logins.\n";
9663         print "Afterward, your Koha administrator should execute the following database query: ALTER TABLE borrowers DROP INDEX userid, ADD UNIQUE userid (userid)";
9664     } else {
9665         $dbh->do(q{
9666             ALTER TABLE borrowers
9667                 DROP INDEX userid ,
9668                 ADD UNIQUE userid (userid)
9669         });
9670         print "Upgrade to $DBversion done (Bug 1861: Unique patrons logins not (totally) enforced)\n";
9671     }
9672     SetVersion ($DBversion);
9673 }
9674
9675 $DBversion = "3.19.00.XXX";
9676 if ( CheckVersion($DBversion) ) {
9677     $dbh->do(q{UPDATE systempreferences SET variable = 'AudioAlerts' WHERE variable = 'soundon'});
9678
9679     $dbh->do(q{
9680         CREATE TABLE audio_alerts (
9681             id int(11) NOT NULL AUTO_INCREMENT,
9682             precedence smallint(5) unsigned NOT NULL,
9683             selector varchar(255) NOT NULL,
9684             sound varchar(255) NOT NULL,
9685             PRIMARY KEY (id),
9686             KEY precedence (precedence)
9687         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
9688     });
9689
9690     $dbh->do(q{
9691         INSERT INTO audio_alerts VALUES
9692         (1, 1, '.audio-alert-action', 'opening.ogg'),
9693         (2, 2, '.audio-alert-warning', 'critical.ogg'),
9694         (3, 3, '.audio-alert-success', 'beep.ogg');
9695     });
9696
9697     print "Upgrade to $DBversion done (Bug 11431 - Add additional sound options for warnings)\n";
9698     SetVersion($DBversion);
9699 }
9700
9701 $DBversion = "3.19.00.004";
9702 if ( CheckVersion($DBversion) ) {
9703     my $pref_value = C4::Context->preference('OpacExportOptions');
9704     $pref_value =~ s/\|/,/g; # multiple is separated by ,
9705     $dbh->do(q{
9706         UPDATE systempreferences
9707             SET value = ?,
9708                 type = 'multiple'
9709         WHERE variable = 'OpacExportOptions'
9710     }, {}, $pref_value );
9711     print "Upgrade to $DBversion done (Bug 13346: OpacExportOptions is now multiple)\n";
9712     SetVersion ($DBversion);
9713 }
9714
9715 $DBversion = "3.19.00.005";
9716 if(CheckVersion($DBversion)) {
9717     $dbh->do(q{
9718         ALTER TABLE authorised_values MODIFY COLUMN category VARCHAR(32) NOT NULL DEFAULT ''
9719     });
9720
9721     $dbh->do(q{
9722         ALTER TABLE borrower_attribute_types MODIFY COLUMN authorised_value_category VARCHAR(32) DEFAULT NULL
9723     });
9724
9725     print "Upgrade to $DBversion done (Bug 13379: Modify authorised_values.category to varchar(32))\n";
9726     SetVersion($DBversion);
9727 }
9728
9729 $DBversion = "3.19.00.006";
9730 if ( CheckVersion($DBversion) ) {
9731     $dbh->do(q|SET foreign_key_checks = 0|);
9732     my $sth = $dbh->table_info( '','','','TABLE' );
9733     my ( $cat, $schema, $name, $type, $remarks );
9734     while ( ( $cat, $schema, $name, $type, $remarks ) = $sth->fetchrow_array ) {
9735         my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE $name|);
9736         $table_sth->execute;
9737         my @table = $table_sth->fetchrow_array;
9738         unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables
9739             if ( $name eq 'marc_subfield_structure' ) {
9740                 $dbh->do(q|
9741                     ALTER TABLE marc_subfield_structure
9742                     MODIFY COLUMN tagfield varchar(3) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9743                     MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT '',
9744                     MODIFY COLUMN liblibrarian varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9745                     MODIFY COLUMN libopac varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9746                     MODIFY COLUMN kohafield varchar(40) COLLATE utf8_unicode_ci DEFAULT NULL,
9747                     MODIFY COLUMN authorised_value varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9748                     MODIFY COLUMN authtypecode varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9749                     MODIFY COLUMN value_builder varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL,
9750                     MODIFY COLUMN frameworkcode varchar(4) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9751                     MODIFY COLUMN seealso varchar(1100) COLLATE utf8_unicode_ci DEFAULT NULL,
9752                     MODIFY COLUMN link varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL
9753                 |);
9754             }
9755             else {
9756                 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
9757             }
9758         }
9759     }
9760     $dbh->do(q|SET foreign_key_checks = 1|);;
9761
9762     print "Upgrade to $DBversion done (Bug 11944: Convert DB tables to utf8_unicode_ci)\n";
9763     SetVersion($DBversion);
9764 }
9765
9766 $DBversion = "3.19.00.007";
9767 if ( CheckVersion($DBversion) ) {
9768     my $orphan_budgets = $dbh->selectall_arrayref(q|
9769         SELECT budget_id, budget_name, budget_code
9770         FROM aqbudgets
9771         WHERE   budget_parent_id IS NOT NULL
9772             AND budget_parent_id NOT IN (
9773                 SELECT DISTINCT budget_id FROM aqbudgets
9774             )
9775     |, { Slice => {} } );
9776
9777     if ( @$orphan_budgets ) {
9778         for my $b ( @$orphan_budgets ) {
9779             print "Fund $b->{budget_name} (code:$b->{budget_code}, id:$b->{budget_id}) does not have a parent, it may cause problem\n";
9780         }
9781         print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: FAIL)\n";
9782     } else {
9783         print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: OK)\n";
9784     }
9785     SetVersion($DBversion);
9786 }
9787
9788 $DBversion = "3.19.00.008";
9789 if ( CheckVersion($DBversion) ) {
9790     my $number_of_orders_not_linked = $dbh->selectcol_arrayref(q|
9791         SELECT COUNT(*)
9792         FROM aqorders o
9793         WHERE NOT EXISTS (
9794             SELECT NULL
9795             FROM aqbudgets b
9796             WHERE b.budget_id = o.budget_id
9797         );
9798     |);
9799
9800     if ( $number_of_orders_not_linked->[0] > 0 ) {
9801         $dbh->do(q|
9802             INSERT INTO aqbudgetperiods(budget_period_startdate, budget_period_enddate, budget_period_active, budget_period_description, budget_period_total) VALUES ( CAST(NOW() AS date), CAST(NOW() AS date), 0, "WARNING: This budget has been automatically created by the updatedatabase script, please see bug 12601 for more information", 0)
9803         |);
9804         my $budget_period_id = $dbh->last_insert_id( undef, undef, 'aqbudgetperiods', undef );
9805         $dbh->do(qq|
9806             INSERT INTO aqbudgets(budget_code, budget_name, budget_amount, budget_period_id) VALUES ( "BACKUP_TMP", "WARNING: fund created by the updatedatabase script, please see bug 12601", 0, $budget_period_id );
9807         |);
9808         my $budget_id = $dbh->last_insert_id( undef, undef, 'aqbudgets', undef );
9809         $dbh->do(qq|
9810             UPDATE aqorders o
9811             SET budget_id = $budget_id
9812             WHERE NOT EXISTS (
9813                 SELECT NULL
9814                 FROM aqbudgets b
9815                 WHERE b.budget_id = o.budget_id
9816             )
9817         |);
9818     }
9819
9820     $dbh->do(q|
9821         ALTER TABLE aqorders
9822         ADD CONSTRAINT aqorders_budget_id_fk FOREIGN KEY (budget_id) REFERENCES aqbudgets(budget_id) ON DELETE CASCADE ON UPDATE CASCADE
9823     |);
9824
9825     print "Upgrade to $DBversion done (Bug 12601: Add new foreign key aqorders.budget_id" . ( ( $number_of_orders_not_linked->[0] > 0 )  ? ' WARNING: temporary budget and fund have been created (search for "BACKUP_TMP"). At least one of your order was not linked to a budget' : '' ) . ")\n";
9826     SetVersion($DBversion);
9827 }
9828
9829 $DBversion = "3.19.00.009";
9830 if ( CheckVersion($DBversion) ) {
9831     $dbh->do(q|
9832         UPDATE suggestions s SET s.budgetid = NULL
9833         WHERE NOT EXISTS (
9834             SELECT NULL
9835             FROM aqbudgets b
9836             WHERE b.budget_id = s.budgetid
9837         );
9838     |);
9839
9840     $dbh->do(q|
9841         ALTER TABLE suggestions
9842         ADD CONSTRAINT suggestions_budget_id_fk FOREIGN KEY (budgetid) REFERENCES aqbudgets(budget_id) ON DELETE SET NULL ON UPDATE CASCADE
9843     |);
9844
9845     print "Upgrade to $DBversion done (Bug 13007: Add new foreign key suggestions.budgetid)\n";
9846     SetVersion($DBversion);
9847 }
9848
9849 $DBversion = "3.19.00.010";
9850 if ( CheckVersion($DBversion) ) {
9851     $dbh->do(q|
9852         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
9853         VALUES('SessionRestrictionByIP','1','Check for Change in  Remote IP address for Session Security. Disable when remote ip address changes frequently.','','YesNo')
9854     |);
9855     print "Upgrade to $DBversion done (Bug 5511: SessionRestrictionByIP)\n";
9856     SetVersion ($DBversion);
9857 }
9858
9859 $DBversion = "3.19.00.011";
9860 if ( CheckVersion($DBversion) ) {
9861     $dbh->do(q|
9862         INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES
9863         (20, 'lists', 'Lists', 0)
9864     |);
9865     $dbh->do(q|
9866         INSERT INTO permissions (module_bit, code, description) VALUES
9867         (20, 'delete_public_lists', 'Delete public lists')
9868     |);
9869     print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n";
9870     SetVersion ($DBversion);
9871 }
9872
9873 $DBversion = "3.19.00.012";
9874 if(CheckVersion($DBversion)) {
9875     $dbh->do(q{
9876         ALTER TABLE biblioitems MODIFY COLUMN marcxml longtext
9877     });
9878
9879     $dbh->do(q{
9880         ALTER TABLE deletedbiblioitems MODIFY COLUMN marcxml longtext
9881     });
9882
9883     print "Upgrade to $DBversion done (Bug 13523 Remove NOT NULL restriction on field marcxml due to mysql STRICT_TRANS_TABLES)\n";
9884     SetVersion ($DBversion);
9885 }
9886
9887 $DBversion = "3.19.00.013";
9888 if ( CheckVersion($DBversion) ) {
9889     $dbh->do(q|
9890         INSERT INTO permissions (module_bit, code, description) VALUES
9891           (13, 'records_batchmod', 'Perform batch modification of records (biblios or authorities)')
9892     |);
9893     print "Upgrade to $DBversion done (Bug 11395: Add permission tools_records_batchmod)\n";
9894     SetVersion($DBversion);
9895 }
9896
9897 $DBversion = "3.19.00.014";
9898 if ( CheckVersion($DBversion) ) {
9899     $dbh->do(q|
9900         CREATE TABLE aqorder_users (
9901             ordernumber int(11) NOT NULL,
9902             borrowernumber int(11) NOT NULL,
9903             PRIMARY KEY (ordernumber, borrowernumber),
9904             CONSTRAINT aqorder_users_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber) ON DELETE CASCADE ON UPDATE CASCADE,
9905             CONSTRAINT aqorder_users_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9906         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
9907     |);
9908
9909     $dbh->do(q|
9910         INSERT INTO letter(module, code, branchcode, name, title, content, message_transport_type)
9911         VALUES ('acquisition', 'ACQ_NOTIF_ON_RECEIV', '', 'Notification on receiving', 'Order received', 'Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\n The order <<aqorders.ordernumber>> (<<biblio.title>>) has been received.\n\nYour library.', 'email')
9912     |);
9913     print "Upgrade to $DBversion done (Bug 12648: Add letter ACQ_NOTIF_ON_RECEIV )\n";
9914     SetVersion ($DBversion);
9915 }
9916
9917 $DBversion = "3.19.00.015";
9918 if ( CheckVersion($DBversion) ) {
9919     $dbh->do(q|
9920         ALTER TABLE search_history ADD COLUMN id INT(11) NOT NULL AUTO_INCREMENT FIRST, ADD PRIMARY KEY(id);
9921     |);
9922     print "Upgrade to $DBversion done (Bug 11430: Add primary key for search_history)\n";
9923     SetVersion($DBversion);
9924 }
9925
9926 $DBversion = "3.19.00.016";
9927 if(CheckVersion($DBversion)) {
9928     my @order_cancellation_reason = $dbh->selectrow_array("SELECT count(*) FROM authorised_values WHERE category='ORDER_CANCELLATION_REASON'");
9929     if ($order_cancellation_reason[0] == 0) {
9930         $dbh->do(q{
9931             INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9932              ('ORDER_CANCELLATION_REASON', 0, 'No reason provided'),
9933              ('ORDER_CANCELLATION_REASON', 1, 'Out of stock'),
9934              ('ORDER_CANCELLATION_REASON', 2, 'Restocking')
9935         });
9936
9937         my $already_existing_reasons = $dbh->selectcol_arrayref(q{
9938             SELECT DISTINCT( cancellationreason )
9939             FROM aqorders;
9940         }, { Slice => {} });
9941
9942         my $update_orders_sth = $dbh->prepare(q{
9943             UPDATE aqorders
9944             SET cancellationreason = ?
9945             WHERE cancellationreason = ?
9946         });
9947
9948         my $insert_av_sth = $dbh->prepare(q{
9949             INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9950              ('ORDER_CANCELLATION_REASON', ?, ?)
9951         });
9952         my $i = 3;
9953         for my $reason ( @$already_existing_reasons ) {
9954             next unless $reason;
9955             $insert_av_sth->execute( $i, $reason );
9956             $update_orders_sth->execute( $i, $reason );
9957             $i++;
9958         }
9959         print "Upgrade to $DBversion done (Bug 13380: Add the ORDER_CANCELLATION_REASON authorised value)\n";
9960     }
9961     else {
9962         print "Upgrade to $DBversion done (Bug 13380: ORDER_CANCELLATION_REASON authorised value already existed from earlier update!)\n";
9963     }
9964
9965     SetVersion($DBversion);
9966 }
9967
9968 $DBversion = '3.19.00.017';
9969 if ( CheckVersion($DBversion) ) {
9970     # First create the column
9971     $dbh->do("ALTER TABLE issuingrules ADD onshelfholds tinyint(1) default 0 NOT NULL");
9972     # Now update the column
9973     if (C4::Context->preference("AllowOnShelfHolds")){
9974         # Pref is on, set allow for all rules
9975         $dbh->do("UPDATE issuingrules SET onshelfholds=1");
9976     } else {
9977         # If the preference is not set, leave off
9978         $dbh->do("UPDATE issuingrules SET onshelfholds=0");
9979     }
9980     # Remove from the systempreferences table
9981     $dbh->do("DELETE FROM systempreferences WHERE variable = 'AllowOnShelfHolds'");
9982
9983     # First create the column
9984     $dbh->do("ALTER TABLE issuingrules ADD opacitemholds char(1) DEFAULT 'N' NOT NULL");
9985     # Now update the column
9986     my $opacitemholds = C4::Context->preference("OPACItemHolds") || '';
9987     if (lc ($opacitemholds) eq 'force') {
9988         $opacitemholds = 'F';
9989     }
9990     else {
9991         $opacitemholds = $opacitemholds ? 'Y' : 'N';
9992     }
9993     # Set allow for all rules
9994     $dbh->do("UPDATE issuingrules SET opacitemholds='$opacitemholds'");
9995
9996     # Remove from the systempreferences table
9997     $dbh->do("DELETE FROM systempreferences WHERE variable = 'OPACItemHolds'");
9998
9999     print "Upgrade to $DBversion done (Bug 5786: Move AllowOnShelfHolds to circulation matrix; Move OPACItemHolds system preference to circulation matrix)\n";
10000     SetVersion ($DBversion);
10001 }
10002
10003
10004 $DBversion = "3.19.00.018";
10005 if ( CheckVersion($DBversion) ) {
10006     $dbh->do(q|
10007         UPDATE systempreferences set variable="OpacAdditionalStylesheet" WHERE variable="opaccolorstylesheet"
10008     |);
10009     print "Upgrade to $DBversion done (Bug 10328: Rename opaccolorstylesheet to OpacAdditionalStylesheet\n";
10010     SetVersion ($DBversion);
10011 }
10012
10013 $DBversion = "3.19.00.019";
10014 if ( CheckVersion($DBversion) ) {
10015     $dbh->do(q{
10016         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
10017         VALUES('Coce','0', 'If on, enables cover retrieval from the configured Coce server', NULL, 'YesNo')
10018     });
10019     $dbh->do(q{
10020         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
10021         VALUES('CoceHost', NULL, 'Coce server URL', NULL,'Free')
10022     });
10023     $dbh->do(q{
10024         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
10025         VALUES('CoceProviders', NULL, 'Coce providers', 'aws,gb,ol', 'multiple')
10026     });
10027     print "Upgrade to $DBversion done (Bug 9580: Cover image from Coce, a remote image URL cache)\n";
10028     SetVersion($DBversion);
10029 }
10030
10031 $DBversion = "3.19.00.020";
10032 if ( CheckVersion($DBversion) ) {
10033     $dbh->do(q|
10034         ALTER TABLE aqorders DROP COLUMN supplierreference;
10035     |);
10036
10037     print "Upgrade to $DBversion done (Bug 11008: DROP column aqorders.supplierreference)\n";
10038     SetVersion($DBversion);
10039 }
10040
10041 $DBversion = "3.19.00.021";
10042 if ( CheckVersion($DBversion) ) {
10043     $dbh->do(q|
10044         ALTER TABLE issues DROP COLUMN issuingbranch
10045     |);
10046     $dbh->do(q|
10047         ALTER TABLE old_issues DROP COLUMN issuingbranch
10048     |);
10049     print "Upgrade to $DBversion done (Bug 2806: Remove issuingbranch columns)\n";
10050     SetVersion ($DBversion);
10051 }
10052
10053 $DBversion = '3.19.00.022';
10054 if ( CheckVersion($DBversion) ) {
10055     $dbh->do(q{
10056         ALTER TABLE suggestions DROP COLUMN mailoverseeing;
10057     });
10058     print "Upgrade to $DBversion done (Bug 13006: Drop column suggestion.mailoverseeing)\n";
10059     SetVersion($DBversion);
10060 }
10061
10062 $DBversion = "3.19.00.023";
10063 if ( CheckVersion($DBversion) ) {
10064     $dbh->do(q|
10065         DELETE FROM systempreferences where variable = 'AddPatronLists'
10066     |);
10067     print "Upgrade to $DBversion done (Bug 13497: Remove the AddPatronLists system preferences)\n";
10068     SetVersion ($DBversion);
10069 }
10070
10071 $DBversion = "3.19.00.024";
10072 if ( CheckVersion($DBversion) ) {
10073     $dbh->do(qq|DROP table patroncards;|);
10074     print "Upgrade to $DBversion done (Bug 13539: Remove table patroncards from database as it's no longer in use)\n";
10075     SetVersion ($DBversion);
10076 }
10077
10078 $DBversion = "3.19.00.025";
10079 if ( CheckVersion($DBversion) ) {
10080     $dbh->do(q|
10081         INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
10082         ('SearchWithISBNVariations','0',NULL,'If enabled, search on all variations of the ISBN','YesNo')
10083     |);
10084     print "Upgrade to $DBversion done (Bug 13528: Add the SearchWithISBNVariations syspref)\n";
10085     SetVersion ($DBversion);
10086 }
10087
10088 $DBversion = "3.19.00.026";
10089 if( CheckVersion($DBversion) ) {
10090     if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
10091     $dbh->do(q{
10092         INSERT IGNORE INTO auth_tag_structure (authtypecode, tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value) VALUES
10093         ('', '388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL);
10094     });
10095
10096     $dbh->do(q{
10097         INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10098         mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10099         ('', '388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10100         ('', '388', '2', 'Source of term', 'Source of term', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10101         ('', '388', '3', 'Materials specified', 'Materials specified', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10102         ('', '388', '6', 'Linkage', 'Linkage', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10103         ('', '388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10104         ('', '388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', '');
10105     });
10106
10107     $dbh->do(q{
10108         UPDATE IGNORE auth_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND tagfield IN
10109         ('100','110','111','130','400','410','411','430','500','510','511','530','700','710','730');
10110     });
10111
10112     $dbh->do(q{
10113         INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10114         mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10115         ('', '150', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10116         ('', '151', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10117         ('', '450', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10118         ('', '451', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10119         ('', '550', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10120         ('', '551', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10121         ('', '750', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10122         ('', '751', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10123         ('', '748', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10124         ('', '755', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10125         ('', '780', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10126         ('', '781', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10127         ('', '782', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10128         ('', '785', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10129         ('', '710', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10130         ('', '730', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10131         ('', '748', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10132         ('', '750', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10133         ('', '751', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10134         ('', '755', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10135         ('', '762', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10136         ('', '780', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10137         ('', '781', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10138         ('', '782', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10139         ('', '785', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10140         ('', '788', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', '');
10141     });
10142
10143     $dbh->do(q{
10144         UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship information', libopac = 'Relationship information'
10145         WHERE tagsubfield = 'i' AND tagfield IN ('700','710','730','750','751','762');
10146     });
10147
10148     $dbh->do(q{
10149         UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship code', libopac = 'Relationship code'
10150         WHERE tagsubfield = '4' AND tagfield IN ('700','710');
10151     });
10152
10153     $dbh->do(q{
10154         INSERT IGNORE INTO marc_tag_structure (tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value, frameworkcode) VALUES
10155         ('370', 'ASSOCIATED PLACE', 'ASSOCIATED PLACE', 1, 0, NULL, ''),
10156         ('388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL, '');
10157     });
10158
10159     $dbh->do(q{
10160         INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
10161         kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
10162         ('370', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10163         ('370', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10164         ('370', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10165         ('370', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10166         ('370', 'c', 'Associated country', 'Associated country', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10167         ('370', 'f', 'Other associated place', 'Other associated place', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10168         ('370', 'g', 'Place of origin of work', 'Place of origin of work', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10169         ('370', 's', 'Start period', 'Start period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10170         ('370', 't', 'End period', 'End period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10171         ('370', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10172         ('370', 'v', 'Source of information', 'Source of information', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10173         ('377', 'l', 'Language term', 'Language term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10174         ('382', 's', 'Total number of performers', 'Total number of performers', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10175         ('388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10176         ('388', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10177         ('388', '3', ' Materials specified', ' Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10178         ('388', '6', ' Linkage', ' Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10179         ('388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10180         ('388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10181         ('650', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL),
10182         ('651', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL);
10183     });
10184
10185     $dbh->do(q{
10186         UPDATE IGNORE marc_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND
10187         tagfield IN ('100','110','111','130','240','243','246','247','600','610','611','630','700','710','711','730','800','810','811','830');
10188     });
10189     }
10190
10191     print "Upgrade to $DBversion done (Bug 13322: Update MARC21 frameworks to Update No. 19 - October 2014)\n";
10192     SetVersion($DBversion);
10193 }
10194
10195 $DBversion = '3.19.00.027';
10196 if ( CheckVersion($DBversion) ) {
10197     $dbh->do("ALTER TABLE items ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10198     $dbh->do("ALTER TABLE deleteditems ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10199     print "Upgrade to $DBversion done (Bug 4222: Nonpublic note not appearing in the staff client) <b>Please check each of your frameworks to ensure your non-public item notes are mapped to items.itemnotes_nonpublic. After doing so please have your administrator run misc/batchRebuildItemsTables.pl </b>)\n";
10200     SetVersion($DBversion);
10201 }
10202
10203 $DBversion = "3.19.00.028";
10204 if( CheckVersion($DBversion) ) {
10205     eval {
10206         local $dbh->{PrintError} = 0;
10207         $dbh->do(q{
10208             ALTER TABLE issues DROP PRIMARY KEY
10209         });
10210     };
10211
10212     $dbh->do(q{
10213         ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10214     });
10215
10216     $dbh->do(q{
10217         ALTER TABLE old_issues CHANGE issue_id issue_id INT( 11 ) NOT NULL
10218     });
10219
10220     $dbh->do(q{
10221         ALTER TABLE issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10222     });
10223
10224     $dbh->do(q{
10225         UPDATE issues SET issue_id = issue_id + ( SELECT COUNT(*) FROM old_issues ) ORDER BY issue_id DESC
10226     });
10227
10228     my $max_issue_id = $schema->resultset('Issue')->get_column('issue_id')->max();
10229     if ($max_issue_id) {
10230         $max_issue_id++;
10231         $dbh->do(qq{
10232             ALTER TABLE issues AUTO_INCREMENT = $max_issue_id
10233         });
10234     }
10235
10236     print "Upgrade to $DBversion done (Bug 13790: Add unique id issue_id to issues and oldissues tables)\n";
10237     SetVersion($DBversion);
10238 }
10239
10240 $DBversion = "3.19.00.029";
10241 if ( CheckVersion($DBversion) ) {
10242     $dbh->do(q|
10243          ALTER TABLE sessions CHANGE COLUMN a_session a_session MEDIUMTEXT
10244     |);
10245     print "Upgrade to $DBversion done (Bug 13606: Upgrade sessions.a_session to MEDIUMTEXT)\n";
10246     SetVersion($DBversion);
10247 }
10248
10249 $DBversion = "3.19.00.030";
10250 if ( CheckVersion($DBversion) ) {
10251     $dbh->do(q|
10252 UPDATE language_subtag_registry SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10253     |);
10254     $dbh->do(q|
10255 UPDATE language_rfc4646_to_iso639 SET rfc4646_subtag = 'kn' WHERE rfc4646_subtag = 'ka' AND iso639_2_code = 'kan';
10256     |);
10257     $dbh->do(q|
10258 UPDATE language_descriptions SET subtag = 'kn', lang = 'kn' WHERE subtag = 'ka' AND lang = 'ka' AND description = 'ಕನ್ನಡ';
10259     |);
10260     $dbh->do(q|
10261 UPDATE language_descriptions SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10262     |);
10263     $dbh->do(q|
10264 INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Georgian','2015-04-20');
10265     |);
10266     $dbh->do(q|
10267 DELETE FROM language_subtag_registry
10268        WHERE NOT id IN
10269          (SELECT id FROM
10270            (SELECT MIN(id) as id,subtag,type,description,added
10271             FROM language_subtag_registry
10272             GROUP BY subtag,type,description,added)
10273            AS subtable);
10274     |);
10275     $dbh->do(q|
10276 INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka', 'geo');
10277     |);
10278     $dbh->do(q|
10279 DELETE FROM language_rfc4646_to_iso639
10280        WHERE NOT id IN
10281          (SELECT id FROM
10282            (SELECT MIN(id) as id,rfc4646_subtag,iso639_2_code
10283             FROM language_rfc4646_to_iso639
10284             GROUP BY rfc4646_subtag,iso639_2_code)
10285            AS subtable);
10286     |);
10287     $dbh->do(q|
10288 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ქართული');
10289     |);
10290     $dbh->do(q|
10291 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Georgian');
10292     |);
10293     $dbh->do(q|
10294 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'fr', 'Géorgien');
10295     |);
10296     $dbh->do(q|
10297 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'de', 'Georgisch');
10298     |);
10299     $dbh->do(q|
10300 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'es', 'Georgiano');
10301     |);
10302     $dbh->do(q|
10303 DELETE FROM language_descriptions
10304        WHERE NOT id IN
10305          (SELECT id FROM
10306            (SELECT MIN(id) as id,subtag,type,lang,description
10307             FROM language_descriptions GROUP BY subtag,type,lang,description)
10308            AS subtable);
10309     |);
10310     print "Upgrade to $DBversion done (Bug 14030: Add Georgian language and fix Kannada language code)\n";
10311     SetVersion($DBversion);
10312 }
10313
10314 $DBversion = "3.19.00.031";
10315 if ( CheckVersion($DBversion) ) {
10316     $dbh->do(q{
10317         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10318         VALUES('IdRef','0','Disable/enable the IdRef webservice from the OPAC detail page.',NULL,'YesNo')
10319     });
10320     print "Upgrade to $DBversion done (Bug 8992: Add system preference IdRef))\n";
10321     SetVersion($DBversion);
10322 }
10323
10324 $DBversion = "3.19.00.032";
10325 if ( CheckVersion($DBversion) ) {
10326     $dbh->do(q|
10327         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10328         VALUES('AddressFormat','us','Choose format to display postal addresses','','Choice')
10329     |);
10330     print "Upgrade to $DBversion done (Bug 4041: Address Format as a I18N/L10N system preference\n";
10331     SetVersion ($DBversion);
10332 }
10333
10334 $DBversion = "3.19.00.033";
10335 if ( CheckVersion($DBversion) ) {
10336     $dbh->do(q|
10337         ALTER TABLE auth_header
10338         CHANGE COLUMN datemodified modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP
10339     |);
10340     $dbh->do(q|
10341         ALTER TABLE auth_header
10342         CHANGE COLUMN modification_time modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP
10343     |);
10344     print "Upgrade to $DBversion done (Bug 11165: Update auth_header.datemodified when updated)\n";
10345     SetVersion ($DBversion);
10346 }
10347
10348 $DBversion = "3.19.00.034";
10349 if ( CheckVersion($DBversion) ) {
10350     $dbh->do(q|
10351         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10352         VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free')
10353     |);
10354     print "Upgrade to $DBversion done (Bug 13984: CardnumberLength syspref missing on some setups\n";
10355     SetVersion ($DBversion);
10356 }
10357
10358 $DBversion = "3.19.00.035";
10359 if ( CheckVersion($DBversion) ) {
10360     $dbh->do(q|
10361         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('useDischarge','','Allows librarians to discharge borrowers and borrowers to request a discharge','','YesNo')
10362     |);
10363     $dbh->do(q|
10364         INSERT IGNORE INTO letter (module, code, name, title, content) VALUES('members', 'DISCHARGE', 'Discharge', 'Discharge for <<borrowers.firstname>> <<borrowers.surname>>', '<h1>Discharge</h1>\r\n\r\nThe library <<borrowers.branchcode>> certifies that the following borrower :\r\n\r\n    <<borrowers.firstname>> <<borrowers.surname>>\r\n   Cardnumber : <<borrowers.cardnumber>>\r\n\r\nreturned all his documents.')
10365     |);
10366
10367     $dbh->do(q|
10368         ALTER TABLE borrower_debarments CHANGE type type ENUM('SUSPENSION','OVERDUES','MANUAL','DISCHARGE') NOT NULL DEFAULT 'MANUAL'
10369     |);
10370
10371     $dbh->do(q|
10372         CREATE TABLE discharges (
10373           borrower int(11) DEFAULT NULL,
10374           needed timestamp NULL DEFAULT NULL,
10375           validated timestamp NULL DEFAULT NULL,
10376           KEY borrower_discharges_ibfk1 (borrower),
10377           CONSTRAINT borrower_discharges_ibfk1 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
10378         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
10379     |);
10380
10381     print "Upgrade to $DBversion done (Bug 8007: Add System Preferences useDischarge, the discharge notice and the new table discharges)\n";
10382     SetVersion($DBversion);
10383 }
10384
10385 $DBversion = "3.19.00.036";
10386 if ( CheckVersion($DBversion) ) {
10387     $dbh->do(q|
10388         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10389         VALUES ('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo')
10390     |);
10391     print "Upgrade to $DBversion done (Bug 13889: Add cron jobs information to system log)\n";
10392     SetVersion ($DBversion);
10393 }
10394
10395 $DBversion = "3.19.00.037";
10396 if ( CheckVersion($DBversion) ) {
10397     $dbh->do(q|
10398         ALTER TABLE marc_subfield_structure
10399         MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT ''
10400     |);
10401     print "Upgrade to $DBversion done (Bug 13810: Change collate for tagsubfield (utf8_bin))\n";
10402     SetVersion ($DBversion);
10403 }
10404
10405 $DBversion = "3.19.00.038";
10406 if ( CheckVersion($DBversion) ) {
10407     $dbh->do(q|
10408         ALTER TABLE virtualshelves
10409         ADD COLUMN created_on TIMESTAMP NOT NULL AFTER lastmodified
10410     |);
10411     # Set created_on = lastmodified
10412     # I would say it's better than 0000-00-00
10413     # Set modified to the existing value (do not get the current ts!)
10414     $dbh->do(q|
10415         UPDATE virtualshelves
10416         SET created_on = lastmodified, lastmodified = lastmodified
10417     |);
10418     print "Upgrade to $DBversion done (Bug 13421: Add DB field virtualshelves.created_on)\n";
10419     SetVersion ($DBversion);
10420 }
10421
10422 $DBversion = "3.19.00.039";
10423 if ( CheckVersion($DBversion) ) {
10424     print "Upgrade to $DBversion done (Koha 3.20 beta)\n";
10425     SetVersion ($DBversion);
10426 }
10427
10428 $DBversion = "3.19.00.040";
10429 if ( CheckVersion($DBversion) ) {
10430     $dbh->do(q|
10431         ALTER TABLE aqorders DROP COLUMN totalamount
10432     |);
10433     print "Upgrade to $DBversion done (Bug 11006: Drop column aqorders.totalamount)\n";
10434     SetVersion ($DBversion);
10435 }
10436
10437 $DBversion = "3.19.00.041";
10438 if ( CheckVersion($DBversion) ) {
10439     $dbh->do(q|
10440         ALTER IGNORE TABLE suggestions ADD KEY status (STATUS)
10441     |);
10442     $dbh->do(q|
10443         ALTER IGNORE TABLE suggestions ADD KEY biblionumber (biblionumber)
10444     |);
10445     $dbh->do(q|
10446         ALTER IGNORE TABLE suggestions ADD KEY branchcode (branchcode)
10447     |);
10448     print "Upgrade to $DBversion done (Bug 14132: suggestions table is missing indexes)\n";
10449     SetVersion ($DBversion);
10450 }
10451
10452 $DBversion = "3.19.00.042";
10453 if ( CheckVersion($DBversion) ) {
10454     $dbh->do(q{
10455         DELETE ass.*
10456         FROM auth_subfield_structure AS ass
10457         LEFT JOIN auth_types USING(authtypecode)
10458         WHERE auth_types.authtypecode IS NULL
10459     });
10460
10461     $dbh->do(q{
10462         ALTER IGNORE TABLE auth_subfield_structure
10463         ADD CONSTRAINT auth_subfield_structure_ibfk_1
10464         FOREIGN KEY (authtypecode) REFERENCES auth_types(authtypecode)
10465         ON DELETE CASCADE ON UPDATE CASCADE
10466     });
10467
10468     print "Upgrade to $DBversion done (Bug 8480: Add foreign key on auth_subfield_structure.authtypecode)\n";
10469     SetVersion($DBversion);
10470 }
10471
10472 $DBversion = "3.19.00.043";
10473 if ( CheckVersion($DBversion) ) {
10474     $dbh->do(q|
10475         INSERT IGNORE INTO authorised_values (category, authorised_value, lib) VALUES
10476         ('REPORT_GROUP', 'SER', 'Serials')
10477     |);
10478
10479     print "Upgrade to $DBversion done (Bug 5338: Add Serial to the report groups if does not exist)\n";
10480     SetVersion ($DBversion);
10481 }
10482
10483 $DBversion = "3.20.00.000";
10484 if ( CheckVersion($DBversion) ) {
10485     print "Upgrade to $DBversion done (Koha 3.20)\n";
10486     SetVersion ($DBversion);
10487 }
10488
10489 $DBversion = "3.21.00.000";
10490 if ( CheckVersion($DBversion) ) {
10491     print "Upgrade to $DBversion done (El tiempo vuela, un nuevo ciclo comienza.)\n";
10492     SetVersion ($DBversion);
10493 }
10494
10495 $DBversion = "3.21.00.001";
10496 if ( CheckVersion($DBversion) ) {
10497     $dbh->do(q|
10498         UPDATE systempreferences SET variable='IntranetUserJS' where variable='intranetuserjs'
10499     |);
10500     print "Upgrade to $DBversion done (Bug 12160: Rename intranetuserjs to IntranetUserJS)\n";
10501     SetVersion ($DBversion);
10502 }
10503
10504 $DBversion = "3.21.00.002";
10505 if ( CheckVersion($DBversion) ) {
10506     $dbh->do(q|
10507         UPDATE systempreferences SET variable='OPACUserJS' where variable='opacuserjs'
10508     |);
10509     print "Upgrade to $DBversion done (Bug 12160: Rename opacuserjs to OPACUserJS)\n";
10510     SetVersion ($DBversion);
10511 }
10512
10513 $DBversion = "3.21.00.003";
10514 if ( CheckVersion($DBversion) ) {
10515     $dbh->do(q|
10516         INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added)
10517         VALUES ( 'IN', 'region', 'India','2015-05-28');
10518     |);
10519     $dbh->do(q|
10520         INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
10521         VALUES ( 'IN', 'region', 'en', 'India');
10522     |);
10523     $dbh->do(q|
10524         INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
10525         VALUES ( 'IN', 'region', 'bn', 'ভারত');
10526     |);
10527     print "Upgrade to $DBversion done (Bug 14285: Add new region India)\n";
10528     SetVersion ($DBversion);
10529 }
10530
10531 $DBversion = '3.21.00.004';
10532 if ( CheckVersion($DBversion) ) {
10533     my $OPACBaseURL = C4::Context->preference('OPACBaseURL');
10534     if (defined($OPACBaseURL) && substr($OPACBaseURL,0,4) ne "http") {
10535         my $explanation = q{Specify the Base URL of the OPAC, e.g., http://opac.mylibrary.com, including the protocol (http:// or https://). Otherwise, the http:// will be added automatically by Koha upon saving.};
10536         $OPACBaseURL = 'http://' . $OPACBaseURL;
10537         my $sth_OPACBaseURL = $dbh->prepare( q{
10538             UPDATE systempreferences SET value=?,explanation=?
10539             WHERE variable='OPACBaseURL'; } );
10540         $sth_OPACBaseURL->execute($OPACBaseURL,$explanation);
10541     }
10542     if (defined($OPACBaseURL)) {
10543         $dbh->do( q{ UPDATE letter
10544                      SET content=replace(content,
10545                                          'http://<<OPACBaseURL>>',
10546                                          '<<OPACBaseURL>>')
10547                      WHERE content LIKE "%http://<<OPACBaseURL>>%"; } );
10548     }
10549
10550     print "Upgrade to $DBversion done (Bug 5010: Fix OPACBaseURL to include protocol)\n";
10551     SetVersion($DBversion);
10552 }
10553
10554 $DBversion = "3.21.00.005";
10555 if ( CheckVersion($DBversion) ) {
10556     $dbh->do(q|
10557         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10558         VALUES ('ReportsLog','0',NULL,'If ON, log information about reports.','YesNo')
10559     |);
10560     print "Upgrade to $DBversion done (Bug 14024: Add reports to action logs)\n";
10561     SetVersion ($DBversion);
10562 }
10563
10564 $DBversion = "3.21.00.006";
10565 if ( CheckVersion($DBversion) ) {
10566     # Remove the borrow permission flag (bit 7)
10567     $dbh->do(q|
10568         UPDATE borrowers
10569         SET flags = flags - ( flags & (1<<7) )
10570         WHERE flags IS NOT NULL
10571             AND flags > 0
10572     |);
10573     $dbh->do(q|
10574         DELETE FROM userflags WHERE bit=7;
10575     |);
10576     print "Upgrade to $DBversion done (Bug 7976: Remove the 'borrow' permission)\n";
10577     SetVersion($DBversion);
10578 }
10579
10580 $DBversion = "3.21.00.007";
10581 if ( CheckVersion($DBversion) ) {
10582     $dbh->do(q|
10583         ALTER IGNORE TABLE aqbasket
10584             ADD KEY authorisedby (authorisedby)
10585     |);
10586     $dbh->do(q|
10587         ALTER IGNORE TABLE aqbooksellers
10588             ADD KEY name (name(255))
10589     |);
10590     $dbh->do(q|
10591         ALTER IGNORE TABLE aqbudgets
10592             ADD KEY budget_parent_id (budget_parent_id),
10593             ADD KEY budget_code (budget_code),
10594             ADD KEY budget_branchcode (budget_branchcode),
10595             ADD KEY budget_period_id (budget_period_id),
10596             ADD KEY budget_owner_id (budget_owner_id)
10597     |);
10598     $dbh->do(q|
10599         ALTER IGNORE TABLE aqbudgets_planning
10600             ADD KEY budget_period_id (budget_period_id)
10601     |);
10602     $dbh->do(q|
10603         ALTER IGNORE TABLE aqorders
10604             ADD KEY parent_ordernumber (parent_ordernumber),
10605             ADD KEY orderstatus (orderstatus)
10606     |);
10607     print "Upgrade to $DBversion done (Bug 14053: Acquisition db tables are missing indexes)\n";
10608     SetVersion ($DBversion);
10609 }
10610
10611 $DBversion = "3.21.00.008";
10612 if ( CheckVersion($DBversion) ) {
10613     $dbh->do(q{
10614         DELETE IGNORE FROM systempreferences
10615         WHERE variable = 'HomeOrHoldingBranchReturn';
10616     });
10617     print "Upgrade to $DBversion done (Bug 7981: Transfer message on return. HomeOrHoldingBranchReturn syspref removed in favour of circulation rules.)\n";
10618     SetVersion($DBversion);
10619 }
10620
10621 $DBversion = "3.21.00.009";
10622 if ( CheckVersion($DBversion) ) {
10623     $dbh->do(q|
10624         UPDATE aqorders SET orderstatus='cancelled'
10625         WHERE (datecancellationprinted IS NOT NULL OR
10626                datecancellationprinted<>'0000-00-00');
10627     |);
10628     print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n";
10629     SetVersion($DBversion);
10630 }
10631
10632 $DBversion = "3.21.00.010";
10633 if ( CheckVersion($DBversion) ) {
10634     $dbh->do(q|
10635         ALTER TABLE message_queue
10636             DROP message_id
10637     |);
10638     $dbh->do(q|
10639         ALTER TABLE message_queue
10640             ADD message_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10641     |);
10642     print "Upgrade to $DBversion done (Bug 7793: redefine the field message_id as PRIMARY KEY of message_queue)\n";
10643     SetVersion ($DBversion);
10644 }
10645
10646 $DBversion = "3.21.00.011";
10647 if ( CheckVersion($DBversion) ) {
10648     $dbh->do(q{
10649         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10650         VALUES ('OpacLangSelectorMode','footer','top|both|footer','Select the location to display the language selector','Choice')
10651     });
10652     print "Upgrade to $DBversion done (Bug 14252: Make the OPAC language switcher available in the masthead navbar, footer, or both)\n";
10653     SetVersion ($DBversion);
10654 }
10655
10656 $DBversion = "3.21.00.012";
10657 if ( CheckVersion($DBversion) ) {
10658     $dbh->do(q|
10659         INSERT INTO letter (module, code, name, title, content, message_transport_type)
10660         VALUES
10661         ('suggestions','TO_PROCESS','Notify budget owner', 'A suggestion is ready to be processed','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nA new suggestion is ready to be processed: <<suggestions.title>> by <<suggestions.autho    r>>.\n\nThank you,\n\n<<branches.branchname>>', 'email')
10662     |);
10663     print "Upgrade to $DBversion done (Bug 13014: Add the TO_PROCESS letter code)\n";
10664     SetVersion($DBversion);
10665 }
10666
10667 $DBversion = "3.21.00.013";
10668 if ( CheckVersion($DBversion) ) {
10669     my $msg;
10670     if ( C4::Context->preference('OPACPrivacy') ) {
10671         if ( my $anonymous_patron = C4::Context->preference('AnonymousPatron') ) {
10672             my $anonymous_patron_exists = $dbh->selectcol_arrayref(q|
10673                 SELECT COUNT(*)
10674                 FROM borrowers
10675                 WHERE borrowernumber=?
10676             |, {}, $anonymous_patron);
10677             unless ( $anonymous_patron_exists->[0] ) {
10678                 $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not linked to an existing patron";
10679             }
10680         }
10681         else {
10682             $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not";
10683         }
10684     }
10685     else {
10686         my $patrons_have_required_anonymity = $dbh->selectcol_arrayref(q|
10687             SELECT COUNT(*)
10688             FROM borrowers
10689             WHERE privacy = 2
10690         |, {} );
10691         if ( $patrons_have_required_anonymity->[0] ) {
10692             $msg = "Configuration WARNING: OPACPrivacy is not set but $patrons_have_required_anonymity->[0] patrons have required anonymity (perhaps in a previous configuration). You should fix that asap.";
10693         }
10694     }
10695
10696     $msg //= "Privacy is correctly set";
10697     print "Upgrade to $DBversion done (Bug 9942: $msg)\n";
10698     SetVersion ($DBversion);
10699 }
10700
10701 $DBversion = "3.21.00.014";
10702 if ( CheckVersion($DBversion) ) {
10703     $dbh->do(q{
10704         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10705         VALUES ('OAI-PMH:DeletedRecord','persistent','Koha\'s deletedbiblio table will never be deleted (persistent) or might be deleted (transient)','transient|persistent','Choice')
10706     });
10707     $dbh->do(q|
10708         ALTER TABLE oai_sets_biblios DROP FOREIGN KEY oai_sets_biblios_ibfk_1
10709     |);
10710     print "Upgrade to $DBversion done (Bug 3206: OAI repository deleted record support)\n";
10711     SetVersion ($DBversion);
10712 }
10713
10714 $DBversion = "3.21.00.015";
10715 if ( CheckVersion($DBversion) ) {
10716     $dbh->do(q{
10717         UPDATE systempreferences SET value='0' WHERE variable='CalendarFirstDayOfWeek' AND value='Sunday';
10718     });
10719     $dbh->do(q{
10720         UPDATE systempreferences SET value='1' WHERE variable='CalendarFirstDayOfWeek' AND value='Monday';
10721     });
10722     $dbh->do(q{
10723         UPDATE systempreferences SET options='0|1|2|3|4|5|6' WHERE variable='CalendarFirstDayOfWeek';
10724     });
10725
10726     print "Upgrade to $DBversion done (Bug 12137: Extend functionality of CalendarFirstDayOfWeek to be any day)\n";
10727     SetVersion($DBversion);
10728 }
10729
10730 $DBversion = "3.21.00.016";
10731 if ( CheckVersion($DBversion) ) {
10732     my $rs = $schema->resultset('Systempreference');
10733     $rs->find_or_create(
10734         {
10735             variable => 'DumpTemplateVarsIntranet',
10736             value    => 0,
10737             explanation => 'If enabled, dump all Template Toolkit variable to a comment in the html source for the staff intranet.',
10738             type => 'YesNo',
10739         }
10740     );
10741     $rs->find_or_create(
10742         {
10743             variable => 'DumpTemplateVarsOpac',
10744             value    => 0,
10745             explanation => 'If enabled, dump all Template Toolkit variable to a comment in the html source for the opac.',
10746             type => 'YesNo',
10747         }
10748     );
10749     print "Upgrade to $DBversion done (Bug 13948: Add ability to dump template toolkit variables to html comment)\n";
10750     SetVersion($DBversion);
10751 }
10752
10753 $DBversion = "3.21.00.017";
10754 if ( CheckVersion($DBversion) ) {
10755     $dbh->do("
10756         CREATE TABLE uploaded_files (
10757             id int(11) NOT NULL AUTO_INCREMENT,
10758             hashvalue CHAR(40) NOT NULL,
10759             filename TEXT NOT NULL,
10760             dir TEXT NOT NULL,
10761             filesize int(11),
10762             dtcreated timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
10763             categorycode tinytext,
10764             owner int(11),
10765             PRIMARY KEY (id)
10766         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10767     ");
10768
10769     print "Upgrade to $DBversion done (Bug 6874: New cataloging plugin upload.pl)\n";
10770     print "This plugin comes with a new config variable (upload_path) and a new table (uploaded_files)\n";
10771     print "To use it, set 'upload_path' config variable and 'OPACBaseURL' system preference and link this plugin to a subfield (856\$u for instance)\n";
10772     SetVersion($DBversion);
10773 }
10774
10775 $DBversion = "3.21.00.018";
10776 if ( CheckVersion($DBversion) ) {
10777     $dbh->do(q{
10778         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10779         VALUES
10780             ('RestrictedPageLocalIPs','',NULL,'Beginning of IP addresses considered as local (comma separated ex: \"127.0.0,127.0.2\")','Free'),
10781             ('RestrictedPageContent','',NULL,'HTML content of the restricted page','TextArea'),
10782             ('RestrictedPageTitle','',NULL,'Title of the restricted page (breadcrumb and header)','Free')
10783     });
10784     print "Upgrade to $DBversion done (Bug 13485: Add a page to display links to restricted sites)\n";
10785     SetVersion ($DBversion);
10786 }
10787
10788 $DBversion = "3.21.00.019";
10789 if ( CheckVersion($DBversion) ) {
10790     $dbh->do(q{
10791         ALTER TABLE reserves DROP constrainttype
10792     });
10793     $dbh->do(q{
10794         ALTER TABLE old_reserves DROP constrainttype
10795     });
10796     $dbh->do(q{
10797         DROP TABLE IF EXISTS reserveconstraints
10798     });
10799     print "Upgrade to $DBversion done (Bug 9809: Get rid of reserveconstraints)\n";
10800     SetVersion ($DBversion);
10801 }
10802
10803 $DBversion = "3.21.00.020";
10804 if ( CheckVersion($DBversion) ) {
10805     $dbh->do(q{
10806         INSERT IGNORE INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`)
10807         VALUES ('FeeOnChangePatronCategory','1','','If set, when a patron changes to a category with enrolment fee, a fee is charged','YesNo')
10808     });
10809     print "Upgrade to $DBversion done (Bug 13697: Option to don't charge a fee, if the patron changes to a category with enrolment fee)\n";
10810     SetVersion($DBversion);
10811 }
10812
10813 $DBversion = "3.21.00.021";
10814 if ( CheckVersion($DBversion) ) {
10815     $dbh->do(q{
10816         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10817         VALUES ('UseWYSIWYGinSystemPreferences','0','','Show WYSIWYG editor when editing certain HTML system preferences.','YesNo')
10818     });
10819     print "Upgrade to $DBversion done (Bug 11584: Add wysiwyg editor to system preferences dealing with HTML)\n";
10820     SetVersion($DBversion);
10821 }
10822
10823 $DBversion = "3.21.00.022";
10824 if ( CheckVersion($DBversion) ) {
10825     $dbh->do(q{
10826         DELETE cr.*
10827         FROM course_reserves AS cr
10828         LEFT JOIN course_items USING(ci_id)
10829         WHERE course_items.ci_id IS NULL
10830     });
10831     $dbh->do(q{
10832         ALTER IGNORE TABLE course_reserves
10833             add CONSTRAINT course_reserves_ibfk_2
10834                 FOREIGN KEY (ci_id) REFERENCES course_items (ci_id)
10835                 ON DELETE CASCADE ON UPDATE CASCADE
10836     });
10837     print "Upgrade to $DBversion done (Bug 14205: Deleting an Item/Record does not remove link to course reserve)\n";
10838     SetVersion($DBversion);
10839 }
10840
10841 $DBversion = "3.21.00.023";
10842 if ( CheckVersion($DBversion) ) {
10843     $dbh->do(q{
10844         UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00'
10845     });
10846     $dbh->do(q{
10847         UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00'
10848     });
10849     $dbh->do(q{
10850         UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00'
10851     });
10852     $dbh->do(q{
10853         UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00'
10854     });
10855     print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n";
10856     SetVersion($DBversion);
10857 }
10858
10859 $DBversion = "3.21.00.024";
10860 if ( CheckVersion($DBversion) ) {
10861     $dbh->do(q{
10862         ALTER TABLE marc_modification_template_actions
10863         MODIFY COLUMN action
10864             ENUM('delete_field','update_field','move_field','copy_field','copy_and_replace_field')
10865     });
10866     print "Upgrade to $DBversion done (Bug 14098: Regression in Marc Modification Templates)\n";
10867     SetVersion($DBversion);
10868 }
10869
10870 $DBversion = "3.21.00.025";
10871 if ( CheckVersion($DBversion) ) {
10872     $dbh->do(q{
10873         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10874         VALUES ('RisExportAdditionalFields',  '', NULL ,  'Define additional RIS tags to export from MARC records in YAML format as an associative array with either a marc tag/subfield combination as the value, or a list of tag/subfield combinations.',  'textarea')
10875     });
10876     $dbh->do(q{
10877         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10878         VALUES ('BibtexExportAdditionalFields',  '', NULL ,  'Define additional BibTex tags to export from MARC records in YAML format as an associative array with either a marc tag/subfield combination as the value, or a list of tag/subfield combinations.',  'textarea')
10879     });
10880     print "Upgrade to $DBversion done (Bug 12357: Enhancements to RIS and BibTeX exporting)\n";
10881     SetVersion($DBversion);
10882 }
10883
10884 $DBversion = "3.21.00.026";
10885 if ( CheckVersion($DBversion) ) {
10886     $dbh->do(q{
10887         UPDATE matchpoints
10888         SET search_index='issn'
10889         WHERE matcher_id IN (SELECT matcher_id FROM marc_matchers WHERE code = 'ISSN')
10890     });
10891     print "Upgrade to $DBversion done (Bug 14472: Wrong ISSN search index in record matching rules)\n";
10892     SetVersion($DBversion);
10893 }
10894
10895 $DBversion = "3.21.00.027";
10896 if ( CheckVersion($DBversion) ) {
10897     $dbh->do(q|
10898         INSERT INTO permissions (module_bit, code, description)
10899         VALUES (1, 'self_checkout', 'Perform self checkout at the OPAC. It should be used for the patron matching the AutoSelfCheckID')
10900     |);
10901
10902     my $AutoSelfCheckID = C4::Context->preference('AutoSelfCheckID');
10903
10904     $dbh->do(q|
10905         UPDATE borrowers
10906         SET flags=0
10907         WHERE userid=?
10908     |, undef, $AutoSelfCheckID);
10909
10910     $dbh->do(q|
10911         DELETE FROM user_permissions
10912         WHERE borrowernumber=(SELECT borrowernumber FROM borrowers WHERE userid=?)
10913     |, undef, $AutoSelfCheckID);
10914
10915     $dbh->do(q|
10916         INSERT INTO user_permissions(borrowernumber, module_bit, code)
10917         SELECT borrowernumber, 1, 'self_checkout' FROM borrowers WHERE userid=?
10918     |, undef, $AutoSelfCheckID);
10919     print "Upgrade to $DBversion done (Bug 14298: AutoSelfCheckID user should only be able to access SCO)\n";
10920     SetVersion($DBversion);
10921 }
10922
10923 $DBversion = "3.21.00.028";
10924 if ( CheckVersion($DBversion) ) {
10925     $dbh->do(q{
10926         ALTER TABLE uploaded_files
10927             ADD COLUMN public tinyint,
10928             ADD COLUMN permanent tinyint
10929     });
10930     $dbh->do(q{
10931         UPDATE uploaded_files SET public=1, permanent=1
10932     });
10933     $dbh->do(q{
10934         ALTER TABLE uploaded_files
10935             CHANGE COLUMN categorycode uploadcategorycode tinytext
10936     });
10937     print "Upgrade to $DBversion done (Bug 14321: Merge UploadedFile and UploadedFiles into Koha::Upload)\n";
10938     SetVersion($DBversion);
10939 }
10940
10941 $DBversion = "3.21.00.029";
10942 if ( CheckVersion($DBversion) ) {
10943     $dbh->do(q{
10944         ALTER IGNORE TABLE discharges
10945             ADD COLUMN discharge_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10946     });
10947     print "Upgrade to $DBversion done (Bug 14368: Add discharges history)\n";
10948     SetVersion($DBversion);
10949 }
10950
10951 $DBversion = "3.21.00.030";
10952 if ( CheckVersion($DBversion) ) {
10953     $dbh->do(q{
10954         UPDATE marc_subfield_structure
10955         SET value_builder='marc21_leader.pl'
10956         WHERE value_builder='marc21_leader_book.pl'
10957     });
10958     $dbh->do(q{
10959         UPDATE marc_subfield_structure
10960         SET value_builder='marc21_leader.pl'
10961         WHERE value_builder='marc21_leader_computerfile.pl'
10962     });
10963     $dbh->do(q{
10964         UPDATE marc_subfield_structure
10965         SET value_builder='marc21_leader.pl'
10966         WHERE value_builder='marc21_leader_video.pl'
10967     });
10968     print "Upgrade to $DBversion done (Bug 14201: Remove unused code or template from some MARC21 leader plugins )\n";
10969     SetVersion($DBversion);
10970 }
10971
10972 $DBversion = "3.21.00.031";
10973 if ( CheckVersion($DBversion) ) {
10974     $dbh->do(q{
10975         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10976         VALUES
10977             ('SMSSendPassword', '', '', 'Password used to send SMS messages', 'free'),
10978             ('SMSSendUsername', '', '', 'Username/Login used to send SMS messages', 'free')
10979     });
10980     print "Upgrade to $DBversion done (Bug 14820: SMSSendUsername and SMSSendPassword are not listed in the system preferences)\n";
10981     SetVersion($DBversion);
10982 }
10983
10984 $DBversion = "3.21.00.032";
10985 if ( CheckVersion($DBversion) ) {
10986     $dbh->do(q{
10987         CREATE TABLE additional_fields (
10988             id int(11) NOT NULL AUTO_INCREMENT,
10989             tablename varchar(255) NOT NULL DEFAULT '',
10990             name varchar(255) NOT NULL DEFAULT '',
10991             authorised_value_category varchar(16) NOT NULL DEFAULT '',
10992             marcfield varchar(16) NOT NULL DEFAULT '',
10993             searchable tinyint(1) NOT NULL DEFAULT '0',
10994             PRIMARY KEY (id),
10995             UNIQUE KEY fields_uniq (tablename,name)
10996         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10997     });
10998     $dbh->do(q{
10999         CREATE TABLE additional_field_values (
11000             id int(11) NOT NULL AUTO_INCREMENT,
11001             field_id int(11) NOT NULL,
11002             record_id int(11) NOT NULL,
11003             value varchar(255) NOT NULL DEFAULT '',
11004             PRIMARY KEY (id),
11005             UNIQUE KEY field_record (field_id,record_id),
11006             CONSTRAINT afv_fk FOREIGN KEY (field_id) REFERENCES additional_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
11007         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
11008     });
11009     print "Upgrade to $DBversion done (Bug 10855: Additional fields for subscriptions)\n";
11010     SetVersion($DBversion);
11011 }
11012
11013 $DBversion = "3.21.00.033";
11014 if ( CheckVersion($DBversion) ) {
11015
11016     my $done = 0;
11017     my $count_ethnicity = $dbh->selectrow_arrayref(q|
11018         SELECT COUNT(*) FROM ethnicity
11019     |);
11020     my $count_borrower_modifications = $dbh->selectrow_arrayref(q|
11021         SELECT COUNT(*)
11022         FROM borrower_modifications
11023         WHERE ethnicity IS NOT NULL
11024             OR ethnotes IS NOT NULL
11025     |);
11026     my $count_borrowers = $dbh->selectrow_arrayref(q|
11027         SELECT COUNT(*)
11028         FROM borrowers
11029         WHERE ethnicity IS NOT NULL
11030             OR ethnotes IS NOT NULL
11031     |);
11032     # We don't care about the ethnicity of the deleted borrowers, right?
11033     if ( $count_ethnicity->[0] == 0
11034             and $count_borrower_modifications->[0] == 0
11035             and $count_borrowers->[0] == 0
11036     ) {
11037         $dbh->do(q|
11038             DROP TABLE ethnicity
11039         |);
11040         $dbh->do(q|
11041             ALTER TABLE borrower_modifications
11042             DROP COLUMN ethnicity,
11043             DROP COLUMN ethnotes
11044         |);
11045         $dbh->do(q|
11046             ALTER TABLE borrowers
11047             DROP COLUMN ethnicity,
11048             DROP COLUMN ethnotes
11049         |);
11050         $dbh->do(q|
11051             ALTER TABLE deletedborrowers
11052             DROP COLUMN ethnicity,
11053             DROP COLUMN ethnotes
11054         |);
11055         $done = 1;
11056     }
11057     if ( $done ) {
11058         print "Upgrade to $DBversion done (Bug 10020: Drop table ethnicity and columns ethnicity and ethnotes)\n";
11059     }
11060     else {
11061         print "Upgrade to $DBversion done (Bug 10020: This database contains data related to 'ethnicity'. No change will be done on the DB structure but note that the Koha codebase does not use it)\n";
11062     }
11063
11064     SetVersion ($DBversion);
11065 }
11066
11067 $DBversion = "3.21.00.034";
11068 if ( CheckVersion($DBversion) ) {
11069     $dbh->do(q{
11070         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11071         VALUES('MembershipExpiryDaysNotice',NULL,'Send an account expiration notice that a patron''s card is about to expire after',NULL,'Integer')
11072     });
11073     $dbh->do(q{
11074         INSERT IGNORE INTO letter (module, code, branchcode, name, title, content, message_transport_type)
11075         VALUES('members','MEMBERSHIP_EXPIRY','','Account expiration','Account expiration','Dear <<borrowers.title>> <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYour library card will expire soon, on:\r\n\r\n<<borrowers.dateexpiry>>\r\n\r\nThank you,\r\n\r\nLibrarian\r\n\r\n<<branches.branchname>>', 'email')
11076     });
11077     print "Upgrade to $DBversion done (Bug 6810: Send membership expiry reminder notices)\n";
11078     SetVersion($DBversion);
11079 }
11080
11081 $DBversion = "3.21.00.035";
11082 if ( CheckVersion($DBversion) ) {
11083     $dbh->do(q|
11084         ALTER TABLE branch_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11085     |);
11086     $dbh->do(q|
11087         UPDATE branch_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11088     |);
11089     $dbh->do(q|
11090         ALTER TABLE default_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11091     |);
11092     $dbh->do(q|
11093         UPDATE default_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11094     |);
11095     $dbh->do(q|
11096         ALTER TABLE default_branch_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11097     |);
11098     $dbh->do(q|
11099         UPDATE default_branch_circ_rules SET maxonsiteissueqty = maxissueqty;
11100     |);
11101     $dbh->do(q|
11102         ALTER TABLE default_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11103     |);
11104     $dbh->do(q|
11105         UPDATE default_circ_rules SET maxonsiteissueqty = maxissueqty;
11106     |);
11107     $dbh->do(q|
11108         ALTER TABLE issuingrules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11109     |);
11110     $dbh->do(q|
11111         UPDATE issuingrules SET maxonsiteissueqty = maxissueqty;
11112     |);
11113     $dbh->do(q|
11114         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11115         VALUES ('ConsiderOnSiteCheckoutsAsNormalCheckouts','1',NULL,'Consider on-site checkouts as normal checkouts','YesNo');
11116     |);
11117
11118     print "Upgrade to $DBversion done (Bug 14045: Add DB fields maxonsiteissueqty and pref ConsiderOnSiteCheckoutsAsNormalCheckouts)\n";
11119     SetVersion ($DBversion);
11120 }
11121
11122 $DBversion = "3.21.00.036";
11123 if ( CheckVersion($DBversion) ) {
11124    $dbh->do(q{
11125         ALTER TABLE authorised_values_branches
11126         DROP FOREIGN KEY authorised_values_branches_ibfk_1,
11127         DROP FOREIGN KEY authorised_values_branches_ibfk_2
11128     });
11129     $dbh->do(q{
11130         ALTER TABLE authorised_values_branches
11131         MODIFY av_id INT( 11 ) NOT NULL,
11132         MODIFY branchcode VARCHAR( 10 ) NOT NULL,
11133         ADD FOREIGN KEY (`av_id`) REFERENCES `authorised_values` (`id`) ON DELETE CASCADE,
11134         ADD FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE
11135    });
11136    print "Upgrade to $DBversion done (Bug 10363: There is no package for authorised values)\n";
11137    SetVersion($DBversion);
11138 }
11139
11140 $DBversion = "3.21.00.037";
11141 if ( CheckVersion($DBversion) ) {
11142    $dbh->do(q{
11143        INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11144        VALUES ('OverduesBlockRenewing','allow','If any of a patron checked out documents is late, should renewal be allowed, blocked only on overdue items or blocked on whatever checked out document','allow|blockitem|block','Choice')
11145    });
11146    $dbh->do(q{
11147        INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11148        VALUES ('RestrictionBlockRenewing','0','If patron is restricted, should renewal be allowed or blocked',NULL,'YesNo')
11149     });
11150    print "Upgrade to $DBversion done (Bug 8236: Prevent renewing if overdue or restriction)\n";
11151    SetVersion($DBversion);
11152 }
11153
11154 $DBversion = "3.21.00.038";
11155 if ( CheckVersion($DBversion) ) {
11156     $dbh->do(q|
11157         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11158         VALUES ('BatchCheckouts','0','','Enable or disable batch checkouts','YesNo')
11159     |);
11160     $dbh->do(q|
11161         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11162         VALUES ('BatchCheckoutsValidCategories','',NULL,'Patron categories allowed to checkout in a batch','Free')
11163     |);
11164     print "Upgrade to $DBversion done (Bug 11759: Add the batch checkout feature)\n";
11165     SetVersion($DBversion);
11166 }
11167
11168 $DBversion = "3.21.00.039";
11169 if ( CheckVersion($DBversion) ) {
11170     $dbh->do(q|
11171         ALTER TABLE creator_layouts ADD COLUMN oblique_title INT(1) NULL DEFAULT 1 AFTER guidebox
11172     |);
11173     print "Upgrade to $DBversion done (Bug 12194: Add column oblique_title to layouts)\n";
11174     SetVersion($DBversion);
11175 }
11176
11177 $DBversion = "3.21.00.040";
11178 if ( CheckVersion($DBversion) ) {
11179     $dbh->do(q{
11180         ALTER TABLE itemtypes
11181             ADD hideinopac TINYINT(1) NOT NULL DEFAULT 0
11182               AFTER sip_media_type,
11183             ADD searchcategory VARCHAR(80) DEFAULT NULL
11184               AFTER hideinopac;
11185     });
11186     print "Upgrade to $DBversion done (Bug 10937: Option to hide and group itemtypes from advanced search)\n";
11187     SetVersion($DBversion);
11188 }
11189
11190 $DBversion = "3.21.00.041";
11191 if ( CheckVersion($DBversion) ) {
11192     $dbh->do(q|
11193         ALTER TABLE issuingrules
11194             ADD chargeperiod_charge_at BOOLEAN NOT NULL DEFAULT  '0' AFTER chargeperiod
11195     |);
11196     print "Upgrade to $DBversion done (Bug 13590: Add ability to charge fines at start of charge period)\n";
11197     SetVersion($DBversion);
11198 }
11199
11200 $DBversion = "3.21.00.042";
11201 if ( CheckVersion($DBversion) ) {
11202     $dbh->do(q|
11203         ALTER TABLE items_search_fields
11204             MODIFY COLUMN authorised_values_category VARCHAR(32) DEFAULT NULL
11205     |);
11206     print "Upgrade to $DBversion done (Bug 15069: items_search_fields.authorised_values_category is still a varchar(32))\n";
11207     SetVersion($DBversion);
11208 }
11209
11210 $DBversion = "3.21.00.043";
11211 if ( CheckVersion($DBversion) ) {
11212     $dbh->do(q|
11213         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11214         VALUES ('EnableAdvancedCatalogingEditor','0','','Enable the Rancor advanced cataloging editor','YesNo')
11215     |);
11216     print "Upgrade to $DBversion done (Bug 11559: Professional cataloger's interface)\n";
11217     SetVersion($DBversion);
11218 }
11219
11220 $DBversion = "3.21.00.044";
11221 if ( CheckVersion($DBversion) ) {
11222     $dbh->do(q|
11223         CREATE TABLE localization (
11224             localization_id int(11) NOT NULL AUTO_INCREMENT,
11225             entity varchar(16) COLLATE utf8_unicode_ci NOT NULL,
11226             code varchar(64) COLLATE utf8_unicode_ci NOT NULL,
11227             lang varchar(25) COLLATE utf8_unicode_ci NOT NULL,
11228             translation text COLLATE utf8_unicode_ci,
11229             PRIMARY KEY (localization_id),
11230             UNIQUE KEY entity_code_lang (entity,code,lang)
11231         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
11232     |);
11233     print "Upgrade to $DBversion done (Bug 14100: Generic solution for language overlay)\n";
11234     SetVersion($DBversion);
11235 }
11236
11237 $DBversion = "3.21.00.045";
11238 if ( CheckVersion($DBversion) ) {
11239     $dbh->do(q|
11240         ALTER TABLE opac_news
11241             ADD borrowernumber int(11) default NULL
11242                 AFTER number
11243     |);
11244     $dbh->do(q|
11245         ALTER TABLE opac_news
11246             ADD CONSTRAINT borrowernumber_fk
11247                 FOREIGN KEY (borrowernumber)
11248                 REFERENCES borrowers (borrowernumber)
11249                 ON DELETE SET NULL ON UPDATE CASCADE
11250     |);
11251     print "Upgrade to $DBversion done (Bug 14246: (newsauthor) Add borrowernumber to koha_news)\n";
11252     SetVersion($DBversion);
11253 }
11254
11255 $DBversion = "3.21.00.046";
11256 if ( CheckVersion($DBversion) ) {
11257     $dbh->do(q{
11258         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11259         VALUES ('NewsAuthorDisplay','none','none|opac|staff|both','Display the author name for news items.','Choice')
11260     });
11261     print "Upgrade to $DBversion done (Bug 14247: (newsauthor) System preference for news author display)\n";
11262     SetVersion($DBversion);
11263 }
11264
11265 $DBversion = "3.21.00.047";
11266 if(CheckVersion($DBversion)) {
11267     $dbh->do(q{
11268         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11269         VALUES ('IndependentBranchesPatronModifications','0','Show only modification request for the logged in branch','','YesNo')
11270     });
11271     print "Upgrade to $DBversion done (Bug 10904: Limit patron update request management by branch)\n";
11272     SetVersion($DBversion);
11273 }
11274
11275 $DBversion = '3.21.00.048';
11276 if ( CheckVersion($DBversion) ) {
11277     my $create_table_issues = @{ $dbh->selectall_arrayref(q|SHOW CREATE TABLE issues|) }[0]->[1];
11278     if ($create_table_issues !~ m|UNIQUE KEY.*itemnumber| ) {
11279         $dbh->do(q|ALTER TABLE issues ADD CONSTRAINT UNIQUE KEY (itemnumber)|);
11280     }
11281     print "Upgrade to $DBversion done (Bug 14978: Make sure issues.itemnumber is a unique key)\n";
11282     SetVersion($DBversion);
11283 }
11284
11285 # DEVELOPER PROCESS, search for anything to execute in the db_update directory
11286 # SEE bug 13068
11287 # if there is anything in the atomicupdate, read and execute it.
11288
11289 my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
11290 opendir( my $dirh, $update_dir );
11291 foreach my $file ( sort readdir $dirh ) {
11292     next if $file !~ /\.(sql|perl)$/;  #skip other files
11293     print "DEV atomic update: $file\n";
11294     if ( $file =~ /\.sql$/ ) {
11295         my $installer = C4::Installer->new();
11296         my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
11297     } elsif ( $file =~ /\.perl$/ ) {
11298         do $update_dir . $file;
11299     }
11300 }
11301
11302 =head1 FUNCTIONS
11303
11304 =head2 TableExists($table)
11305
11306 =cut
11307
11308 sub TableExists {
11309     my $table = shift;
11310     eval {
11311                 local $dbh->{PrintError} = 0;
11312                 local $dbh->{RaiseError} = 1;
11313                 $dbh->do(qq{SELECT * FROM $table WHERE 1 = 0 });
11314             };
11315     return 1 unless $@;
11316     return 0;
11317 }
11318
11319 =head2 DropAllForeignKeys($table)
11320
11321 Drop all foreign keys of the table $table
11322
11323 =cut
11324
11325 sub DropAllForeignKeys {
11326     my ($table) = @_;
11327     # get the table description
11328     my $sth = $dbh->prepare("SHOW CREATE TABLE $table");
11329     $sth->execute;
11330     my $vsc_structure = $sth->fetchrow;
11331     # split on CONSTRAINT keyword
11332     my @fks = split /CONSTRAINT /,$vsc_structure;
11333     # parse each entry
11334     foreach (@fks) {
11335         # isolate what is before FOREIGN KEY, if there is something, it's a foreign key to drop
11336         $_ = /(.*) FOREIGN KEY.*/;
11337         my $id = $1;
11338         if ($id) {
11339             # we have found 1 foreign, drop it
11340             $dbh->do("ALTER TABLE $table DROP FOREIGN KEY $id");
11341             $id="";
11342         }
11343     }
11344 }
11345
11346
11347 =head2 TransformToNum
11348
11349 Transform the Koha version from a 4 parts string
11350 to a number, with just 1 .
11351
11352 =cut
11353
11354 sub TransformToNum {
11355     my $version = shift;
11356     # remove the 3 last . to have a Perl number
11357     $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
11358     # three X's at the end indicate that you are testing patch with dbrev
11359     # change it into 999
11360     # prevents error on a < comparison between strings (should be: lt)
11361     $version =~ s/XXX$/999/;
11362     return $version;
11363 }
11364
11365 =head2 SetVersion
11366
11367 set the DBversion in the systempreferences
11368
11369 =cut
11370
11371 sub SetVersion {
11372     return if $_[0]=~ /XXX$/;
11373       #you are testing a patch with a db revision; do not change version
11374     my $kohaversion = TransformToNum($_[0]);
11375     if (C4::Context->preference('Version')) {
11376       my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
11377       $finish->execute($kohaversion);
11378     } else {
11379       my $finish=$dbh->prepare("INSERT into systempreferences (variable,value,explanation) values ('Version',?,'The Koha database version. WARNING: Do not change this value manually, it is maintained by the webinstaller')");
11380       $finish->execute($kohaversion);
11381     }
11382     C4::Context::clear_syspref_cache(); # invalidate cached preferences
11383 }
11384
11385 =head2 CheckVersion
11386
11387 Check whether a given update should be run when passed the proposed version
11388 number. The update will always be run if the proposed version is greater
11389 than the current database version and less than or equal to the version in
11390 kohaversion.pl. The update is also run if the version contains XXX, though
11391 this behavior will be changed following the adoption of non-linear updates
11392 as implemented in bug 7167.
11393
11394 =cut
11395
11396 sub CheckVersion {
11397     my ($proposed_version) = @_;
11398     my $version_number = TransformToNum($proposed_version);
11399
11400     # The following line should be deleted when bug 7167 is pushed
11401     return 1 if ( $proposed_version =~ m/XXX/ );
11402
11403     if ( C4::Context->preference("Version") < $version_number
11404         && $version_number <= TransformToNum( $Koha::VERSION ) )
11405     {
11406         return 1;
11407     }
11408     else {
11409         return 0;
11410     }
11411 }
11412
11413 exit;