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 use C4::Koha qw/GetSupportList/;
  43
  44 use MARC::Record;
  45 use MARC::File::XML ( BinaryEncoding => 'utf8' );
  46
  47 # FIXME - The user might be installing a new database, so can't rely
  48 # on /etc/koha.conf anyway.
  49
  50 my $debug = 0;
  51
  52 my (
  53     $sth, $sti,
  54     $query,
  55     %existingtables,    # tables already in database
  56     %types,
  57     $table,
  58     $column,
  59     $type, $null, $key, $default, $extra,
  60     $prefitem,          # preference item in systempreferences table
  61 );
  62
  63 my $schema = Koha::Database->new()->schema();
  64
  65 my $silent;
  66 GetOptions(
  67     's' =>\$silent
  68     );
  69 my $dbh = C4::Context->dbh;
  70 $|=1; # flushes output
  71
  72 local $dbh->{RaiseError} = 0;
  73
  74 # Record the version we are coming from
  75
  76 my $original_version = C4::Context->preference("Version");
  77
  78 # Deal with virtualshelves
  79 my $DBversion = "3.00.00.001";
  80 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
  81     # update virtualshelves table to
  82     #
  83     $dbh->do("ALTER TABLE `bookshelf` RENAME `virtualshelves`");
  84     $dbh->do("ALTER TABLE `shelfcontents` RENAME `virtualshelfcontents`");
  85     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD `biblionumber` INT( 11 ) NOT NULL default '0' AFTER shelfnumber");
  86     $dbh->do("UPDATE `virtualshelfcontents` SET biblionumber=(SELECT biblionumber FROM items WHERE items.itemnumber=virtualshelfcontents.itemnumber)");
  87     # drop all foreign keys : otherwise, we can't drop itemnumber field.
  88     DropAllForeignKeys('virtualshelfcontents');
  89     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD KEY biblionumber (biblionumber)");
  90     # create the new foreign keys (on biblionumber)
  91     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `virtualshelfcontents_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE");
  92     # re-create the foreign key on virtualshelf
  93     $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `shelfcontents_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
  94     $dbh->do("ALTER TABLE `virtualshelfcontents` DROP `itemnumber`");
  95     print "Upgrade to $DBversion done (virtualshelves)\n";
  96     SetVersion ($DBversion);
  97 }
  98
  99
 100 $DBversion = "3.00.00.002";
 101 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 102     $dbh->do("DROP TABLE sessions");
 103     $dbh->do("CREATE TABLE `sessions` (
 104   `id` varchar(32) NOT NULL,
 105   `a_session` text NOT NULL,
 106   UNIQUE KEY `id` (`id`)
 107 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
 108     print "Upgrade to $DBversion done (sessions uses CGI::session, new table structure for sessions)\n";
 109     SetVersion ($DBversion);
 110 }
 111
 112
 113 $DBversion = "3.00.00.003";
 114 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 115     if (C4::Context->preference("opaclanguages") eq "fr") {
 116         $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')");
 117     } else {
 118         $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')");
 119     }
 120     print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
 121     SetVersion ($DBversion);
 122 }
 123
 124
 125 $DBversion = "3.00.00.004";
 126 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 127     $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')");
 128     print "Upgrade to $DBversion done (adding DebugLevel systempref, in 'Admin' tab)\n";
 129     SetVersion ($DBversion);
 130 }
 131
 132 $DBversion = "3.00.00.005";
 133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 134     $dbh->do("CREATE TABLE `tags` (
 135                     `entry` varchar(255) NOT NULL default '',
 136                     `weight` bigint(20) NOT NULL default 0,
 137                     PRIMARY KEY  (`entry`)
 138                     ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
 139                 ");
 140         $dbh->do("CREATE TABLE `nozebra` (
 141                 `server` varchar(20)     NOT NULL,
 142                 `indexname` varchar(40)  NOT NULL,
 143                 `value` varchar(250)     NOT NULL,
 144                 `biblionumbers` longtext NOT NULL,
 145                 KEY `indexname` (`server`,`indexname`),
 146                 KEY `value` (`server`,`value`))
 147                 ENGINE=InnoDB DEFAULT CHARSET=utf8;
 148                 ");
 149     print "Upgrade to $DBversion done (adding tags and nozebra tables )\n";
 150     SetVersion ($DBversion);
 151 }
 152
 153 $DBversion = "3.00.00.006";
 154 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 155     $dbh->do("UPDATE issues SET issuedate=timestamp WHERE issuedate='0000-00-00'");
 156     print "Upgrade to $DBversion done (filled issues.issuedate with timestamp)\n";
 157     SetVersion ($DBversion);
 158 }
 159
 160 $DBversion = "3.00.00.007";
 161 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 162     $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')");
 163     print "Upgrade to $DBversion done (set SessionStorage variable)\n";
 164     SetVersion ($DBversion);
 165 }
 166
 167 $DBversion = "3.00.00.008";
 168 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 169     $dbh->do("ALTER TABLE `biblio` ADD `datecreated` DATE NOT NULL AFTER `timestamp` ;");
 170     $dbh->do("UPDATE biblio SET datecreated=timestamp");
 171     print "Upgrade to $DBversion done (biblio creation date)\n";
 172     SetVersion ($DBversion);
 173 }
 174
 175 $DBversion = "3.00.00.009";
 176 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 177
 178     # Create backups of call number columns
 179     # in case default migration needs to be customized
 180     #
 181     # UPGRADE NOTE: temp_upg_biblioitems_call_num should be dropped
 182     #               after call numbers have been transformed to the new structure
 183     #
 184     # Not bothering to do the same with deletedbiblioitems -- assume
 185     # default is good enough.
 186     $dbh->do("CREATE TABLE `temp_upg_biblioitems_call_num` AS
 187               SELECT `biblioitemnumber`, `biblionumber`,
 188                      `classification`, `dewey`, `subclass`,
 189                      `lcsort`, `ccode`
 190               FROM `biblioitems`");
 191
 192     # biblioitems changes
 193     $dbh->do("ALTER TABLE `biblioitems` CHANGE COLUMN `volumeddesc` `volumedesc` TEXT,
 194                                     ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
 195                                     ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 196                                     ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
 197                                     ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
 198                                     ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
 199                                     ADD `totalissues` INT(10) AFTER `cn_sort`");
 200
 201     # default mapping of call number columns:
 202     #   cn_class = concatentation of classification + dewey,
 203     #              trimmed to fit -- assumes that most users do not
 204     #              populate both classification and dewey in a single record
 205     #   cn_item  = subclass
 206     #   cn_source = left null
 207     #   cn_sort = lcsort
 208     #
 209     # After upgrade, cn_sort will have to be set based on whatever
 210     # default call number scheme user sets as a preference.  Misc
 211     # script will be added at some point to do that.
 212     #
 213     $dbh->do("UPDATE `biblioitems`
 214               SET cn_class = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
 215                     cn_item = subclass,
 216                     `cn_sort` = `lcsort`
 217             ");
 218
 219     # Now drop the old call number columns
 220     $dbh->do("ALTER TABLE `biblioitems` DROP COLUMN `classification`,
 221                                         DROP COLUMN `dewey`,
 222                                         DROP COLUMN `subclass`,
 223                                         DROP COLUMN `lcsort`,
 224                                         DROP COLUMN `ccode`");
 225
 226     # deletedbiblio changes
 227     $dbh->do("ALTER TABLE `deletedbiblio` ALTER COLUMN `frameworkcode` SET DEFAULT '',
 228                                         DROP COLUMN `marc`,
 229                                         ADD `datecreated` DATE NOT NULL AFTER `timestamp`");
 230     $dbh->do("UPDATE deletedbiblio SET datecreated = timestamp");
 231
 232     # deletedbiblioitems changes
 233     $dbh->do("ALTER TABLE `deletedbiblioitems`
 234                         MODIFY `publicationyear` TEXT,
 235                         CHANGE `volumeddesc` `volumedesc` TEXT,
 236                         MODIFY `collectiontitle` MEDIUMTEXT DEFAULT NULL AFTER `volumedesc`,
 237                         MODIFY `collectionissn` TEXT DEFAULT NULL AFTER `collectiontitle`,
 238                         MODIFY `collectionvolume` MEDIUMTEXT DEFAULT NULL AFTER `collectionissn`,
 239                         MODIFY `editionstatement` TEXT DEFAULT NULL AFTER `collectionvolume`,
 240                         MODIFY `editionresponsibility` TEXT DEFAULT NULL AFTER `editionstatement`,
 241                         MODIFY `place` VARCHAR(255) DEFAULT NULL AFTER `size`,
 242                         MODIFY `marc` LONGBLOB,
 243                         ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `url`,
 244                         ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 245                         ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
 246                         ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
 247                         ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
 248                         ADD `totalissues` INT(10) AFTER `cn_sort`,
 249                         ADD `marcxml` LONGTEXT NOT NULL AFTER `totalissues`,
 250                         ADD KEY `isbn` (`isbn`),
 251                         ADD KEY `publishercode` (`publishercode`)
 252                     ");
 253
 254     $dbh->do("UPDATE `deletedbiblioitems`
 255                 SET `cn_class` = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
 256                `cn_item` = `subclass`,
 257                 `cn_sort` = `lcsort`
 258             ");
 259     $dbh->do("ALTER TABLE `deletedbiblioitems`
 260                         DROP COLUMN `classification`,
 261                         DROP COLUMN `dewey`,
 262                         DROP COLUMN `subclass`,
 263                         DROP COLUMN `lcsort`,
 264                         DROP COLUMN `ccode`
 265             ");
 266
 267     # deleteditems changes
 268     $dbh->do("ALTER TABLE `deleteditems`
 269                         MODIFY `barcode` VARCHAR(20) DEFAULT NULL,
 270                         MODIFY `price` DECIMAL(8,2) DEFAULT NULL,
 271                         MODIFY `replacementprice` DECIMAL(8,2) DEFAULT NULL,
 272                         DROP `bulk`,
 273                         MODIFY `itemcallnumber` VARCHAR(30) DEFAULT NULL AFTER `wthdrawn`,
 274                         MODIFY `holdingbranch` VARCHAR(10) DEFAULT NULL,
 275                         DROP `interim`,
 276                         MODIFY `timestamp` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER `paidfor`,
 277                         DROP `cutterextra`,
 278                         ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
 279                         ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 280                         ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
 281                         ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
 282                         ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`,
 283                         MODIFY `marc` LONGBLOB AFTER `uri`,
 284                         DROP KEY `barcode`,
 285                         DROP KEY `itembarcodeidx`,
 286                         DROP KEY `itembinoidx`,
 287                         DROP KEY `itembibnoidx`,
 288                         ADD UNIQUE KEY `delitembarcodeidx` (`barcode`),
 289                         ADD KEY `delitembinoidx` (`biblioitemnumber`),
 290                         ADD KEY `delitembibnoidx` (`biblionumber`),
 291                         ADD KEY `delhomebranch` (`homebranch`),
 292                         ADD KEY `delholdingbranch` (`holdingbranch`)");
 293     $dbh->do("UPDATE deleteditems SET `ccode` = `itype`");
 294     $dbh->do("ALTER TABLE deleteditems DROP `itype`");
 295     $dbh->do("UPDATE `deleteditems` SET `cn_sort` = `itemcallnumber`");
 296
 297     # items changes
 298     $dbh->do("ALTER TABLE `items` ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
 299                                 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
 300                                 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
 301                                 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
 302                                 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`
 303             ");
 304     $dbh->do("ALTER TABLE `items`
 305                         DROP KEY `itembarcodeidx`,
 306                         ADD UNIQUE KEY `itembarcodeidx` (`barcode`)");
 307
 308     # map items.itype to items.ccode and
 309     # set cn_sort to itemcallnumber -- as with biblioitems.cn_sort,
 310     # will have to be subsequently updated per user's default
 311     # classification scheme
 312     $dbh->do("UPDATE `items` SET `cn_sort` = `itemcallnumber`,
 313                             `ccode` = `itype`");
 314
 315     $dbh->do("ALTER TABLE `items` DROP `cutterextra`,
 316                                 DROP `itype`");
 317
 318     print "Upgrade to $DBversion done (major changes to biblio, biblioitems, items, and deleted* versions of same\n";
 319     SetVersion ($DBversion);
 320 }
 321
 322 $DBversion = "3.00.00.010";
 323 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 324     $dbh->do("CREATE INDEX `userid` ON borrowers (`userid`) ");
 325     print "Upgrade to $DBversion done (userid index added)\n";
 326     SetVersion ($DBversion);
 327 }
 328
 329 $DBversion = "3.00.00.011";
 330 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 331     $dbh->do("ALTER TABLE `branchcategories` CHANGE `categorycode` `categorycode` varchar(10) ");
 332     $dbh->do("ALTER TABLE `branchcategories` CHANGE `categoryname` `categoryname` varchar(32) ");
 333     $dbh->do("ALTER TABLE `branchcategories` ADD COLUMN `categorytype` varchar(16) ");
 334     $dbh->do("UPDATE `branchcategories` SET `categorytype` = 'properties'");
 335     $dbh->do("ALTER TABLE `branchrelations` CHANGE `categorycode` `categorycode` varchar(10) ");
 336     print "Upgrade to $DBversion done (added branchcategory type)\n";
 337     SetVersion ($DBversion);
 338 }
 339
 340 $DBversion = "3.00.00.012";
 341 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 342     $dbh->do("CREATE TABLE `class_sort_rules` (
 343                                `class_sort_rule` varchar(10) NOT NULL default '',
 344                                `description` mediumtext,
 345                                `sort_routine` varchar(30) NOT NULL default '',
 346                                PRIMARY KEY (`class_sort_rule`),
 347                                UNIQUE KEY `class_sort_rule_idx` (`class_sort_rule`)
 348                              ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 349     $dbh->do("CREATE TABLE `class_sources` (
 350                                `cn_source` varchar(10) NOT NULL default '',
 351                                `description` mediumtext,
 352                                `used` tinyint(4) NOT NULL default 0,
 353                                `class_sort_rule` varchar(10) NOT NULL default '',
 354                                PRIMARY KEY (`cn_source`),
 355                                UNIQUE KEY `cn_source_idx` (`cn_source`),
 356                                KEY `used_idx` (`used`),
 357                                CONSTRAINT `class_source_ibfk_1` FOREIGN KEY (`class_sort_rule`)
 358                                           REFERENCES `class_sort_rules` (`class_sort_rule`)
 359                              ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 360     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type)
 361               VALUES('DefaultClassificationSource','ddc',
 362                      'Default classification scheme used by the collection. E.g., Dewey, LCC, etc.', NULL,'free')");
 363     $dbh->do("INSERT INTO `class_sort_rules` (`class_sort_rule`, `description`, `sort_routine`) VALUES
 364                                ('dewey', 'Default filing rules for DDC', 'Dewey'),
 365                                ('lcc', 'Default filing rules for LCC', 'LCC'),
 366                                ('generic', 'Generic call number filing rules', 'Generic')");
 367     $dbh->do("INSERT INTO `class_sources` (`cn_source`, `description`, `used`, `class_sort_rule`) VALUES
 368                             ('ddc', 'Dewey Decimal Classification', 1, 'dewey'),
 369                             ('lcc', 'Library of Congress Classification', 1, 'lcc'),
 370                             ('udc', 'Universal Decimal Classification', 0, 'generic'),
 371                             ('sudocs', 'SuDoc Classification (U.S. GPO)', 0, 'generic'),
 372                             ('z', 'Other/Generic Classification Scheme', 0, 'generic')");
 373     print "Upgrade to $DBversion done (classification sources added)\n";
 374     SetVersion ($DBversion);
 375 }
 376
 377 $DBversion = "3.00.00.013";
 378 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 379     $dbh->do("CREATE TABLE `import_batches` (
 380               `import_batch_id` int(11) NOT NULL auto_increment,
 381               `template_id` int(11) default NULL,
 382               `branchcode` varchar(10) default NULL,
 383               `num_biblios` int(11) NOT NULL default 0,
 384               `num_items` int(11) NOT NULL default 0,
 385               `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
 386               `overlay_action` enum('replace', 'create_new', 'use_template') NOT NULL default 'create_new',
 387               `import_status` enum('staging', 'staged', 'importing', 'imported', 'reverting', 'reverted', 'cleaned') NOT NULL default 'staging',
 388               `batch_type` enum('batch', 'z3950') NOT NULL default 'batch',
 389               `file_name` varchar(100),
 390               `comments` mediumtext,
 391               PRIMARY KEY (`import_batch_id`),
 392               KEY `branchcode` (`branchcode`)
 393               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 394     $dbh->do("CREATE TABLE `import_records` (
 395               `import_record_id` int(11) NOT NULL auto_increment,
 396               `import_batch_id` int(11) NOT NULL,
 397               `branchcode` varchar(10) default NULL,
 398               `record_sequence` int(11) NOT NULL default 0,
 399               `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
 400               `import_date` DATE default NULL,
 401               `marc` longblob NOT NULL,
 402               `marcxml` longtext NOT NULL,
 403               `marcxml_old` longtext NOT NULL,
 404               `record_type` enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio',
 405               `overlay_status` enum('no_match', 'auto_match', 'manual_match', 'match_applied') NOT NULL default 'no_match',
 406               `status` enum('error', 'staged', 'imported', 'reverted', 'items_reverted') NOT NULL default 'staged',
 407               `import_error` mediumtext,
 408               `encoding` varchar(40) NOT NULL default '',
 409               `z3950random` varchar(40) default NULL,
 410               PRIMARY KEY (`import_record_id`),
 411               CONSTRAINT `import_records_ifbk_1` FOREIGN KEY (`import_batch_id`)
 412                           REFERENCES `import_batches` (`import_batch_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 413               KEY `branchcode` (`branchcode`),
 414               KEY `batch_sequence` (`import_batch_id`, `record_sequence`)
 415               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 416     $dbh->do("CREATE TABLE `import_record_matches` (
 417               `import_record_id` int(11) NOT NULL,
 418               `candidate_match_id` int(11) NOT NULL,
 419               `score` int(11) NOT NULL default 0,
 420               CONSTRAINT `import_record_matches_ibfk_1` FOREIGN KEY (`import_record_id`)
 421                           REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 422               KEY `record_score` (`import_record_id`, `score`)
 423               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 424     $dbh->do("CREATE TABLE `import_biblios` (
 425               `import_record_id` int(11) NOT NULL,
 426               `matched_biblionumber` int(11) default NULL,
 427               `control_number` varchar(25) default NULL,
 428               `original_source` varchar(25) default NULL,
 429               `title` varchar(128) default NULL,
 430               `author` varchar(80) default NULL,
 431               `isbn` varchar(14) default NULL,
 432               `issn` varchar(9) default NULL,
 433               `has_items` tinyint(1) NOT NULL default 0,
 434               CONSTRAINT `import_biblios_ibfk_1` FOREIGN KEY (`import_record_id`)
 435                           REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 436               KEY `matched_biblionumber` (`matched_biblionumber`),
 437               KEY `title` (`title`),
 438               KEY `isbn` (`isbn`)
 439               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 440     $dbh->do("CREATE TABLE `import_items` (
 441               `import_items_id` int(11) NOT NULL auto_increment,
 442               `import_record_id` int(11) NOT NULL,
 443               `itemnumber` int(11) default NULL,
 444               `branchcode` varchar(10) default NULL,
 445               `status` enum('error', 'staged', 'imported', 'reverted') NOT NULL default 'staged',
 446               `marcxml` longtext NOT NULL,
 447               `import_error` mediumtext,
 448               PRIMARY KEY (`import_items_id`),
 449               CONSTRAINT `import_items_ibfk_1` FOREIGN KEY (`import_record_id`)
 450                           REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 451               KEY `itemnumber` (`itemnumber`),
 452               KEY `branchcode` (`branchcode`)
 453               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 454
 455     $dbh->do("INSERT INTO `import_batches`
 456                 (`overlay_action`, `import_status`, `batch_type`, `file_name`)
 457               SELECT distinct 'create_new', 'staged', 'z3950', `file`
 458               FROM   `marc_breeding`");
 459
 460     $dbh->do("INSERT INTO `import_records`
 461                 (`import_batch_id`, `import_record_id`, `record_sequence`, `marc`, `record_type`, `status`,
 462                 `encoding`, `z3950random`, `marcxml`, `marcxml_old`)
 463               SELECT `import_batch_id`, `id`, 1, `marc`, 'biblio', 'staged', `encoding`, `z3950random`, '', ''
 464               FROM `marc_breeding`
 465               JOIN `import_batches` ON (`file_name` = `file`)");
 466
 467     $dbh->do("INSERT INTO `import_biblios`
 468                 (`import_record_id`, `title`, `author`, `isbn`)
 469               SELECT `import_record_id`, `title`, `author`, `isbn`
 470               FROM   `marc_breeding`
 471               JOIN   `import_records` ON (`import_record_id` = `id`)");
 472
 473     $dbh->do("UPDATE `import_batches`
 474               SET `num_biblios` = (
 475               SELECT COUNT(*)
 476               FROM `import_records`
 477               WHERE `import_batch_id` = `import_batches`.`import_batch_id`
 478               )");
 479
 480     $dbh->do("DROP TABLE `marc_breeding`");
 481
 482     print "Upgrade to $DBversion done (import_batches et al. added)\n";
 483     SetVersion ($DBversion);
 484 }
 485
 486 $DBversion = "3.00.00.014";
 487 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 488     $dbh->do("ALTER TABLE subscription ADD lastbranch VARCHAR(4)");
 489     print "Upgrade to $DBversion done (userid index added)\n";
 490     SetVersion ($DBversion);
 491 }
 492
 493 $DBversion = "3.00.00.015";
 494 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 495     $dbh->do("CREATE TABLE `saved_sql` (
 496            `id` int(11) NOT NULL auto_increment,
 497            `borrowernumber` int(11) default NULL,
 498            `date_created` datetime default NULL,
 499            `last_modified` datetime default NULL,
 500            `savedsql` text,
 501            `last_run` datetime default NULL,
 502            `report_name` varchar(255) default NULL,
 503            `type` varchar(255) default NULL,
 504            `notes` text,
 505            PRIMARY KEY  (`id`),
 506            KEY boridx (`borrowernumber`)
 507         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
 508     $dbh->do("CREATE TABLE `saved_reports` (
 509            `id` int(11) NOT NULL auto_increment,
 510            `report_id` int(11) default NULL,
 511            `report` longtext,
 512            `date_run` datetime default NULL,
 513            PRIMARY KEY  (`id`)
 514         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
 515     print "Upgrade to $DBversion done (saved_sql and saved_reports added)\n";
 516     SetVersion ($DBversion);
 517 }
 518
 519 $DBversion = "3.00.00.016";
 520 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 521     $dbh->do(" CREATE TABLE reports_dictionary (
 522           id int(11) NOT NULL auto_increment,
 523           name varchar(255) default NULL,
 524           description text,
 525           date_created datetime default NULL,
 526           date_modified datetime default NULL,
 527           saved_sql text,
 528           area int(11) default NULL,
 529           PRIMARY KEY  (id)
 530         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
 531     print "Upgrade to $DBversion done (reports_dictionary) added)\n";
 532     SetVersion ($DBversion);
 533 }
 534
 535 $DBversion = "3.00.00.017";
 536 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 537     $dbh->do("ALTER TABLE action_logs DROP PRIMARY KEY");
 538     $dbh->do("ALTER TABLE action_logs ADD KEY  timestamp (timestamp,user)");
 539     $dbh->do("ALTER TABLE action_logs ADD action_id INT(11) NOT NULL FIRST");
 540     $dbh->do("UPDATE action_logs SET action_id = if (\@a, \@a:=\@a+1, \@a:=1)");
 541     $dbh->do("ALTER TABLE action_logs MODIFY action_id INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY");
 542     print "Upgrade to $DBversion done (added column to action_logs)\n";
 543     SetVersion ($DBversion);
 544 }
 545
 546 $DBversion = "3.00.00.018";
 547 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 548     $dbh->do("ALTER TABLE `zebraqueue`
 549                     ADD `done` INT NOT NULL DEFAULT '0',
 550                     ADD `time` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ;
 551             ");
 552     print "Upgrade to $DBversion done (adding timestamp and done columns to zebraque table to improve problem tracking) added)\n";
 553     SetVersion ($DBversion);
 554 }
 555
 556 $DBversion = "3.00.00.019";
 557 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 558     $dbh->do("ALTER TABLE biblio MODIFY biblionumber INT(11) NOT NULL AUTO_INCREMENT");
 559     $dbh->do("ALTER TABLE biblioitems MODIFY biblioitemnumber INT(11) NOT NULL AUTO_INCREMENT");
 560     $dbh->do("ALTER TABLE items MODIFY itemnumber INT(11) NOT NULL AUTO_INCREMENT");
 561     print "Upgrade to $DBversion done (made bib/item PKs auto_increment)\n";
 562     SetVersion ($DBversion);
 563 }
 564
 565 $DBversion = "3.00.00.020";
 566 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 567     $dbh->do("ALTER TABLE deleteditems
 568               DROP KEY `delitembarcodeidx`,
 569               ADD KEY `delitembarcodeidx` (`barcode`)");
 570     print "Upgrade to $DBversion done (dropped uniqueness of key on deleteditems.barcode)\n";
 571     SetVersion ($DBversion);
 572 }
 573
 574 $DBversion = "3.00.00.021";
 575 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 576     $dbh->do("ALTER TABLE items CHANGE homebranch homebranch VARCHAR(10)");
 577     $dbh->do("ALTER TABLE deleteditems CHANGE homebranch homebranch VARCHAR(10)");
 578     $dbh->do("ALTER TABLE statistics CHANGE branch branch VARCHAR(10)");
 579     $dbh->do("ALTER TABLE subscription CHANGE lastbranch lastbranch VARCHAR(10)");
 580     print "Upgrade to $DBversion done (extended missed branchcode columns to 10 chars)\n";
 581     SetVersion ($DBversion);
 582 }
 583
 584 $DBversion = "3.00.00.022";
 585 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 586     $dbh->do("ALTER TABLE items
 587                 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
 588     $dbh->do("ALTER TABLE deleteditems
 589                 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
 590     print "Upgrade to $DBversion done (adding damaged column to items table)\n";
 591     SetVersion ($DBversion);
 592 }
 593
 594 $DBversion = "3.00.00.023";
 595 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 596      $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 597          VALUES ('yuipath','http://yui.yahooapis.com/2.3.1/build','Insert the path to YUI libraries','','free')");
 598     print "Upgrade to $DBversion done (adding new system preference for controlling YUI path)\n";
 599     SetVersion ($DBversion);
 600 }
 601 $DBversion = "3.00.00.024";
 602 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 603     $dbh->do("ALTER TABLE biblioitems CHANGE  itemtype itemtype VARCHAR(10)");
 604     print "Upgrade to $DBversion done (changing itemtype to (10))\n";
 605     SetVersion ($DBversion);
 606 }
 607
 608 $DBversion = "3.00.00.025";
 609 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 610     $dbh->do("ALTER TABLE items ADD COLUMN itype VARCHAR(10)");
 611     $dbh->do("ALTER TABLE deleteditems ADD COLUMN itype VARCHAR(10) AFTER uri");
 612     if(C4::Context->preference('item-level_itypes')){
 613         $dbh->do('update items,biblioitems set items.itype=biblioitems.itemtype where items.biblionumber=biblioitems.biblionumber and itype is null');
 614     }
 615     print "Upgrade to $DBversion done (reintroduce items.itype - fill from itemtype)\n ";
 616     SetVersion ($DBversion);
 617 }
 618
 619 $DBversion = "3.00.00.026";
 620 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 621     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 622        VALUES ('HomeOrHoldingBranch','homebranch','homebranch|holdingbranch','With independent branches turned on this decides whether to check the items holdingbranch or homebranch at circulatilon','choice')");
 623     print "Upgrade to $DBversion done (adding new system preference for choosing whether homebranch or holdingbranch is checked in circulation)\n";
 624     SetVersion ($DBversion);
 625 }
 626
 627 $DBversion = "3.00.00.027";
 628 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 629     $dbh->do("CREATE TABLE `marc_matchers` (
 630                 `matcher_id` int(11) NOT NULL auto_increment,
 631                 `code` varchar(10) NOT NULL default '',
 632                 `description` varchar(255) NOT NULL default '',
 633                 `record_type` varchar(10) NOT NULL default 'biblio',
 634                 `threshold` int(11) NOT NULL default 0,
 635                 PRIMARY KEY (`matcher_id`),
 636                 KEY `code` (`code`),
 637                 KEY `record_type` (`record_type`)
 638               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 639     $dbh->do("CREATE TABLE `matchpoints` (
 640                 `matcher_id` int(11) NOT NULL,
 641                 `matchpoint_id` int(11) NOT NULL auto_increment,
 642                 `search_index` varchar(30) NOT NULL default '',
 643                 `score` int(11) NOT NULL default 0,
 644                 PRIMARY KEY (`matchpoint_id`),
 645                 CONSTRAINT `matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
 646                            REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE
 647               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 648     $dbh->do("CREATE TABLE `matchpoint_components` (
 649                 `matchpoint_id` int(11) NOT NULL,
 650                 `matchpoint_component_id` int(11) NOT NULL auto_increment,
 651                 sequence int(11) NOT NULL default 0,
 652                 tag varchar(3) NOT NULL default '',
 653                 subfields varchar(40) NOT NULL default '',
 654                 offset int(4) NOT NULL default 0,
 655                 length int(4) NOT NULL default 0,
 656                 PRIMARY KEY (`matchpoint_component_id`),
 657                 KEY `by_sequence` (`matchpoint_id`, `sequence`),
 658                 CONSTRAINT `matchpoint_components_ifbk_1` FOREIGN KEY (`matchpoint_id`)
 659                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
 660               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 661     $dbh->do("CREATE TABLE `matchpoint_component_norms` (
 662                 `matchpoint_component_id` int(11) NOT NULL,
 663                 `sequence`  int(11) NOT NULL default 0,
 664                 `norm_routine` varchar(50) NOT NULL default '',
 665                 KEY `matchpoint_component_norms` (`matchpoint_component_id`, `sequence`),
 666                 CONSTRAINT `matchpoint_component_norms_ifbk_1` FOREIGN KEY (`matchpoint_component_id`)
 667                            REFERENCES `matchpoint_components` (`matchpoint_component_id`) ON DELETE CASCADE ON UPDATE CASCADE
 668               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 669     $dbh->do("CREATE TABLE `matcher_matchpoints` (
 670                 `matcher_id` int(11) NOT NULL,
 671                 `matchpoint_id` int(11) NOT NULL,
 672                 CONSTRAINT `matcher_matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
 673                            REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 674                 CONSTRAINT `matcher_matchpoints_ifbk_2` FOREIGN KEY (`matchpoint_id`)
 675                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
 676               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 677     $dbh->do("CREATE TABLE `matchchecks` (
 678                 `matcher_id` int(11) NOT NULL,
 679                 `matchcheck_id` int(11) NOT NULL auto_increment,
 680                 `source_matchpoint_id` int(11) NOT NULL,
 681                 `target_matchpoint_id` int(11) NOT NULL,
 682                 PRIMARY KEY (`matchcheck_id`),
 683                 CONSTRAINT `matcher_matchchecks_ifbk_1` FOREIGN KEY (`matcher_id`)
 684                            REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 685                 CONSTRAINT `matcher_matchchecks_ifbk_2` FOREIGN KEY (`source_matchpoint_id`)
 686                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE,
 687                 CONSTRAINT `matcher_matchchecks_ifbk_3` FOREIGN KEY (`target_matchpoint_id`)
 688                            REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
 689               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 690     print "Upgrade to $DBversion done (added C4::Matcher serialization tables)\n ";
 691     SetVersion ($DBversion);
 692 }
 693
 694 $DBversion = "3.00.00.028";
 695 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 696     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 697        VALUES ('canreservefromotherbranches','1','','With Independent branches on, can a user from one library reserve an item from another library','YesNo')");
 698     print "Upgrade to $DBversion done (adding new system preference for changing reserve/holds behaviour with independent branches)\n";
 699     SetVersion ($DBversion);
 700 }
 701
 702
 703 $DBversion = "3.00.00.029";
 704 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 705     $dbh->do("ALTER TABLE `import_batches` ADD `matcher_id` int(11) NULL AFTER `import_batch_id`");
 706     print "Upgrade to $DBversion done (adding matcher_id to import_batches)\n";
 707     SetVersion ($DBversion);
 708 }
 709
 710 $DBversion = "3.00.00.030";
 711 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 712     $dbh->do("
 713 CREATE TABLE services_throttle (
 714   service_type varchar(10) NOT NULL default '',
 715   service_count varchar(45) default NULL,
 716   PRIMARY KEY  (service_type)
 717 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
 718 ");
 719     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 720        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')");
 721  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 722        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')");
 723  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 724        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')");
 725  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 726        VALUES ('XISBNDailyLimit',499,'','The xISBN Web service is free for non-commercial use when usage does not exceed 500 requests per day','free')");
 727  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 728        VALUES ('PINESISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use PINES OISBN web service in the Editions tab on the detail pages.','YesNo')");
 729  $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
 730        VALUES ('ThingISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the ThingISBN web service in the Editions tab on the detail pages.','YesNo')");
 731     print "Upgrade to $DBversion done (adding services throttle table and sysprefs for xISBN)\n";
 732     SetVersion ($DBversion);
 733 }
 734
 735 $DBversion = "3.00.00.031";
 736 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 737
 738 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryStemming',1,'If ON, enables query stemming',NULL,'YesNo')");
 739 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryFuzzy',1,'If ON, enables fuzzy option for searches',NULL,'YesNo')");
 740 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryWeightFields',1,'If ON, enables field weighting',NULL,'YesNo')");
 741 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('WebBasedSelfCheck',0,'If ON, enables the web-based self-check system',NULL,'YesNo')");
 742 $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')");
 743 $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')");
 744 $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')");
 745 $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')");
 746 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortOrder',NULL,'Specify the default sort order','asc|dsc|az|za','Choice')");
 747 $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')");
 748 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortOrder',NULL,'Specify the default sort order','asc|dsc|za|az','Choice')");
 749 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('staffClientBaseURL','','Specify the base URL of the staff client',NULL,'free')");
 750 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('minPasswordLength',3,'Specify the minimum length of a patron/staff password',NULL,'free')");
 751 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('noItemTypeImages',0,'If ON, disables item-type images',NULL,'YesNo')");
 752 $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')");
 753 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('holdCancelLength','','Specify how many days before a hold is canceled',NULL,'free')");
 754 $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')");
 755 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesMode','test','Choose the fines mode, test or production','test|production','Choice')");
 756 $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')");
 757 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('itemBarcodeInputFilter','','If set, allows specification of a item barcode input filter','cuecat','Choice')");
 758 $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')");
 759 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('URLLinkText','','Text to display as the link anchor in the OPAC',NULL,'free')");
 760 $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')");
 761 $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')");
 762 $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')");
 763 $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')");
 764 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACUserCSS',0,'Add CSS to be included in the OPAC',NULL,'free')");
 765
 766     print "Upgrade to $DBversion done (adding additional system preference)\n";
 767     SetVersion ($DBversion);
 768 }
 769
 770 $DBversion = "3.00.00.032";
 771 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 772     $dbh->do("UPDATE `marc_subfield_structure` SET `kohafield` = 'items.wthdrawn' WHERE `kohafield` = 'items.withdrawn'");
 773     print "Upgrade to $DBversion done (fixed MARC framework references to items.withdrawn)\n";
 774     SetVersion ($DBversion);
 775 }
 776
 777 $DBversion = "3.00.00.033";
 778 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 779     $dbh->do("INSERT INTO `userflags` VALUES(17,'staffaccess','Modify login / permissions for staff users',0)");
 780     print "Upgrade to $DBversion done (Adding permissions flag for staff member access modification.  )\n";
 781     SetVersion ($DBversion);
 782 }
 783
 784 $DBversion = "3.00.00.034";
 785 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 786     $dbh->do("ALTER TABLE `virtualshelves` ADD COLUMN `sortfield` VARCHAR(16) ");
 787     print "Upgrade to $DBversion done (Adding sortfield for Virtual Shelves.  )\n";
 788     SetVersion ($DBversion);
 789 }
 790
 791 $DBversion = "3.00.00.035";
 792 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 793     $dbh->do("UPDATE marc_subfield_structure
 794               SET authorised_value = 'cn_source'
 795               WHERE kohafield IN ('items.cn_source', 'biblioitems.cn_source')
 796               AND (authorised_value is NULL OR authorised_value = '')");
 797     print "Upgrade to $DBversion done (MARC frameworks: make classification source a drop-down)\n";
 798     SetVersion ($DBversion);
 799 }
 800
 801 $DBversion = "3.00.00.036";
 802 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 803     $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');");
 804     print "Upgrade to $DBversion done (OPACItemsResultsDisplay systempreference added)\n";
 805     SetVersion ($DBversion);
 806 }
 807
 808 $DBversion = "3.00.00.037";
 809 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 810     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactfirstname` varchar(255)");
 811     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactsurname` varchar(255)");
 812     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress1` varchar(255)");
 813     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress2` varchar(255)");
 814     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress3` varchar(255)");
 815     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactzipcode` varchar(50)");
 816     $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactphone` varchar(50)");
 817     print "Upgrade to $DBversion done (Adding Alternative Contact Person information to borrowers table)\n";
 818     SetVersion ($DBversion);
 819 }
 820
 821 $DBversion = "3.00.00.038";
 822 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 823     $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'");
 824     $dbh->do("DELETE FROM `systempreferences` WHERE variable='hideBiblioNumber'");
 825     print "Upgrade to $DBversion done ('alter finesMode systempreference, remove superfluous syspref.')\n";
 826     SetVersion ($DBversion);
 827 }
 828
 829 $DBversion = "3.00.00.039";
 830 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 831     $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')");
 832     $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')");
 833     $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')");
 834     # $dbh->do("DELETE FROM `systempreferences` WHERE variable='HomeOrHoldingBranch'"); # Bug #2752
 835     print "Upgrade to $DBversion done ('add circ sysprefs CircControl, finesCalendar, and uppercasesurnames, and delete HomeOrHoldingBranch.')\n";
 836     SetVersion ($DBversion);
 837 }
 838
 839 $DBversion = "3.00.00.040";
 840 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 841         $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')");
 842         $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')");
 843         print "Upgrade to $DBversion done ('add circ sysprefs todaysIssuesDefaultSortOrder and previousIssuesDefaultSortOrder.')\n";
 844     SetVersion ($DBversion);
 845 }
 846
 847
 848 $DBversion = "3.00.00.041";
 849 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 850     # Strictly speaking it is not necessary to explicitly change
 851     # NULL values to 0, because the ALTER TABLE statement will do that.
 852     # However, setting them first avoids a warning.
 853     $dbh->do("UPDATE items SET notforloan = 0 WHERE notforloan IS NULL");
 854     $dbh->do("UPDATE items SET damaged = 0 WHERE damaged IS NULL");
 855     $dbh->do("UPDATE items SET itemlost = 0 WHERE itemlost IS NULL");
 856     $dbh->do("UPDATE items SET wthdrawn = 0 WHERE wthdrawn IS NULL");
 857     $dbh->do("ALTER TABLE items
 858                 MODIFY notforloan tinyint(1) NOT NULL default 0,
 859                 MODIFY damaged    tinyint(1) NOT NULL default 0,
 860                 MODIFY itemlost   tinyint(1) NOT NULL default 0,
 861                 MODIFY wthdrawn   tinyint(1) NOT NULL default 0");
 862     $dbh->do("UPDATE deleteditems SET notforloan = 0 WHERE notforloan IS NULL");
 863     $dbh->do("UPDATE deleteditems SET damaged = 0 WHERE damaged IS NULL");
 864     $dbh->do("UPDATE deleteditems SET itemlost = 0 WHERE itemlost IS NULL");
 865     $dbh->do("UPDATE deleteditems SET wthdrawn = 0 WHERE wthdrawn IS NULL");
 866     $dbh->do("ALTER TABLE deleteditems
 867                 MODIFY notforloan tinyint(1) NOT NULL default 0,
 868                 MODIFY damaged    tinyint(1) NOT NULL default 0,
 869                 MODIFY itemlost   tinyint(1) NOT NULL default 0,
 870                 MODIFY wthdrawn   tinyint(1) NOT NULL default 0");
 871         print "Upgrade to $DBversion done (disallow NULL in several item status columns)\n";
 872     SetVersion ($DBversion);
 873 }
 874
 875 $DBversion = "3.00.00.04";
 876 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 877     $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
 878         print "Upgrade to $DBversion done (disallow NULL in aqbooksellers.name; part of fix for bug 1251)\n";
 879     SetVersion ($DBversion);
 880 }
 881
 882 $DBversion = "3.00.00.043";
 883 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 884     $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");
 885         print "Upgrade to $DBversion done (currency table: add symbol and timestamp columns)\n";
 886     SetVersion ($DBversion);
 887 }
 888
 889 $DBversion = "3.00.00.044";
 890 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 891     $dbh->do("ALTER TABLE deletedborrowers
 892   ADD `altcontactfirstname` varchar(255) default NULL,
 893   ADD `altcontactsurname` varchar(255) default NULL,
 894   ADD `altcontactaddress1` varchar(255) default NULL,
 895   ADD `altcontactaddress2` varchar(255) default NULL,
 896   ADD `altcontactaddress3` varchar(255) default NULL,
 897   ADD `altcontactzipcode` varchar(50) default NULL,
 898   ADD `altcontactphone` varchar(50) default NULL
 899   ");
 900   $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES
 901 ('OPACBaseURL',NULL,'Specify the Base URL of the OPAC, e.g., opac.mylibrary.com, the http:// will be added automatically by Koha.',NULL,'Free'),
 902 ('language','en','Set the default language in the staff client.',NULL,'Languages'),
 903 ('QueryAutoTruncate',1,'If ON, query truncation is enabled by default',NULL,'YesNo'),
 904 ('QueryRemoveStopwords',0,'If ON, stopwords listed in the Administration area will be removed from queries',NULL,'YesNo')
 905   ");
 906         print "Upgrade to $DBversion done (syncing deletedborrowers table with borrowers table)\n";
 907     SetVersion ($DBversion);
 908 }
 909
 910 #-- http://www.w3.org/International/articles/language-tags/
 911
 912 #-- RFC4646
 913 $DBversion = "3.00.00.045";
 914 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 915     $dbh->do("
 916 CREATE TABLE language_subtag_registry (
 917         subtag varchar(25),
 918         type varchar(25), -- language-script-region-variant-extension-privateuse
 919         description varchar(25), -- only one of the possible descriptions for ease of reference, see language_descriptions for the complete list
 920         added date,
 921         KEY `subtag` (`subtag`)
 922 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 923
 924 #-- TODO: add suppress_scripts
 925 #-- this maps three letter codes defined in iso639.2 back to their
 926 #-- two letter equivilents in rfc4646 (LOC maintains iso639+)
 927  $dbh->do("CREATE TABLE language_rfc4646_to_iso639 (
 928         rfc4646_subtag varchar(25),
 929         iso639_2_code varchar(25),
 930         KEY `rfc4646_subtag` (`rfc4646_subtag`)
 931 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 932
 933  $dbh->do("CREATE TABLE language_descriptions (
 934         subtag varchar(25),
 935         type varchar(25),
 936         lang varchar(25),
 937         description varchar(255),
 938         KEY `lang` (`lang`)
 939 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 940
 941 #-- bi-directional support, keyed by script subcode
 942  $dbh->do("CREATE TABLE language_script_bidi (
 943         rfc4646_subtag varchar(25), -- script subtag, Arab, Hebr, etc.
 944         bidi varchar(3), -- rtl ltr
 945         KEY `rfc4646_subtag` (`rfc4646_subtag`)
 946 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 947
 948 #-- BIDI Stuff, Arabic and Hebrew
 949  $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
 950 VALUES( 'Arab', 'rtl')");
 951  $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
 952 VALUES( 'Hebr', 'rtl')");
 953
 954 #-- TODO: need to map language subtags to script subtags for detection
 955 #-- of bidi when script is not specified (like ar, he)
 956  $dbh->do("CREATE TABLE language_script_mapping (
 957         language_subtag varchar(25),
 958         script_subtag varchar(25),
 959         KEY `language_subtag` (`language_subtag`)
 960 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 961
 962 #-- Default mappings between script and language subcodes
 963  $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
 964 VALUES( 'ar', 'Arab')");
 965  $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
 966 VALUES( 'he', 'Hebr')");
 967
 968         print "Upgrade to $DBversion done (adding language subtag registry and basic BiDi support NOTE: You should import the subtag registry SQL)\n";
 969     SetVersion ($DBversion);
 970 }
 971
 972 $DBversion = "3.00.00.046";
 973 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 974     $dbh->do("ALTER TABLE `subscription` CHANGE `numberlength` `numberlength` int(11) default '0' ,
 975                  CHANGE `weeklength` `weeklength` int(11) default '0'");
 976     $dbh->do("CREATE TABLE `serialitems` (`serialid` int(11) NOT NULL, `itemnumber` int(11) NOT NULL, UNIQUE KEY `serialididx` (`serialid`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
 977     $dbh->do("INSERT INTO `serialitems` SELECT `serialid`,`itemnumber` from serial where NOT ISNULL(itemnumber) && itemnumber <> '' && itemnumber NOT LIKE '%,%'");
 978         print "Upgrade to $DBversion done (Add serialitems table to link serial issues to items. )\n";
 979     SetVersion ($DBversion);
 980 }
 981
 982 $DBversion = "3.00.00.047";
 983 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 984     $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');");
 985         print "Upgrade to $DBversion done ( Added OpacRenewalAllowed syspref )\n";
 986     SetVersion ($DBversion);
 987 }
 988
 989 $DBversion = "3.00.00.048";
 990 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 991     $dbh->do("ALTER TABLE `items` ADD `more_subfields_xml` longtext default NULL AFTER `itype`");
 992         print "Upgrade to $DBversion done (added items.more_subfields_xml)\n";
 993     SetVersion ($DBversion);
 994 }
 995
 996 $DBversion = "3.00.00.049";
 997 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
 998         $dbh->do("ALTER TABLE `z3950servers` ADD `encoding` text default NULL AFTER type ");
 999         print "Upgrade to $DBversion done ( Added encoding field to z3950servers table )\n";
1000     SetVersion ($DBversion);
1001 }
1002
1003 $DBversion = "3.00.00.050";
1004 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1005     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacHighlightedWords','0','If Set, query matched terms are highlighted in OPAC',NULL,'YesNo');");
1006         print "Upgrade to $DBversion done ( Added OpacHighlightedWords syspref )\n";
1007     SetVersion ($DBversion);
1008 }
1009
1010 $DBversion = "3.00.00.051";
1011 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1012     $dbh->do("UPDATE systempreferences SET explanation = 'Define the current theme for the OPAC interface.' WHERE variable = 'opacthemes';");
1013         print "Upgrade to $DBversion done ( Corrected opacthemes explanation. )\n";
1014     SetVersion ($DBversion);
1015 }
1016
1017 $DBversion = "3.00.00.052";
1018 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1019     $dbh->do("ALTER TABLE `deleteditems` ADD `more_subfields_xml` LONGTEXT DEFAULT NULL AFTER `itype`");
1020         print "Upgrade to $DBversion done ( Adding missing column to deleteditems table. )\n";
1021     SetVersion ($DBversion);
1022 }
1023
1024 $DBversion = "3.00.00.053";
1025 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1026     $dbh->do("CREATE TABLE `printers_profile` (
1027             `prof_id` int(4) NOT NULL auto_increment,
1028             `printername` varchar(40) NOT NULL,
1029             `tmpl_id` int(4) NOT NULL,
1030             `paper_bin` varchar(20) NOT NULL,
1031             `offset_horz` float default NULL,
1032             `offset_vert` float default NULL,
1033             `creep_horz` float default NULL,
1034             `creep_vert` float default NULL,
1035             `unit` char(20) NOT NULL default 'POINT',
1036             PRIMARY KEY  (`prof_id`),
1037             UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1038             CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1039             ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1040     $dbh->do("CREATE TABLE `labels_profile` (
1041             `tmpl_id` int(4) NOT NULL,
1042             `prof_id` int(4) NOT NULL,
1043             UNIQUE KEY `tmpl_id` (`tmpl_id`),
1044             UNIQUE KEY `prof_id` (`prof_id`)
1045             ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1046     print "Upgrade to $DBversion done ( Printer Profile tables added )\n";
1047     SetVersion ($DBversion);
1048 }
1049
1050 $DBversion = "3.00.00.054";
1051 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1052     $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';");
1053         print "Upgrade to $DBversion done ( Added another barcode autogeneration sequence to barcode.pl. )\n";
1054     SetVersion ($DBversion);
1055 }
1056
1057 $DBversion = "3.00.00.055";
1058 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1059     $dbh->do("ALTER TABLE `zebraqueue` ADD KEY `zebraqueue_lookup` (`server`, `biblio_auth_number`, `operation`, `done`)");
1060         print "Upgrade to $DBversion done ( Added index on zebraqueue. )\n";
1061     SetVersion ($DBversion);
1062 }
1063 $DBversion = "3.00.00.056";
1064 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1065     if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
1066         $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) ");
1067     } else {
1068         $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) ");
1069     }
1070     $dbh->do("ALTER TABLE `items` ADD `enumchron` VARCHAR(80) DEFAULT NULL;");
1071     print "Upgrade to $DBversion done ( Added item.enumchron column, and framework map to 952h )\n";
1072     SetVersion ($DBversion);
1073 }
1074
1075 $DBversion = "3.00.00.057";
1076 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1077     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH','0','if ON, OAI-PMH server is enabled',NULL,'YesNo');");
1078     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:archiveID','KOHA-OAI-TEST','OAI-PMH archive identification',NULL,'Free');");
1079     $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');");
1080     $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');");
1081     $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');");
1082     SetVersion ($DBversion);
1083 }
1084
1085 $DBversion = "3.00.00.058";
1086 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1087     $dbh->do("ALTER TABLE `opac_news`
1088                 CHANGE `lang` `lang` VARCHAR( 25 )
1089                 CHARACTER SET utf8
1090                 COLLATE utf8_general_ci
1091                 NOT NULL default ''");
1092         print "Upgrade to $DBversion done ( lang field in opac_news made longer )\n";
1093     SetVersion ($DBversion);
1094 }
1095
1096 $DBversion = "3.00.00.059";
1097 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1098
1099     $dbh->do("CREATE TABLE IF NOT EXISTS `labels_templates` (
1100             `tmpl_id` int(4) NOT NULL auto_increment,
1101             `tmpl_code` char(100)  default '',
1102             `tmpl_desc` char(100) default '',
1103             `page_width` float default '0',
1104             `page_height` float default '0',
1105             `label_width` float default '0',
1106             `label_height` float default '0',
1107             `topmargin` float default '0',
1108             `leftmargin` float default '0',
1109             `cols` int(2) default '0',
1110             `rows` int(2) default '0',
1111             `colgap` float default '0',
1112             `rowgap` float default '0',
1113             `active` int(1) default NULL,
1114             `units` char(20)  default 'PX',
1115             `fontsize` int(4) NOT NULL default '3',
1116             PRIMARY KEY  (`tmpl_id`)
1117             ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1118     $dbh->do("CREATE TABLE  IF NOT EXISTS `printers_profile` (
1119             `prof_id` int(4) NOT NULL auto_increment,
1120             `printername` varchar(40) NOT NULL,
1121             `tmpl_id` int(4) NOT NULL,
1122             `paper_bin` varchar(20) NOT NULL,
1123             `offset_horz` float default NULL,
1124             `offset_vert` float default NULL,
1125             `creep_horz` float default NULL,
1126             `creep_vert` float default NULL,
1127             `unit` char(20) NOT NULL default 'POINT',
1128             PRIMARY KEY  (`prof_id`),
1129             UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1130             CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1131             ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1132     print "Upgrade to $DBversion done ( Added labels_templates table if it did not exist. )\n";
1133     SetVersion ($DBversion);
1134 }
1135
1136 $DBversion = "3.00.00.060";
1137 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1138     $dbh->do("CREATE TABLE IF NOT EXISTS `patronimage` (
1139             `cardnumber` varchar(16) NOT NULL,
1140             `mimetype` varchar(15) NOT NULL,
1141             `imagefile` mediumblob NOT NULL,
1142             PRIMARY KEY  (`cardnumber`),
1143             CONSTRAINT `patronimage_fk1` FOREIGN KEY (`cardnumber`) REFERENCES `borrowers` (`cardnumber`) ON DELETE CASCADE ON UPDATE CASCADE
1144             ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1145         print "Upgrade to $DBversion done ( Added patronimage table. )\n";
1146     SetVersion ($DBversion);
1147 }
1148
1149 $DBversion = "3.00.00.061";
1150 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1151     $dbh->do("ALTER TABLE labels_templates ADD COLUMN font char(10) NOT NULL DEFAULT 'TR';");
1152         print "Upgrade to $DBversion done ( Added font column to labels_templates )\n";
1153     SetVersion ($DBversion);
1154 }
1155
1156 $DBversion = "3.00.00.062";
1157 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1158     $dbh->do("CREATE TABLE `old_issues` (
1159                 `borrowernumber` int(11) default NULL,
1160                 `itemnumber` int(11) default NULL,
1161                 `date_due` date default NULL,
1162                 `branchcode` varchar(10) default NULL,
1163                 `issuingbranch` varchar(18) default NULL,
1164                 `returndate` date default NULL,
1165                 `lastreneweddate` date default NULL,
1166                 `return` varchar(4) default NULL,
1167                 `renewals` tinyint(4) default NULL,
1168                 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1169                 `issuedate` date default NULL,
1170                 KEY `old_issuesborridx` (`borrowernumber`),
1171                 KEY `old_issuesitemidx` (`itemnumber`),
1172                 KEY `old_bordate` (`borrowernumber`,`timestamp`),
1173                 CONSTRAINT `old_issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1174                     ON DELETE SET NULL ON UPDATE SET NULL,
1175                 CONSTRAINT `old_issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1176                     ON DELETE SET NULL ON UPDATE SET NULL
1177                 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1178     $dbh->do("CREATE TABLE `old_reserves` (
1179                 `borrowernumber` int(11) default NULL,
1180                 `reservedate` date default NULL,
1181                 `biblionumber` int(11) default NULL,
1182                 `constrainttype` varchar(1) default NULL,
1183                 `branchcode` varchar(10) default NULL,
1184                 `notificationdate` date default NULL,
1185                 `reminderdate` date default NULL,
1186                 `cancellationdate` date default NULL,
1187                 `reservenotes` mediumtext,
1188                 `priority` smallint(6) default NULL,
1189                 `found` varchar(1) default NULL,
1190                 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1191                 `itemnumber` int(11) default NULL,
1192                 `waitingdate` date default NULL,
1193                 KEY `old_reserves_borrowernumber` (`borrowernumber`),
1194                 KEY `old_reserves_biblionumber` (`biblionumber`),
1195                 KEY `old_reserves_itemnumber` (`itemnumber`),
1196                 KEY `old_reserves_branchcode` (`branchcode`),
1197                 CONSTRAINT `old_reserves_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1198                     ON DELETE SET NULL ON UPDATE SET NULL,
1199                 CONSTRAINT `old_reserves_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`)
1200                     ON DELETE SET NULL ON UPDATE SET NULL,
1201                 CONSTRAINT `old_reserves_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1202                     ON DELETE SET NULL ON UPDATE SET NULL
1203                 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1204
1205     # move closed transactions to old_* tables
1206     $dbh->do("INSERT INTO old_issues SELECT * FROM issues WHERE returndate IS NOT NULL");
1207     $dbh->do("DELETE FROM issues WHERE returndate IS NOT NULL");
1208     $dbh->do("INSERT INTO old_reserves SELECT * FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1209     $dbh->do("DELETE FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1210
1211         print "Upgrade to $DBversion done ( Added old_issues and old_reserves tables )\n";
1212     SetVersion ($DBversion);
1213 }
1214
1215 $DBversion = "3.00.00.063";
1216 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1217     $dbh->do("ALTER TABLE deleteditems
1218                 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT DEFAULT NULL,
1219                 ADD COLUMN enumchron VARCHAR(80) DEFAULT NULL AFTER more_subfields_xml,
1220                 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1221     $dbh->do("ALTER TABLE items
1222                 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT,
1223                 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1224         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";
1225     SetVersion ($DBversion);
1226 }
1227
1228 $DBversion = "3.00.00.064";
1229 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1230     $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');");
1231     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSAccessKeyID','','See:  http://aws.amazon.com','','free');");
1232     $dbh->do("DELETE FROM `systempreferences` WHERE variable='AmazonDevKey';");
1233     $dbh->do("DELETE FROM `systempreferences` WHERE variable='XISBNAmazonSimilarItems';");
1234     $dbh->do("DELETE FROM `systempreferences` WHERE variable='OPACXISBNAmazonSimilarItems';");
1235     print "Upgrade to $DBversion done (IMPORTANT: Upgrading to Amazon.com Associates Web Service 4.0 ) \n";
1236     SetVersion ($DBversion);
1237 }
1238
1239 $DBversion = "3.00.00.065";
1240 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1241     $dbh->do("CREATE TABLE `patroncards` (
1242                 `cardid` int(11) NOT NULL auto_increment,
1243                 `batch_id` varchar(10) NOT NULL default '1',
1244                 `borrowernumber` int(11) NOT NULL,
1245                 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1246                 PRIMARY KEY  (`cardid`),
1247                 KEY `patroncards_ibfk_1` (`borrowernumber`),
1248                 CONSTRAINT `patroncards_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1249                 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1250     print "Upgrade to $DBversion done (Adding patroncards table for patroncards generation feature. ) \n";
1251     SetVersion ($DBversion);
1252 }
1253
1254 $DBversion = "3.00.00.066";
1255 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1256     $dbh->do("ALTER TABLE `virtualshelfcontents` MODIFY `dateadded` timestamp NOT NULL
1257 DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP;
1258 ");
1259     print "Upgrade to $DBversion done (fix for bug 1873: virtualshelfcontents dateadded column empty. ) \n";
1260     SetVersion ($DBversion);
1261 }
1262
1263 $DBversion = "3.00.00.067";
1264 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1265     $dbh->do("UPDATE systempreferences SET explanation = 'Enable patron images for the Staff Client', type = 'YesNo' WHERE variable = 'patronimages'");
1266     print "Upgrade to $DBversion done (Updating patronimages syspref to reflect current kohastructure.sql. ) \n";
1267     SetVersion ($DBversion);
1268 }
1269
1270 $DBversion = "3.00.00.068";
1271 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1272     $dbh->do("CREATE TABLE `permissions` (
1273                 `module_bit` int(11) NOT NULL DEFAULT 0,
1274                 `code` varchar(30) DEFAULT NULL,
1275                 `description` varchar(255) DEFAULT NULL,
1276                 PRIMARY KEY  (`module_bit`, `code`),
1277                 CONSTRAINT `permissions_ibfk_1` FOREIGN KEY (`module_bit`) REFERENCES `userflags` (`bit`)
1278                     ON DELETE CASCADE ON UPDATE CASCADE
1279               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1280     $dbh->do("CREATE TABLE `user_permissions` (
1281                 `borrowernumber` int(11) NOT NULL DEFAULT 0,
1282                 `module_bit` int(11) NOT NULL DEFAULT 0,
1283                 `code` varchar(30) DEFAULT NULL,
1284                 CONSTRAINT `user_permissions_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1285                     ON DELETE CASCADE ON UPDATE CASCADE,
1286                 CONSTRAINT `user_permissions_ibfk_2` FOREIGN KEY (`module_bit`, `code`)
1287                     REFERENCES `permissions` (`module_bit`, `code`)
1288                     ON DELETE CASCADE ON UPDATE CASCADE
1289               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1290
1291     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
1292     (13, 'edit_news', 'Write news for the OPAC and staff interfaces'),
1293     (13, 'label_creator', 'Create printable labels and barcodes from catalog and patron data'),
1294     (13, 'edit_calendar', 'Define days when the library is closed'),
1295     (13, 'moderate_comments', 'Moderate patron comments'),
1296     (13, 'edit_notices', 'Define notices'),
1297     (13, 'edit_notice_status_triggers', 'Set notice/status triggers for overdue items'),
1298     (13, 'view_system_logs', 'Browse the system logs'),
1299     (13, 'inventory', 'Perform inventory (stocktaking) of your catalogue'),
1300     (13, 'stage_marc_import', 'Stage MARC records into the reservoir'),
1301     (13, 'manage_staged_marc', 'Managed staged MARC records, including completing and reversing imports'),
1302     (13, 'export_catalog', 'Export bibliographic and holdings data'),
1303     (13, 'import_patrons', 'Import patron data'),
1304     (13, 'delete_anonymize_patrons', 'Delete old borrowers and anonymize circulation history (deletes borrower reading history)'),
1305     (13, 'batch_upload_patron_images', 'Upload patron images in batch or one at a time'),
1306     (13, 'schedule_tasks', 'Schedule tasks to run')");
1307
1308     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('GranularPermissions','0','Use detailed staff user permissions',NULL,'YesNo')");
1309
1310     print "Upgrade to $DBversion done (adding permissions and user_permissions tables and GranularPermissions syspref) \n";
1311     SetVersion ($DBversion);
1312 }
1313 $DBversion = "3.00.00.069";
1314 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1315     $dbh->do("ALTER TABLE labels_conf CHANGE COLUMN class classification int(1) DEFAULT NULL;");
1316         print "Upgrade to $DBversion done ( Correcting columname in labels_conf )\n";
1317     SetVersion ($DBversion);
1318 }
1319
1320 $DBversion = "3.00.00.070";
1321 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1322     $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='yuipath'");
1323     $sth->execute;
1324     my ($value) = $sth->fetchrow;
1325     $value =~ s/2.3.1/2.5.1/;
1326     $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='yuipath';");
1327         print "Update yuipath syspref to 2.5.1 if necessary\n";
1328     SetVersion ($DBversion);
1329 }
1330
1331 $DBversion = "3.00.00.071";
1332 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1333     $dbh->do(" ALTER TABLE `subscription` ADD `serialsadditems` TINYINT( 1 ) NOT NULL DEFAULT '0';");
1334     # fill the new field with the previous systempreference value, then drop the syspref
1335     my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='serialsadditems'");
1336     $sth->execute;
1337     my ($serialsadditems) = $sth->fetchrow();
1338     $dbh->do("UPDATE subscription SET serialsadditems=$serialsadditems");
1339     $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1340     print "Upgrade to $DBversion done ( moving serialsadditems from syspref to subscription )\n";
1341     SetVersion ($DBversion);
1342 }
1343
1344 $DBversion = "3.00.00.072";
1345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1346     $dbh->do("ALTER TABLE labels_conf ADD COLUMN formatstring mediumtext DEFAULT NULL AFTER printingtype");
1347         print "Upgrade to $DBversion done ( Adding format string to labels generator. )\n";
1348     SetVersion ($DBversion);
1349 }
1350
1351 $DBversion = "3.00.00.073";
1352 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1353         $dbh->do("DROP TABLE IF EXISTS `tags_all`;");
1354         $dbh->do(q#
1355         CREATE TABLE `tags_all` (
1356           `tag_id`         int(11) NOT NULL auto_increment,
1357           `borrowernumber` int(11) NOT NULL,
1358           `biblionumber`   int(11) NOT NULL,
1359           `term`      varchar(255) NOT NULL,
1360           `language`       int(4) default NULL,
1361           `date_created` datetime  NOT NULL,
1362           PRIMARY KEY  (`tag_id`),
1363           KEY `tags_borrowers_fk_1` (`borrowernumber`),
1364           KEY `tags_biblionumber_fk_1` (`biblionumber`),
1365           CONSTRAINT `tags_borrowers_fk_1` FOREIGN KEY (`borrowernumber`)
1366                 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1367           CONSTRAINT `tags_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1368                 REFERENCES `biblio`     (`biblionumber`)  ON DELETE CASCADE ON UPDATE CASCADE
1369         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1370         #);
1371         $dbh->do("DROP TABLE IF EXISTS `tags_approval`;");
1372         $dbh->do(q#
1373         CREATE TABLE `tags_approval` (
1374           `term`   varchar(255) NOT NULL,
1375           `approved`     int(1) NOT NULL default '0',
1376           `date_approved` datetime       default NULL,
1377           `approved_by` int(11)          default NULL,
1378           `weight_total` int(9) NOT NULL default '1',
1379           PRIMARY KEY  (`term`),
1380           KEY `tags_approval_borrowers_fk_1` (`approved_by`),
1381           CONSTRAINT `tags_approval_borrowers_fk_1` FOREIGN KEY (`approved_by`)
1382                 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1383         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1384         #);
1385         $dbh->do("DROP TABLE IF EXISTS `tags_index`;");
1386         $dbh->do(q#
1387         CREATE TABLE `tags_index` (
1388           `term`    varchar(255) NOT NULL,
1389           `biblionumber` int(11) NOT NULL,
1390           `weight`        int(9) NOT NULL default '1',
1391           PRIMARY KEY  (`term`,`biblionumber`),
1392           KEY `tags_index_biblionumber_fk_1` (`biblionumber`),
1393           CONSTRAINT `tags_index_term_fk_1` FOREIGN KEY (`term`)
1394                 REFERENCES `tags_approval` (`term`)  ON DELETE CASCADE ON UPDATE CASCADE,
1395           CONSTRAINT `tags_index_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1396                 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1397         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1398         #);
1399         $dbh->do(q#
1400         INSERT INTO `systempreferences` VALUES
1401                 ('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=',''),
1402                 ('BakerTaylorEnabled','0','','Enable or disable all Baker & Taylor features.','YesNo'),
1403                 ('BakerTaylorPassword','','','Baker & Taylor Password for Content Cafe (external content)','Textarea'),
1404                 ('BakerTaylorUsername','','','Baker & Taylor Username for Content Cafe (external content)','Textarea'),
1405                 ('TagsEnabled','1','','Enables or disables all tagging features.  This is the main switch for tags.','YesNo'),
1406                 ('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.',''),
1407                 ('TagsInputOnDetail','1','','Allow users to input tags from the detail page.',         'YesNo'),
1408                 ('TagsInputOnList',  '0','','Allow users to input tags from the search results list.', 'YesNo'),
1409                 ('TagsModeration',  NULL,'','Require tags from patrons to be approved before becoming visible.','YesNo'),
1410                 ('TagsShowOnDetail','10','','Number of tags to display on detail page.  0 is off.',        'Integer'),
1411                 ('TagsShowOnList',   '6','','Number of tags to display on search results list.  0 is off.','Integer')
1412         #);
1413         print "Upgrade to $DBversion done (Baker/Taylor,Tags: sysprefs and tables (tags_all, tags_index, tags_approval)) \n";
1414         SetVersion ($DBversion);
1415 }
1416
1417 $DBversion = "3.00.00.074";
1418 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1419     $dbh->do( q(update itemtypes set imageurl = concat( 'npl/', imageurl )
1420                   where imageurl not like 'http%'
1421                     and imageurl is not NULL
1422                     and imageurl != '') );
1423     print "Upgrade to $DBversion done (updating imagetype.imageurls to reflect new icon locations.)\n";
1424     SetVersion ($DBversion);
1425 }
1426
1427 $DBversion = "3.00.00.075";
1428 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1429     $dbh->do( q(alter table authorised_values add imageurl varchar(200) default NULL) );
1430     print "Upgrade to $DBversion done (adding imageurl field to authorised_values table)\n";
1431     SetVersion ($DBversion);
1432 }
1433
1434 $DBversion = "3.00.00.076";
1435 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1436     $dbh->do("ALTER TABLE import_batches
1437               ADD COLUMN nomatch_action enum('create_new', 'ignore') NOT NULL default 'create_new' AFTER overlay_action");
1438     $dbh->do("ALTER TABLE import_batches
1439               ADD COLUMN item_action enum('always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore')
1440                   NOT NULL default 'always_add' AFTER nomatch_action");
1441     $dbh->do("ALTER TABLE import_batches
1442               MODIFY overlay_action  enum('replace', 'create_new', 'use_template', 'ignore')
1443                   NOT NULL default 'create_new'");
1444     $dbh->do("ALTER TABLE import_records
1445               MODIFY status  enum('error', 'staged', 'imported', 'reverted', 'items_reverted',
1446                                   'ignored') NOT NULL default 'staged'");
1447     $dbh->do("ALTER TABLE import_items
1448               MODIFY status enum('error', 'staged', 'imported', 'reverted', 'ignored') NOT NULL default 'staged'");
1449
1450         print "Upgrade to $DBversion done (changes to import_batches and import_records)\n";
1451         SetVersion ($DBversion);
1452 }
1453
1454 $DBversion = "3.00.00.077";
1455 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1456     # drop these tables only if they exist and none of them are empty
1457     # these tables are not defined in the packaged 2.2.9, but since it is believed
1458     # that at least one library may be using them in a post-2.2.9 but pre-3.0 Koha,
1459     # some care is taken.
1460     my ($print_error) = $dbh->{PrintError};
1461     $dbh->{PrintError} = 0;
1462     my ($raise_error) = $dbh->{RaiseError};
1463     $dbh->{RaiseError} = 1;
1464
1465     my $count = 0;
1466     my $do_drop = 1;
1467     eval { $count = $dbh->do("SELECT 1 FROM categorytable"); };
1468     if ($count > 0) {
1469         $do_drop = 0;
1470     }
1471     eval { $count = $dbh->do("SELECT 1 FROM mediatypetable"); };
1472     if ($count > 0) {
1473         $do_drop = 0;
1474     }
1475     eval { $count = $dbh->do("SELECT 1 FROM subcategorytable"); };
1476     if ($count > 0) {
1477         $do_drop = 0;
1478     }
1479
1480     if ($do_drop) {
1481         $dbh->do("DROP TABLE IF EXISTS `categorytable`");
1482         $dbh->do("DROP TABLE IF EXISTS `mediatypetable`");
1483         $dbh->do("DROP TABLE IF EXISTS `subcategorytable`");
1484     }
1485
1486     $dbh->{PrintError} = $print_error;
1487     $dbh->{RaiseError} = $raise_error;
1488         print "Upgrade to $DBversion done (drop categorytable, subcategorytable, and mediatypetable)\n";
1489         SetVersion ($DBversion);
1490 }
1491
1492 $DBversion = "3.00.00.078";
1493 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1494     my ($print_error) = $dbh->{PrintError};
1495     $dbh->{PrintError} = 0;
1496
1497     unless ($dbh->do("SELECT 1 FROM browser")) {
1498         $dbh->{PrintError} = $print_error;
1499         $dbh->do("CREATE TABLE `browser` (
1500                     `level` int(11) NOT NULL,
1501                     `classification` varchar(20) NOT NULL,
1502                     `description` varchar(255) NOT NULL,
1503                     `number` bigint(20) NOT NULL,
1504                     `endnode` tinyint(4) NOT NULL
1505                   ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1506     }
1507     $dbh->{PrintError} = $print_error;
1508         print "Upgrade to $DBversion done (add browser table if not already present)\n";
1509         SetVersion ($DBversion);
1510 }
1511
1512 $DBversion = "3.00.00.079";
1513 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1514  my ($print_error) = $dbh->{PrintError};
1515     $dbh->{PrintError} = 0;
1516
1517     $dbh->do("INSERT INTO `systempreferences` (variable, value,options,type, explanation)VALUES
1518         ('AddPatronLists','categorycode','categorycode|category_type','Choice','Allow user to choose what list to pick up from when adding patrons')");
1519     print "Upgrade to $DBversion done (add browser table if not already present)\n";
1520         SetVersion ($DBversion);
1521 }
1522
1523 $DBversion = "3.00.00.080";
1524 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1525     $dbh->do("ALTER TABLE subscription CHANGE monthlength monthlength int(11) default '0'");
1526     $dbh->do("ALTER TABLE deleteditems MODIFY marc LONGBLOB AFTER copynumber");
1527     $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
1528         print "Upgrade to $DBversion done (catch up on DB schema changes since alpha and beta)\n";
1529         SetVersion ($DBversion);
1530 }
1531
1532 $DBversion = "3.00.00.081";
1533 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1534     $dbh->do("CREATE TABLE `borrower_attribute_types` (
1535                 `code` varchar(10) NOT NULL,
1536                 `description` varchar(255) NOT NULL,
1537                 `repeatable` tinyint(1) NOT NULL default 0,
1538                 `unique_id` tinyint(1) NOT NULL default 0,
1539                 `opac_display` tinyint(1) NOT NULL default 0,
1540                 `password_allowed` tinyint(1) NOT NULL default 0,
1541                 `staff_searchable` tinyint(1) NOT NULL default 0,
1542                 `authorised_value_category` varchar(10) default NULL,
1543                 PRIMARY KEY  (`code`)
1544               ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1545     $dbh->do("CREATE TABLE `borrower_attributes` (
1546                 `borrowernumber` int(11) NOT NULL,
1547                 `code` varchar(10) NOT NULL,
1548                 `attribute` varchar(30) default NULL,
1549                 `password` varchar(30) default NULL,
1550                 KEY `borrowernumber` (`borrowernumber`),
1551                 KEY `code_attribute` (`code`, `attribute`),
1552                 CONSTRAINT `borrower_attributes_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1553                     ON DELETE CASCADE ON UPDATE CASCADE,
1554                 CONSTRAINT `borrower_attributes_ibfk_2` FOREIGN KEY (`code`) REFERENCES `borrower_attribute_types` (`code`)
1555                     ON DELETE CASCADE ON UPDATE CASCADE
1556             ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1557     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ExtendedPatronAttributes','0','Use extended patron IDs and attributes',NULL,'YesNo')");
1558     print "Upgrade to $DBversion done (added borrower_attributes and  borrower_attribute_types)\n";
1559  SetVersion ($DBversion);
1560 }
1561
1562 $DBversion = "3.00.00.082";
1563 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1564     $dbh->do( q(alter table accountlines add column lastincrement decimal(28,6) default NULL) );
1565     print "Upgrade to $DBversion done (adding lastincrement column to accountlines table)\n";
1566     SetVersion ($DBversion);
1567 }
1568
1569 $DBversion = "3.00.00.083";
1570 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1571     $dbh->do( qq(UPDATE systempreferences SET value='local' where variable='yuipath' and value like "%/intranet-tmpl/prog/%"));
1572     print "Upgrade to $DBversion done (Changing yuipath behaviour in managing a local value)\n";
1573     SetVersion ($DBversion);
1574 }
1575 $DBversion = "3.00.00.084";
1576     if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1577     $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')");
1578     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('GoogleJackets','0','if ON, displays jacket covers from Google Books API',NULL,'YesNo')");
1579     print "Upgrade to $DBversion done (add new sysprefs)\n";
1580     SetVersion ($DBversion);
1581 }
1582
1583 $DBversion = "3.00.00.085";
1584 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1585     if (C4::Context->preference("marcflavour") eq 'MARC21') {
1586         $dbh->do("UPDATE marc_subfield_structure SET tab = 0 WHERE tab =  9 AND tagfield = '037'");
1587         $dbh->do("UPDATE marc_subfield_structure SET tab = 1 WHERE tab =  6 AND tagfield in ('100', '110', '111', '130')");
1588         $dbh->do("UPDATE marc_subfield_structure SET tab = 2 WHERE tab =  6 AND tagfield in ('240', '243')");
1589         $dbh->do("UPDATE marc_subfield_structure SET tab = 4 WHERE tab =  6 AND tagfield in ('400', '410', '411', '440')");
1590         $dbh->do("UPDATE marc_subfield_structure SET tab = 5 WHERE tab =  9 AND tagfield = '584'");
1591         $dbh->do("UPDATE marc_subfield_structure SET tab = 7 WHERE tab = -6 AND tagfield = '760'");
1592     }
1593     print "Upgrade to $DBversion done (move editing tab of various MARC21 subfields)\n";
1594     SetVersion ($DBversion);
1595 }
1596
1597 $DBversion = "3.00.00.086";
1598 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1599         $dbh->do(
1600         "CREATE TABLE `tmp_holdsqueue` (
1601         `biblionumber` int(11) default NULL,
1602         `itemnumber` int(11) default NULL,
1603         `barcode` varchar(20) default NULL,
1604         `surname` mediumtext NOT NULL,
1605         `firstname` text,
1606         `phone` text,
1607         `borrowernumber` int(11) NOT NULL,
1608         `cardnumber` varchar(16) default NULL,
1609         `reservedate` date default NULL,
1610         `title` mediumtext,
1611         `itemcallnumber` varchar(30) default NULL,
1612         `holdingbranch` varchar(10) default NULL,
1613         `pickbranch` varchar(10) default NULL,
1614         `notes` text
1615         ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1616
1617         $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')");
1618         $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')");
1619
1620         print "Upgrade to $DBversion done (Table structure for table `tmp_holdsqueue`)\n";
1621         SetVersion ($DBversion);
1622 }
1623
1624 $DBversion = "3.00.00.087";
1625 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1626     $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailOpacUser','0','','Sends notification emails containing new account details to patrons - when account is created.','YesNo')" );
1627     $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')");
1628     print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1629     SetVersion ($DBversion);
1630 }
1631
1632 $DBversion = "3.00.00.088";
1633 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1634         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACShelfBrowser','1','','Enable/disable Shelf Browser on item details page','YesNo')");
1635         $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')");
1636         $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')");
1637         $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')");
1638         print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1639     SetVersion ($DBversion);
1640 }
1641
1642 $DBversion = "3.00.00.089";
1643 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1644         $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')");
1645         print "Upgrade to $DBversion done (added new AdvancedSearchTypes syspref)\n";
1646     SetVersion ($DBversion);
1647 }
1648
1649 $DBversion = "3.00.00.090";
1650 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1651     $dbh->do("
1652         CREATE TABLE `branch_borrower_circ_rules` (
1653           `branchcode` VARCHAR(10) NOT NULL,
1654           `categorycode` VARCHAR(10) NOT NULL,
1655           `maxissueqty` int(4) default NULL,
1656           PRIMARY KEY (`categorycode`, `branchcode`),
1657           CONSTRAINT `branch_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1658             ON DELETE CASCADE ON UPDATE CASCADE,
1659           CONSTRAINT `branch_borrower_circ_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1660             ON DELETE CASCADE ON UPDATE CASCADE
1661         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1662     ");
1663     $dbh->do("
1664         CREATE TABLE `default_borrower_circ_rules` (
1665           `categorycode` VARCHAR(10) NOT NULL,
1666           `maxissueqty` int(4) default NULL,
1667           PRIMARY KEY (`categorycode`),
1668           CONSTRAINT `borrower_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1669             ON DELETE CASCADE ON UPDATE CASCADE
1670         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1671     ");
1672     $dbh->do("
1673         CREATE TABLE `default_branch_circ_rules` (
1674           `branchcode` VARCHAR(10) NOT NULL,
1675           `maxissueqty` int(4) default NULL,
1676           PRIMARY KEY (`branchcode`),
1677           CONSTRAINT `default_branch_circ_rules_ibfk_1` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1678             ON DELETE CASCADE ON UPDATE CASCADE
1679         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1680     ");
1681     $dbh->do("
1682         CREATE TABLE `default_circ_rules` (
1683             `singleton` enum('singleton') NOT NULL default 'singleton',
1684             `maxissueqty` int(4) default NULL,
1685             PRIMARY KEY (`singleton`)
1686         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1687     ");
1688     print "Upgrade to $DBversion done (added several circ rules tables)\n";
1689     SetVersion ($DBversion);
1690 }
1691
1692
1693 $DBversion = "3.00.00.091";
1694 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1695     $dbh->do(<<'END_SQL');
1696 ALTER TABLE borrowers
1697 ADD `smsalertnumber` varchar(50) default NULL
1698 END_SQL
1699
1700     $dbh->do(<<'END_SQL');
1701 CREATE TABLE `message_attributes` (
1702   `message_attribute_id` int(11) NOT NULL auto_increment,
1703   `message_name` varchar(20) NOT NULL default '',
1704   `takes_days` tinyint(1) NOT NULL default '0',
1705   PRIMARY KEY  (`message_attribute_id`),
1706   UNIQUE KEY `message_name` (`message_name`)
1707 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1708 END_SQL
1709
1710     $dbh->do(<<'END_SQL');
1711 CREATE TABLE `message_transport_types` (
1712   `message_transport_type` varchar(20) NOT NULL,
1713   PRIMARY KEY  (`message_transport_type`)
1714 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1715 END_SQL
1716
1717     $dbh->do(<<'END_SQL');
1718 CREATE TABLE `message_transports` (
1719   `message_attribute_id` int(11) NOT NULL,
1720   `message_transport_type` varchar(20) NOT NULL,
1721   `is_digest` tinyint(1) NOT NULL default '0',
1722   `letter_module` varchar(20) NOT NULL default '',
1723   `letter_code` varchar(20) NOT NULL default '',
1724   PRIMARY KEY  (`message_attribute_id`,`message_transport_type`,`is_digest`),
1725   KEY `message_transport_type` (`message_transport_type`),
1726   KEY `letter_module` (`letter_module`,`letter_code`),
1727   CONSTRAINT `message_transports_ibfk_1` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE,
1728   CONSTRAINT `message_transports_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE,
1729   CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`) REFERENCES `letter` (`module`, `code`) ON DELETE CASCADE ON UPDATE CASCADE
1730 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1731 END_SQL
1732
1733     $dbh->do(<<'END_SQL');
1734 CREATE TABLE `borrower_message_preferences` (
1735   `borrower_message_preference_id` int(11) NOT NULL auto_increment,
1736   `borrowernumber` int(11) NOT NULL default '0',
1737   `message_attribute_id` int(11) default '0',
1738   `days_in_advance` int(11) default '0',
1739   `wants_digets` tinyint(1) NOT NULL default '0',
1740   PRIMARY KEY  (`borrower_message_preference_id`),
1741   KEY `borrowernumber` (`borrowernumber`),
1742   KEY `message_attribute_id` (`message_attribute_id`),
1743   CONSTRAINT `borrower_message_preferences_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1744   CONSTRAINT `borrower_message_preferences_ibfk_2` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE
1745 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1746 END_SQL
1747
1748     $dbh->do(<<'END_SQL');
1749 CREATE TABLE `borrower_message_transport_preferences` (
1750   `borrower_message_preference_id` int(11) NOT NULL default '0',
1751   `message_transport_type` varchar(20) NOT NULL default '0',
1752   PRIMARY KEY  (`borrower_message_preference_id`,`message_transport_type`),
1753   KEY `message_transport_type` (`message_transport_type`),
1754   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,
1755   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
1756 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1757 END_SQL
1758
1759     $dbh->do(<<'END_SQL');
1760 CREATE TABLE `message_queue` (
1761   `message_id` int(11) NOT NULL auto_increment,
1762   `borrowernumber` int(11) NOT NULL,
1763   `subject` text,
1764   `content` text,
1765   `message_transport_type` varchar(20) NOT NULL,
1766   `status` enum('sent','pending','failed','deleted') NOT NULL default 'pending',
1767   `time_queued` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1768   KEY `message_id` (`message_id`),
1769   KEY `borrowernumber` (`borrowernumber`),
1770   KEY `message_transport_type` (`message_transport_type`),
1771   CONSTRAINT `messageq_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1772   CONSTRAINT `messageq_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE RESTRICT ON UPDATE CASCADE
1773 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1774 END_SQL
1775
1776     $dbh->do(<<'END_SQL');
1777 INSERT INTO `systempreferences`
1778   (variable,value,explanation,options,type)
1779 VALUES
1780 ('EnhancedMessagingPreferences',0,'If ON, allows patrons to select to receive additional messages about items due or nearly due.','','YesNo')
1781 END_SQL
1782
1783     $dbh->do( <<'END_SQL');
1784 INSERT INTO `letter`
1785 (module, code, name, title, content)
1786 VALUES
1787 ('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>>'),
1788 ('circulation','DUEDGST','Item Due Reminder (Digest)','Item Due Reminder','You have <<count>> items due'),
1789 ('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>>'),
1790 ('circulation','PREDUEDGST','Advance Notice of Item Due (Digest)','Advance Notice of Item Due','You have <<count>> items due soon'),
1791 ('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.');
1792 END_SQL
1793
1794     my @sql_scripts = (
1795         'installer/data/mysql/en/mandatory/message_transport_types.sql',
1796         'installer/data/mysql/en/optional/sample_notices_message_attributes.sql',
1797         'installer/data/mysql/en/optional/sample_notices_message_transports.sql',
1798     );
1799
1800     my $installer = C4::Installer->new();
1801     foreach my $script ( @sql_scripts ) {
1802         my $full_path = $installer->get_file_path_from_name($script);
1803         my $error = $installer->load_sql($full_path);
1804         warn $error if $error;
1805     }
1806
1807     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";
1808     SetVersion ($DBversion);
1809 }
1810
1811 $DBversion = "3.00.00.092";
1812 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1813     $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')");
1814     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AllowHoldsOnDamagedItems', '1', '', 'Allow hold requests to be placed on damaged items', 'YesNo')");
1815         print "Upgrade to $DBversion done (added new AllowOnShelfHolds syspref)\n";
1816     SetVersion ($DBversion);
1817 }
1818
1819 $DBversion = "3.00.00.093";
1820 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1821     $dbh->do("ALTER TABLE `items` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1822     $dbh->do("ALTER TABLE `deleteditems` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1823         print "Upgrade to $DBversion done (Change data type of items.copynumber to allow free text)\n";
1824     SetVersion ($DBversion);
1825 }
1826
1827 $DBversion = "3.00.00.094";
1828 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1829     $dbh->do("ALTER TABLE `marc_subfield_structure` MODIFY `tagsubfield` VARCHAR(1) NOT NULL DEFAULT '' COLLATE utf8_bin");
1830         print "Upgrade to $DBversion done (Change Collation of marc_subfield_structure to allow mixed case in subfield labels.)\n";
1831     SetVersion ($DBversion);
1832 }
1833
1834 $DBversion = "3.00.00.095";
1835 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1836     if (C4::Context->preference("marcflavour") eq 'MARC21') {
1837         $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'MEETI_NAME' WHERE authtypecode = 'Meeting Name'");
1838         $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'CORPO_NAME' WHERE authtypecode = 'CORP0_NAME'");
1839     }
1840         print "Upgrade to $DBversion done (fix invalid authority types in MARC21 frameworks [bug 2254])\n";
1841     SetVersion ($DBversion);
1842 }
1843
1844 $DBversion = "3.00.00.096";
1845 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1846     $sth = $dbh->prepare("SHOW COLUMNS FROM borrower_message_preferences LIKE 'wants_digets'");
1847     $sth->execute();
1848     if (my $row = $sth->fetchrow_hashref) {
1849         $dbh->do("ALTER TABLE borrower_message_preferences CHANGE wants_digets wants_digest tinyint(1) NOT NULL default 0");
1850     }
1851         print "Upgrade to $DBversion done (fix name borrower_message_preferences.wants_digest)\n";
1852     SetVersion ($DBversion);
1853 }
1854
1855 $DBversion = '3.00.00.097';
1856 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1857
1858     $dbh->do('ALTER TABLE message_queue ADD to_address   mediumtext default NULL');
1859     $dbh->do('ALTER TABLE message_queue ADD from_address mediumtext default NULL');
1860     $dbh->do('ALTER TABLE message_queue ADD content_type text');
1861     $dbh->do('ALTER TABLE message_queue CHANGE borrowernumber borrowernumber int(11) default NULL');
1862
1863     print "Upgrade to $DBversion done (updating 4 fields in message_queue table)\n";
1864     SetVersion($DBversion);
1865 }
1866
1867 $DBversion = '3.00.00.098';
1868 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1869
1870     $dbh->do(q(DELETE FROM message_transport_types WHERE message_transport_type = 'rss'));
1871     $dbh->do(q(DELETE FROM message_transports WHERE message_transport_type = 'rss'));
1872
1873     print "Upgrade to $DBversion done (removing unused RSS message_transport_type)\n";
1874     SetVersion($DBversion);
1875 }
1876
1877 $DBversion = '3.00.00.099';
1878 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1879     $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')");
1880     print "Upgrade to $DBversion done (Adding OpacSuppression syspref)\n";
1881     SetVersion($DBversion);
1882 }
1883
1884 $DBversion = '3.00.00.100';
1885 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1886         $dbh->do('ALTER TABLE virtualshelves ADD COLUMN lastmodified timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP');
1887     print "Upgrade to $DBversion done (Adding lastmodified column to virtualshelves)\n";
1888     SetVersion($DBversion);
1889 }
1890
1891 $DBversion = '3.00.00.101';
1892 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1893         $dbh->do('ALTER TABLE `overduerules` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1894         $dbh->do('ALTER TABLE `deletedborrowers` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1895     print "Upgrade to $DBversion done (Updating columnd definitions for patron category codes in notice/statsu triggers and deletedborrowers tables.)\n";
1896     SetVersion($DBversion);
1897 }
1898
1899 $DBversion = '3.00.00.102';
1900 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1901         $dbh->do('ALTER TABLE serialitems MODIFY `serialid` int(11) NOT NULL AFTER itemnumber' );
1902         $dbh->do('ALTER TABLE serialitems DROP KEY serialididx' );
1903         $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT UNIQUE KEY serialitemsidx (itemnumber)' );
1904         # before setting constraint, delete any unvalid data
1905         $dbh->do('DELETE from serialitems WHERE serialid not in (SELECT serial.serialid FROM serial)');
1906         $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT serialitems_sfk_1 FOREIGN KEY (serialid) REFERENCES serial (serialid) ON DELETE CASCADE ON UPDATE CASCADE' );
1907     print "Upgrade to $DBversion done (Updating serialitems table to allow for multiple items per serial fixing kohabug 2380)\n";
1908     SetVersion($DBversion);
1909 }
1910
1911 $DBversion = "3.00.00.103";
1912 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1913     $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1914     print "Upgrade to $DBversion done ( Verifying the removal of serialsadditems from syspref fixing kohabug 2219)\n";
1915     SetVersion ($DBversion);
1916 }
1917
1918 $DBversion = "3.00.00.104";
1919 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1920     $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1921     print "Upgrade to $DBversion done (remove superseded 'noOPACHolds' system preference per bug 2413)\n";
1922     SetVersion ($DBversion);
1923 }
1924
1925 $DBversion = '3.00.00.105';
1926 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
1927
1928     # it is possible that this syspref is already defined since the feature was added some time ago.
1929     unless ( $dbh->do(q(SELECT variable FROM systempreferences WHERE variable = 'SMSSendDriver')) ) {
1930         $dbh->do(<<'END_SQL');
1931 INSERT INTO `systempreferences`
1932   (variable,value,explanation,options,type)
1933 VALUES
1934 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')
1935 END_SQL
1936     }
1937     print "Upgrade to $DBversion done (added SMSSendDriver system preference)\n";
1938     SetVersion($DBversion);
1939 }
1940
1941 $DBversion = "3.00.00.106";
1942 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1943     $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1944
1945 # db revision 105 didn't apply correctly, so we're rolling this into 106
1946         $dbh->do("INSERT INTO `systempreferences`
1947    (variable,value,explanation,options,type)
1948         VALUES
1949         ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')");
1950
1951     print "Upgrade to $DBversion done (remove default '0000-00-00' in subscriptionhistory.enddate field)\n";
1952     $dbh->do("ALTER TABLE `subscriptionhistory` CHANGE `enddate` `enddate` DATE NULL DEFAULT NULL ");
1953     $dbh->do("UPDATE subscriptionhistory SET enddate=NULL WHERE enddate='0000-00-00'");
1954     SetVersion ($DBversion);
1955 }
1956
1957 $DBversion = '3.00.00.107';
1958 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1959     $dbh->do(<<'END_SQL');
1960 UPDATE systempreferences
1961   SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming on collections with large numbers of items.' )
1962   WHERE variable = 'OPACShelfBrowser'
1963     AND explanation NOT LIKE '%WARNING%'
1964 END_SQL
1965     $dbh->do(<<'END_SQL');
1966 UPDATE systempreferences
1967   SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming.' )
1968   WHERE variable = 'CataloguingLog'
1969     AND explanation NOT LIKE '%WARNING%'
1970 END_SQL
1971     $dbh->do(<<'END_SQL');
1972 UPDATE systempreferences
1973   SET explanation = CONCAT( explanation, '. WARNING: using NoZebra on even modest sized collections is very slow.' )
1974   WHERE variable = 'NoZebra'
1975     AND explanation NOT LIKE '%WARNING%'
1976 END_SQL
1977     print "Upgrade to $DBversion done (warning added to OPACShelfBrowser system preference)\n";
1978     SetVersion ($DBversion);
1979 }
1980
1981 $DBversion = '3.01.00.000';
1982 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1983     print "Upgrade to $DBversion done (start of 3.1)\n";
1984     SetVersion ($DBversion);
1985 }
1986
1987 $DBversion = '3.01.00.001';
1988 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1989     $dbh->do("
1990         CREATE TABLE hold_fill_targets (
1991             `borrowernumber` int(11) NOT NULL,
1992             `biblionumber` int(11) NOT NULL,
1993             `itemnumber` int(11) NOT NULL,
1994             `source_branchcode`  varchar(10) default NULL,
1995             `item_level_request` tinyint(4) NOT NULL default 0,
1996             PRIMARY KEY `itemnumber` (`itemnumber`),
1997             KEY `bib_branch` (`biblionumber`, `source_branchcode`),
1998             CONSTRAINT `hold_fill_targets_ibfk_1` FOREIGN KEY (`borrowernumber`)
1999                 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2000             CONSTRAINT `hold_fill_targets_ibfk_2` FOREIGN KEY (`biblionumber`)
2001                 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2002             CONSTRAINT `hold_fill_targets_ibfk_3` FOREIGN KEY (`itemnumber`)
2003                 REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2004             CONSTRAINT `hold_fill_targets_ibfk_4` FOREIGN KEY (`source_branchcode`)
2005                 REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2006         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2007     ");
2008     $dbh->do("
2009         ALTER TABLE tmp_holdsqueue
2010             ADD item_level_request tinyint(4) NOT NULL default 0
2011     ");
2012
2013     print "Upgrade to $DBversion done (add hold_fill_targets table and a column to tmp_holdsqueue)\n";
2014     SetVersion($DBversion);
2015 }
2016
2017 $DBversion = '3.01.00.002';
2018 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2019     # use statistics where available
2020     $dbh->do("
2021         ALTER TABLE statistics ADD KEY  tmp_stats (type, itemnumber, borrowernumber)
2022     ");
2023     $dbh->do("
2024         UPDATE issues iss
2025         SET issuedate = (
2026             SELECT max(datetime)
2027             FROM statistics
2028             WHERE type = 'issue'
2029             AND itemnumber = iss.itemnumber
2030             AND borrowernumber = iss.borrowernumber
2031         )
2032         WHERE issuedate IS NULL;
2033     ");
2034     $dbh->do("ALTER TABLE statistics DROP KEY tmp_stats");
2035
2036     # default to last renewal date
2037     $dbh->do("
2038         UPDATE issues
2039         SET issuedate = lastreneweddate
2040         WHERE issuedate IS NULL
2041         and lastreneweddate IS NOT NULL
2042     ");
2043
2044     my $num_bad_issuedates = $dbh->selectrow_array("SELECT COUNT(*) FROM issues WHERE issuedate IS NULL");
2045     if ($num_bad_issuedates > 0) {
2046         print STDERR "After the upgrade to $DBversion, there are still $num_bad_issuedates loan(s) with a NULL (blank) loan date. ",
2047                      "Please check the issues table in your database.";
2048     }
2049     print "Upgrade to $DBversion done (bug 2582: set null issues.issuedate to lastreneweddate)\n";
2050     SetVersion($DBversion);
2051 }
2052
2053 $DBversion = "3.01.00.003";
2054 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2055     $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')");
2056     print "Upgrade to $DBversion done (add new syspref)\n";
2057     SetVersion ($DBversion);
2058 }
2059
2060 $DBversion = '3.01.00.004';
2061 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2062     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACDisplayRequestPriority','0','Show patrons the priority level on holds in the OPAC','','YesNo')");
2063     print "Upgrade to $DBversion done (added OPACDisplayRequestPriority system preference)\n";
2064     SetVersion ($DBversion);
2065 }
2066
2067 $DBversion = '3.01.00.005';
2068 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2069     $dbh->do("
2070         INSERT INTO `letter` (module, code, name, title, content)
2071         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>>')
2072     ");
2073     $dbh->do("INSERT INTO `message_attributes` (message_attribute_id, message_name, takes_days) values(4, 'Hold Filled', 0)");
2074     $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'sms', 0, 'reserves', 'HOLD')");
2075     $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'email', 0, 'reserves', 'HOLD')");
2076     print "Upgrade to $DBversion done (Add letter for holds notifications)\n";
2077     SetVersion ($DBversion);
2078 }
2079
2080 $DBversion = '3.01.00.006';
2081 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2082     $dbh->do("ALTER TABLE `biblioitems` ADD KEY issn (issn)");
2083     print "Upgrade to $DBversion done (add index on biblioitems.issn)\n";
2084     SetVersion ($DBversion);
2085 }
2086
2087 $DBversion = "3.01.00.007";
2088 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2089     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetmainUserblock'");
2090     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetuserjs'");
2091     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacheader'");
2092     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacMainUserBlock'");
2093     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacNav'");
2094     $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacuserjs'");
2095     $dbh->do("UPDATE `systempreferences` SET options='30|10', type='Textarea' WHERE variable='OAI-PMH:Set'");
2096     $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetstylesheet'");
2097     $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetcolorstylesheet'");
2098     $dbh->do("UPDATE `systempreferences` SET options='10' WHERE variable='globalDueDate'");
2099     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='numSearchResults'");
2100     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='OPACnumSearchResults'");
2101     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='ReservesMaxPickupDelay'");
2102     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='TransfersMaxDaysWarning'");
2103     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='StaticHoldsQueueWeight'");
2104     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='holdCancelLength'");
2105     $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='XISBNDailyLimit'");
2106     $dbh->do("UPDATE `systempreferences` SET type='Float' WHERE variable='gist'");
2107     $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorUsername'");
2108     $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorPassword'");
2109     $dbh->do("UPDATE `systempreferences` SET type='Textarea', options='70|10' WHERE variable='ISBD'");
2110     $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'");
2111     print "Upgrade to $DBversion done (fix display of many sysprefs)\n";
2112     SetVersion ($DBversion);
2113 }
2114
2115 $DBversion = '3.01.00.008';
2116 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2117
2118     $dbh->do("CREATE TABLE branch_transfer_limits (
2119                           limitId int(8) NOT NULL auto_increment,
2120                           toBranch varchar(4) NOT NULL,
2121                           fromBranch varchar(4) NOT NULL,
2122                           itemtype varchar(4) NOT NULL,
2123                           PRIMARY KEY  (limitId)
2124                           ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
2125                         );
2126
2127     $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')");
2128
2129     print "Upgrade to $DBversion done (added branch_transfer_limits table and UseBranchTransferLimits system preference)\n";
2130     SetVersion ($DBversion);
2131 }
2132
2133 $DBversion = "3.01.00.009";
2134 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2135     $dbh->do("ALTER TABLE permissions MODIFY `code` varchar(64) DEFAULT NULL");
2136     $dbh->do("ALTER TABLE user_permissions MODIFY `code` varchar(64) DEFAULT NULL");
2137     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'circulate_remaining_permissions', 'Remaining circulation permissions')");
2138     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'override_renewals', 'Override blocked renewals')");
2139     print "Upgrade to $DBversion done (added subpermissions for circulate permission)\n";
2140 }
2141
2142 $DBversion = '3.01.00.010';
2143 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2144     $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `attribute` VARCHAR(64) DEFAULT NULL");
2145     $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `password` VARCHAR(64) DEFAULT NULL");
2146     print "Upgrade to $DBversion done (bug 2687: increase length of borrower attribute fields)\n";
2147     SetVersion ($DBversion);
2148 }
2149
2150 $DBversion = '3.01.00.011';
2151 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2152
2153     # Yes, the old value was ^M terminated.
2154     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);";
2155
2156     my $intranetuserjs = C4::Context->preference('intranetuserjs');
2157     if ($intranetuserjs  and  $intranetuserjs eq $bad_value) {
2158         my $sql = <<'END_SQL';
2159 UPDATE systempreferences
2160 SET value = ''
2161 WHERE variable = 'intranetuserjs'
2162 END_SQL
2163         $dbh->do($sql);
2164     }
2165     print "Upgrade to $DBversion done (removed bogus intranetuserjs syspref)\n";
2166     SetVersion($DBversion);
2167 }
2168
2169 $DBversion = "3.01.00.012";
2170 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2171     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldPolicyOverride', '0', 'Allow staff to override hold policies when placing holds',NULL,'YesNo')");
2172     $dbh->do("
2173         CREATE TABLE `branch_item_rules` (
2174           `branchcode` varchar(10) NOT NULL,
2175           `itemtype` varchar(10) NOT NULL,
2176           `holdallowed` tinyint(1) default NULL,
2177           PRIMARY KEY  (`itemtype`,`branchcode`),
2178           KEY `branch_item_rules_ibfk_2` (`branchcode`),
2179           CONSTRAINT `branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE,
2180           CONSTRAINT `branch_item_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2181         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2182     ");
2183     $dbh->do("
2184         CREATE TABLE `default_branch_item_rules` (
2185           `itemtype` varchar(10) NOT NULL,
2186           `holdallowed` tinyint(1) default NULL,
2187           PRIMARY KEY  (`itemtype`),
2188           CONSTRAINT `default_branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE
2189         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2190     ");
2191     $dbh->do("
2192         ALTER TABLE default_branch_circ_rules
2193             ADD COLUMN holdallowed tinyint(1) NULL
2194     ");
2195     $dbh->do("
2196         ALTER TABLE default_circ_rules
2197             ADD COLUMN holdallowed tinyint(1) NULL
2198     ");
2199     print "Upgrade to $DBversion done (Add tables and system preferences for holds policies)\n";
2200     SetVersion ($DBversion);
2201 }
2202
2203 $DBversion = '3.01.00.013';
2204 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2205     $dbh->do("
2206         CREATE TABLE item_circulation_alert_preferences (
2207             id           int(11) AUTO_INCREMENT,
2208             branchcode   varchar(10) NOT NULL,
2209             categorycode varchar(10) NOT NULL,
2210             item_type    varchar(10) NOT NULL,
2211             notification varchar(16) NOT NULL,
2212             PRIMARY KEY (id),
2213             KEY (branchcode, categorycode, item_type, notification)
2214         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2215     ");
2216
2217     $dbh->do(q{ ALTER TABLE `message_queue` ADD metadata text DEFAULT NULL           AFTER content;  });
2218     $dbh->do(q{ ALTER TABLE `message_queue` ADD letter_code varchar(64) DEFAULT NULL AFTER metadata; });
2219
2220     $dbh->do(q{
2221         INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2222         ('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.');
2223     });
2224     $dbh->do(q{
2225         INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2226         ('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>>.');
2227     });
2228
2229     $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (5, 'Item Check-in', 0);});
2230     $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (6, 'Item Checkout', 0);});
2231
2232     $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');});
2233     $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');});
2234     $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');});
2235     $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');});
2236
2237     print "Upgrade to $DBversion done (data for Email Checkout Slips project)\n";
2238          SetVersion ($DBversion);
2239 }
2240
2241 $DBversion = "3.01.00.014";
2242 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2243     $dbh->do("ALTER TABLE `branch_transfer_limits` CHANGE `itemtype` `itemtype` VARCHAR( 4 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL");
2244     $dbh->do("ALTER TABLE `branch_transfer_limits` ADD `ccode` VARCHAR( 10 ) NULL ;");
2245     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2246     VALUES (
2247     'BranchTransferLimitsType', 'ccode', 'itemtype|ccode', 'When using branch transfer limits, choose whether to limit by itemtype or collection code.', 'Choice'
2248     );");
2249
2250     print "Upgrade to $DBversion done ( Updated table for Branch Transfer Limits)\n";
2251     SetVersion ($DBversion);
2252 }
2253
2254 $DBversion = '3.01.00.015';
2255 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2256     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsClientCode', '0', 'Client Code for using Syndetics Solutions content','','free')");
2257
2258     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEnabled', '0', 'Turn on Syndetics Enhanced Content','','YesNo')");
2259
2260     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImages', '0', 'Display Cover Images from Syndetics','','YesNo')");
2261
2262     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsTOC', '0', 'Display Table of Content information from Syndetics','','YesNo')");
2263
2264     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSummary', '0', 'Display Summary Information from Syndetics','','YesNo')");
2265
2266     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEditions', '0', 'Display Editions from Syndetics','','YesNo')");
2267
2268     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsExcerpt', '0', 'Display Excerpts and first chapters on OPAC from Syndetics','','YesNo')");
2269
2270     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsReviews', '0', 'Display Reviews on OPAC from Syndetics','','YesNo')");
2271
2272     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAuthorNotes', '0', 'Display Notes about the Author on OPAC from Syndetics','','YesNo')");
2273
2274     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAwards', '0', 'Display Awards on OPAC from Syndetics','','YesNo')");
2275
2276     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSeries', '0', 'Display Series information on OPAC from Syndetics','','YesNo')");
2277
2278     $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')");
2279
2280     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonCoverImages', '0', 'Display cover images on OPAC from Amazon Web Services','','YesNo')");
2281
2282     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonCoverImages', '0', 'Display Cover Images in Staff Client from Amazon Web Services','','YesNo')");
2283
2284     $dbh->do("UPDATE systempreferences SET variable='AmazonEnabled' WHERE variable = 'AmazonContent'");
2285
2286     $dbh->do("UPDATE systempreferences SET variable='OPACAmazonEnabled' WHERE variable = 'OPACAmazonContent'");
2287
2288     print "Upgrade to $DBversion done (added Syndetics Enhanced Content system preferences)\n";
2289     SetVersion ($DBversion);
2290 }
2291
2292 $DBversion = "3.01.00.016";
2293 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2294     $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')");
2295     print "Upgrade to $DBversion done (Added Babeltheque syspref)\n";
2296     SetVersion ($DBversion);
2297 }
2298
2299 $DBversion = "3.01.00.017";
2300 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2301     $dbh->do("ALTER TABLE `subscription` ADD `staffdisplaycount` VARCHAR(10) NULL;");
2302     $dbh->do("ALTER TABLE `subscription` ADD `opacdisplaycount` VARCHAR(10) NULL;");
2303     $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2304     VALUES (
2305     'StaffSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the Staff client', 'Integer'
2306     );");
2307         $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2308     VALUES (
2309     'OPACSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the OPAC', 'Integer'
2310     );");
2311
2312     print "Upgrade to $DBversion done ( Updated table for Serials Display)\n";
2313     SetVersion ($DBversion);
2314 }
2315
2316 $DBversion = "3.01.00.018";
2317 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2318     $dbh->do("ALTER TABLE deletedborrowers ADD `smsalertnumber` varchar(50) default NULL");
2319     print "Upgrade to $DBversion done (added deletedborrowers.smsalertnumber, missed in 3.00.00.091)\n";
2320     SetVersion ($DBversion);
2321 }
2322
2323 $DBversion = "3.01.00.019";
2324 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2325         $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')");
2326     print "Upgrade to $DBversion done (adding OPACShowCheckoutName systempref)\n";
2327     SetVersion ($DBversion);
2328 }
2329
2330 $DBversion = "3.01.00.020";
2331 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2332     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesID','','See:http://librarything.com/forlibraries/','','free')");
2333     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesEnabled','0','Enable or Disable Library Thing for Libraries Features','','YesNo')");
2334     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesTabbedView','0','Put LibraryThingForLibraries Content in Tabs.','','YesNo')");
2335     print "Upgrade to $DBversion done (adding LibraryThing for Libraries sysprefs)\n";
2336     SetVersion ($DBversion);
2337 }
2338
2339 $DBversion = "3.01.00.021";
2340 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2341     my $enable_reviews = C4::Context->preference('OPACAmazonEnabled') ? '1' : '0';
2342     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonReviews', '$enable_reviews', 'Display Amazon readers reviews on OPAC','','YesNo')");
2343     print "Upgrade to $DBversion done (adding OPACAmazonReviews syspref)\n";
2344     SetVersion ($DBversion);
2345 }
2346
2347 $DBversion = '3.01.00.022';
2348 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2349     $dbh->do("ALTER TABLE `labels_conf` MODIFY COLUMN `formatstring` mediumtext DEFAULT NULL");
2350     print "Upgrade to $DBversion done (bug 2945: increase size of labels_conf.formatstring)\n";
2351     SetVersion ($DBversion);
2352 }
2353
2354 $DBversion = '3.01.00.023';
2355 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2356     $dbh->do("ALTER TABLE biblioitems        MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2357     $dbh->do("ALTER TABLE deletedbiblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2358     $dbh->do("ALTER TABLE import_biblios     MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2359     $dbh->do("ALTER TABLE suggestions        MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2360     print "Upgrade to $DBversion done (bug 2765: increase width of isbn column in several tables)\n";
2361     SetVersion ($DBversion);
2362 }
2363
2364 $DBversion = "3.01.00.024";
2365 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2366     $dbh->do("ALTER TABLE labels MODIFY COLUMN batch_id int(10) NOT NULL default 1;");
2367     print "Upgrade to $DBversion done (change labels.batch_id from varchar to int)\n";
2368     SetVersion ($DBversion);
2369 }
2370
2371 $DBversion = '3.01.00.025';
2372 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2373     $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')");
2374
2375     print "Upgrade to $DBversion done (added ceilingDueDate system preference)\n";
2376     SetVersion ($DBversion);
2377 }
2378
2379 $DBversion = '3.01.00.026';
2380 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2381     $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')");
2382
2383     print "Upgrade to $DBversion done (added numReturnedItemsToShow system preference)\n";
2384     SetVersion ($DBversion);
2385 }
2386
2387 $DBversion = '3.01.00.027';
2388 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2389     $dbh->do("ALTER TABLE zebraqueue CHANGE `biblio_auth_number` `biblio_auth_number` bigint(20) unsigned NOT NULL default 0");
2390     print "Upgrade to $DBversion done (Increased size of zebraqueue biblio_auth_number to address bug 3148.)\n";
2391     SetVersion ($DBversion);
2392 }
2393
2394 $DBversion = '3.01.00.028';
2395 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2396     my $enable_reviews = C4::Context->preference('AmazonEnabled') ? '1' : '0';
2397     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonReviews', '$enable_reviews', 'Display Amazon reviews on staff interface','','YesNo')");
2398     print "Upgrade to $DBversion done (added AmazonReviews)\n";
2399     SetVersion ($DBversion);
2400 }
2401
2402 $DBversion = '3.01.00.029';
2403 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2404     $dbh->do(q( UPDATE language_rfc4646_to_iso639
2405                 SET iso639_2_code = 'spa'
2406                 WHERE rfc4646_subtag = 'es'
2407                 AND   iso639_2_code = 'rus' )
2408             );
2409     print "Upgrade to $DBversion done (fixed bug 2599: using Spanish search limit retrieves Russian results)\n";
2410     SetVersion ($DBversion);
2411 }
2412
2413 $DBversion = "3.01.00.030";
2414 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2415     $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')");
2416     print "Upgrade to $DBversion done (added AllowNotForLoanOverride system preference)\n";
2417     SetVersion ($DBversion);
2418 }
2419
2420 $DBversion = "3.01.00.031";
2421 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2422     $dbh->do("ALTER TABLE branch_transfer_limits
2423               MODIFY toBranch   varchar(10) NOT NULL,
2424               MODIFY fromBranch varchar(10) NOT NULL,
2425               MODIFY itemtype   varchar(10) NULL");
2426     print "Upgrade to $DBversion done (fix column widths in branch_transfer_limits)\n";
2427     SetVersion ($DBversion);
2428 }
2429
2430 $DBversion = "3.01.00.032";
2431 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2432     $dbh->do(<<ENDOFRENEWAL);
2433 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');
2434 ENDOFRENEWAL
2435     print "Upgrade to $DBversion done (Change the field)\n";
2436     SetVersion ($DBversion);
2437 }
2438
2439 $DBversion = "3.01.00.033";
2440 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2441     $dbh->do(q/
2442         ALTER TABLE borrower_message_preferences
2443         MODIFY borrowernumber int(11) default NULL,
2444         ADD    categorycode varchar(10) default NULL AFTER borrowernumber,
2445         ADD KEY `categorycode` (`categorycode`),
2446         ADD CONSTRAINT `borrower_message_preferences_ibfk_3`
2447                        FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
2448                        ON DELETE CASCADE ON UPDATE CASCADE
2449     /);
2450     print "Upgrade to $DBversion done (DB changes to allow patron category defaults for messaging preferences)\n";
2451     SetVersion ($DBversion);
2452 }
2453
2454 $DBversion = "3.01.00.034";
2455 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2456     $dbh->do("ALTER TABLE `subscription` ADD COLUMN `graceperiod` INT(11) NOT NULL default '0';");
2457     print "Upgrade to $DBversion done (Adding graceperiod column to subscription table)\n";
2458     SetVersion ($DBversion);
2459 }
2460
2461 $DBversion = '3.01.00.035';
2462 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2463     $dbh->do(q{ ALTER TABLE `subscription` ADD location varchar(80) NULL DEFAULT '' AFTER callnumber; });
2464    print "Upgrade to $DBversion done (Adding location to subscription table)\n";
2465     SetVersion ($DBversion);
2466 }
2467
2468 $DBversion = '3.01.00.036';
2469 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2470     $dbh->do("UPDATE systempreferences SET explanation = 'Choose the default detail view in the staff interface; choose between normal, labeled_marc, marc or isbd'
2471               WHERE variable = 'IntranetBiblioDefaultView'
2472               AND   explanation = 'IntranetBiblioDefaultView'");
2473     $dbh->do("UPDATE systempreferences SET type = 'Choice', options = 'normal|marc|isbd|labeled_marc'
2474               WHERE variable = 'IntranetBiblioDefaultView'");
2475     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewISBD','1','Allow display of ISBD view of bibiographic records','','YesNo')");
2476     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewLabeledMARC','0','Allow display of labeled MARC view of bibiographic records','','YesNo')");
2477     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewMARC','1','Allow display of MARC view of bibiographic records','','YesNo')");
2478     print "Upgrade to $DBversion done (new viewISBD, viewLabeledMARC, viewMARC sysprefs and tweak IntranetBiblioDefaultView)\n";
2479     SetVersion ($DBversion);
2480 }
2481
2482 $DBversion = '3.01.00.037';
2483 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2484     $dbh->do('ALTER TABLE authorised_values ADD KEY `lib` (`lib`)');
2485     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('FilterBeforeOverdueReport','0','Do not run overdue report until filter selected','','YesNo')");
2486     SetVersion ($DBversion);
2487     print "Upgrade to $DBversion done (added FilterBeforeOverdueReport syspref and new index on authorised_values)\n";
2488 }
2489
2490 $DBversion = "3.01.00.038";
2491 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2492     # update branches table
2493     #
2494     $dbh->do("ALTER TABLE branches ADD `branchzip` varchar(25) default NULL AFTER `branchaddress3`");
2495     $dbh->do("ALTER TABLE branches ADD `branchcity` mediumtext AFTER `branchzip`");
2496     $dbh->do("ALTER TABLE branches ADD `branchcountry` text AFTER `branchcity`");
2497     $dbh->do("ALTER TABLE branches ADD `branchurl` mediumtext AFTER `branchemail`");
2498     $dbh->do("ALTER TABLE branches ADD `branchnotes` mediumtext AFTER `branchprinter`");
2499     print "Upgrade to $DBversion done (add ZIP, city, country, URL, and notes column to branches)\n";
2500     SetVersion ($DBversion);
2501 }
2502
2503 $DBversion = '3.01.00.039';
2504 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2505     $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')");
2506     $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')");
2507     SetVersion ($DBversion);
2508     print "Upgrade to $DBversion done (added SpineLabelFormat and SpineLabelAutoPrint sysprefs)\n";
2509 }
2510
2511 $DBversion = '3.01.00.040';
2512 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2513     $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')");
2514     $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')");
2515     SetVersion ($DBversion);
2516     print "Upgrade to $DBversion done (AllowHoldDateInFuture and OPACAllowHoldDateInFuture sysprefs)\n";
2517 }
2518
2519 $DBversion = '3.01.00.041';
2520 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2521     $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')");
2522     SetVersion ($DBversion);
2523     print "Upgrade to $DBversion done (added AWSPrivateKey syspref - note that if you use enhanced content from Amazon, this should be set right away.)\n";
2524 }
2525
2526 $DBversion = '3.01.00.042';
2527 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2528     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACFineNoRenewals','99999','Fine Limit above which user canmot renew books via OPAC','','Integer')");
2529     SetVersion ($DBversion);
2530     print "Upgrade to $DBversion done (added OPACFineNoRenewals syspref)\n";
2531 }
2532
2533 $DBversion = '3.01.00.043';
2534 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2535     $dbh->do('ALTER TABLE items ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2536     $dbh->do('UPDATE items SET permanent_location = location');
2537     $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 )', '')");
2538     $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')");
2539     $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')");
2540     SetVersion ($DBversion);
2541     print "Upgrade to $DBversion done (amended Item added NewItemsDefaultLocation, InProcessingToShelvingCart, ReturnToShelvingCart sysprefs)\n";
2542 }
2543
2544 $DBversion = '3.01.00.044';
2545 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2546     $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')");
2547     SetVersion ($DBversion);
2548     print "Upgrade to $DBversion done (added DisplayClearScreenButton system preference)\n";
2549 }
2550
2551 $DBversion = '3.01.00.045';
2552 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2553     $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')");
2554     SetVersion ($DBversion);
2555     print "Upgrade to $DBversion done (added a preference to hide the patrons name in the staff catalog)\n";
2556 }
2557
2558 $DBversion = "3.01.00.046";
2559 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2560     # update borrowers table
2561     #
2562     $dbh->do("ALTER TABLE borrowers ADD `country` text AFTER zipcode");
2563     $dbh->do("ALTER TABLE borrowers ADD `B_country` text AFTER B_zipcode");
2564     $dbh->do("ALTER TABLE deletedborrowers ADD `country` text AFTER zipcode");
2565     $dbh->do("ALTER TABLE deletedborrowers ADD `B_country` text AFTER B_zipcode");
2566     print "Upgrade to $DBversion done (add country and B_country to borrowers)\n";
2567     SetVersion ($DBversion);
2568 }
2569
2570 $DBversion = '3.01.00.047';
2571 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2572     $dbh->do("ALTER TABLE items MODIFY itemcallnumber varchar(255);");
2573     $dbh->do("ALTER TABLE deleteditems MODIFY itemcallnumber varchar(255);");
2574     $dbh->do("ALTER TABLE tmp_holdsqueue MODIFY itemcallnumber varchar(255);");
2575     SetVersion ($DBversion);
2576     print " Upgrade to $DBversion done (bug 2761: change max length of itemcallnumber to 255 from 30)\n";
2577 }
2578
2579 $DBversion = '3.01.00.048';
2580 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2581     $dbh->do("UPDATE userflags SET flagdesc='View Catalog (Librarian Interface)' WHERE bit=2;");
2582     $dbh->do("UPDATE userflags SET flagdesc='Edit Catalog (Modify bibliographic/holdings data)' WHERE bit=9;");
2583     $dbh->do("UPDATE userflags SET flagdesc='Allow to edit authorities' WHERE bit=14;");
2584     $dbh->do("UPDATE userflags SET flagdesc='Allow to access to the reports module' WHERE bit=16;");
2585     $dbh->do("UPDATE userflags SET flagdesc='Allow to manage serials subscriptions' WHERE bit=15;");
2586     SetVersion ($DBversion);
2587     print " Upgrade to $DBversion done (bug 2611: fix spelling/capitalization in permission flag descriptions)\n";
2588 }
2589
2590 $DBversion = '3.01.00.049';
2591 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2592     $dbh->do("UPDATE permissions SET description = 'Perform inventory (stocktaking) of your catalog' WHERE code = 'inventory';");
2593      SetVersion ($DBversion);
2594     print "Upgrade to $DBversion done (bug 2611: changed catalogue to catalog per the standard)\n";
2595 }
2596
2597 $DBversion = '3.01.00.050';
2598 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2599     $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');");
2600     SetVersion ($DBversion);
2601     print "Upgrade to $DBversion done (bug 1934: Add OPACSearchForTitleIn syspref)\n";
2602 }
2603
2604 $DBversion = '3.01.00.051';
2605 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2606     $dbh->do("UPDATE systempreferences SET explanation='Fine limit above which user cannot renew books via OPAC' WHERE variable='OPACFineNoRenewals';");
2607     $dbh->do("UPDATE systempreferences SET explanation='If set to ON, a clear screen button will appear on the circulation page.' WHERE variable='DisplayClearScreenButton';");
2608     SetVersion ($DBversion);
2609     print "Upgrade to $DBversion done (fixed typos in new sysprefs)\n";
2610 }
2611
2612 $DBversion = '3.01.00.052';
2613 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2614     $dbh->do('ALTER TABLE deleteditems ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2615     SetVersion ($DBversion);
2616     print "Upgrade to $DBversion done (bug 3481: add permanent_location column to deleteditems)\n";
2617 }
2618
2619 $DBversion = '3.01.00.053';
2620 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2621     my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/labels_upgrade.pl";
2622     system("perl $upgrade_script");
2623     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";
2624     SetVersion ($DBversion);
2625 }
2626
2627 $DBversion = '3.01.00.054';
2628 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2629     $dbh->do("ALTER TABLE borrowers ADD `B_address2` text AFTER B_address");
2630     $dbh->do("ALTER TABLE borrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2631     $dbh->do("ALTER TABLE deletedborrowers ADD `B_address2` text AFTER B_address");
2632     $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2633     SetVersion ($DBversion);
2634     print "Upgrade to $DBversion done (bug 1600, bug 3454: add altcontactcountry and B_address2 to borrowers and deletedborrowers)\n";
2635 }
2636
2637 $DBversion = '3.01.00.055';
2638 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2639     $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'|);
2640     SetVersion ($DBversion);
2641     print "Upgrade to $DBversion done (changed OPACSearchForTitleIn per requests in bug 1934)\n";
2642 }
2643
2644 $DBversion = '3.01.00.056';
2645 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2646     $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');");
2647     SetVersion ($DBversion);
2648     print "Upgrade to $DBversion done (Bug 1172 : Add OPACPatronDetails syspref)\n";
2649 }
2650
2651 $DBversion = '3.01.00.057';
2652 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2653     $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');");
2654     SetVersion ($DBversion);
2655     print "Upgrade to $DBversion done (Bug 2576 : Add OPACFinesTab syspref)\n";
2656 }
2657
2658 $DBversion = '3.01.00.058';
2659 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2660     $dbh->do("ALTER TABLE `language_subtag_registry` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2661     $dbh->do("ALTER TABLE `language_rfc4646_to_iso639` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2662     $dbh->do("ALTER TABLE `language_descriptions` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2663     SetVersion ($DBversion);
2664     print "Upgrade to $DBversion done (Added primary keys to language tables)\n";
2665 }
2666
2667 $DBversion = '3.01.00.059';
2668 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2669     $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')");
2670     SetVersion ($DBversion);
2671     print "Upgrade to $DBversion done (added DisplayOPACiconsXSLT sysprefs)\n";
2672 }
2673
2674 $DBversion = '3.01.00.060';
2675 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2676     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowAllMessageDeletion','0','Allow any Library to delete any message','','YesNo');");
2677     $dbh->do('DROP TABLE IF EXISTS messages');
2678     $dbh->do("CREATE TABLE messages ( `message_id` int(11) NOT NULL auto_increment,
2679         `borrowernumber` int(11) NOT NULL,
2680         `branchcode` varchar(4) default NULL,
2681         `message_type` varchar(1) NOT NULL,
2682         `message` text NOT NULL,
2683         `message_date` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,
2684         PRIMARY KEY (`message_id`)
2685         ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
2686
2687         print "Upgrade to $DBversion done ( Added AllowAllMessageDeletion syspref and messages table )\n";
2688     SetVersion ($DBversion);
2689 }
2690
2691 $DBversion = '3.01.00.061';
2692 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2693     $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')");
2694         print "Upgrade to $DBversion done ( Added ShowPatronImageInWebBasedSelfCheck system preference )\n";
2695     SetVersion ($DBversion);
2696 }
2697
2698 $DBversion = "3.01.00.062";
2699 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2700     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'manage_csv_profiles', 'Manage CSV export profiles')");
2701     $dbh->do(q/
2702         CREATE TABLE `export_format` (
2703           `export_format_id` int(11) NOT NULL auto_increment,
2704           `profile` varchar(255) NOT NULL,
2705           `description` mediumtext NOT NULL,
2706           `marcfields` mediumtext NOT NULL,
2707           PRIMARY KEY  (`export_format_id`)
2708         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Used for CSV export';
2709     /);
2710     print "Upgrade to $DBversion done (added csv export profiles)\n";
2711 }
2712
2713 $DBversion = "3.01.00.063";
2714 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2715     $dbh->do("
2716         CREATE TABLE `fieldmapping` (
2717           `id` int(11) NOT NULL auto_increment,
2718           `field` varchar(255) NOT NULL,
2719           `frameworkcode` char(4) NOT NULL default '',
2720           `fieldcode` char(3) NOT NULL,
2721           `subfieldcode` char(1) NOT NULL,
2722           PRIMARY KEY  (`id`)
2723         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2724              ");
2725     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";
2726 }
2727
2728 $DBversion = '3.01.00.065';
2729 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2730     $dbh->do('ALTER TABLE issuingrules ADD COLUMN `renewalsallowed` smallint(6) NOT NULL default "0" AFTER `issuelength`;');
2731     $sth = $dbh->prepare("SELECT itemtype, renewalsallowed FROM itemtypes");
2732     $sth->execute();
2733
2734     my $sthupd = $dbh->prepare("UPDATE issuingrules SET renewalsallowed = ? WHERE itemtype = ?");
2735
2736     while(my $row = $sth->fetchrow_hashref){
2737         $sthupd->execute($row->{renewalsallowed}, $row->{itemtype});
2738     }
2739
2740     $dbh->do('ALTER TABLE itemtypes DROP COLUMN `renewalsallowed`;');
2741
2742     SetVersion ($DBversion);
2743     print "Upgrade to $DBversion done (Moving allowed renewals from itemtypes to issuingrule)\n";
2744 }
2745
2746 $DBversion = '3.01.00.066';
2747 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2748     $dbh->do('ALTER TABLE issuingrules ADD COLUMN `reservesallowed` smallint(6) NOT NULL default "0" AFTER `renewalsallowed`;');
2749
2750     my $maxreserves = C4::Context->preference('maxreserves');
2751     $sth = $dbh->prepare('UPDATE issuingrules SET reservesallowed = ?;');
2752     $sth->execute($maxreserves);
2753
2754     $dbh->do('DELETE FROM systempreferences WHERE variable = "maxreserves";');
2755
2756     $dbh->do("INSERT INTO systempreferences (variable,value, options, explanation, type) VALUES('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights','Choice')");
2757
2758     SetVersion ($DBversion);
2759     print "Upgrade to $DBversion done (Moving max allowed reserves from system preference to issuingrule)\n";
2760 }
2761
2762 $DBversion = "3.01.00.067";
2763 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2764     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchmod', 'Perform batch modification of items')");
2765     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchdel', 'Perform batch deletion of items')");
2766     print "Upgrade to $DBversion done (added permissions for batch modification and deletion)\n";
2767     SetVersion ($DBversion);
2768 }
2769
2770 $DBversion = "3.01.00.068";
2771 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2772         $dbh->do("ALTER TABLE issuingrules ADD COLUMN `finedays` int(11) default NULL AFTER `fine` ");
2773         print "Upgrade to $DBversion done (Adding finedays in issuingrules table)\n";
2774     SetVersion ($DBversion);
2775 }
2776
2777
2778 $DBversion = "3.01.00.069";
2779 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2780         $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('EnableOpacSearchHistory', '1', '', 'Enable or disable opac search history', 'YesNo')");
2781
2782         my $create = <<SEARCHHIST;
2783 CREATE TABLE IF NOT EXISTS `search_history` (
2784   `userid` int(11) NOT NULL,
2785   `sessionid` varchar(32) NOT NULL,
2786   `query_desc` varchar(255) NOT NULL,
2787   `query_cgi` varchar(255) NOT NULL,
2788   `total` int(11) NOT NULL,
2789   `time` timestamp NOT NULL default CURRENT_TIMESTAMP,
2790   KEY `userid` (`userid`),
2791   KEY `sessionid` (`sessionid`)
2792 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Opac search history results';
2793 SEARCHHIST
2794         $dbh->do($create);
2795
2796         print "Upgrade to $DBversion done (added OPAC search history preference and table)\n";
2797 }
2798
2799 $DBversion = "3.01.00.070";
2800 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2801         $dbh->do("ALTER TABLE authorised_values ADD COLUMN `lib_opac` VARCHAR(80) default NULL AFTER `lib`");
2802         print "Upgrade to $DBversion done (Added a lib_opac field in authorised_values table)\n";
2803 }
2804
2805 $DBversion = "3.01.00.071";
2806 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2807         $dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");
2808         $dbh->do("ALTER TABLE subscriptionhistory CHANGE enddate histenddate DATE default NULL");
2809         print "Upgrade to $DBversion done ( Adding enddate to subscription)\n";
2810 }
2811
2812 # Acquisitions update
2813
2814 $DBversion = "3.01.00.072";
2815 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2816     $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')");
2817     # create a new syspref for the 'Mr anonymous' patron
2818     $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,'')");
2819     # fill AnonymousPatron with AnonymousSuggestion value (copy)
2820     my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='AnonSuggestions'");
2821     $sth->execute;
2822     my ($value) = $sth->fetchrow() || 0;
2823     $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='AnonymousPatron'");
2824     # set AnonymousSuggestion do YesNo
2825     # 1st, set the value (1/True if it had a borrowernumber)
2826     $dbh->do("UPDATE systempreferences SET value=1 WHERE variable='AnonSuggestions' AND value>0");
2827     # 2nd, change the type to Choice
2828     $dbh->do("UPDATE systempreferences SET type='YesNo' WHERE variable='AnonSuggestions'");
2829         # borrower reading record privacy : 0 : forever, 1 : laws, 2 : don't keep at all
2830     $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
2831     print "Upgrade to $DBversion done (add new syspref and column in borrowers)\n";
2832     SetVersion ($DBversion);
2833 }
2834
2835 $DBversion = '3.01.00.073';
2836 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2837     $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2838     $dbh->do(<<'END_SQL');
2839 CREATE TABLE IF NOT EXISTS `aqcontract` (
2840   `contractnumber` int(11) NOT NULL auto_increment,
2841   `contractstartdate` date default NULL,
2842   `contractenddate` date default NULL,
2843   `contractname` varchar(50) default NULL,
2844   `contractdescription` mediumtext,
2845   `booksellerid` int(11) not NULL,
2846     PRIMARY KEY  (`contractnumber`),
2847         CONSTRAINT `booksellerid_fk1` FOREIGN KEY (`booksellerid`)
2848         REFERENCES `aqbooksellers` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
2849 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
2850 END_SQL
2851     $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2852     print "Upgrade to $DBversion done (adding aqcontract table)\n";
2853     SetVersion ($DBversion);
2854 }
2855
2856 $DBversion = '3.01.00.074';
2857 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2858     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `basketname` varchar(50) default NULL AFTER `basketno`");
2859     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `note` mediumtext AFTER `basketname`");
2860     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `booksellernote` mediumtext AFTER `note`");
2861     $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `contractnumber` int(11) AFTER `booksellernote`");
2862     $dbh->do("ALTER TABLE `aqbasket` ADD FOREIGN KEY (`contractnumber`) REFERENCES `aqcontract` (`contractnumber`)");
2863     print "Upgrade to $DBversion done (edit aqbasket table done)\n";
2864     SetVersion ($DBversion);
2865 }
2866
2867 $DBversion = '3.01.00.075';
2868 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2869     $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `uncertainprice` tinyint(1)");
2870
2871     print "Upgrade to $DBversion done (adding uncertainprices)\n";
2872     SetVersion ($DBversion);
2873 }
2874
2875 $DBversion = '3.01.00.076';
2876 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2877     $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2878     $dbh->do("CREATE TABLE IF NOT EXISTS `aqbasketgroups` (
2879                          `id` int(11) NOT NULL auto_increment,
2880                          `name` varchar(50) default NULL,
2881                          `closed` tinyint(1) default NULL,
2882                          `booksellerid` int(11) NOT NULL,
2883                          PRIMARY KEY (`id`),
2884                          KEY `booksellerid` (`booksellerid`),
2885                          CONSTRAINT `aqbasketgroups_ibfk_1` FOREIGN KEY (`booksellerid`) REFERENCES `aqbooksellers` (`id`) ON UPDATE CASCADE ON DELETE CASCADE
2886                          ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
2887     $dbh->do("ALTER TABLE aqbasket ADD COLUMN `basketgroupid` int(11)");
2888     $dbh->do("ALTER TABLE aqbasket ADD FOREIGN KEY (`basketgroupid`) REFERENCES `aqbasketgroups` (`id`) ON UPDATE CASCADE ON DELETE SET NULL");
2889     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('pdfformat','pdfformat::layout2pages','Controls what script is used for printing (basketgroups)','','free')");
2890     $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2891     print "Upgrade to $DBversion done (adding basketgroups)\n";
2892     SetVersion ($DBversion);
2893 }
2894 $DBversion = '3.01.00.077';
2895 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2896
2897     $dbh->do("SET FOREIGN_KEY_CHECKS=0 ");
2898     # create a mapping table holding the info we need to match orders to budgets
2899     $dbh->do('DROP TABLE IF EXISTS fundmapping');
2900     $dbh->do(
2901         q|CREATE TABLE fundmapping AS
2902         SELECT aqorderbreakdown.ordernumber, branchcode, bookfundid, budgetdate, entrydate
2903         FROM aqorderbreakdown JOIN aqorders ON aqorderbreakdown.ordernumber = aqorders.ordernumber|);
2904     # match the new type of the corresponding field
2905     $dbh->do('ALTER TABLE fundmapping modify column bookfundid varchar(30)');
2906     # System did not ensure budgetdate was valid historically
2907     $dbh->do(q|UPDATE fundmapping SET budgetdate = entrydate WHERE budgetdate = '0000-00-00' OR budgetdate IS NULL|);
2908     # We save the map in fundmapping in case you need later processing
2909     $dbh->do(q|ALTER TABLE fundmapping add column aqbudgetid integer|);
2910     # these can speed processing up
2911     $dbh->do(q|CREATE INDEX fundmaporder ON fundmapping (ordernumber)|);
2912     $dbh->do(q|CREATE INDEX fundmapid ON fundmapping (bookfundid)|);
2913
2914     $dbh->do("DROP TABLE IF EXISTS `aqbudgetperiods` ");
2915
2916     $dbh->do(qq|
2917                     CREATE TABLE `aqbudgetperiods` (
2918                     `budget_period_id` int(11) NOT NULL auto_increment,
2919                     `budget_period_startdate` date NOT NULL,
2920                     `budget_period_enddate` date NOT NULL,
2921                     `budget_period_active` tinyint(1) default '0',
2922                     `budget_period_description` mediumtext,
2923                     `budget_period_locked` tinyint(1) default NULL,
2924                     `sort1_authcat` varchar(10) default NULL,
2925                     `sort2_authcat` varchar(10) default NULL,
2926                     PRIMARY KEY  (`budget_period_id`)
2927                     ) ENGINE=InnoDB  DEFAULT CHARSET=utf8 |);
2928
2929    $dbh->do(<<ADDPERIODS);
2930 INSERT INTO aqbudgetperiods (budget_period_startdate,budget_period_enddate,budget_period_active,budget_period_description,budget_period_locked)
2931 SELECT DISTINCT startdate, enddate, NOW() BETWEEN startdate and enddate, concat(startdate," ",enddate),NOT NOW() BETWEEN startdate AND enddate from aqbudget
2932 ADDPERIODS
2933 # SORRY , NO AQBUDGET/AQBOOKFUND -> AQBUDGETS IMPORT JUST YET,
2934 # BUT A NEW CLEAN AQBUDGETS TABLE CREATE FOR NOW..
2935 # DROP TABLE IF EXISTS `aqbudget`;
2936 #CREATE TABLE `aqbudget` (
2937 #  `bookfundid` varchar(10) NOT NULL default ',
2938 #    `startdate` date NOT NULL default 0,
2939 #         `enddate` date default NULL,
2940 #           `budgetamount` decimal(13,2) default NULL,
2941 #                 `aqbudgetid` tinyint(4) NOT NULL auto_increment,
2942 #                   `branchcode` varchar(10) default NULL,
2943     DropAllForeignKeys('aqbudget');
2944   #$dbh->do("drop table aqbudget;");
2945
2946
2947     my $maxbudgetid = $dbh->selectcol_arrayref(<<IDsBUDGET);
2948 SELECT MAX(aqbudgetid) from aqbudget
2949 IDsBUDGET
2950
2951 $$maxbudgetid[0] = 0 if !$$maxbudgetid[0];
2952
2953     $dbh->do(<<BUDGETAUTOINCREMENT);
2954 ALTER TABLE aqbudget AUTO_INCREMENT=$$maxbudgetid[0]
2955 BUDGETAUTOINCREMENT
2956
2957     $dbh->do(<<BUDGETNAME);
2958 ALTER TABLE aqbudget RENAME `aqbudgets`
2959 BUDGETNAME
2960
2961     $dbh->do(<<BUDGETS);
2962 ALTER TABLE `aqbudgets`
2963    CHANGE  COLUMN aqbudgetid `budget_id` int(11) NOT NULL AUTO_INCREMENT,
2964    CHANGE  COLUMN branchcode `budget_branchcode` varchar(10) default NULL,
2965    CHANGE  COLUMN budgetamount `budget_amount` decimal(28,6) NOT NULL default '0.00',
2966    CHANGE  COLUMN bookfundid   `budget_code` varchar(30) default NULL,
2967    ADD     COLUMN `budget_parent_id` int(11) default NULL,
2968    ADD     COLUMN `budget_name` varchar(80) default NULL,
2969    ADD     COLUMN `budget_encumb` decimal(28,6) default '0.00',
2970    ADD     COLUMN `budget_expend` decimal(28,6) default '0.00',
2971    ADD     COLUMN `budget_notes` mediumtext,
2972    ADD     COLUMN `budget_description` mediumtext,
2973    ADD     COLUMN `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
2974    ADD     COLUMN `budget_amount_sublevel`  decimal(28,6) AFTER `budget_amount`,
2975    ADD     COLUMN `budget_period_id` int(11) default NULL,
2976    ADD     COLUMN `sort1_authcat` varchar(80) default NULL,
2977    ADD     COLUMN `sort2_authcat` varchar(80) default NULL,
2978    ADD     COLUMN `budget_owner_id` int(11) default NULL,
2979    ADD     COLUMN `budget_permission` int(1) default '0';
2980 BUDGETS
2981
2982     $dbh->do(<<BUDGETCONSTRAINTS);
2983 ALTER TABLE `aqbudgets`
2984    ADD CONSTRAINT `aqbudgets_ifbk_1` FOREIGN KEY (`budget_period_id`) REFERENCES `aqbudgetperiods` (`budget_period_id`) ON DELETE CASCADE ON UPDATE CASCADE
2985 BUDGETCONSTRAINTS
2986 #    $dbh->do(<<BUDGETPKDROP);
2987 #ALTER TABLE `aqbudgets`
2988 #   DROP PRIMARY KEY
2989 #BUDGETPKDROP
2990 #    $dbh->do(<<BUDGETPKADD);
2991 #ALTER TABLE `aqbudgets`
2992 #   ADD PRIMARY KEY budget_id
2993 #BUDGETPKADD
2994
2995
2996         my $query_period= $dbh->prepare(qq|SELECT budget_period_id from aqbudgetperiods where budget_period_startdate=? and budget_period_enddate=?|);
2997         my $query_bookfund= $dbh->prepare(qq|SELECT * from aqbookfund where bookfundid=?|);
2998         my $selectbudgets=$dbh->prepare(qq|SELECT * from aqbudgets|);
2999         my $updatebudgets=$dbh->prepare(qq|UPDATE aqbudgets SET budget_period_id= ? , budget_name=?, budget_branchcode=? where budget_id=?|);
3000         $selectbudgets->execute;
3001         while (my $databudget=$selectbudgets->fetchrow_hashref){
3002                 $query_period->execute ($$databudget{startdate},$$databudget{enddate});
3003                 my ($budgetperiodid)=$query_period->fetchrow;
3004                 $query_bookfund->execute ($$databudget{budget_code});
3005                 my $databf=$query_bookfund->fetchrow_hashref;
3006                 my $branchcode=$$databudget{budget_branchcode}||$$databf{branchcode};
3007                 $updatebudgets->execute($budgetperiodid,$$databf{bookfundname},$branchcode,$$databudget{budget_id});
3008         }
3009     $dbh->do(<<BUDGETDROPDATES);
3010 ALTER TABLE `aqbudgets`
3011    DROP startdate,
3012    DROP enddate
3013 BUDGETDROPDATES
3014
3015
3016     $dbh->do("DROP TABLE IF EXISTS `aqbudgets_planning` ");
3017     $dbh->do("CREATE TABLE  `aqbudgets_planning` (
3018                     `plan_id` int(11) NOT NULL auto_increment,
3019                     `budget_id` int(11) NOT NULL,
3020                     `budget_period_id` int(11) NOT NULL,
3021                     `estimated_amount` decimal(28,6) default NULL,
3022                     `authcat` varchar(30) NOT NULL,
3023                     `authvalue` varchar(30) NOT NULL,
3024                                         `display` tinyint(1) DEFAULT 1,
3025                         PRIMARY KEY  (`plan_id`),
3026                         CONSTRAINT `aqbudgets_planning_ifbk_1` FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON DELETE CASCADE ON UPDATE CASCADE
3027                         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
3028
3029     $dbh->do("ALTER TABLE `aqorders`
3030                     ADD COLUMN `budget_id` tinyint(4) NOT NULL,
3031                     ADD COLUMN `budgetgroup_id` int(11) NOT NULL,
3032                     ADD COLUMN  `sort1_authcat` varchar(10) default NULL,
3033                     ADD COLUMN  `sort2_authcat` varchar(10) default NULL" );
3034                 # We need to map the orders to the budgets
3035                 # For Historic reasons this is more complex than it should be on occasions
3036                 my $budg_arr = $dbh->selectall_arrayref(
3037                     q|SELECT aqbudgets.budget_id, aqbudgets.budget_code, aqbudgetperiods.budget_period_startdate,
3038                     aqbudgetperiods.budget_period_enddate
3039                     FROM aqbudgets JOIN aqbudgetperiods ON aqbudgets.budget_period_id = aqbudgetperiods.budget_period_id
3040                     ORDER BY budget_code, budget_period_startdate|, { Slice => {} });
3041                 # We arbitarily order on start date, this means if you have overlapping periods the order will be
3042                 # linked to the latest matching budget YMMV
3043                 my $b_sth = $dbh->prepare(
3044                     'UPDATE fundmapping set aqbudgetid = ? where bookfundid =? AND budgetdate >= ? AND budgetdate <= ?');
3045                 for my $b ( @{$budg_arr}) {
3046                     $b_sth->execute($b->{budget_id}, $b->{budget_code}, $b->{budget_period_startdate}, $b->{budget_period_enddate});
3047                 }
3048                 # move the budgetids to aqorders
3049                 $dbh->do(q|UPDATE aqorders, fundmapping SET aqorders.budget_id = fundmapping.aqbudgetid
3050                     WHERE aqorders.ordernumber = fundmapping.ordernumber AND fundmapping.aqbudgetid IS NOT NULL|);
3051                 # NB fundmapping is left as an accontants trail also if you have budgetids that werent set
3052                 # you can decide what to do with them
3053
3054      $dbh->do(
3055          q|UPDATE aqorders, aqbudgets SET aqorders.budgetgroup_id = aqbudgets.budget_period_id
3056          WHERE aqorders.budget_id = aqbudgets.budget_id|);
3057                 # cannot do until aqorderbreakdown removed
3058 #    $dbh->do("DROP TABLE aqbookfund ");
3059 #    $dbh->do("ALTER TABLE aqorders  ADD FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON UPDATE CASCADE  " ); ????
3060     $dbh->do("SET FOREIGN_KEY_CHECKS=1 ");
3061
3062     print "Upgrade to $DBversion done (Adding new aqbudgetperiods, aqbudgets and aqbudget_planning tables  )\n";
3063     SetVersion ($DBversion);
3064 }
3065
3066
3067
3068 $DBversion = '3.01.00.078';
3069 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3070     $dbh->do("ALTER TABLE aqbudgetperiods ADD COLUMN budget_period_total decimal(28,6)");
3071     print "Upgrade to $DBversion done (adds 'budget_period_total' column to aqbudgetperiods table)\n";
3072     SetVersion($DBversion);
3073 }
3074
3075
3076 $DBversion = '3.01.00.079';
3077 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3078     $dbh->do("ALTER TABLE currency ADD COLUMN active  tinyint(1)");
3079
3080     print "Upgrade to $DBversion done (adds 'active' column to currencies table)\n";
3081     SetVersion($DBversion);
3082 }
3083
3084 $DBversion = '3.01.00.080';
3085 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3086     $dbh->do(<<BUDG_PERM );
3087 INSERT INTO permissions (module_bit, code, description) VALUES
3088             (11, 'vendors_manage', 'Manage vendors'),
3089             (11, 'contracts_manage', 'Manage contracts'),
3090             (11, 'period_manage', 'Manage periods'),
3091             (11, 'budget_manage', 'Manage budgets'),
3092             (11, 'budget_modify', "Modify budget (can't create lines but can modify existing ones)"),
3093             (11, 'planning_manage', 'Manage budget plannings'),
3094             (11, 'order_manage', 'Manage orders & basket'),
3095             (11, 'group_manage', 'Manage orders & basketgroups'),
3096             (11, 'order_receive', 'Manage orders & basket'),
3097             (11, 'budget_add_del', "Add and delete budgets (but can't modify budgets)");
3098 BUDG_PERM
3099
3100     print "Upgrade to $DBversion done (adds permissions for the acquisitions module)\n";
3101     SetVersion($DBversion);
3102 }
3103
3104
3105 $DBversion = '3.01.00.081';
3106 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3107     $dbh->do("ALTER TABLE aqbooksellers ADD COLUMN `gstrate` decimal(6,4) default NULL");
3108     if (my $gist=C4::Context->preference("gist")){
3109                 my $sql=$dbh->prepare("UPDATE aqbooksellers set `gstrate`=? ");
3110         $sql->execute($gist) ;
3111         }
3112     print "Upgrade to $DBversion done (added per-supplier gstrate setting)\n";
3113     SetVersion($DBversion);
3114 }
3115
3116 $DBversion = "3.01.00.082";
3117 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3118     if (C4::Context->preference("opaclanguages") eq "fr") {
3119         $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')#);
3120     } else {
3121         $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')");
3122     }
3123     print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
3124     SetVersion ($DBversion);
3125 }
3126
3127 $DBversion = "3.01.00.083";
3128 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3129     $dbh->do(qq|
3130  CREATE TABLE `aqorders_items` (
3131   `ordernumber` int(11) NOT NULL,
3132   `itemnumber` int(11) NOT NULL,
3133   `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
3134   PRIMARY KEY  (`itemnumber`),
3135   KEY `ordernumber` (`ordernumber`)
3136 ) ENGINE=InnoDB DEFAULT CHARSET=utf8   |
3137     );
3138
3139     $dbh->do(qq| DROP TABLE aqorderbreakdown |);
3140     $dbh->do('DROP TABLE aqbookfund');
3141     print "Upgrade to $DBversion done (New aqorders_items table for acqui)\n";
3142     SetVersion ($DBversion);
3143 }
3144
3145 $DBversion = "3.01.00.084";
3146 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3147     $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')  #);
3148
3149     print "Upgrade to $DBversion done (CurrencyFormat syspref added)\n";
3150     SetVersion ($DBversion);
3151 }
3152
3153 $DBversion = "3.01.00.085";
3154 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3155     $dbh->do("ALTER table aqorders drop column title");
3156     $dbh->do("ALTER TABLE `aqorders` CHANGE `budget_id` `budget_id` INT( 11 ) NOT NULL");
3157     print "Upgrade to $DBversion done update budget_id size that should not be a tinyint\n";
3158     SetVersion ($DBversion);
3159 }
3160
3161 $DBversion = "3.01.00.086";
3162 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3163     $dbh->do(<<SUGGESTIONS);
3164 ALTER table suggestions
3165     ADD budgetid INT(11),
3166     ADD branchcode VARCHAR(10) default NULL,
3167     ADD acceptedby INT(11) default NULL,
3168     ADD accepteddate date default NULL,
3169     ADD suggesteddate date default NULL,
3170     ADD manageddate date default NULL,
3171     ADD rejectedby INT(11) default NULL,
3172     ADD rejecteddate date default NULL,
3173     ADD collectiontitle text default NULL,
3174     ADD itemtype VARCHAR(30) default NULL
3175     ;
3176 SUGGESTIONS
3177     print "Upgrade to $DBversion done (Suggestions)\n";
3178     SetVersion ($DBversion);
3179 }
3180
3181 $DBversion = "3.01.00.087";
3182 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3183     $dbh->do("ALTER table aqbudgets drop column budget_amount_sublevel;");
3184     print "Upgrade to $DBversion done (Drop column budget_amount_sublevel from aqbudgets)\n";
3185     SetVersion ($DBversion);
3186 }
3187
3188 $DBversion = "3.01.00.088";
3189 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3190     $dbh->do(  qq# INSERT INTO `systempreferences` VALUES ('intranetbookbag','1','','If ON, enables display of Cart feature in the intranet','YesNo')  #);
3191
3192     print "Upgrade to $DBversion done (intranetbookbag syspref added)\n";
3193     SetVersion ($DBversion);
3194 }
3195
3196 $DBversion = "3.01.00.090";
3197 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3198 $dbh->do("
3199        INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3200                 (16, 'execute_reports', 'Execute SQL reports'),
3201                 (16, 'create_reports', 'Create SQL Reports')
3202         ");
3203
3204     print "Upgrade to $DBversion done (granular permissions for guided reports added)\n";
3205     SetVersion ($DBversion);
3206 }
3207
3208 $DBversion = "3.01.00.091";
3209 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3210 $dbh->do("
3211         UPDATE `systempreferences` SET `options` = 'holdings|serialcollection|subscriptions'
3212         WHERE `systempreferences`.`variable` = 'opacSerialDefaultTab' LIMIT 1
3213         ");
3214
3215     print "Upgrade to $DBversion done (opac-detail default tag updated)\n";
3216     SetVersion ($DBversion);
3217 }
3218
3219 $DBversion = "3.01.00.092";
3220 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3221     if (C4::Context->preference("opaclanguages") =~ /fr/) {
3222         $dbh->do(qq{
3223 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');
3224         });
3225         }else{
3226         $dbh->do(qq{
3227 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');
3228         });
3229         }
3230     print "Upgrade to $DBversion done (Added RoutingListAddReserves syspref)\n";
3231     SetVersion ($DBversion);
3232 }
3233
3234 $DBversion = "3.01.00.093";
3235 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3236         $dbh->do(qq{
3237         ALTER TABLE biblioitems ADD INDEX issn_idx (issn);
3238         });
3239     print "Upgrade to $DBversion done (added index to ISSN)\n";
3240     SetVersion ($DBversion);
3241 }
3242
3243 $DBversion = "3.01.00.094";
3244 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3245         $dbh->do(qq{
3246         ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10) default NULL, ADD deliverycomment VARCHAR(255) default NULL;
3247         });
3248
3249     print "Upgrade to $DBversion done (adding deliveryplace deliverycomment to basketgroups)\n";
3250     SetVersion ($DBversion);
3251 }
3252
3253 $DBversion = "3.01.00.095";
3254 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3255         $dbh->do(qq{
3256         ALTER TABLE items ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number";
3257         });
3258         $dbh->do(qq{
3259         ALTER TABLE items ADD UNIQUE INDEX itemsstocknumberidx (stocknumber);
3260         });
3261         $dbh->do(qq{
3262         ALTER TABLE deleteditems ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number of deleted items";
3263         });
3264         $dbh->do(qq{
3265         ALTER TABLE deleteditems ADD UNIQUE INDEX deleteditemsstocknumberidx (stocknumber);
3266         });
3267         if (C4::Context->preference('marcflavour') eq 'UNIMARC'){
3268                 $dbh->do(qq{
3269         INSERT IGNORE INTO marc_subfield_structure (frameworkcode,tagfield, tagsubfield, tab, repeatable, mandatory,kohafield)
3270         SELECT DISTINCT (frameworkcode),995,"j",10,0,0,"items.stocknumber" from biblio_framework ;
3271                 });
3272                 #Previously, copynumber was used as stocknumber
3273                 $dbh->do(qq{
3274         UPDATE items set stocknumber=copynumber;
3275                 });
3276                 $dbh->do(qq{
3277         UPDATE items set copynumber=NULL;
3278                 });
3279         }
3280     print "Upgrade to $DBversion done (stocknumber field added)\n";
3281     SetVersion ($DBversion);
3282 }
3283
3284 $DBversion = "3.01.00.096";
3285 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3286     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OrderPdfTemplate','','Uploads a PDF template to use for printing baskets','NULL','Upload')");
3287     $dbh->do("UPDATE systempreferences SET variable='OrderPdfFormat' WHERE variable='pdfformat'");
3288     print "Upgrade to $DBversion done (PDF orders system preferences added and updated)\n";
3289     SetVersion ($DBversion);
3290 }
3291
3292 $DBversion = "3.01.00.097";
3293 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3294         $dbh->do(qq{
3295         ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10) NOT NULL AFTER deliverycomment;
3296         });
3297
3298     print "Upgrade to $DBversion done (Adding billingplace to aqbasketgroups)\n";
3299     SetVersion ($DBversion);
3300 }
3301
3302 $DBversion = "3.01.00.098";
3303 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3304         $dbh->do(qq{
3305         ALTER TABLE auth_subfield_structure MODIFY frameworkcode VARCHAR(10) NULL;
3306         });
3307
3308     print "Upgrade to $DBversion done (changing frameworkcode length in auth_subfield_structure)\n";
3309     SetVersion ($DBversion);
3310 }
3311
3312 $DBversion = "3.01.00.099";
3313 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3314         $dbh->do(qq{
3315                 INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3316                 (9, 'edit_catalogue', 'Edit catalogue'),
3317                 (9, 'fast_cataloging', 'Fast cataloging')
3318         });
3319
3320     print "Upgrade to $DBversion done (granular permissions for cataloging added)\n";
3321     SetVersion ($DBversion);
3322 }
3323
3324 $DBversion = "3.01.00.100";
3325 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3326         $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')");
3327         print "Upgrade to $DBversion done (added CAS authentication system preferences)\n";
3328     SetVersion ($DBversion);
3329 }
3330
3331 $DBversion = "3.01.00.101";
3332 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3333         $dbh->do(
3334         "INSERT INTO systempreferences
3335            (variable, value, options, explanation, type)
3336          VALUES (
3337             'OverdueNoticeBcc', '', '',
3338             'Email address to Bcc outgoing notices sent by email',
3339             'free')
3340          ");
3341         print "Upgrade to $DBversion done (added OverdueNoticeBcc system preferences)\n";
3342     SetVersion ($DBversion);
3343 }
3344 $DBversion = "3.01.00.102";
3345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3346     $dbh->do(
3347     "UPDATE permissions set description = 'Edit catalog (Modify bibliographic/holdings data)' where module_bit = 9 and code = 'edit_catalogue'"
3348     );
3349         print "Upgrade to $DBversion done (fixed spelling error in edit_catalogue permission)\n";
3350     SetVersion ($DBversion);
3351 }
3352
3353 $DBversion = "3.01.00.103";
3354 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3355         $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES (13, 'moderate_tags', 'Moderate patron tags')");
3356         print "Upgrade to $DBversion done (adding patron permissions for tags tool)\n";
3357     SetVersion ($DBversion);
3358 }
3359
3360 $DBversion = "3.01.00.104";
3361 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3362
3363     my ($maninv_count, $borrnotes_count);
3364     eval { $maninv_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='MANUAL_INV'"); };
3365     if ($maninv_count == 0) {
3366         $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('MANUAL_INV','Copier Fees','.25')");
3367     }
3368     eval { $borrnotes_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='BOR_NOTES'"); };
3369     if ($borrnotes_count == 0) {
3370         $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('BOR_NOTES','ADDR','Address Notes')");
3371     }
3372
3373     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','CART','Book Cart')");
3374     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','PROC','Processing Center')");
3375
3376         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";
3377         SetVersion ($DBversion);
3378 }
3379
3380
3381 $DBversion = "3.01.00.105";
3382 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3383     $dbh->do("
3384       CREATE TABLE `collections` (
3385         `colId` int(11) NOT NULL auto_increment,
3386         `colTitle` varchar(100) NOT NULL default '',
3387         `colDesc` text NOT NULL,
3388         `colBranchcode` varchar(4) default NULL COMMENT 'branchcode for branch where item should be held.',
3389         PRIMARY KEY  (`colId`)
3390       ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3391     ");
3392
3393     $dbh->do("
3394       CREATE TABLE `collections_tracking` (
3395         `ctId` int(11) NOT NULL auto_increment,
3396         `colId` int(11) NOT NULL default '0' COMMENT 'collections.colId',
3397         `itemnumber` int(11) NOT NULL default '0' COMMENT 'items.itemnumber',
3398         PRIMARY KEY  (`ctId`)
3399       ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3400     ");
3401     $dbh->do("
3402         INSERT INTO permissions (module_bit, code, description)
3403         VALUES ( 13, 'rotating_collections', 'Manage Rotating collections')" );
3404         print "Upgrade to $DBversion done (added collection and collection_tracking tables for rotating collections functionality)\n";
3405     SetVersion ($DBversion);
3406 }
3407 $DBversion = "3.01.00.106";
3408 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3409         $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' )");
3410         print "Upgrade to $DBversion done (added OpacAddMastheadLibraryPulldown system preferences)\n";
3411     SetVersion ($DBversion);
3412 }
3413
3414 $DBversion = '3.01.00.107';
3415 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3416     my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/patroncards_upgrade.pl";
3417     system("perl $upgrade_script");
3418     print "Upgrade to $DBversion done (Migrated labels and patroncards tables and data to new schema.)\n";
3419     SetVersion ($DBversion);
3420 }
3421
3422 $DBversion = '3.01.00.108';
3423 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3424         $dbh->do(qq{
3425     ALTER TABLE `export_format` ADD `csv_separator` VARCHAR( 2 ) NOT NULL AFTER `marcfields` ,
3426     ADD `field_separator` VARCHAR( 2 ) NOT NULL AFTER `csv_separator` ,
3427     ADD `subfield_separator` VARCHAR( 2 ) NOT NULL AFTER `field_separator`
3428     });
3429         print "Upgrade to $DBversion done (added separators for csv export)\n";
3430     SetVersion ($DBversion);
3431 }
3432
3433 $DBversion = "3.01.00.109";
3434 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3435         $dbh->do(qq{
3436         ALTER TABLE `export_format` ADD `encoding` VARCHAR(255) NOT NULL AFTER `subfield_separator`
3437         });
3438         print "Upgrade to $DBversion done (added encoding for csv export)\n";
3439     SetVersion ($DBversion);
3440 }
3441
3442 $DBversion = '3.01.00.110';
3443 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3444     $dbh->do('ALTER TABLE `categories` ADD COLUMN `enrolmentperioddate` DATE NULL DEFAULT NULL AFTER `enrolmentperiod`');
3445     print "Upgrade to $DBversion done (Add enrolment period date support)\n";
3446     SetVersion ($DBversion);
3447 }
3448
3449 $DBversion = '3.01.00.111';
3450 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3451     print "Upgrade to $DBversion done (mark DBrev for 3.2-alpha release)\n";
3452     SetVersion ($DBversion);
3453 }
3454
3455 $DBversion = '3.01.00.112';
3456 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3457         $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');");
3458         print "Upgrade to $DBversion done ( added Show Spine Label Printer on Bib Items Details preferences )\n";
3459     SetVersion ($DBversion);
3460 }
3461
3462 $DBversion = '3.01.00.113';
3463 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3464     my $value = C4::Context->preference("XSLTResultsDisplay");
3465     $dbh->do(
3466         "INSERT INTO systempreferences (variable,value,type)
3467          VALUES('OPACXSLTResultsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3468     $value = C4::Context->preference("XSLTDetailsDisplay");
3469     $dbh->do(
3470         "INSERT INTO systempreferences (variable,value,type)
3471          VALUES('OPACXSLTDetailsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3472     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";
3473     SetVersion ($DBversion);
3474 }
3475
3476 $DBversion = '3.01.00.114';
3477 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3478     $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')");
3479     $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')");
3480     $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')");
3481         print "Upgrade to $DBversion done ( Added AutoSelfCheckAllowed, AutoSelfCheckID, and AutoShelfCheckPass system preference )\n";
3482     SetVersion ($DBversion);
3483 }
3484
3485 $DBversion = '3.01.00.115';
3486 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3487     $dbh->do('UPDATE aqorders SET quantityreceived = 0 WHERE quantityreceived IS NULL');
3488     $dbh->do('ALTER TABLE aqorders MODIFY COLUMN quantityreceived smallint(6) NOT NULL DEFAULT 0');
3489         print "Upgrade to $DBversion done ( Default aqorders.quantityreceived to 0 )\n";
3490     SetVersion ($DBversion);
3491 }
3492
3493 $DBversion = '3.01.00.116';
3494 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3495         if (C4::Context->preference('OrderPdfFormat') eq 'pdfformat::example'){
3496                 $dbh->do("UPDATE `systempreferences` set value='pdfformat::layout2pages' WHERE variable='OrderPdfFormat'");
3497         }
3498         print "Upgrade to $DBversion done (corrected default OrderPdfFormat value if still set wrong )\n";
3499     SetVersion ($DBversion);
3500 }
3501
3502 $DBversion = '3.01.00.117';
3503 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3504     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'por' WHERE rfc4646_subtag='pt' ");
3505     print "Upgrade to $DBversion done (corrected ISO 639-2 language code for Portuguese)\n";
3506     SetVersion ($DBversion);
3507 }
3508
3509 $DBversion = '3.01.00.118';
3510 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3511     my ($count) = $dbh->selectrow_array("SELECT count(*) FROM information_schema.columns
3512                                          WHERE table_name = 'aqbudgets_planning'
3513                                          AND column_name = 'display'");
3514     if ($count < 1) {
3515         $dbh->do("ALTER TABLE aqbudgets_planning ADD COLUMN display tinyint(1) DEFAULT 1");
3516     }
3517     print "Upgrade to $DBversion done (bug 4203: add display column to aqbudgets_planning if missing)\n";
3518     SetVersion ($DBversion);
3519 }
3520
3521 $DBversion = '3.01.00.119';
3522 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3523     eval{require Locale::Currency::Format};
3524     if (!$@) {
3525         print "Upgrade to $DBversion done (Locale::Currency::Format installed.)\n";
3526         SetVersion ($DBversion);
3527     }
3528     else {
3529         print "Upgrade to $DBversion done.\n";
3530         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";
3531         SetVersion ($DBversion);
3532     }
3533 }
3534
3535 $DBversion = '3.01.00.120';
3536 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3537     $dbh->do(q{
3538 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');
3539 });
3540     print "Upgrade to $DBversion done (bug 1080: add soundon system preference for circulation sounds)\n";
3541     SetVersion ($DBversion);
3542 }
3543
3544 $DBversion = '3.01.00.121';
3545 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3546     $dbh->do("ALTER TABLE `reserves` ADD `expirationdate` DATE DEFAULT NULL");
3547     $dbh->do("ALTER TABLE `reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3548     $dbh->do("ALTER TABLE `old_reserves` ADD `expirationdate` DATE DEFAULT NULL");
3549     $dbh->do("ALTER TABLE `old_reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3550     print "Upgrade to $DBversion done ( Added Additional Fields to Reserves tables )\n";
3551     SetVersion ($DBversion);
3552 }
3553
3554 $DBversion = '3.01.00.122';
3555 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3556     $dbh->do(q{
3557       INSERT INTO systempreferences (variable,value,explanation,options,type)
3558       VALUES ('OAI-PMH:ConfFile', '', 'If empty, Koha OAI Server operates in normal mode, otherwise it operates in extended mode.','','File');
3559 });
3560     print "Upgrade to $DBversion done. — Add a new system preference OAI-PMF:ConfFile\n";
3561     SetVersion ($DBversion);
3562 }
3563
3564 $DBversion = "3.01.00.123";
3565 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3566     $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3567         (6, 'place_holds', 'Place holds for patrons')");
3568     $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3569         (6, 'modify_holds_priority', 'Modify holds priority')");
3570     $dbh->do("UPDATE `userflags` SET `flagdesc` = 'Place and modify holds for patrons' WHERE `flag` = 'reserveforothers'");
3571     print "Upgrade to $DBversion done (Add granular permission for holds modification and update description of reserveforothers permission)\n";
3572     SetVersion ($DBversion);
3573 }
3574
3575 $DBversion = '3.01.00.124';
3576 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3577     $dbh->do("
3578         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>>).');
3579     ");
3580     print "Upgrade to $DBversion done (bug 3242: add HOLDPLACED letter template, which is used when emailLibrarianWhenHoldIsPlaced is enabled)\n";
3581     SetVersion ($DBversion);
3582 }
3583
3584 $DBversion = '3.01.00.125';
3585 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3586     $dbh->do("
3587         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' );
3588     ");
3589     $dbh->do("
3590         INSERT INTO message_transport_types (message_transport_type) values ('print');
3591     ");
3592     print "Upgrade to $DBversion done (bug 3482: Printable hold and overdue notices)\n";
3593     SetVersion ($DBversion);
3594 }
3595
3596 $DBversion = "3.01.00.126";
3597 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3598         $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')");
3599         $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')");
3600
3601     print "Upgrade to $DBversion done (Adding ILS-DI updates and ILS-DI:AuthorizedIPs)\n";
3602     SetVersion ($DBversion);
3603 }
3604
3605 $DBversion = '3.01.00.127';
3606 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3607     $dbh->do("ALTER TABLE messages CHANGE branchcode branchcode varchar(10);");
3608     print "Upgrade to $DBversion done (bug 4190: messages in patron account did not work with branchcodes > 4)\n";
3609     SetVersion ($DBversion);
3610 }
3611
3612 $DBversion = '3.01.00.128';
3613 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3614     $dbh->do('CREATE INDEX budget_id ON aqorders (budget_id );');
3615     print "Upgrade to $DBversion done (bug 4331: index orders by budget_id)\n";
3616     SetVersion ($DBversion);
3617 }
3618
3619 $DBversion = "3.01.00.129";
3620 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3621         $dbh->do("UPDATE `permissions` SET `code` = 'items_batchdel' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchdel' LIMIT 1 ;");
3622         $dbh->do("UPDATE `permissions` SET `code` = 'items_batchmod' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchmod' LIMIT 1 ;");
3623         print "Upgrade to $DBversion done (Change permissions names for item batch modification / deletion)\n";
3624
3625     SetVersion ($DBversion);
3626 }
3627
3628 $DBversion = "3.01.00.130";
3629 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3630     $dbh->do("UPDATE reserves SET expirationdate = NULL WHERE expirationdate = '0000-00-00'");
3631     print "Upgrade to $DBversion done (change reserves.expirationdate values of 0000-00-00 to NULL (bug 1532)\n";
3632     SetVersion ($DBversion);
3633 }
3634
3635 $DBversion = "3.01.00.131";
3636 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3637         $dbh->do(q{
3638 INSERT IGNORE INTO message_transport_types (message_transport_type) VALUES ('print'),('feed');
3639     });
3640     print "Upgrade to $DBversion done (adding print and feed message transport types)\n";
3641     SetVersion ($DBversion);
3642 }
3643
3644 $DBversion = "3.01.00.132";
3645 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3646         $dbh->do(q{
3647     ALTER TABLE language_descriptions ADD INDEX subtag_type_lang (subtag, type, lang);
3648     });
3649     print "Upgrade to $DBversion done (Adding index to language_descriptions table)\n";
3650     SetVersion ($DBversion);
3651 }
3652
3653 $DBversion = '3.01.00.133';
3654 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3655     $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')");
3656     print "Upgrade to $DBversion done (bug 4405: added OverduesBlockCirc syspref to control whether circulation is blocked if a borrower has overdues)\n";
3657     SetVersion ($DBversion);
3658 }
3659
3660 $DBversion = '3.01.00.134';
3661 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3662     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('DisplayMultiPlaceHold','1','Display the ability to place multiple holds or not','','YesNo')");
3663     print "Upgrade to $DBversion done (adding syspref DisplayMultiPlaceHold to control whether multiple holds can be placed from the search results page)\n";
3664     SetVersion ($DBversion);
3665 }
3666
3667 $DBversion = '3.01.00.135';
3668 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3669     $dbh->do("
3670         INSERT INTO `letter` (module, code, name, title, content) VALUES
3671 ('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')
3672 ");
3673     print "Upgrade to $DBversion done (bug 4377: added HOLD_PRINT message template)\n";
3674     SetVersion ($DBversion);
3675 }
3676
3677 $DBversion = '3.01.00.136';
3678 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3679     $dbh->do(qq{
3680 INSERT INTO permissions (module_bit, code, description) VALUES
3681    ( 9, 'edit_items', 'Edit Items');});
3682     print "Upgrade to $DBversion done (Adding a new permission to edit items)\n";
3683     SetVersion ($DBversion);
3684 }
3685
3686 $DBversion = "3.01.00.137";
3687 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3688         $dbh->do("
3689           INSERT INTO permissions (module_bit, code, description) VALUES
3690           (15, 'check_expiration', 'Check the expiration of a serial'),
3691           (15, 'claim_serials', 'Claim missing serials'),
3692           (15, 'create_subscription', 'Create a new subscription'),
3693           (15, 'delete_subscription', 'Delete an existing subscription'),
3694           (15, 'edit_subscription', 'Edit an existing subscription'),
3695           (15, 'receive_serials', 'Serials receiving'),
3696           (15, 'renew_subscription', 'Renew a subscription'),
3697           (15, 'routing', 'Routing');
3698                  ");
3699     print "Upgrade to $DBversion done (adding granular permissions for serials)\n";
3700     SetVersion ($DBversion);
3701 }
3702
3703 $DBversion = "3.01.00.138";
3704 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3705     $dbh->do("DELETE FROM systempreferences WHERE variable = 'GranularPermissions'");
3706     print "Upgrade to $DBversion done (bug 4896: removing GranularPermissions syspref; use of granular permissions is now the default)\n";
3707     SetVersion ($DBversion);
3708 }
3709
3710 $DBversion = '3.01.00.139';
3711 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3712     $dbh->do("ALTER TABLE message_attributes CHANGE message_name message_name varchar(40);");
3713     print "Upgrade to $DBversion done (bug 3682: change message_name from varchar(20) to varchar(40))\n";
3714     SetVersion ($DBversion);
3715 }
3716
3717 $DBversion = '3.01.00.140';
3718 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3719     $dbh->do("UPDATE systempreferences SET value = '0' WHERE variable = 'TagsModeration' AND value is NULL");
3720     print "Upgrade to $DBversion done (bug 4312 TagsModeration changed from NULL to 0)\n";
3721     SetVersion ($DBversion);
3722 }
3723
3724 $DBversion = '3.01.00.141';
3725 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3726     $dbh->do(qq{DELETE FROM message_attributes WHERE message_attribute_id=3;});
3727     $dbh->do(qq{DELETE FROM letter WHERE code='EVENT' AND title='Upcoming Library Event';});
3728     print "Upgrade to $DBversion done Remove upcoming events messaging option (bug 2434)\n";
3729     SetVersion ($DBversion);
3730 }
3731
3732 $DBversion = '3.01.00.142';
3733 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3734     $dbh->do(qq{DELETE FROM message_transports WHERE message_attribute_id=3;});
3735     print "Upgrade to $DBversion done (Remove upcoming events messaging option part 2 (bug 2434))\n";
3736     SetVersion ($DBversion);
3737 }
3738
3739 $DBversion = '3.01.00.143';
3740 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3741     $dbh->do(qq{CREATE INDEX auth_value_idx ON authorised_values (authorised_value)});
3742     $dbh->do(qq{CREATE INDEX auth_val_cat_idx ON borrower_attribute_types (authorised_value_category)});
3743     print "Upgrade to $DBversion done (Create index on authorised_values and borrower_attribute_types (bug 4139))\n";
3744     SetVersion ($DBversion);
3745 }
3746
3747 $DBversion = '3.01.00.144';
3748 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3749     $dbh->do(qq{UPDATE systempreferences SET value='normal' where value='default' and variable='IntranetBiblioDefaultView'});
3750     print "Upgrade to $DBversion done (Update the 'default' to 'normal' for the IntranetBiblioDefaultView syspref (bug 5007))\n";
3751     SetVersion ($DBversion);
3752 }
3753
3754 $DBversion = "3.01.00.145";
3755 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3756     $dbh->do("ALTER TABLE borrowers ADD KEY `guarantorid` (guarantorid);");
3757     print "Upgrade to $DBversion done (Add index on guarantorid)\n";
3758     SetVersion ($DBversion);
3759 }
3760
3761 $DBversion = '3.01.00.999';
3762 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3763     print "Upgrade to $DBversion done (3.2.0 release candidate)\n";
3764     SetVersion ($DBversion);
3765 }
3766
3767 $DBversion = "3.02.00.000";
3768 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3769     my $value = $dbh->selectrow_array("SELECT value FROM systempreferences WHERE variable = 'HomeOrHoldingBranch'");
3770     $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');");
3771     print "Upgrade to $DBversion done (Add HomeOrHoldingBranchReturn system preference)\n";
3772     SetVersion ($DBversion);
3773 }
3774
3775 $DBversion = "3.02.00.001";
3776 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3777     $dbh->do(q{DELETE FROM systempreferences WHERE variable IN (
3778                 'holdCancelLength',
3779                 'PINESISBN',
3780                 'sortbynonfiling',
3781                 'TemplateEncoding',
3782                 'OPACSubscriptionDisplay',
3783                 'OPACDisplayExtendedSubInfo',
3784                 'OAI-PMH:Set',
3785                 'OAI-PMH:Subset',
3786                 'libraryAddress',
3787                 'kohaspsuggest',
3788                 'OrderPdfTemplate',
3789                 'marc',
3790                 'acquisitions',
3791                 'MIME')
3792                }
3793     );
3794     print "Upgrade to $DBversion done (bug 3756: remove disused system preferences)\n";
3795     SetVersion ($DBversion);
3796 }
3797
3798 $DBversion = "3.02.00.002";
3799 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3800     $dbh->do(q{DELETE FROM systempreferences WHERE variable = 'OpacPrivacy'});
3801     print "Upgrade to $DBversion done (bug 3881: remove unused OpacPrivacy system preference)\n";
3802     SetVersion ($DBversion);
3803 }
3804
3805 $DBversion = "3.02.00.003";
3806 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3807     $dbh->do(q{UPDATE systempreferences SET variable = 'ILS-DI:AuthorizedIPs' WHERE variable = 'ILS-DI:Authorized_IPs'});
3808     print "Upgrade to $DBversion done (correct ILS-DI:AuthorizedIPs)\n";
3809     SetVersion ($DBversion);
3810 }
3811
3812 $DBversion = "3.02.00.004";
3813 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3814     print "Upgrade to $DBversion done (3.2.0 general release)\n";
3815     SetVersion ($DBversion);
3816 }
3817 # This is the point where 3.2.x and master diverged, we can use $original_version to make sure we don't
3818
3819 # apply updates that have already been done
3820
3821 $DBversion = "3.03.00.001";
3822 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.005")) {
3823     $dbh->do("DELETE FROM subscriptionroutinglist WHERE borrowernumber IS NULL;");
3824     $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `borrowernumber` int(11) NOT NULL;");
3825     $dbh->do("DELETE FROM subscriptionroutinglist WHERE subscriptionid IS NULL;");
3826     $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `subscriptionid` int(11) NOT NULL;");
3827     $dbh->do("CREATE TEMPORARY TABLE del_subscriptionroutinglist
3828               SELECT s1.routingid FROM subscriptionroutinglist s1
3829               WHERE EXISTS (SELECT * FROM subscriptionroutinglist s2
3830                             WHERE s2.borrowernumber = s1.borrowernumber
3831                             AND   s2.subscriptionid = s1.subscriptionid
3832                             AND   s2.routingid < s1.routingid);");
3833     $dbh->do("DELETE FROM subscriptionroutinglist
3834               WHERE routingid IN (SELECT routingid FROM del_subscriptionroutinglist);");
3835     $dbh->do("ALTER TABLE subscriptionroutinglist ADD UNIQUE (subscriptionid, borrowernumber);");
3836     $dbh->do("ALTER TABLE subscriptionroutinglist
3837                 ADD CONSTRAINT `subscriptionroutinglist_ibfk_1` FOREIGN KEY (`borrowernumber`)
3838                 REFERENCES `borrowers` (`borrowernumber`)
3839                 ON DELETE CASCADE ON UPDATE CASCADE");
3840     $dbh->do("ALTER TABLE subscriptionroutinglist
3841                 ADD CONSTRAINT `subscriptionroutinglist_ibfk_2` FOREIGN KEY (`subscriptionid`)
3842                 REFERENCES `subscription` (`subscriptionid`)
3843                 ON DELETE CASCADE ON UPDATE CASCADE");
3844     print "Upgrade to $DBversion done (Make subscriptionroutinglist more strict)\n";
3845     SetVersion ($DBversion);
3846 }
3847
3848 $DBversion = '3.03.00.002';
3849 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.006")) {
3850     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='arm' WHERE rfc4646_subtag='hy';");
3851     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='eng' WHERE rfc4646_subtag='en';");
3852     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'fi','fin');");
3853     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='fre' WHERE rfc4646_subtag='fr';");
3854     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'lo','lao');");
3855     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it';");
3856     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'sr','srp');");
3857     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'tet','tet');");
3858     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ur','urd');");
3859
3860     print "Upgrade to $DBversion done (Correct language mappings)\n";
3861     SetVersion ($DBversion);
3862 }
3863
3864 $DBversion = '3.03.00.003';
3865 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.007")) {
3866     $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');");
3867     print "Upgrade to $DBversion done (Add UseTablesortForCirc syspref)\n";
3868     SetVersion ($DBversion);
3869 }
3870
3871 $DBversion = '3.03.00.004';
3872 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.001")) {
3873     my $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ACCEPTED');
3874     $dbh->do(q/
3875 INSERT INTO `letter`
3876 (module, code, name, title, content)
3877 VALUES
3878 ('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>>')
3879 /) unless $count > 0;
3880     $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'AVAILABLE');
3881     $dbh->do(q/
3882 INSERT INTO `letter`
3883 (module, code, name, title, content)
3884 VALUES
3885 ('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>>')
3886 /) unless $count > 0;
3887     $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ORDERED');
3888     $dbh->do(q/
3889 INSERT INTO `letter`
3890 (module, code, name, title, content)
3891 VALUES
3892 ('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>>')
3893 /) unless $count > 0;
3894     $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'REJECTED');
3895     $dbh->do(q/
3896 INSERT INTO `letter`
3897 (module, code, name, title, content)
3898 VALUES
3899 ('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>>')
3900 /) unless $count > 0;
3901     print "Upgrade to $DBversion done (bug 5127: add default templates for suggestion status change notifications)\n";
3902     SetVersion ($DBversion);
3903 };
3904
3905 $DBversion = '3.03.00.005';
3906 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3907     $dbh->do("update `systempreferences` set options='whitespace|T-prefix|cuecat|libsuite8' where variable='itemBarcodeInputFilter'");
3908     print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice libsuite8)\n";
3909 }
3910
3911 $DBversion = '3.03.00.006';
3912 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.002")) {
3913     $dbh->do("ALTER TABLE deletedborrowers ADD `privacy` int(11) AFTER smsalertnumber;");
3914     $dbh->do("ALTER TABLE deletedborrowers CHANGE `cardnumber` `cardnumber` varchar(16);");
3915     print "Upgrade to $DBversion done (Fix differences between borrowers and deletedborrowers)\n";
3916     SetVersion ($DBversion);
3917 }
3918
3919 $DBversion = '3.03.00.007';
3920 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3921     $dbh->do("ALTER table suggestions ADD quantity SMALLINT(6) default NULL,
3922                 ADD currency VARCHAR(3) default NULL,
3923                 ADD price DECIMAL(28,6) default NULL,
3924                 ADD total DECIMAL(28,6) default NULL;
3925                 ");
3926     print "Upgrade to $DBversion done (Added acq related columns to suggestions)\n";
3927     SetVersion ($DBversion);
3928 }
3929
3930 $DBversion = '3.03.00.008';
3931 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3932     $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')");
3933     print "Upgrade to $DBversion done (adding syspref OPACNoResultsFound to control what displays when no results are found for a search in the OPAC.)\n";
3934     SetVersion ($DBversion);
3935 }
3936
3937 $DBversion = '3.03.00.009';
3938 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.003")) {
3939     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetUserCSS','','Add CSS to be included in the Intranet',NULL,'free')");
3940     print "Upgrade to $DBversion done (Add IntranetUserCSS syspref)\n";
3941     SetVersion ($DBversion);
3942 }
3943
3944 $DBversion = "3.03.00.010";
3945 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.02.001")) {
3946     $dbh->do("UPDATE `marc_subfield_structure` SET liblibrarian = 'Distance from earth' WHERE liblibrarian = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3947     $dbh->do("UPDATE `marc_subfield_structure` SET libopac = 'Distance from earth' WHERE libopac = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3948     print "Upgrade to $DBversion done (Fix misspelled 034r subfield in MARC21 Frameworks)\n";
3949     SetVersion ($DBversion);
3950 }
3951
3952 $DBversion = "3.03.00.011";
3953 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3954     $dbh->do("UPDATE aqbooksellers SET gstrate=NULL WHERE gstrate=0.0");
3955     print "Upgrade to $DBversion done (Bug 5186: allow GST rate to be set to 0)\n";
3956     SetVersion ($DBversion);
3957 }
3958
3959 $DBversion = "3.03.00.012";
3960 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3961    $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')");
3962    print "Upgrade to $DBversion done (Bug 2142: maxItemsInSearchResults syspref resurrected)\n";
3963    SetVersion ($DBversion);
3964 }
3965
3966 $DBversion = "3.03.00.013";
3967 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3968     $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')");
3969     print "Upgrade to $DBversion done (added 'OpacPublic' syspref)\n";
3970    SetVersion ($DBversion);
3971 }
3972
3973 $DBversion = "3.03.00.014";
3974 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3975     $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')");
3976     $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')");
3977     $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')");
3978     print "Upgrade to $DBversion done (Add flexible shelf browser constraints)\n";
3979     SetVersion ($DBversion);
3980 }
3981
3982 $DBversion = "3.03.00.015";
3983 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3984     if ( C4::Context->preference("marcflavour") eq "MARC21" ) {
3985         my $sth = $dbh->prepare(
3986 "INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`,
3987                              `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`)
3988                              VALUES ( ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, '', 6, '', '', '', 0, -5, '', '', '', NULL)"
3989         );
3990         $sth->execute('648');
3991         $sth->execute('654');
3992         $sth->execute('655');
3993         $sth->execute('656');
3994         $sth->execute('657');
3995         $sth->execute('658');
3996         $sth->execute('662');
3997         $sth->finish;
3998         print
3999 "Upgrade to $DBversion done (Bug 5619: Add subfield 9 to marc21 648,654,655,656,657,658,662)\n";
4000     }
4001     SetVersion($DBversion);
4002 }
4003
4004 $DBversion = '3.03.00.016';
4005 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4006     # reimplement OpacPrivacy system preference
4007     $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')");
4008     $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4009     $dbh->do("ALTER TABLE `deletedborrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4010     print "Upgrade to $DBversion done (OpacPrivacy reimplementation)\n";
4011     SetVersion($DBversion);
4012 };
4013
4014 $DBversion = '3.03.00.017';
4015 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.001")) {
4016     $dbh->do("ALTER TABLE  `currency` CHANGE `rate` `rate` FLOAT( 15, 5 ) NULL DEFAULT NULL;");
4017     print "Upgrade to $DBversion done (Enable currency rates >= 100)\n";
4018     SetVersion ($DBversion);
4019 }
4020
4021 $DBversion = '3.03.00.018';
4022 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.002")) {
4023     $dbh->do( q|update language_descriptions set description = 'Nederlands' where lang = 'nl' and subtag = 'nl'|);
4024     $dbh->do( q|update language_descriptions set description = 'Dansk' where lang = 'da' and subtag = 'da'|);
4025     print "Upgrade to $DBversion done (Correct language descriptions)\n";
4026     SetVersion ($DBversion);
4027 }
4028
4029 $DBversion = '3.03.00.019';
4030 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.003")) {
4031     # Fix bokmål
4032     $dbh->do("UPDATE language_subtag_registry SET description = 'Norwegian bokm&#229;l' WHERE subtag = 'nb';");
4033     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nb','nob');");
4034     $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokm&#229;l' WHERE subtag = 'nb' AND lang = 'nb';");
4035     $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokm&#229;l' WHERE subtag = 'nb' AND lang = 'en';");
4036     $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokm&#229;l' WHERE subtag = 'nb' AND lang = 'fr';");
4037     # Add nynorsk
4038     $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'nn', 'language', 'Norwegian nynorsk','2011-02-14' )");
4039     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nn','nno')");
4040     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nb', 'Norsk nynorsk')");
4041     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nn', 'Norsk nynorsk')");
4042     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'en', 'Norwegian nynorsk')");
4043     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'fr', 'Norvégien nynorsk')");
4044     print "Upgrade to $DBversion done (Correct language descriptions for Norwegian)\n";
4045     SetVersion ($DBversion);
4046 }
4047
4048 $DBversion = '3.03.00.020';
4049 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4050     $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')");
4051     $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')");
4052     print "Upgrade to $DBversion done (Bug 5811: Add sysprefs controlling overriding fines)\n";
4053     SetVersion($DBversion);
4054 };
4055
4056 $DBversion = '3.03.00.021';
4057 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.001")) {
4058     $dbh->do("ALTER TABLE items MODIFY enumchron TEXT");
4059     $dbh->do("ALTER TABLE deleteditems MODIFY enumchron TEXT");
4060     print "Upgrade to $DBversion done (bug 5642: longer serial enumeration)\n";
4061     SetVersion ($DBversion);
4062 }
4063
4064 $DBversion = '3.03.00.022';
4065 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4066     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AuthoritiesLog','0','If ON, log edit/create/delete actions on authorities.','','YesNo');");
4067     print "Upgrade to $DBversion done (Add AuthoritiesLog syspref)\n";
4068     SetVersion ($DBversion);
4069 }
4070
4071 # due to a mismatch in kohastructure.sql some koha will have missing columns in aqbasketgroup
4072 # this attempts to fix that
4073 $DBversion = '3.03.00.023';
4074 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.002")) {
4075     my $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'billingplace'");
4076     $sth->execute;
4077     $dbh->do("ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4078     $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliveryplace'");
4079     $sth->execute;
4080     $dbh->do("ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4081     $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliverycomment'");
4082     $sth->execute;
4083     $dbh->do("ALTER TABLE aqbasketgroups ADD deliverycomment VARCHAR(255)") if ! $sth->fetchrow_hashref;
4084     print "Upgrade to $DBversion done (Reconcile aqbasketgroups)\n";
4085     SetVersion ($DBversion);
4086 }
4087
4088 $DBversion = '3.03.00.024';
4089 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4090     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('TraceCompleteSubfields','0','Force subject tracings to only match complete subfields.','0','YesNo')");
4091     $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')");
4092     print "Upgrade to $DBversion done (Add syspref to force whole-subfield matching on subject tracings)\n";
4093     SetVersion($DBversion);
4094 };
4095
4096 $DBversion = "3.03.00.025";
4097 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4098     $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')");
4099     print "Upgrade to $DBversion done (Add syspref to control if user can choose pickup branch for holds)\n";
4100     SetVersion ($DBversion);
4101 }
4102
4103 $DBversion = '3.03.00.026';
4104 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.003")) {
4105     $dbh->do("UPDATE `message_attributes` SET message_name='Item Due' WHERE message_attribute_id=1 AND message_name LIKE 'Item DUE'");
4106         print "Upgrade to $DBversion done ( fix capitalization in message type )\n";
4107     SetVersion ($DBversion);
4108 }
4109
4110 $DBversion = '3.03.00.027';
4111 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4112     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('displayFacetCount', '0', NULL, NULL, 'YesNo')");
4113     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('maxRecordsForFacets', '20', NULL, NULL, 'Integer')");
4114     print "Upgrade to $DBversion done (Preferences for facet count)\n";
4115     SetVersion ($DBversion);
4116 }
4117
4118 $DBversion = "3.03.00.028";
4119 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4120     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('FacetLabelTruncationLength', 20, 'Truncate facets length to','','free')");
4121     print "Upgrade to $DBversion done (Add FacetLabelTruncationLength syspref to control facets displayed length)\n";
4122     SetVersion ($DBversion);
4123 }
4124
4125 $DBversion = "3.03.00.029";
4126 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4127     $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')");
4128     print "Upgrade to $DBversion done (Add syspref to control if user can choose branch when making purchase suggestion)\n";
4129     SetVersion ($DBversion);
4130 }
4131
4132 $DBversion = "3.03.00.030";
4133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4134     $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')");
4135     $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')");
4136     print "Upgrade to $DBversion done (Add sysprefs to control custom favicons)\n";
4137     SetVersion ($DBversion);
4138 }
4139
4140 $DBversion = "3.03.00.031";
4141 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4142     $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');");
4143     print "Upgrade to $DBversion done (Add syspref FineNotifyAtCheckin)\n";
4144     SetVersion ($DBversion);
4145 }
4146
4147 $DBversion = '3.03.00.032';
4148 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4149     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('TraceSubjectSubdivisions', 1, 'Create searches on all subdivisions for subject tracings.','1','YesNo')");
4150     print "Upgrade to $DBversion done ( include subdivisions when generating subject tracing searches )\n";
4151 }
4152
4153
4154 $DBversion = '3.03.00.033';
4155 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4156     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaffAuthorisedValueImages', '1', '', NULL, 'YesNo')");
4157     print "Upgrade to $DBversion done (System pref StaffAuthorisedValueImages)\n";
4158     SetVersion ($DBversion);
4159 }
4160
4161 $DBversion = '3.03.00.034';
4162 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4163     $dbh->do("ALTER TABLE `categories` ADD `hidelostitems` tinyint(1) NOT NULL default '0' AFTER `reservefee`");
4164     print "Upgrade to $DBversion done (Add hidelostitems preference to borrower categories)\n";
4165     SetVersion ($DBversion);
4166 }
4167
4168 $DBversion = '3.03.00.035';
4169 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4170     $dbh->do("ALTER TABLE `issuingrules` ADD hardduedate date default NULL AFTER issuelength");
4171     $dbh->do("ALTER TABLE `issuingrules` ADD hardduedatecompare tinyint NOT NULL default 0 AFTER hardduedate");
4172     my $duedate;
4173     if (C4::Context->preference("globalDueDate")) {
4174       $duedate = C4::Dates::format_date_in_iso(C4::Context->preference("globalDueDate"));
4175       $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = 0");
4176     } elsif (C4::Context->preference("ceilingDueDate")) {
4177       $duedate = C4::Dates::format_date_in_iso(C4::Context->preference("ceilingDueDate"));
4178       $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = -1");
4179     }
4180     $dbh->do("DELETE FROM `systempreferences` WHERE variable = 'globalDueDate' OR variable = 'ceilingDueDate'");
4181     print "Upgrade to $DBversion done (Move global and ceiling due dates to Circ Rules level)\n";
4182     SetVersion ($DBversion);
4183 }
4184
4185 $DBversion = '3.03.00.036';
4186 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4187     $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')");
4188     print "Upgrade to $DBversion done ( Make COinS optional in OPAC search results )\n";
4189     SetVersion ($DBversion);
4190 }
4191
4192 $DBversion = '3.03.00.037';
4193 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4194     $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')");
4195     $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')");
4196     print "Upgrade to $DBversion done (Add 'Display856uAsImage' and 'OPACDisplay856uAsImage' syspref)\n";
4197     SetVersion ($DBversion);
4198 }
4199
4200 $DBversion = '3.03.00.038';
4201 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4202     $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')");
4203     $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')");
4204     $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')");
4205     print "Upgrade to $DBversion done ( Add Self-checkout by Login system preferences )\n";
4206 }
4207
4208 $DBversion = "3.03.00.039";
4209 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4210     $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');");
4211     print "Upgrade to $DBversion done (Add syspref ShowReviewer)\n";
4212 }
4213
4214 $DBversion = "3.03.00.040";
4215 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4216     $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');");
4217     print "Upgrade to $DBversion done (Add syspref UseControlNumber)\n";
4218 }
4219
4220 $DBversion = "3.03.00.041";
4221 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4222     $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')");
4223     $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')");
4224     print "Upgrade to $DBversion done (Add sysprefs to control alternate holdings information display)\n";
4225     SetVersion ($DBversion);
4226 }
4227
4228 $DBversion = '3.03.00.042';
4229 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4230     stocknumber_checker();
4231     print "Upgrade to $DBversion done (5860 Index itemstocknumber)\n";
4232     SetVersion ($DBversion);
4233 }
4234
4235 sub stocknumber_checker { #code reused later on
4236   my @row;
4237   #drop the obsolete itemSStocknumber idx if it exists
4238   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemsstocknumberidx'");
4239   $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;") if @row;
4240
4241   #check itemstocknumber idx; remove it if it is unique
4242   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx' AND non_unique=0");
4243   $dbh->do("ALTER TABLE `items` DROP INDEX `itemstocknumberidx`;") if @row;
4244
4245   #add itemstocknumber index non-unique IF it still not exists
4246   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx'");
4247   $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);") unless @row;
4248 }
4249
4250 $DBversion = "3.03.00.043";
4251 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4252
4253     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','0','No','No')");
4254     $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','1','Yes','Yes')");
4255
4256         print "Upgrade to $DBversion done ( add generic boolean YES_NO authorised_values pair )\n";
4257         SetVersion ($DBversion);
4258 }
4259
4260 $DBversion = '3.03.00.044';
4261 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4262     $dbh->do("ALTER TABLE `aqbasketgroups` ADD `freedeliveryplace` TEXT NULL AFTER `deliveryplace`;");
4263     print "Upgrade to $DBversion done (adding freedeliveryplace to basketgroups)\n";
4264 }
4265
4266 $DBversion = '3.03.00.045';
4267 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4268     #Remove obsolete columns from aqbooksellers if needed
4269     my $a = $dbh->selectall_hashref('SHOW columns from aqbooksellers','Field');
4270     my $sqldrop="ALTER TABLE aqbooksellers DROP COLUMN ";
4271     foreach(qw/deliverydays followupdays followupscancel invoicedisc nocalc specialty/) {
4272       $dbh->do($sqldrop.$_) if exists $a->{$_};
4273     }
4274     #Remove obsolete column from aqbudgets if needed
4275     #The correct column is budget_notes
4276     $a = $dbh->selectall_hashref('SHOW columns from aqbudgets','Field');
4277     if(exists $a->{budget_description}) {
4278       $dbh->do("ALTER TABLE aqbudgets DROP COLUMN budget_description");
4279     }
4280     print "Upgrade to $DBversion done (Remove obsolete columns from aqbooksellers and aqbudgets if needed)\n";
4281     SetVersion ($DBversion);
4282 }
4283
4284 $DBversion = "3.03.00.046";
4285 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4286     $dbh->do("ALTER TABLE overduerules ALTER delay1 SET DEFAULT NULL, ALTER delay2 SET DEFAULT NULL, ALTER delay3 SET DEFAULT NULL");
4287     print "Upgrade to $DBversion done (Setting NULL default value for delayn columns in table overduerules)\n";
4288     SetVersion($DBversion);
4289 }
4290
4291 $DBversion = '3.03.00.047';
4292 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4293     $dbh->do("ALTER TABLE borrowers ADD `state` mediumtext AFTER city;");
4294     $dbh->do("ALTER TABLE borrowers ADD `B_state` mediumtext AFTER B_city;");
4295     $dbh->do("ALTER TABLE borrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4296     $dbh->do("ALTER TABLE deletedborrowers ADD `state` mediumtext AFTER city;");
4297     $dbh->do("ALTER TABLE deletedborrowers ADD `B_state` mediumtext AFTER B_city;");
4298     $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4299     print "Upgrade to $DBversion done (Add state field to patron's addresses)\n";
4300 }
4301
4302 $DBversion = '3.03.00.048';
4303 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4304     $dbh->do("ALTER TABLE branches ADD `branchstate` mediumtext AFTER `branchcity`;");
4305     print "Upgrade to $DBversion done (Add state to branch address)\n";
4306     SetVersion ($DBversion);
4307 }
4308
4309 $DBversion = '3.03.00.049';
4310 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4311     $dbh->do("ALTER TABLE `accountlines` ADD `note` text NULL default NULL");
4312     $dbh->do("ALTER TABLE `accountlines` ADD `manager_id` int( 11 ) NULL ");
4313     print "Upgrade to $DBversion done (adding note and manager_id fields in accountlines table)\n";
4314     SetVersion($DBversion);
4315 }
4316
4317 $DBversion = "3.03.00.050";
4318 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4319     $dbh->do("
4320         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');
4321         ");
4322     print "Upgrade to $DBversion done (Adding OpacHiddenItems syspref)\n";
4323     SetVersion($DBversion);
4324 }
4325
4326 $DBversion = "3.03.00.051";
4327 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4328     print "Upgrade to $DBversion done (Remove spaces and dashes from message_attribute names)\n";
4329     $dbh->do("UPDATE message_attributes SET message_name = 'Item_Due' WHERE message_name='Item Due'");
4330     $dbh->do("UPDATE message_attributes SET message_name = 'Advance_Notice' WHERE message_name='Advance Notice'");
4331     $dbh->do("UPDATE message_attributes SET message_name = 'Hold_Filled' WHERE message_name='Hold Filled'");
4332     $dbh->do("UPDATE message_attributes SET message_name = 'Item_Check_in' WHERE message_name='Item Check-in'");
4333     $dbh->do("UPDATE message_attributes SET message_name = 'Item_Checkout' WHERE message_name='Item Checkout'");
4334     SetVersion ($DBversion);
4335 }
4336
4337 $DBversion = "3.03.00.052";
4338 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4339     $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');");
4340     print "Upgrade to $DBversion done (Add syspref WaitingNotifyAtCheckin)\n";
4341     SetVersion ($DBversion);
4342 }
4343
4344 $DBversion = "3.04.00.000";
4345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4346     print "Upgrade to $DBversion done Koha 3.4.0 release \n";
4347     SetVersion ($DBversion);
4348 }
4349
4350 $DBversion = "3.05.00.001";
4351 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4352     $dbh->do(qq{
4353     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');
4354     });
4355     print "Upgrade to $DBversion done (Adds New System preference numSearchRSSResults)\n";
4356     SetVersion($DBversion);
4357 }
4358
4359 $DBversion = '3.05.00.002';
4360 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4361     #follow up fix 5860: some installs already past 3.3.0.42
4362     stocknumber_checker();
4363     print "Upgrade to $DBversion done (Fix for stocknumber index)\n";
4364     SetVersion ($DBversion);
4365 }
4366
4367 $DBversion = "3.05.00.003";
4368 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4369     $dbh->do(qq{
4370     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');
4371     });
4372     print "Upgrade to $DBversion done (Adds New System preference OpacRenewalBranch)\n";
4373     SetVersion($DBversion);
4374 }
4375
4376 $DBversion = "3.05.00.004";
4377 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4378     $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');");
4379     print "Upgrade to $DBversion done (Add syspref ShowReviewerPhoto)\n";
4380     SetVersion($DBversion);
4381 }
4382
4383 $DBversion = "3.05.00.005";
4384 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4385     $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');");
4386     print "Upgrade to $DBversion done (Adds pref BasketConfirmations)\n";
4387     SetVersion($DBversion);
4388 }
4389
4390 $DBversion = "3.05.00.006";
4391 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4392     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('MARCAuthorityControlField008', '|| aca||aabn           | a|a     d', NULL, NULL, 'Textarea')");
4393     print "Upgrade to $DBversion done (Add syspref MARCAuthorityControlField008)\n";
4394     SetVersion ($DBversion);
4395 }
4396
4397 $DBversion = "3.05.00.007";
4398 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4399     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpenLibraryCovers',0,'If ON Openlibrary book covers will be show',NULL,'YesNo');");
4400     print "Upgrade to $DBversion done (Add syspref OpenLibraryCovers)\n";
4401     SetVersion($DBversion);
4402 }
4403
4404 $DBversion = "3.05.00.008";
4405 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4406     $dbh->do("ALTER TABLE `cities` ADD `city_state` VARCHAR( 100 ) NULL DEFAULT NULL AFTER  `city_name`;");
4407     $dbh->do("ALTER TABLE `cities` ADD `city_country` VARCHAR( 100 ) NULL DEFAULT NULL AFTER  `city_zipcode`;");
4408     print "Add state and country to cities table corresponding to new columns in borrowers\n";
4409     SetVersion($DBversion);
4410 }
4411
4412 $DBversion = "3.05.00.009";
4413 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4414     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4415               SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE borrowernumber IS NULL");
4416     $dbh->do("DELETE FROM issues WHERE borrowernumber IS NULL");
4417
4418     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4419               SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE itemnumber IS NULL");
4420     $dbh->do("DELETE FROM issues WHERE itemnumber IS NULL");
4421
4422     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4423               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)");
4424     $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowernumber = issues.borrowernumber)");
4425
4426     $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4427               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)");
4428     $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM items WHERE itemnumber = issues.itemnumber)");
4429
4430     $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_1`");
4431     $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_2`");
4432     $dbh->do("ALTER TABLE issues ALTER COLUMN borrowernumber DROP DEFAULT");
4433     $dbh->do("ALTER TABLE issues ALTER COLUMN itemnumber DROP DEFAULT");
4434     $dbh->do("ALTER TABLE issues MODIFY COLUMN borrowernumber int(11) NOT NULL");
4435     $dbh->do("ALTER TABLE issues MODIFY COLUMN itemnumber int(11) NOT NULL");
4436     $dbh->do("ALTER TABLE issues DROP KEY `issuesitemidx`");
4437     $dbh->do("ALTER TABLE issues ADD PRIMARY KEY (`itemnumber`)");
4438     $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4439     $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4440
4441     print "Upgrade to $DBversion done (issues referential integrity)\n";
4442     SetVersion ($DBversion);
4443 }
4444
4445 $DBversion = "3.05.00.010";
4446 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4447     $dbh->do("CREATE INDEX priorityfoundidx ON reserves (priority,found)");
4448     print "Create an index on reserves to speed up holds awaiting pickup report bug 5866\n";
4449     SetVersion($DBversion);
4450 }
4451
4452
4453 $DBversion = "3.05.00.011";
4454 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4455     $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')");
4456     print "Upgrade to $DBversion done (add OPACResultsSidebar syspref (enh 6165))\n";
4457     SetVersion($DBversion);
4458 }
4459
4460 $DBversion = "3.05.00.012";
4461 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4462     $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')");
4463     print "Upgrade to $DBversion done (add RecordLocalUseOnReturn syspref (enh 6403))\n";
4464     SetVersion($DBversion);
4465 }
4466
4467 $DBversion = "3.05.00.013";
4468 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4469     $dbh->do(qq|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OpacKohaUrl','0',"Show 'Powered by Koha' text on OPAC footer.",NULL,NULL)|);
4470     print "Upgrade to $DBversion done (Add syspref 'OpacKohaUrl')\n";
4471     SetVersion($DBversion);
4472 }
4473
4474 $DBversion = "3.05.00.014";
4475 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4476     $dbh->do("ALTER TABLE `borrowers` MODIFY `userid` VARCHAR(75)");
4477     print "Modified userid column length into 75 in borrowers\n";
4478     SetVersion($DBversion);
4479 }
4480
4481 $DBversion = "3.05.00.015";
4482 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4483     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectEnabled',0,'Enable Novelist Select content.  Requires Novelist Profile and Password',NULL,'YesNo')");
4484     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectProfile',NULL,'Novelist Select user Password',NULL,'free')");
4485     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectPassword',NULL,'Enable Novelist user Profile',NULL,'free')");
4486     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectView','tab','Where to display Novelist Select content','tab|above|below|right','Choice')");
4487     print "Upgrade to $DBversion done (Add support for EBSCO's NoveList Select (enh 6902))\n";
4488     SetVersion($DBversion);
4489 }
4490
4491 $DBversion = '3.05.00.016';
4492 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4493     $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');");
4494     print "Upgrade to $DBversion done (Add EasyAnalyticalRecords syspref)\n";
4495     SetVersion ($DBversion);
4496 }
4497
4498 $DBversion = '3.05.00.017';
4499 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4500     if (C4::Context->preference("marcflavour") eq 'MARC21' ||
4501         C4::Context->preference("marcflavour") eq 'NORMARC'){
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', '0', 'Host Biblionumber', 'Host Biblionumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4503         $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)");
4504         print "Upgrade to $DBversion done (Add 773 subfield 9 and 0 to default framework)\n";
4505         SetVersion ($DBversion);
4506     } elsif (C4::Context->preference("marcflavour") eq 'UNIMARC'){
4507         $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)");
4508         print "Upgrade to $DBversion done (Add 461 subfield 9 to default framework)\n";
4509         SetVersion ($DBversion);
4510     }
4511 }
4512
4513 $DBversion = "3.05.00.018";
4514 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4515     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacNavBottom','','Links after OpacNav links','70|10','Textarea')");
4516     print "Upgrade to $DBversion done (add OpacNavBottom syspref (enh 6825): if appropriate, you can split OpacNav into OpacNav and OpacNavBottom)\n";
4517     SetVersion($DBversion);
4518 }
4519
4520 $DBversion = "3.05.00.019";
4521 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4522     $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4523     $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4524     $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4525     $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4526     print "Upgrade to $DBversion done (remove duplicate VOKAL Book icons, bug 6862)\n";
4527     SetVersion($DBversion);
4528 }
4529
4530 $DBversion = "3.05.00.020";
4531 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4532     $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')");
4533     print "Upgrade to $DBversion done (Add syspref AcqViewBaskets)\n";
4534     SetVersion($DBversion);
4535 }
4536
4537 $DBversion = "3.05.00.021";
4538 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4539     $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN display_checkout TINYINT(1) NOT NULL DEFAULT '0';");
4540     print "Upgrade to $DBversion done (Added a display_checkout field in borrower_attribute_types table)\n";
4541     SetVersion($DBversion);
4542 }
4543
4544 $DBversion = "3.05.00.022";
4545 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4546     $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");
4547     print "Upgrade to $DBversion done (6094: Fixing ModAuthority problems, add a need_merge_authorities table)\n";
4548     SetVersion($DBversion);
4549 }
4550
4551 $DBversion = "3.05.00.023";
4552 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4553     $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');");
4554     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";
4555     SetVersion($DBversion);
4556 }
4557
4558 $DBversion = "3.06.00.000";
4559 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4560     print "Upgrade to $DBversion done Koha 3.6.0 release \n";
4561     SetVersion ($DBversion);
4562 }
4563
4564 $DBversion = "3.07.00.001";
4565 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4566     my $borrowers = $dbh->selectcol_arrayref( "SELECT borrowernumber from borrowers where debarred =1;", { Columns => [1] } );
4567     $dbh->do("ALTER TABLE borrowers MODIFY debarred DATE DEFAULT NULL;");
4568     $dbh->do( "UPDATE borrowers set debarred='9999-12-31' where borrowernumber IN (" . join( ",", @$borrowers ) . ");" ) if ($borrowers and scalar(@$borrowers)>0);
4569     $dbh->do("ALTER TABLE borrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4570     $dbh->do("ALTER TABLE deletedborrowers MODIFY debarred DATE DEFAULT NULL;");
4571     $dbh->do("ALTER TABLE deletedborrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4572     print "Upgrade done (Change borrowers.debarred into Date )\n";
4573     SetVersion($DBversion);
4574 }
4575
4576 $DBversion = "3.07.00.002";
4577 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4578     $dbh->do("UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00';");
4579     print "Setting NULL to debarred where 0000-00-00 is stored (bug 7272)\n";
4580     SetVersion($DBversion);
4581 }
4582
4583 $DBversion = "3.07.00.003";
4584 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4585     $dbh->do(" UPDATE `message_attributes` SET message_name='Item_Due' WHERE message_name='Item_DUE'");
4586     print "Updating message_name in message_attributes\n";
4587     SetVersion($DBversion);
4588 }
4589
4590 $DBversion = "3.07.00.004";
4591 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4592     $dbh->do("ALTER TABLE  `suggestions` ADD  `patronreason` TEXT NULL AFTER  `reason`");
4593     print "Upgrade to $DBversion done (Add column to suggestions table to store patrons' reasons for submitting a suggestion. )\n";
4594     SetVersion($DBversion);
4595 }
4596
4597 $DBversion = "3.07.00.005";
4598 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4599     $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')");
4600     print "Upgrade to $DBversion done (BorrowerUnwantedField syspref)\n";
4601     SetVersion ($DBversion);
4602 }
4603
4604 $DBversion = "3.07.00.006";
4605 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4606     $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');");
4607     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";
4608     SetVersion($DBversion);
4609 }
4610
4611 $DBversion = "3.07.00.007";
4612 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4613     $dbh->do("ALTER TABLE items MODIFY materials text;");
4614     print "Upgrade to $DBversion done alter items.material from varchar(10) to text \n";
4615     SetVersion($DBversion);
4616 }
4617
4618 $DBversion = '3.07.00.008';
4619 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4620     if (C4::Context->preference("marcflavour") eq 'MARC21') {
4621         if (C4::Context->preference("opaclanguages") eq "de") {
4622             $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, '');");
4623         } else {
4624             $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, '');");
4625         }
4626     }
4627     print "Upgrade to $DBversion done (add MARC21 field 545 to framework)\n";
4628     SetVersion ($DBversion);
4629 }
4630
4631 $DBversion = "3.07.00.009";
4632 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4633     $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `claims_count` INT(11)  DEFAULT 0, ADD COLUMN `claimed_date` DATE  DEFAULT NULL AFTER `claims_count`");
4634     print "Upgrade to $DBversion done (Add claims_count and claimed_date fields in aqorders table)\n";
4635     SetVersion($DBversion);
4636 }
4637
4638 $DBversion = "3.07.00.010";
4639 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4640     $dbh->do(
4641         q|CREATE TABLE `biblioimages` (
4642           `imagenumber` int(11) NOT NULL AUTO_INCREMENT,
4643           `biblionumber` int(11) NOT NULL,
4644           `mimetype` varchar(15) NOT NULL,
4645           `imagefile` mediumblob NOT NULL,
4646           `thumbnail` mediumblob NOT NULL,
4647           PRIMARY KEY (`imagenumber`),
4648           CONSTRAINT `bibliocoverimage_fk1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
4649           ) ENGINE=InnoDB DEFAULT CHARSET=utf8|
4650     );
4651     $dbh->do(
4652         q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACLocalCoverImages','0','Display local cover images on OPAC search and details pages.','1','YesNo')|
4653         );
4654     $dbh->do(
4655         q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('LocalCoverImages','0','Display local cover images on intranet search and details pages.','1','YesNo')|
4656         );
4657     $dbh->do(
4658         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')|
4659     );
4660     $dbh->do(
4661         q|INSERT INTO permissions (module_bit, code, description) VALUES (13, 'upload_local_cover_images', 'Upload local cover images')|
4662     );
4663     print "Upgrade to $DBversion done (Added support for local cover images)\n";
4664     SetVersion($DBversion);
4665 }
4666
4667 $DBversion = "3.07.00.011";
4668 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4669     $dbh->do(<<ENDOFRENEWAL);
4670     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');
4671 ENDOFRENEWAL
4672     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";
4673     SetVersion($DBversion);
4674 }
4675
4676 $DBversion = "3.07.00.012";
4677 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4678     $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')");
4679     print "Upgrade to $DBversion add 'AllowItemsOnHoldCheckout' syspref \n";
4680     SetVersion ($DBversion);
4681 }
4682
4683 $DBversion = "3.07.00.013";
4684 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4685     $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');");
4686     print "Upgrade to $DBversion done (Bug 7345: Add system preference OpacExportOptions.)\n";
4687     SetVersion ($DBversion);
4688 }
4689
4690 $DBversion = "3.07.00.014";
4691 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4692     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";
4693     SetVersion($DBversion);
4694 }
4695
4696 $DBversion = "3.07.00.015";
4697 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4698     my $sth = $dbh->prepare(q|
4699         SELECT COUNT(*) FROM marc_subfield_structure where kohafield="biblioitems.editionstatement"
4700         |);
4701     $sth->execute;
4702     my $already_exists = $sth->fetchrow;
4703     if ( not $already_exists ) {
4704         my $field = C4::Context->preference("marcflavour") eq "UNIMARC" ? "205" : "250";
4705         my $subfield = "a";
4706         my $sth = $dbh->prepare( q|
4707             UPDATE marc_subfield_structure SET kohafield = "biblioitems.editionstatement"
4708             WHERE tagfield = ? AND tagsubfield = ?
4709         |);
4710         $sth->execute( $field, $subfield );
4711         print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement.)\n";
4712     } else {
4713         print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement (already exists, nothing to do).)\n";
4714     }
4715     SetVersion($DBversion);
4716 }
4717
4718 $DBversion = "3.07.00.016";
4719 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4720     $dbh->do("ALTER TABLE items ADD KEY `itemcallnumber` (itemcallnumber)");
4721     print "Upgrade to $DBversion done (Added index on items.itemcallnumber)\n";
4722     SetVersion($DBversion);
4723 }
4724
4725 $DBversion = "3.07.00.017";
4726 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4727     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('TransferWhenCancelAllWaitingHolds','0','Transfer items when cancelling all waiting holds',NULL,'YesNo')");
4728     print "Upgrade to $DBversion done (Add sysprefs to control transfer when cancel all waiting holds)\n";
4729     SetVersion ($DBversion);
4730 }
4731
4732 $DBversion = "3.07.00.018";
4733 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4734     $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;");
4735     print "Upgrade to $DBversion done ( adding offline operations table )\n";
4736     SetVersion($DBversion);
4737 }
4738
4739 $DBversion = "3.07.00.019";
4740 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4741     $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");
4742     $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");
4743     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";
4744     SetVersion($DBversion);
4745 }
4746
4747 $DBversion = "3.07.00.020";
4748 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4749     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACpatronimages',0,'Enable patron images in the OPAC',NULL,'YesNo');");
4750     print "Upgrade to $DBversion done (Bug 3516: Add the option to show patron images in the OPAC.)\n";
4751     SetVersion($DBversion);
4752 }
4753
4754 $DBversion = "3.07.00.021";
4755 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4756     $dbh->do(
4757     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerModule','Default','Chooses which linker module to use (see documentation).','Default|FirstMatchLastMatch','Choice');"
4758     );
4759     $dbh->do(
4760     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerOptions','','A pipe-separated list of options for the linker.','','free');"
4761     );
4762     $dbh->do(
4763     "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');"
4764     );
4765     $dbh->do(
4766     "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');"
4767     );
4768     $dbh->do(
4769     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AutoCreateAuthorities',0,'Automatically create authorities that do not exist when cataloging records.',NULL,'YesNo');"
4770     );
4771     $dbh->do(
4772     "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');"
4773     );
4774     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";
4775     SetVersion($DBversion);
4776 }
4777
4778 $DBversion = "3.07.00.022";
4779 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4780     $dbh->do("DELETE FROM reviews WHERE biblionumber NOT IN (SELECT biblionumber from biblio)");
4781     $dbh->do("UPDATE reviews SET borrowernumber = NULL WHERE borrowernumber NOT IN (SELECT borrowernumber FROM borrowers)");
4782     $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_2 FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
4783     $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber ) ON UPDATE CASCADE ON DELETE SET NULL");
4784     print "Upgrade to $DBversion done (Bug 7493 - Add constraint linking OPAC comment biblionumber to biblio, OPAC comment borrowernumber to borrowers.)\n";
4785     SetVersion($DBversion);
4786 }
4787
4788 $DBversion = "3.07.00.023";
4789 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4790     $dbh->do("ALTER TABLE `message_transports` DROP FOREIGN KEY `message_transports_ibfk_3`");
4791     $dbh->do("ALTER TABLE `letter` DROP PRIMARY KEY");
4792     $dbh->do("ALTER TABLE `letter` ADD `branchcode` varchar(10) default NULL AFTER `code`");
4793     $dbh->do("ALTER TABLE `letter` ADD PRIMARY KEY  (`module`,`code`, `branchcode`)");
4794     $dbh->do("ALTER TABLE `message_transports` ADD `branchcode` varchar(10) NOT NULL default ''");
4795     $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");
4796     $dbh->do("ALTER TABLE `letter` ADD `is_html` tinyint(1) default 0 AFTER `name`");
4797
4798     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4799               VALUES ('circulation','ISSUESLIP','Issue Slip','Issue Slip', '<h3><<branches.branchname>></h3>
4800 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4801 (<<borrowers.cardnumber>>) <br />
4802
4803 <<today>><br />
4804
4805 <h4>Checked Out</h4>
4806 <checkedout>
4807 <p>
4808 <<biblio.title>> <br />
4809 Barcode: <<items.barcode>><br />
4810 Date due: <<issues.date_due>><br />
4811 </p>
4812 </checkedout>
4813
4814 <h4>Overdues</h4>
4815 <overdue>
4816 <p>
4817 <<biblio.title>> <br />
4818 Barcode: <<items.barcode>><br />
4819 Date due: <<issues.date_due>><br />
4820 </p>
4821 </overdue>
4822
4823 <hr>
4824
4825 <h4 style=\"text-align: center; font-style:italic;\">News</h4>
4826 <news>
4827 <div class=\"newsitem\">
4828 <h5 style=\"margin-bottom: 1px; margin-top: 1px\"><b><<opac_news.title>></b></h5>
4829 <p style=\"margin-bottom: 1px; margin-top: 1px\"><<opac_news.new>></p>
4830 <p class=\"newsfooter\" style=\"font-size: 8pt; font-style:italic; margin-bottom: 1px; margin-top: 1px\">Posted on <<opac_news.timestamp>></p>
4831 <hr />
4832 </div>
4833 </news>', 1)");
4834     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4835               VALUES ('circulation','ISSUEQSLIP','Issue Quick Slip','Issue Quick Slip', '<h3><<branches.branchname>></h3>
4836 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4837 (<<borrowers.cardnumber>>) <br />
4838
4839 <<today>><br />
4840
4841 <h4>Checked Out Today</h4>
4842 <checkedout>
4843 <p>
4844 <<biblio.title>> <br />
4845 Barcode: <<items.barcode>><br />
4846 Date due: <<issues.date_due>><br />
4847 </p>
4848 </checkedout>', 1)");
4849     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4850               VALUES ('circulation','RESERVESLIP','Reserve Slip','Reserve Slip', '<h5>Date: <<today>></h5>
4851
4852 <h3> Transfer to/Hold in <<branches.branchname>></h3>
4853
4854 <h3><<borrowers.surname>>, <<borrowers.firstname>></h3>
4855
4856 <ul>
4857     <li><<borrowers.cardnumber>></li>
4858     <li><<borrowers.phone>></li>
4859     <li> <<borrowers.address>><br />
4860          <<borrowers.address2>><br />
4861          <<borrowers.city >>  <<borrowers.zipcode>>
4862     </li>
4863     <li><<borrowers.email>></li>
4864 </ul>
4865 <br />
4866 <h3>ITEM ON HOLD</h3>
4867 <h4><<biblio.title>></h4>
4868 <h5><<biblio.author>></h5>
4869 <ul>
4870    <li><<items.barcode>></li>
4871    <li><<items.itemcallnumber>></li>
4872    <li><<reserves.waitingdate>></li>
4873 </ul>
4874 <p>Notes:
4875 <pre><<reserves.reservenotes>></pre>
4876 </p>', 1)");
4877     $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4878               VALUES ('circulation','TRANSFERSLIP','Transfer Slip','Transfer Slip', '<h5>Date: <<today>></h5>
4879 <h3>Transfer to <<branches.branchname>></h3>
4880
4881 <h3>ITEM</h3>
4882 <h4><<biblio.title>></h4>
4883 <h5><<biblio.author>></h5>
4884 <ul>
4885    <li><<items.barcode>></li>
4886    <li><<items.itemcallnumber>></li>
4887 </ul>', 1)");
4888
4889     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NoticeCSS','','Notices CSS url.',NULL,'free')");
4890     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('SlipCSS','','Slips CSS url.',NULL,'free')");
4891
4892     $dbh->do("UPDATE `letter` SET content = replace(content, '<<title>>', '<<biblio.title>>') WHERE code = 'HOLDPLACED'");
4893
4894     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";
4895     SetVersion($DBversion);
4896 }
4897
4898 $DBversion = "3.07.00.024";
4899 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4900     $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')");
4901     $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')");
4902     print "Upgrade to $DBversion done (Added system preference ExpireReservesMaxPickUpDelay, system preference ExpireReservesMaxPickUpDelayCharge, add reseves.charge_if_expired)\n";
4903 }
4904
4905 $DBversion = "3.07.00.025";
4906 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4907     if (TableExists('bibliocoverimage')) {
4908         $dbh->do( q|DROP TABLE bibliocoverimage;| );
4909         $dbh->do(
4910             q|CREATE TABLE biblioimages (
4911               imagenumber int(11) NOT NULL AUTO_INCREMENT,
4912               biblionumber int(11) NOT NULL,
4913               mimetype varchar(15) NOT NULL,
4914               imagefile mediumblob NOT NULL,
4915               thumbnail mediumblob NOT NULL,
4916               PRIMARY KEY (imagenumber),
4917               CONSTRAINT bibliocoverimage_fk1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
4918               ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
4919         );
4920     }
4921     print "Upgrade to $DBversion done (Correct table name for local cover images if needed. )\n";
4922     SetVersion($DBversion);
4923 }
4924
4925 $DBversion = "3.07.00.026";
4926 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4927     $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');");
4928     print "Upgrade to $DBversion done (Add syspref CalendarFirstDayOfWeek used to select the first day of week to use in the calendar. )\n";
4929     SetVersion($DBversion);
4930 }
4931
4932 $DBversion = "3.07.00.027";
4933 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4934     $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');});
4935     print "Upgrade to $DBversion done (Added system preference RoutingListNote for adding a general note to all routing lists.)\n";
4936     SetVersion($DBversion);
4937 }
4938
4939 $DBversion = "3.07.00.028";
4940 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4941     $dbh->do(qq{
4942     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');
4943     });
4944     print "Upgrade to $DBversion done (Bug 6296 New System preference AllowPKIAuth)\n";
4945 }
4946
4947 $DBversion = "3.07.00.029";
4948 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4949     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_descriptions`;});
4950     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_mappings`;});
4951     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_biblios`;});
4952     $dbh->do(q{DROP TABLE IF EXISTS `oai_sets`;});
4953
4954     $dbh->do(q{
4955         CREATE TABLE `oai_sets` (
4956           `id` int(11) NOT NULL auto_increment,
4957           `spec` varchar(80) NOT NULL UNIQUE,
4958           `name` varchar(80) NOT NULL,
4959           PRIMARY KEY (`id`)
4960         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4961     });
4962
4963     $dbh->do(q{
4964         CREATE TABLE `oai_sets_descriptions` (
4965           `set_id` int(11) NOT NULL,
4966           `description` varchar(255) NOT NULL,
4967           CONSTRAINT `oai_sets_descriptions_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4968         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4969     });
4970
4971     $dbh->do(q{
4972         CREATE TABLE `oai_sets_mappings` (
4973           `set_id` int(11) NOT NULL,
4974           `marcfield` char(3) NOT NULL,
4975           `marcsubfield` char(1) NOT NULL,
4976           `marcvalue` varchar(80) NOT NULL,
4977           CONSTRAINT `oai_sets_mappings_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4978         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4979     });
4980
4981     $dbh->do(q{
4982         CREATE TABLE `oai_sets_biblios` (
4983           `biblionumber` int(11) NOT NULL,
4984           `set_id` int(11) NOT NULL,
4985           PRIMARY KEY (`biblionumber`, `set_id`),
4986           CONSTRAINT `oai_sets_biblios_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
4987           CONSTRAINT `oai_sets_biblios_ibfk_2` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4988         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4989     });
4990
4991     $dbh->do(q{
4992         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');
4993     });
4994
4995     print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
4996     SetVersion($DBversion);
4997 }
4998
4999 $DBversion = "3.07.00.030";
5000 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5001     $dbh->do("ALTER TABLE default_circ_rules ADD
5002             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5003     $dbh->do("ALTER TABLE branch_item_rules ADD
5004             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5005     $dbh->do("ALTER TABLE default_branch_circ_rules ADD
5006             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5007     $dbh->do("ALTER TABLE default_branch_item_rules ADD
5008             COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5009     # set the default rule to the current value of HomeOrHoldingBranchReturn (default to 'homebranch' if need be)
5010     my $homeorholdingbranchreturn = C4::Context->preference('HomeOrHoldingBranchReturn') || 'homebranch';
5011     $dbh->do("UPDATE default_circ_rules SET returnbranch = '$homeorholdingbranchreturn'");
5012     print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
5013     SetVersion($DBversion);
5014 }
5015
5016 $DBversion = "3.07.00.031";
5017 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5018     $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')");
5019     print "Upgrade to $DBversion done (Add syspref to tell Koha if ICU indexing is in use for Zebra or not.)\n";
5020     SetVersion ($DBversion);
5021 }
5022
5023 $DBversion = "3.07.00.032";
5024 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5025     $dbh->do("ALTER TABLE virtualshelves MODIFY COLUMN owner int"); #should have been int already (fk to borrowers)
5026     $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
5027     $dbh->do("DELETE FROM virtualshelves WHERE owner IS NULL and category=1"); #delete private lists without owner (cascades to shelfcontents)
5028     $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");
5029     $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=1");
5030     $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=2");
5031     $dbh->do("UPDATE virtualshelves SET allow_add=1, allow_delete_own=1, allow_delete_other=1 WHERE category=3");
5032     $dbh->do("UPDATE virtualshelves SET category=2 WHERE category=3");
5033
5034     $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");
5035     $dbh->do("UPDATE virtualshelfcontents co LEFT JOIN virtualshelves sh USING (shelfnumber) SET co.borrowernumber=sh.owner");
5036
5037     $dbh->do("CREATE TABLE virtualshelfshares
5038     (id int AUTO_INCREMENT PRIMARY KEY, shelfnumber int NOT NULL,
5039     borrowernumber int, invitekey varchar(10), sharedate datetime,
5040     CONSTRAINT `virtualshelfshares_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
5041         CONSTRAINT `virtualshelfshares_ibfk_2` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5042
5043     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowPublicListCreation',1,'If set, allows opac users to create public lists',NULL,'YesNo');");
5044     $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');");
5045
5046     print "Upgrade to $DBversion done (BZ7310: Improving list permissions)\n";
5047     SetVersion($DBversion);
5048 }
5049
5050 $DBversion = "3.07.00.033";
5051 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5052     $dbh->do("ALTER TABLE branches ADD opac_info text;");
5053     print "Upgrade to $DBversion done add opac_info to branches \n";
5054     SetVersion($DBversion);
5055 }
5056
5057 $DBversion = "3.07.00.034";
5058 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5059     $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN category_code VARCHAR(10) NULL DEFAULT NULL AFTER `display_checkout`");
5060     $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN class VARCHAR(255)  NOT NULL DEFAULT '' AFTER `category_code`");
5061     $dbh->do("ALTER TABLE borrower_attribute_types ADD CONSTRAINT category_code_fk FOREIGN KEY (category_code) REFERENCES categories(categorycode)");
5062     print "Upgrade to $DBversion done (New fields category_code and class in borrower_attribute_types table)\n";
5063     SetVersion($DBversion);
5064 }
5065
5066 $DBversion = "3.07.00.035";
5067 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5068     $dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");
5069     $dbh->do("UPDATE issues SET date_due = CONCAT(SUBSTR(date_due,1,11),'23:59:00')");
5070     $dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");
5071     $dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");
5072     $dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");
5073     $dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");
5074     $dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");
5075     $dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");
5076     $dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");
5077     $dbh->do("UPDATE accountlines SET description = CONCAT(description,' 23:59') WHERE accounttype='F' OR accounttype='FU'"); #BUG-8253
5078     print "Upgrade to $DBversion done (Setting up issues and accountlines tables for hourly loans)\n";
5079     SetVersion($DBversion);
5080 }
5081
5082 $DBversion = "3.07.00.036";
5083 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5084     $dbh->do(qq{
5085        ALTER TABLE z3950servers ADD timeout INT( 11 ) NOT NULL DEFAULT '0' AFTER syntax;
5086     });
5087     print "Upgrade to $DBversion done (New timeout field in z3950servers)\n";
5088 }
5089
5090 $DBversion = "3.07.00.037";
5091 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5092     $dbh->do("
5093        ALTER TABLE  `marc_subfield_structure` ADD  `maxlength` INT( 4 ) NOT NULL DEFAULT  '9999';
5094        ");
5095        $dbh->do("
5096        UPDATE `marc_subfield_structure` SET maxlength=24 WHERE tagfield='000';
5097        ");
5098        $dbh->do("
5099        UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='MARC21','40','9999') WHERE tagfield='008';
5100        ");
5101        $dbh->do("
5102        UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='NORMARC','40','9999') WHERE tagfield='008';
5103        ");
5104        $dbh->do("
5105        UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='UNIMARC','36','9999') WHERE tagfield='100';
5106        ");
5107     print "Upgrade to $DBversion done (Add new field maxlength to marc_subfield_structure)\n";
5108     SetVersion($DBversion);
5109 }
5110
5111 $DBversion = "3.07.00.038";
5112 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5113     $dbh->do(qq{
5114         INSERT INTO systempreferences(variable,value,explanation,options,type)
5115         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')
5116     });
5117     print "Upgrade to $DBversion done (Added system preference 'UniqueItemFields')\n";
5118     SetVersion($DBversion);
5119 }
5120
5121 $DBversion = "3.07.00.039";
5122 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5123     $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')} );
5124     $dbh->do( qq{CREATE TABLE IF NOT EXISTS social_data
5125       ( isbn VARCHAR(30),
5126         num_critics INT,
5127         num_critics_pro INT,
5128         num_quotations INT,
5129         num_videos INT,
5130         score_avg DECIMAL(5,2),
5131         num_scores INT,
5132         PRIMARY KEY  (isbn)
5133       ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5134     } );
5135     $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')} );
5136     print "Upgrade to $DBversion done (added syspref and table for babeltheque (Babeltheque_url_js, babeltheque))\n";
5137     SetVersion($DBversion);
5138 }
5139
5140 $DBversion = "3.07.00.040";
5141 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5142     $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('SocialNetworks','0','Enable/Disable social networks links in opac detail','','YesNo')} );
5143     print "Upgrade to $DBversion done (added syspref SocialNetworks, to display facebook/ggl+ and other buttons)\n";
5144     SetVersion($DBversion);
5145 }
5146
5147
5148
5149 $DBversion = "3.07.00.041";
5150 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5151     $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')");
5152     print "Upgrade to $DBversion done (Add system preference SubscriptionDuplicateDroppedInput)\n";
5153     SetVersion($DBversion);
5154 }
5155
5156 $DBversion = "3.07.00.042";
5157 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5158     $dbh->do("ALTER TABLE reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5159     $dbh->do("ALTER TABLE old_reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5160
5161     $dbh->do("ALTER TABLE reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5162     $dbh->do("ALTER TABLE old_reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5163
5164     $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')");
5165
5166     print "Upgrade to $DBversion done (Add suspend fields to reserves table, add syspref AutoResumeSuspendedHolds)\n";
5167     SetVersion ($DBversion);
5168 }
5169
5170 $DBversion = "3.07.00.043";
5171 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5172     my $countXSLTDetailsDisplay = 0;
5173     my $valueXSLTDetailsDisplay = "";
5174     my $valueXSLTResultsDisplay = "";
5175     my $valueOPACXSLTDetailsDisplay = "";
5176     my $valueOPACXSLTResultsDisplay = "";
5177     #the line below test if database comes from a BibLibre's branch
5178     $countXSLTDetailsDisplay = $dbh->do('SELECT 1 FROM systempreferences WHERE variable="IntranetXSLTDetailsDisplay"');
5179     if ($countXSLTDetailsDisplay > 0)
5180     {
5181         #the two lines below will only be used to update the databases from the BibLibre's branch. They will not affect the others
5182         $dbh->do(q|UPDATE systempreferences SET variable="XSLTDetailsDisplay" WHERE variable="IntranetXSLTDetailsDisplay"|);
5183         $dbh->do(q|UPDATE systempreferences SET variable="XSLTResultsDisplay" WHERE variable="IntranetXSLTResultsDisplay"|);
5184     }
5185     else
5186     {
5187         $valueXSLTDetailsDisplay = "default" if (C4::Context->preference("XSLTDetailsDisplay"));
5188         $valueXSLTResultsDisplay = "default" if (C4::Context->preference("XSLTResultsDisplay"));
5189         $valueOPACXSLTDetailsDisplay = "default" if (C4::Context->preference("OPACXSLTDetailsDisplay"));
5190         $valueOPACXSLTResultsDisplay = "default" if (C4::Context->preference("OPACXSLTResultsDisplay"));
5191         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTDetailsDisplay\" WHERE variable='XSLTDetailsDisplay'");
5192         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTResultsDisplay\" WHERE variable='XSLTResultsDisplay'");
5193         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTDetailsDisplay\" WHERE variable='OPACXSLTDetailsDisplay'");
5194         $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTResultsDisplay\" WHERE variable='OPACXSLTResultsDisplay'");
5195     }
5196     print "Upgrade to $DBversion done (XSLT systempreference takes a path to file rather than YesNo)\n";
5197     SetVersion($DBversion);
5198 }
5199
5200 $DBversion = "3.07.00.044";
5201 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5202     $dbh->do("ALTER TABLE aqbooksellers ADD deliverytime INT DEFAULT NULL");
5203     print "Upgrade to $DBversion done (Add deliverytime field in aqbooksellers table)";
5204     SetVersion($DBversion);
5205 }
5206
5207 $DBversion = "3.07.00.045";
5208 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5209     $dbh->do("ALTER TABLE import_batches MODIFY COLUMN batch_type ENUM('batch','z3950','webservice') NOT NULL default 'batch'");
5210     print "Upgrade to $DBversion done (Add 'webservice' to batch_type enum)\n";
5211     SetVersion ($DBversion);
5212 }
5213
5214 $DBversion = "3.07.00.046";
5215 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5216     $dbh->do("ALTER TABLE issuingrules ADD COLUMN lengthunit varchar(10) DEFAULT 'days' AFTER issuelength");
5217     print "Upgrade to $DBversion done (Setting up issues tables for hourly loans (lengthunit fix))\n";
5218     SetVersion($DBversion);
5219 }
5220
5221 $DBversion = "3.07.00.047";
5222 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5223     $dbh->do("CREATE INDEX items_location ON items(location)");
5224     $dbh->do("CREATE INDEX items_ccode ON items(ccode)");
5225     print "Upgrade to $DBversion done (items_location and items_ccode indexes added for ShelfBrowser)\n";
5226     SetVersion($DBversion);
5227 }
5228
5229 $DBversion = "3.07.00.048";
5230 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5231     $dbh->do(
5232         q | CREATE TABLE ratings (
5233   borrowernumber int(11) NOT NULL,
5234   biblionumber int(11) NOT NULL,
5235   rating_value tinyint(1) NOT NULL,
5236   timestamp timestamp NOT NULL default CURRENT_TIMESTAMP,
5237   PRIMARY KEY  (borrowernumber,biblionumber),
5238   CONSTRAINT ratings_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
5239   CONSTRAINT ratings_ibfk_2 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
5240 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |
5241     );
5242
5243     $dbh->do(
5244 q /INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacStarRatings','disable',NULL,'disable|all|details','Choice') /
5245     );
5246
5247     print
5248 "Upgrade to $DBversion done (Add 'ratings' table and 'OpacStarRatings' syspref)\n";
5249     SetVersion($DBversion);
5250 }
5251
5252 $DBversion = "3.07.00.049";
5253 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5254     $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')");
5255     print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5256     SetVersion($DBversion);
5257 }
5258
5259 $DBversion = "3.08.00.000";
5260 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5261     print "Upgrade to $DBversion done\n";
5262     SetVersion($DBversion);
5263 }
5264
5265 $DBversion = "3.09.00.001";
5266 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5267     $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 1 ) NULL DEFAULT NULL");
5268     print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table to allow NULL category_code)\n";
5269     SetVersion($DBversion);
5270 }
5271
5272 $DBversion = "3.09.00.002";
5273 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5274     $dbh->do("ALTER TABLE saved_sql
5275         ADD (
5276             cache_expiry INT NOT NULL DEFAULT 300,
5277             public BOOLEAN NOT NULL DEFAULT FALSE
5278         );
5279     ");
5280     print "Upgrade to $DBversion done (Added cache_expiry and public fields in
5281 saved_reports table.)\n";
5282     SetVersion($DBversion);
5283 }
5284
5285 $DBversion = "3.09.00.003";
5286 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5287     $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');");
5288     print "Upgrade to $DBversion done (Added SvcMaxReportRows syspref)\n";
5289     SetVersion($DBversion);
5290 }
5291
5292 $DBversion = "3.09.00.004";
5293 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5294     $dbh->do("INSERT IGNORE INTO permissions (module_bit, code, description) VALUES('13', 'edit_patrons', 'Perform batch modifivation of patrons')");
5295     print "Upgrade to $DBversion done (Adds permissions flag for access to the patron modifications tool)\n";
5296     SetVersion($DBversion);
5297 }
5298
5299 $DBversion = "3.09.00.005";
5300 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5301     unless (TableExists('quotes')) {
5302         $dbh->do( qq{
5303             CREATE TABLE `quotes` (
5304               `id` int(11) NOT NULL AUTO_INCREMENT,
5305               `source` text DEFAULT NULL,
5306               `text` mediumtext NOT NULL,
5307               `timestamp` datetime NOT NULL,
5308               PRIMARY KEY (`id`)
5309             ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5310         });
5311     }
5312     $dbh->do( qq{
5313         INSERT IGNORE INTO permissions VALUES (13, "edit_quotes","Edit quotes for quote-of-the-day feature");
5314     });
5315     $dbh->do( qq{
5316         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');
5317     });
5318     print "Upgrade to $DBversion done (Adding Quote of the Day Option.)\n";
5319     SetVersion($DBversion);
5320 }
5321
5322 $DBversion = "3.09.00.006";
5323 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5324     $dbh->do("UPDATE systempreferences SET
5325                 variable = 'OPACShowHoldQueueDetails',
5326                 value = CASE value WHEN '1' THEN 'priority' ELSE 'none' END,
5327                 options = 'none|priority|holds|holds_priority',
5328                 explanation = 'Show holds details in OPAC',
5329                 type = 'Choice'
5330               WHERE variable = 'OPACDisplayRequestPriority'");
5331     print "Upgrade to $DBversion done (Changed system preference OPACDisplayRequestPriority -> OPACShowHoldQueueDetails)\n";
5332     SetVersion($DBversion);
5333 }
5334
5335 $DBversion = "3.09.00.007";
5336 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5337     unless(C4::Context->preference('ReservesControlBranch')){
5338         $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights.','Choice')");
5339     }
5340     print "Upgrade to $DBversion done (Insert ReservesControlBranch systempreference into systempreferences table )\n";
5341     SetVersion($DBversion);
5342 }
5343
5344 $DBversion = "3.09.00.008";
5345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5346     $dbh->do("ALTER TABLE sessions ADD PRIMARY KEY (id);");
5347     $dbh->do("ALTER TABLE sessions DROP INDEX `id`;");
5348     print "Upgrade to $DBversion done (redefine the field id as PRIMARY KEY of sessions)\n";
5349     SetVersion($DBversion);
5350 }
5351
5352 $DBversion = "3.09.00.009";
5353 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5354     $dbh->do("ALTER TABLE branches ADD PRIMARY KEY (branchcode);");
5355     $dbh->do("ALTER TABLE branches DROP INDEX branchcode;");
5356     print "Upgrade to $DBversion done (redefine the field branchcode as PRIMARY KEY of branches)\n";
5357     SetVersion ($DBversion);
5358 }
5359
5360 $DBversion = "3.09.00.010";
5361 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5362     $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')");
5363     print "Upgrade to $DBversion done (Add system preference issuelostitem ))\n";
5364     SetVersion($DBversion);
5365 }
5366
5367 $DBversion = "3.09.00.011";
5368 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5369     $dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5370     $dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) ");
5371     $dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5372     if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
5373          $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'");
5374     }
5375     print "Upgrade to $DBversion done (Adding ean in biblioitems and deletedbiblioitems)\n";
5376     print "If you have records with ean, please run misc/batchRebuildBiblioTables.pl to populate bibliotems.ean\n" if (C4::Context->preference("marcflavour") eq 'UNIMARC');
5377     SetVersion($DBversion);
5378 }
5379
5380 $DBversion = "3.09.00.012";
5381 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5382     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsIntranet', '1', NULL , 'Allow holds to be suspended from the intranet.', 'YesNo')");
5383     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsOpac', '1', NULL , 'Allow holds to be suspended from the OPAC.', 'YesNo')");
5384     print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5385     SetVersion($DBversion);
5386 }
5387
5388 $DBversion ="3.09.00.013";
5389 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5390     $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');");
5391     print "Upgrade to $DBversion done (Add system preference DefaultLanguageField008))\n";
5392     SetVersion($DBversion);
5393 }
5394
5395 $DBversion ="3.09.00.014";
5396 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5397     # add phone message transport type
5398     $dbh->do("INSERT INTO message_transport_types (message_transport_type) VALUES ('phone')");
5399
5400     # adds HOLD_PHONE and PREDUE_PHONE letters (as placeholders)
5401     $dbh->do("INSERT INTO letter (module, code, name, title, content) VALUES
5402               ('reserves', 'HOLD_PHONE', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup'),
5403               ('circulation', 'PREDUE_PHONE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon'),
5404               ('circulation', 'OVERDUE_PHONE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue')
5405               ");
5406
5407     # add phone notifications to patron message preferences options
5408     $dbh->do("INSERT INTO message_transports
5409              (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES
5410              (4, 'phone', 0, 'reserves', 'HOLD_PHONE'),
5411              (2, 'phone', 0, 'circulation', 'PREDUE_PHONE')
5412              ");
5413
5414     # add TalkingTechItivaPhoneNotification syspref
5415     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('TalkingTechItivaPhoneNotification',0,'If ON, enables Talking Tech I-tiva phone notifications',NULL,'YesNo');");
5416
5417     print "Upgrade done (Support for Talking Tech i-tiva phone notification system)\n";
5418     SetVersion($DBversion);
5419 }
5420
5421 $DBversion = "3.09.00.015";
5422 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5423     $dbh->do(qq{
5424         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')
5425     });
5426     print "Upgrade to $DBversion done (Add System preference StatisticsFields)\n";
5427     SetVersion($DBversion);
5428 }
5429
5430 $DBversion = "3.09.00.016";
5431 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5432     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowBarcode','0','Show items barcode in holding tab','','YesNo')");
5433     print "Upgrade to $DBversion done (Add syspref OPACShowBarcode)\n";
5434     SetVersion ($DBversion);
5435 }
5436
5437 $DBversion = "3.09.00.017";
5438 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5439     $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');");
5440     print "Upgrade to $DBversion done (Add customizable OpacNavRight region to the OPAC main page)\n";
5441     SetVersion ($DBversion);
5442 }
5443
5444 $DBversion = "3.09.00.018";
5445 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5446     $dbh->do("DROP TABLE IF EXISTS aqbudgetborrowers");
5447     $dbh->do("
5448         CREATE TABLE aqbudgetborrowers (
5449           budget_id int(11) NOT NULL,
5450           borrowernumber int(11) NOT NULL,
5451           PRIMARY KEY (budget_id, borrowernumber),
5452           CONSTRAINT aqbudgetborrowers_ibfk_1 FOREIGN KEY (budget_id)
5453             REFERENCES aqbudgets (budget_id)
5454             ON DELETE CASCADE ON UPDATE CASCADE,
5455           CONSTRAINT aqbudgetborrowers_ibfk_2 FOREIGN KEY (borrowernumber)
5456             REFERENCES borrowers (borrowernumber)
5457             ON DELETE CASCADE ON UPDATE CASCADE
5458         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5459     ");
5460     $dbh->do("
5461         INSERT INTO permissions (module_bit, code, description)
5462         VALUES (11, 'budget_manage_all', 'Manage all budgets')
5463     ");
5464     print "Upgrade to $DBversion done (Add aqbudgetborrowers table)\n";
5465     SetVersion($DBversion);
5466 }
5467
5468 $DBversion = "3.09.00.019";
5469 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5470     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACShowUnusedAuthorities','1','','Show authorities that are not being used in the OPAC.','YesNo')");
5471     print "Upgrade to $DBversion done (Add OPACShowUnusedAuthorities system preference)\n";
5472     SetVersion ($DBversion);
5473 }
5474
5475 $DBversion = "3.09.00.020";
5476 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5477     $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')");
5478     $dbh->do("
5479 CREATE TABLE IF NOT EXISTS borrower_files (
5480   file_id int(11) NOT NULL AUTO_INCREMENT,
5481   borrowernumber int(11) NOT NULL,
5482   file_name varchar(255) NOT NULL,
5483   file_type varchar(255) NOT NULL,
5484   file_description varchar(255) DEFAULT NULL,
5485   file_content longblob NOT NULL,
5486   date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
5487   PRIMARY KEY (file_id),
5488   KEY borrowernumber (borrowernumber)
5489 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
5490     ");
5491     $dbh->do("ALTER TABLE borrower_files ADD CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE");
5492
5493     print "Upgrade to $DBversion done (Added borrow_files table, EnableBorrowerFiles syspref)\n";
5494     SetVersion($DBversion);
5495 }
5496
5497 $DBversion = "3.09.00.021";
5498 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5499     $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');");
5500     print "Upgrade to $DBversion done (Add syspref UpdateTotalIssuesOnCirc)\n";
5501     SetVersion($DBversion);
5502 }
5503
5504 $DBversion = "3.09.00.022";
5505 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5506     $dbh->do("ALTER TABLE search_history MODIFY COLUMN query_cgi text NOT NULL");
5507     print "Upgrade to $DBversion done (Change search_history.query_cgi type to text. bug 5981)\n";
5508     SetVersion($DBversion);
5509 }
5510
5511 $DBversion = "3.09.00.023";
5512 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5513     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
5514     print "Upgrade to $DBversion done (Add system preference SearchEngine )\n";
5515     SetVersion($DBversion);
5516 }
5517
5518 $DBversion ="3.09.00.024";
5519 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5520     $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')");
5521     print "Upgrade to $DBversion done (Add system preference IntranetSlipPrinterJS))\n";
5522     SetVersion($DBversion);
5523 }
5524
5525 $DBversion = "3.09.00.025";
5526 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5527     $dbh->do('START TRANSACTION');
5528     $dbh->do('CREATE TABLE tmp_reserves AS SELECT * FROM old_reserves LIMIT 0');
5529     $dbh->do('ALTER TABLE tmp_reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5530     $dbh->do("
5531         INSERT INTO tmp_reserves (
5532           borrowernumber, reservedate, biblionumber,
5533           constrainttype, branchcode, notificationdate,
5534           reminderdate, cancellationdate, reservenotes,
5535           priority, found, timestamp, itemnumber,
5536           waitingdate, expirationdate, lowestPriority,
5537           suspend, suspend_until
5538         ) SELECT
5539           borrowernumber, reservedate, biblionumber,
5540           constrainttype, branchcode, notificationdate,
5541           reminderdate, cancellationdate, reservenotes,
5542           priority, found, timestamp, itemnumber,
5543           waitingdate, expirationdate, lowestPriority,
5544           suspend, suspend_until
5545         FROM old_reserves ORDER BY reservedate
5546     ");
5547     $dbh->do('SET @ai = ( SELECT MAX( reserve_id ) FROM tmp_reserves )');
5548     $dbh->do('TRUNCATE old_reserves');
5549     $dbh->do('ALTER TABLE old_reserves ADD reserve_id INT( 11 ) NOT NULL PRIMARY KEY FIRST');
5550     $dbh->do('INSERT INTO old_reserves SELECT * FROM tmp_reserves WHERE reserve_id <= @ai');
5551     $dbh->do("
5552         INSERT INTO tmp_reserves (
5553           borrowernumber, reservedate, biblionumber,
5554           constrainttype, branchcode, notificationdate,
5555           reminderdate, cancellationdate, reservenotes,
5556           priority, found, timestamp, itemnumber,
5557           waitingdate, expirationdate, lowestPriority,
5558           suspend, suspend_until
5559         ) SELECT
5560           borrowernumber, reservedate, biblionumber,
5561           constrainttype, branchcode, notificationdate,
5562           reminderdate, cancellationdate, reservenotes,
5563           priority, found, timestamp, itemnumber,
5564           waitingdate, expirationdate, lowestPriority,
5565           suspend, suspend_until
5566         FROM reserves ORDER BY reservedate
5567     ");
5568     $dbh->do('TRUNCATE reserves');
5569     $dbh->do('ALTER TABLE reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5570     $dbh->do('INSERT INTO reserves SELECT * FROM tmp_reserves WHERE reserve_id > COALESCE(@ai, 0)');
5571     $dbh->do('DROP TABLE tmp_reserves');
5572     $dbh->do('COMMIT');
5573
5574     my $sth = $dbh->prepare("
5575         SELECT COUNT( * ) AS count
5576         FROM information_schema.COLUMNS
5577         WHERE COLUMN_NAME =  'reserve_id'
5578         AND (
5579           TABLE_NAME LIKE  'reserves'
5580           OR
5581           TABLE_NAME LIKE  'old_reserves'
5582         )
5583     ");
5584     $sth->execute();
5585     my $row = $sth->fetchrow_hashref();
5586     die("Failed to add reserve_id to reserves tables, please refresh the page to try again.") unless ( $row->{'count'} );
5587
5588     print "Upgrade to $DBversion done (add reserve_id to reserves & old_reserves tables)\n";
5589     SetVersion($DBversion);
5590 }
5591
5592 $DBversion = "3.09.00.026";
5593 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5594     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
5595         ( 3, 'parameters_remaining_permissions', 'Remaining system parameters permissions'),
5596         ( 3, 'manage_circ_rules', 'manage circulation rules')");
5597     $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5598         SELECT borrowernumber, 3, 'parameters_remaining_permissions'
5599         FROM borrowers WHERE flags & (1 << 3)");
5600     # Give new subpermissions to all users that have 'parameters' permission flag (bit 3) set
5601     # see userflags table
5602     $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5603         SELECT borrowernumber, 3, 'manage_circ_rules'
5604         FROM borrowers WHERE flags & (1 << 3)");
5605     print "Upgrade to $DBversion done (Added parameters subpermissions)\n";
5606     SetVersion($DBversion);
5607 }
5608
5609 $DBversion = '3.09.00.027';
5610 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5611     $dbh->do("ALTER TABLE issuingrules ADD overduefinescap decimal(28,6) DEFAULT NULL");
5612     my $maxfine = C4::Context->preference('MaxFine');
5613     if ($maxfine && $maxfine < 900) { # an arbitrary value that tells us it's not "some huge value"
5614       $dbh->do("UPDATE issuingrules SET overduefinescap=?",undef,$maxfine);
5615       $dbh->do("UPDATE systempreferences SET value = NULL WHERE variable = 'MaxFine'");
5616     }
5617     $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'");
5618     print "Upgrade to $DBversion done (Bug 7420 add overduefinescap to circulation matrix)\n";
5619     SetVersion ($DBversion);
5620 }
5621
5622 $DBversion = "3.09.00.028";
5623 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5624     unless ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
5625         my %referencetypes = (  '00' => 'PERSO_NAME',
5626                                 '10' => 'CORPO_NAME',
5627                                 '11' => 'MEETI_NAME',
5628                                 '30' => 'UNIF_TITLE',
5629                                 '48' => 'CHRON_TERM',
5630                                 '50' => 'TOPIC_TERM',
5631                                 '51' => 'GEOGR_NAME',
5632                                 '55' => 'GENRE/FORM'
5633                 );
5634         my $query = q{SELECT DISTINCT authtypecode, tagfield
5635                     FROM auth_subfield_structure
5636                     WHERE (tagfield BETWEEN '400' AND '455' OR
5637                     tagfield BETWEEN '500' and '555') AND tagsubfield='a' AND
5638                     frameworkcode = '' AND ROW(authtypecode, tagfield) NOT IN
5639                     (SELECT authtypecode, tagfield FROM auth_subfield_structure
5640                     WHERE tagsubfield ='9' )};
5641         $sth = $dbh->prepare($query);
5642         $sth->execute;
5643         my $sth2 = $dbh->prepare(q{INSERT INTO auth_subfield_structure
5644                 (authtypecode, tagfield, tagsubfield, liblibrarian, libopac,
5645                  repeatable, mandatory, tab, authorised_value, value_builder,
5646                  seealso, isurl, hidden, linkid, kohafield, frameworkcode)
5647                 VALUES (?, ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, ?, NULL, NULL,
5648                     NULL, 0, 1, '', '', '')});
5649         my $sth3 = $dbh->prepare(q{UPDATE auth_subfield_structure SET
5650                                     frameworkcode = ? WHERE authtypecode = ? AND
5651                                     tagfield = ? AND tagsubfield = 'a'});
5652         while (my $row = $sth->fetchrow_arrayref()) {
5653             my ($authtypecode, $field) = @$row;
5654             $sth2->execute($authtypecode, $field, substr($field, 0, 1));
5655             my $authtypemarker = substr $field, 1, 2;
5656             if ($authtypemarker && $referencetypes{$authtypemarker}) {
5657                 $sth3->execute($referencetypes{$authtypemarker}, $authtypecode, $field);
5658             }
5659         }
5660     }
5661
5662     print "Upgrade to $DBversion done (Add thesaurus links for MARC21/NORMARC)\n";
5663     SetVersion($DBversion);
5664 }
5665
5666 $DBversion = "3.09.00.029"; # FIXME
5667 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5668     $dbh->do("UPDATE systempreferences SET options=concat(options,'|EAN13') WHERE variable='itemBarcodeInputFilter' AND options NOT LIKE '%EAN13%'");
5669     print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice EAN13)\n";
5670
5671     $dbh->do("UPDATE systempreferences SET options = concat(options,'|EAN13'), explanation = concat(explanation,'; EAN13 - incremental') WHERE variable = 'autoBarcode' AND options NOT LIKE '%EAN13%'");
5672     print "Upgrade to $DBversion done ( Added EAN13 barcode autogeneration sequence )\n";
5673     SetVersion($DBversion);
5674 }
5675
5676 $DBversion ="3.09.00.030";
5677 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5678     my $query = "SELECT value FROM systempreferences WHERE variable='opacstylesheet'";
5679     my $remote= $dbh->selectrow_arrayref($query);
5680     $dbh->do("DELETE from systempreferences WHERE variable='opacstylesheet'");
5681     if($remote && $remote->[0]) {
5682         $query="UPDATE systempreferences SET value=? WHERE variable='opaclayoutstylesheet'";
5683         $dbh->do($query,undef,$remote->[0]);
5684         print "NOTE: The URL of your remote opac css file has been moved to preference opaclayoutstylesheet.\n";
5685     }
5686     print "Upgrade to $DBversion done (BZ 8263: Make OPAC stylesheet preferences more consistent)\n";
5687     SetVersion($DBversion);
5688 }
5689
5690 $DBversion = "3.09.00.031";
5691 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5692     $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonReviews'");
5693     $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonSimilarItems'");
5694     $dbh->do("DELETE FROM systempreferences WHERE variable='AWSAccessKeyID'");
5695     $dbh->do("DELETE FROM systempreferences WHERE variable='AWSPrivateKey'");
5696     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonReviews'");
5697     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonSimilarItems'");
5698     $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonEnabled'");
5699     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonEnabled'");
5700     print "Upgrade to $DBversion done ('Remove preferences controlling broken Amazon features (Bug 8679')\n";
5701     SetVersion ($DBversion);
5702 }
5703
5704 $DBversion = "3.09.00.032";
5705 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5706     $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'defaultSortField' AND value = 'callnumber'");
5707     $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'");
5708     print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n";
5709     SetVersion ($DBversion);
5710 }
5711
5712
5713 $DBversion = '3.09.00.033';
5714 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5715    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacSuppressionByIPRange','','Restrict the suppression to IP adresses outside of the IP range','','free');");
5716    print "Upgrade to $DBversion done (Add OpacSuppressionByIPRange syspref)\n";
5717    SetVersion ($DBversion);
5718 }
5719
5720 $DBversion ="3.09.00.034";
5721 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5722     $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'PERSO_NAME' WHERE frameworkcode = 'PERSO_CODE'");
5723     $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'CORPO_NAME' WHERE frameworkcode = 'ORGO_CODE'");
5724     print "Upgrade to $DBversion done (Bug 8207: correct typo in authority types)\n";
5725     SetVersion ($DBversion);
5726 }
5727
5728 $DBversion = "3.09.00.035";
5729 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5730     $dbh->do("
5731     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');
5732     ");
5733     $dbh->do(
5734     "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SubfieldsToUseWhenPrefill','','Define a list of subfields to use when prefilling items (separated by space)','','Free');
5735     ");
5736     print "Upgrade to $DBversion done (Adding PrefillItem and SubfieldsToUseWhenPrefill sysprefs)\n";
5737     SetVersion ($DBversion);
5738 }
5739
5740 $DBversion = "3.09.00.036";
5741 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5742     # biblioitems changes
5743     $dbh->do("ALTER TABLE biblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5744     $dbh->do("ALTER TABLE deletedbiblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5745     # preferences changes
5746     $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')");
5747     $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')");
5748
5749     print "Upgrade to $DBversion done (Add colum agerestriction to biblioitems and deletedbiblioitems, add system preferences AgeRestrictionMarker and AgeRestrictionOverride)\n";
5750    SetVersion ($DBversion);
5751 }
5752
5753 $DBversion = "3.09.00.037";
5754 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5755     $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTransportCostMatrix',0,'Use Transport Cost Matrix when filling holds','','YesNo')");
5756
5757  $dbh->do("CREATE TABLE `transport_cost` (
5758               `frombranch` varchar(10) NOT NULL,
5759               `tobranch` varchar(10) NOT NULL,
5760               `cost` decimal(6,2) NOT NULL,
5761               `disable_transfer` tinyint(1) NOT NULL DEFAULT 0,
5762               CHECK ( `frombranch` <> `tobranch` ), -- a dud check, mysql does not support that
5763               PRIMARY KEY (`frombranch`, `tobranch`),
5764               CONSTRAINT `transport_cost_ibfk_1` FOREIGN KEY (`frombranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
5765               CONSTRAINT `transport_cost_ibfk_2` FOREIGN KEY (`tobranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
5766           ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5767
5768     print "Upgrade to $DBversion done (creating `transport_cost` table; adding UseTransportCostMatrix systempref, in circulation)\n";
5769     SetVersion($DBversion);
5770 }
5771
5772 $DBversion ="3.09.00.038";
5773 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5774     $dbh->do("ALTER TABLE borrower_attributes CHANGE  attribute  attribute VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
5775     print "Upgrade to $DBversion done (Increase the maximum size of a borrower attribute value)\n";
5776     SetVersion($DBversion);
5777 }
5778
5779 $DBversion ="3.09.00.039";
5780 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5781     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('DidYouMeanFromAuthorities','0','Suggest searches based on authority file.','YesNo');");
5782     print "Upgrade to $DBversion done (Add system preference DidYouMeanFromAuthorities)\n";
5783     SetVersion($DBversion);
5784 }
5785
5786 $DBversion = "3.09.00.040";
5787 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5788     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IncludeSeeFromInSearches','0','','Include see-from references in searches.','YesNo');");
5789     print "Upgrade to $DBversion done (Add IncludeSeeFromInSearches system preference)\n";
5790     SetVersion ($DBversion);
5791 }
5792
5793 $DBversion = "3.09.00.041";
5794 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5795     $dbh->do(qq{
5796         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportRemoveFields','','List of fields for non export in circulation.pl (separated by a space)','','');
5797     });
5798     print "Upgrade to $DBversion done (Add system preference ExportRemoveFields)\n";
5799     SetVersion($DBversion);
5800 }
5801
5802 $DBversion = "3.09.00.042";
5803 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5804     $dbh->do(qq{
5805         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportWithCsvProfile','','Set a profile name for CSV export','','');
5806     });
5807     print "Upgrade to $DBversion done (Adds New System preference ExportWithCsvProfile)\n";
5808     SetVersion($DBversion)
5809 }
5810
5811 $DBversion = "3.09.00.043";
5812 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5813     $dbh->do("
5814         ALTER TABLE aqorders
5815         ADD parent_ordernumber int(11) DEFAULT NULL
5816     ");
5817     $dbh->do("
5818         UPDATE aqorders
5819         SET parent_ordernumber = ordernumber;
5820     ");
5821     print "Upgrade to $DBversion done (Adding parent_ordernumber in aqorders)\n";
5822     SetVersion($DBversion);
5823 }
5824
5825 $DBversion = '3.09.00.044';
5826 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5827     $dbh->do("ALTER TABLE statistics ADD COLUMN ccode VARCHAR ( 10 ) NULL AFTER associatedborrower");
5828     $dbh->do("UPDATE statistics SET statistics.ccode = ( SELECT items.ccode FROM items WHERE statistics.itemnumber = items.itemnumber )");
5829     $dbh->do("UPDATE statistics SET statistics.ccode = (
5830               SELECT deleteditems.ccode FROM deleteditems
5831                   WHERE statistics.itemnumber = deleteditems.itemnumber
5832               ) WHERE statistics.ccode IS NULL");
5833     print "Upgrade done ( Added Collection Code to Statistics table. )\n";
5834     SetVersion ($DBversion);
5835 }
5836
5837 $DBversion = "3.09.00.045";
5838 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5839     $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 10 ) NULL DEFAULT NULL");
5840     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.";
5841     SetVersion($DBversion);
5842 }
5843
5844 $DBversion = "3.09.00.046";
5845 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5846     $dbh->do("ALTER TABLE `accountlines` ADD `accountlines_id` INT NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST;");
5847     print "Upgrade to $DBversion done (adding accountlines_id field in accountlines table)\n";
5848     SetVersion($DBversion);
5849 }
5850
5851 $DBversion = "3.09.00.047";
5852 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5853     # to preserve default behaviour as best as possible, set this new preference differently depending on whether IndependantBranches is set or not
5854     my $prefvalue = 'anywhere';
5855     if (C4::Context->preference("IndependantBranches")) { $prefvalue = 'homeorholdingbranch';}
5856     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowReturnToBranch', '$prefvalue', 'Where an item may be returned', 'anywhere|homebranch|holdingbranch|homeorholdingbranch', 'Choice');");
5857
5858     print "Upgrade to $DBversion done: adding AllowReturnToBranch syspref (bug 6151)";
5859     SetVersion($DBversion);
5860 }
5861
5862 $DBversion = "3.09.00.048";
5863 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5864     $dbh->do("ALTER TABLE authorised_values MODIFY lib varchar(200)");
5865     $dbh->do("ALTER TABLE authorised_values MODIFY lib_opac varchar(200)");
5866
5867     print "Upgrade to $DBversion done (Raise the length of Authorised Values descriptions)\n";
5868     SetVersion($DBversion);
5869 }
5870
5871 $DBversion ="3.09.00.049";
5872 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5873     $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');");
5874     $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');");
5875     $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');");
5876     $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');");
5877     print "Upgrade to $DBversion done (Add OPACMobileUserCSS, OpacMainUserBlockMobile, OpacShowLibrariesPulldownMobile and OpacShowFiltersPulldownMobile sysprefs)\n";
5878     SetVersion($DBversion);
5879 }
5880
5881 $DBversion = "3.09.00.050";
5882 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5883     $dbh->do("ALTER TABLE authorised_values MODIFY category varchar(16) NOT NULL DEFAULT '';");
5884     $dbh->do("INSERT INTO authorised_values (category, authorised_value, lib) VALUES
5885               ('REPORT_GROUP', 'CIRC', 'Circulation'),
5886               ('REPORT_GROUP', 'CAT', 'Catalog'),
5887               ('REPORT_GROUP', 'PAT', 'Patrons'),
5888               ('REPORT_GROUP', 'ACQ', 'Acquisitions'),
5889               ('REPORT_GROUP', 'ACC', 'Accounts');");
5890
5891     $dbh->do("ALTER TABLE reports_dictionary ADD report_area varchar(6) DEFAULT NULL;");
5892     $dbh->do("UPDATE reports_dictionary SET report_area = CASE area
5893                   WHEN 1 THEN 'CIRC'
5894                   WHEN 2 THEN 'CAT'
5895                   WHEN 3 THEN 'PAT'
5896                   WHEN 4 THEN 'ACQ'
5897                   WHEN 5 THEN 'ACC'
5898                   END;");
5899     $dbh->do("ALTER TABLE reports_dictionary DROP area;");
5900     $dbh->do("ALTER TABLE reports_dictionary ADD KEY dictionary_area_idx (report_area);");
5901
5902     $dbh->do("ALTER TABLE saved_sql ADD report_area varchar(6) DEFAULT NULL;");
5903     $dbh->do("ALTER TABLE saved_sql ADD report_group varchar(80) DEFAULT NULL;");
5904     $dbh->do("ALTER TABLE saved_sql ADD report_subgroup varchar(80) DEFAULT NULL;");
5905     $dbh->do("ALTER TABLE saved_sql ADD KEY sql_area_group_idx (report_group, report_subgroup);");
5906
5907     print "Upgrade to $DBversion done saved_sql new fields report_group and report_area; authorised_values.category 16 char \n";
5908     SetVersion($DBversion);
5909 }
5910
5911 $DBversion = "3.09.00.051";
5912 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5913     $dbh->do("
5914         CREATE TABLE aqinvoices (
5915           invoiceid int(11) NOT NULL AUTO_INCREMENT,
5916           invoicenumber mediumtext NOT NULL,
5917           booksellerid int(11) NOT NULL,
5918           shipmentdate date default NULL,
5919           billingdate date default NULL,
5920           closedate date default NULL,
5921           shipmentcost decimal(28,6) default NULL,
5922           shipmentcost_budgetid int(11) default NULL,
5923           PRIMARY KEY (invoiceid),
5924           CONSTRAINT aqinvoices_fk_aqbooksellerid FOREIGN KEY (booksellerid) REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE,
5925           CONSTRAINT aqinvoices_fk_shipmentcost_budgetid FOREIGN KEY (shipmentcost_budgetid) REFERENCES aqbudgets (budget_id) ON DELETE SET NULL ON UPDATE CASCADE
5926         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5927     ");
5928
5929     # Fill this new table with existing invoices
5930     my $sth = $dbh->prepare("
5931         SELECT aqorders.booksellerinvoicenumber AS invoicenumber, aqbasket.booksellerid, aqorders.datereceived
5932         FROM aqorders
5933           LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
5934         WHERE aqorders.booksellerinvoicenumber IS NOT NULL
5935           AND aqorders.booksellerinvoicenumber != ''
5936         GROUP BY aqorders.booksellerinvoicenumber
5937     ");
5938     $sth->execute;
5939     my $results = $sth->fetchall_arrayref({});
5940     $sth = $dbh->prepare("
5941         INSERT INTO aqinvoices (invoicenumber, booksellerid, shipmentdate) VALUES (?,?,?)
5942     ");
5943     foreach(@$results) {
5944         $sth->execute($_->{invoicenumber}, $_->{booksellerid}, $_->{datereceived});
5945     }
5946
5947     # Add the column in aqorders, fill it with correct value
5948     # and then drop booksellerinvoicenumber column
5949     $dbh->do("
5950         ALTER TABLE aqorders
5951         ADD COLUMN invoiceid int(11) default NULL AFTER booksellerinvoicenumber,
5952         ADD CONSTRAINT aqorders_ibfk_3 FOREIGN KEY (invoiceid) REFERENCES aqinvoices (invoiceid) ON DELETE SET NULL ON UPDATE CASCADE
5953     ");
5954
5955     $dbh->do("
5956         UPDATE aqorders, aqinvoices
5957         SET aqorders.invoiceid = aqinvoices.invoiceid
5958         WHERE aqorders.booksellerinvoicenumber = aqinvoices.invoicenumber
5959     ");
5960
5961     $dbh->do("
5962         ALTER TABLE aqorders
5963         DROP COLUMN booksellerinvoicenumber
5964     ");
5965
5966     print "Upgrade to $DBversion done (Add aqinvoices table) \n";
5967     SetVersion ($DBversion);
5968 }
5969
5970 $DBversion = "3.09.00.052";
5971 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5972     $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');");
5973     $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');");
5974     $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');");
5975     print "Upgrade to $DBversion done (Add systempreferences to decrease loan length on high demand items decreaseLoanHighHolds, decreaseLoanHighHoldsValue and decreaseLoanHighHoldsDuration) \n";
5976     SetVersion ($DBversion);
5977 }
5978
5979 $DBversion = "3.09.00.053";
5980 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5981     $dbh->do(
5982     q|CREATE TABLE `import_auths` (
5983         import_record_id int(11) NOT NULL,
5984         matched_authid int(11) default NULL,
5985         control_number varchar(25) default NULL,
5986         authorized_heading varchar(128) default NULL,
5987         original_source varchar(25) default NULL,
5988         CONSTRAINT import_auths_ibfk_1 FOREIGN KEY (import_record_id)
5989         REFERENCES import_records (import_record_id) ON DELETE CASCADE ON UPDATE CASCADE,
5990         KEY matched_authid (matched_authid)
5991         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
5992     );
5993     $dbh->do("ALTER TABLE import_batches
5994                 CHANGE COLUMN num_biblios num_records int(11) NOT NULL default 0,
5995                 ADD COLUMN record_type enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio'");
5996     $dbh->do("UPDATE import_batches SET record_type='auth' WHERE import_batch_id IN
5997                 (SELECT import_batch_id FROM import_records WHERE record_type='auth')");
5998
5999     print "Upgrade to $DBversion done (Added support for staging authorities)\n";
6000     SetVersion ($DBversion);
6001 }
6002
6003 $DBversion = "3.09.00.054";
6004 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6005     $dbh->do("ALTER TABLE aqorders CHANGE COLUMN gst gstrate DECIMAL(6,4)  DEFAULT NULL");
6006     print "Upgrade to $DBversion done (Change column name in aqorders gst --> gstrate)\n";
6007     SetVersion($DBversion);
6008 }
6009
6010 $DBversion = "3.09.00.055";
6011 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6012     $dbh->do("ALTER TABLE aqorders ADD discount float(6,4) DEFAULT NULL AFTER gstrate");
6013     print "Upgrade to $DBversion done (Add discount field in aqorders table)\n";
6014     SetVersion($DBversion);
6015 }
6016
6017 $DBversion ="3.09.00.056";
6018 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6019     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('AuthDisplayHierarchy','0','Display authority hierarchies','','YesNo')");
6020     print "Upgrade to $DBversion done (Add system preference AuthDisplayHierarchy)\n";
6021     SetVersion($DBversion);
6022 }
6023
6024 $DBversion = "3.09.00.057";
6025 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6026     $dbh->do("ALTER TABLE aqbasket ADD deliveryplace VARCHAR(10) default NULL AFTER basketgroupid;");
6027     $dbh->do("ALTER TABLE aqbasket ADD billingplace VARCHAR(10) default NULL AFTER deliveryplace;");
6028     print "Upgrade to $DBversion done (Bug 5356: Added billingplace, deliveryplace to the aqbasket table)\n";
6029     SetVersion($DBversion);
6030 }
6031
6032 $DBversion ="3.09.00.058";
6033 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6034     $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');");
6035     $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');");
6036     print "Upgrade to $DBversion done (Add Did You Mean? configuration)\n";
6037     SetVersion($DBversion);
6038 }
6039
6040 $DBversion ="3.09.00.059";
6041 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6042     $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');");
6043     print "Upgrade to $DBversion done (Add system preference BlockReturnOfWithdrawnItems)\n";
6044     SetVersion($DBversion);
6045 }
6046
6047 $DBversion = "3.09.00.060";
6048 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6049     $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')");
6050     print "Upgrade to $DBversion done (Added HoldsToPullStartDate syspref)\n";
6051     SetVersion($DBversion);
6052 }
6053
6054 $DBversion = "3.09.00.061";
6055 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6056     $dbh->do("UPDATE systempreferences set value=0 WHERE variable='OPACItemsResultsDisplay' AND value='statuses'");
6057     $dbh->do("UPDATE systempreferences set value=1 WHERE variable='OPACItemsResultsDisplay' AND value='itemdetails'");
6058     $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'");
6059     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";
6060     SetVersion ($DBversion);
6061 }
6062
6063 $DBversion = "3.09.00.062";
6064 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6065    $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='NoZebra'");
6066    $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='QueryRemoveStopwords'");
6067    print "Upgrade to $DBversion done (Disable obsolete NoZebra and QueryRemoveStopwords sysprefs)\n";
6068    SetVersion ($DBversion);
6069 }
6070
6071 $DBversion = "3.09.00.063";
6072 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6073     my $gst_booksellers = $dbh->selectcol_arrayref("SELECT DISTINCT(gstrate) FROM aqbooksellers");
6074     my $gist_syspref = C4::Context->preference("gist");
6075     # remove the undef values and construct and array with the syspref and the supplier values
6076     my @gstrates = map { defined $_ ? $_ : () } @$gst_booksellers;
6077     push @gstrates, split ('\|', $gist_syspref);
6078     # we want to compare integer (or float)
6079     $_ = $_ + 0 for @gstrates;
6080     use List::MoreUtils qw/uniq/;
6081     # remove duplicate values
6082     @gstrates = uniq sort @gstrates;
6083     my $new_syspref_value = join '|', @gstrates;
6084     # update the syspref with the new values
6085     my $sth = $dbh->prepare("UPDATE systempreferences set value=? WHERE variable='gist'");
6086     $sth->execute( $new_syspref_value );
6087
6088     print "Upgrade to $DBversion done (Bug 8832, Set the syspref gist with the existing values)\n";
6089     SetVersion ($DBversion);
6090 }
6091
6092 $DBversion = "3.09.00.064";
6093 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6094    $dbh->do('ALTER TABLE items ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6095    print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the items table)\n";
6096    SetVersion ($DBversion);
6097 }
6098
6099 $DBversion = "3.09.00.065";
6100 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6101    $dbh->do('ALTER TABLE deleteditems ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6102    print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the deleteditems table)\n";
6103    SetVersion ($DBversion);
6104 }
6105
6106 $DBversion = "3.09.00.066";
6107 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6108    $dbh->do("DELETE FROM systempreferences WHERE variable='DidYouMeanFromAuthorities'");
6109    print "Upgrade to $DBversion done (Bug 9107: remove DidYouMeanFromAuthorities syspref)\n";
6110    SetVersion ($DBversion);
6111 }
6112
6113 $DBversion = "3.09.00.067";
6114 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6115    $dbh->do("ALTER TABLE statistics CHANGE COLUMN ccode ccode varchar(10) NULL");
6116    print "Upgrade to $DBversion done (Bug 9064: statistics.ccode potentially wrongly defined)\n";
6117    SetVersion ($DBversion);
6118 }
6119
6120 $DBversion = "3.10.00.00";
6121 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6122    print "Upgrade to $DBversion done (release tag)\n";
6123    SetVersion ($DBversion);
6124 }
6125
6126 $DBversion = "3.11.00.001";
6127 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6128     $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')");
6129     print "Upgrade to $DBversion done (Bug 2832 - Add alphabet syspref)\n";
6130 }
6131
6132 $DBversion = "3.11.00.002";
6133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6134     $dbh->do(q{
6135         DELETE from aqorders_items where ordernumber NOT IN (SELECT ordernumber FROM aqorders);
6136     });
6137     $dbh->do(q{
6138         ALTER TABLE aqorders_items
6139         ADD CONSTRAINT aqorders_items_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber)
6140         ON DELETE CASCADE ON UPDATE CASCADE;
6141     });
6142     print "Upgrade to $DBversion done (Bug 9030: Add constraint on aqorders_items.ordernumber)\n";
6143     SetVersion ($DBversion);
6144 }
6145
6146 $DBversion = "3.11.00.003";
6147 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6148     $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')");
6149     print "Upgrade to $DBversion done (Bug 7189: Add system preference RefundLostItemFeeOnReturn)\n";
6150     SetVersion($DBversion);
6151 }
6152
6153 $DBversion = "3.11.00.004";
6154 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6155     $dbh->do(qq{
6156         ALTER TABLE subscription ADD COLUMN closed INT(1) NOT NULL DEFAULT 0 AFTER enddate;
6157     });
6158
6159     print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n";
6160     SetVersion($DBversion);
6161 }
6162
6163 $DBversion = "3.11.00.005";
6164 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6165     $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;});
6166
6167     $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;});
6168
6169     $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;});
6170
6171     print "Upgrade to $DBversion done (Bug 7919: Display of values depending on the connexion library)\n";
6172     SetVersion($DBversion);
6173 }
6174
6175 $DBversion = "3.11.00.006";
6176 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6177     $dbh->do(q{
6178         UPDATE virtualshelves SET sortfield="copyrightdate" where sortfield="year";
6179     });
6180     print "Upgrade to $DBversion done (Bug 9167: Update the virtualshelves.sortfield column with 'copyrightdate' if needed)\n";
6181     SetVersion($DBversion);
6182 }
6183
6184 $DBversion = "3.11.00.007";
6185 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6186     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ar', 'language', 'de', 'Arabisch')");
6187     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hy', 'language', 'de', 'Armenisch')");
6188     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'bg', 'language', 'de', 'Bulgarisch')");
6189     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'zh', 'language', 'de', 'Chinesisch')");
6190     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'cs', 'language', 'de', 'Tschechisch')");
6191     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'da', 'language', 'de', 'Dänisch')");
6192     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nl', 'language', 'de', 'Niederländisch')");
6193     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'en', 'language', 'de', 'Englisch')");
6194     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fi', 'language', 'de', 'Finnisch')");
6195     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fr', 'language', 'de', 'Französisch')");
6196     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'fr', 'Laotien')");
6197     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'de', 'Laotisch')");
6198     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'el', 'language', 'de', 'Griechisch (Nach 1453)')");
6199     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'he', 'language', 'de', 'Hebräisch')");
6200     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hi', 'language', 'de', 'Hindi')");
6201     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hu', 'language', 'de', 'Ungarisch')");
6202     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'id', 'language', 'de', 'Indonesisch')");
6203     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'it', 'language', 'de', 'Italienisch')");
6204     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ja', 'language', 'de', 'Japanisch')");
6205     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ko', 'language', 'de', 'Koreanisch')");
6206     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'la', 'language', 'de', 'Latein')");
6207     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'fr', 'Galicien')");
6208     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'de', 'Galizisch')");
6209     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nb', 'language', 'de', 'Norwegisch bokm&#229;l')");
6210     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nn', 'language', 'de', 'Norwegisch nynorsk')");
6211     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fa', 'language', 'de', 'Persisch')");
6212     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pl', 'language', 'de', 'Polnisch')");
6213     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pt', 'language', 'de', 'Portugiesisch')");
6214     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ro', 'language', 'de', 'Rumänisch')");
6215     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ru', 'language', 'de', 'Russisch')");
6216     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'fr', 'Serbe')");
6217     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'de', 'Serbisch')");
6218     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'es', 'language', 'de', 'Spanisch')");
6219     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sv', 'language', 'de', 'Schwedisch')");
6220     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'fr', 'Tétoum')");
6221     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'de', 'Tetum')");
6222     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'th', 'language', 'de', 'Thailändisch')");
6223     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tr', 'language', 'de', 'Türkisch')");
6224     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'uk', 'language', 'de', 'Ukrainisch')");
6225     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'fr', 'Ourdou')");
6226     $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'de', 'Urdu')");
6227     print "Upgrade to $DBversion done (Bug 9056: add German and a couple of French translations to language_descriptions)\n";
6228     SetVersion ($DBversion);
6229 }
6230
6231 $DBversion = "3.11.00.008";
6232 if (CheckVersion($DBversion)) {
6233     $dbh->do("
6234         CREATE TABLE IF NOT EXISTS `borrower_modifications` (
6235           `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6236           `verification_token` varchar(255) NOT NULL DEFAULT '',
6237           `borrowernumber` int(11) NOT NULL DEFAULT '0',
6238           `cardnumber` varchar(16) DEFAULT NULL,
6239           `surname` mediumtext,
6240           `firstname` text,
6241           `title` mediumtext,
6242           `othernames` mediumtext,
6243           `initials` text,
6244           `streetnumber` varchar(10) DEFAULT NULL,
6245           `streettype` varchar(50) DEFAULT NULL,
6246           `address` mediumtext,
6247           `address2` text,
6248           `city` mediumtext,
6249           `state` text,
6250           `zipcode` varchar(25) DEFAULT NULL,
6251           `country` text,
6252           `email` mediumtext,
6253           `phone` text,
6254           `mobile` varchar(50) DEFAULT NULL,
6255           `fax` mediumtext,
6256           `emailpro` text,
6257           `phonepro` text,
6258           `B_streetnumber` varchar(10) DEFAULT NULL,
6259           `B_streettype` varchar(50) DEFAULT NULL,
6260           `B_address` varchar(100) DEFAULT NULL,
6261           `B_address2` text,
6262           `B_city` mediumtext,
6263           `B_state` text,
6264           `B_zipcode` varchar(25) DEFAULT NULL,
6265           `B_country` text,
6266           `B_email` text,
6267           `B_phone` mediumtext,
6268           `dateofbirth` date DEFAULT NULL,
6269           `branchcode` varchar(10) DEFAULT NULL,
6270           `categorycode` varchar(10) DEFAULT NULL,
6271           `dateenrolled` date DEFAULT NULL,
6272           `dateexpiry` date DEFAULT NULL,
6273           `gonenoaddress` tinyint(1) DEFAULT NULL,
6274           `lost` tinyint(1) DEFAULT NULL,
6275           `debarred` date DEFAULT NULL,
6276           `debarredcomment` varchar(255) DEFAULT NULL,
6277           `contactname` mediumtext,
6278           `contactfirstname` text,
6279           `contacttitle` text,
6280           `guarantorid` int(11) DEFAULT NULL,
6281           `borrowernotes` mediumtext,
6282           `relationship` varchar(100) DEFAULT NULL,
6283           `ethnicity` varchar(50) DEFAULT NULL,
6284           `ethnotes` varchar(255) DEFAULT NULL,
6285           `sex` varchar(1) DEFAULT NULL,
6286           `password` varchar(30) DEFAULT NULL,
6287           `flags` int(11) DEFAULT NULL,
6288           `userid` varchar(75) DEFAULT NULL,
6289           `opacnote` mediumtext,
6290           `contactnote` varchar(255) DEFAULT NULL,
6291           `sort1` varchar(80) DEFAULT NULL,
6292           `sort2` varchar(80) DEFAULT NULL,
6293           `altcontactfirstname` varchar(255) DEFAULT NULL,
6294           `altcontactsurname` varchar(255) DEFAULT NULL,
6295           `altcontactaddress1` varchar(255) DEFAULT NULL,
6296           `altcontactaddress2` varchar(255) DEFAULT NULL,
6297           `altcontactaddress3` varchar(255) DEFAULT NULL,
6298           `altcontactstate` text,
6299           `altcontactzipcode` varchar(50) DEFAULT NULL,
6300           `altcontactcountry` text,
6301           `altcontactphone` varchar(50) DEFAULT NULL,
6302           `smsalertnumber` varchar(50) DEFAULT NULL,
6303           `privacy` int(11) DEFAULT NULL,
6304           PRIMARY KEY (`verification_token`,`borrowernumber`),
6305           KEY `verification_token` (`verification_token`),
6306           KEY `borrowernumber` (`borrowernumber`)
6307         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6308 ");
6309
6310     $dbh->do("
6311         INSERT INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES
6312         ('PatronSelfRegistration', '0', NULL, 'If enabled, patrons will be able to register themselves via the OPAC.', 'YesNo'),
6313         ('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'),
6314         ('PatronSelfRegistrationDefaultCategory', '', '', 'A patron registered via the OPAC will receive a borrower category code set in this system preference.', 'free'),
6315         ('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'),
6316         ('PatronSelfRegistrationBorrowerMandatoryField',  'surname|firstname', NULL ,  'Choose the mandatory fields for a patron''s account, when registering via the OPAC.',  'free'),
6317         ('PatronSelfRegistrationBorrowerUnwantedField',  '', NULL ,  'Name the fields you don''t want to display when registering a new patron via the OPAC.',  'free');
6318     ");
6319
6320     $dbh->do("
6321     INSERT INTO  letter ( `module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content` )
6322     VALUES ( 'members', 'OPAC_REG_VERIFY', '', 'Opac Self-Registration Verification Email', '1', 'Verify Your Account', 'Hello!
6323
6324     Your library account has been created. Please verify your email address by clicking this link to complete the signup process:
6325
6326     http://<<OPACBaseURL>>/cgi-bin/koha/opac-registration-verify.pl?token=<<borrower_modifications.verification_token>>
6327
6328     If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly.'
6329     )");
6330
6331     print "Upgrade to $DBversion done (Bug 7067: Add Patron Self Registration)\n";
6332     SetVersion ($DBversion);
6333 }
6334
6335 $DBversion = "3.11.00.009";
6336 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6337     $dbh->do("
6338         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
6339         ('SeparateHoldings', '0', 'Separate current branch holdings from other holdings', NULL, 'YesNo'),
6340         ('SeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings', 'homebranch|holdingbranch', 'Choice'),
6341         ('OpacSeparateHoldings', '0', 'Separate current branch holdings from other holdings (OPAC)', NULL, 'YesNo'),
6342         ('OpacSeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings (OPAC)', 'homebranch|holdingbranch', 'Choice')
6343     ");
6344
6345     print "Upgrade to $DBversion done (Bug 7674: Add systempreferences SeparateHoldings, SeparateHoldingsBranch, OpacSeparateHoldings and OpacSeparateHoldingsBranch) \n";
6346     SetVersion ($DBversion);
6347 }
6348
6349 $DBversion = "3.11.00.010";
6350 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6351     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('RenewalSendNotice', '0', '', NULL, 'YesNo')");
6352     $dbh->do(q{
6353         INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
6354         ('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>>.');
6355     });
6356     print "Upgrade to $DBversion done (Bug 9151 - Renewal notice according to patron alert preferences)\n";
6357     SetVersion($DBversion);
6358 }
6359
6360 $DBversion = "3.11.00.011";
6361 if ( CheckVersion($DBversion) ) {
6362    $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');");
6363    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaExtensions','webm|ogg|ogv|oga|vtt','Media file extensions','','free');");
6364    print "Upgrade to $DBversion done (Bug 8377: Add HTML5MediaEnabled and HTML5MediaExtensions sysprefs)\n";
6365    SetVersion ($DBversion);
6366 }
6367
6368 $DBversion = "3.11.00.012";
6369 if ( CheckVersion($DBversion) ) {
6370     $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')");
6371     print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6372     SetVersion($DBversion);
6373 }
6374
6375 $DBversion = "3.11.00.013";
6376 if ( CheckVersion($DBversion) ) {
6377     $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')");
6378     print "Upgrade to $DBversion done (Bug 9162 - Add a system preference to set which notes fields appears on title notes/description separator)\n";
6379     SetVersion($DBversion);
6380 }
6381
6382 $DBversion = "3.11.00.014";
6383 if ( CheckVersion($DBversion) ) {
6384    $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' )");
6385    $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserJS', '', 'Define custom javascript for inclusion in the SCO module', 'free' )");
6386    print "Upgrade to $DBversion done (Bug 9009: Add SCOUserCSS and SCOUserJS sysprefs)\n";
6387 }
6388
6389 $DBversion = "3.11.00.015";
6390 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6391     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('RentalsInNoissuesCharge', '1', 'Rental charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6392     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ManInvInNoissuesCharge', '1', 'MANUAL_INV charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6393     print "Upgrade to $DBversion done (Add sysprefs RentalsInNoissuesCharge and ManInvInNoissuesCharge.)\n";
6394     SetVersion($DBversion);
6395 }
6396
6397 $DBversion = "3.11.00.016";
6398 if ( CheckVersion($DBversion) ) {
6399    $dbh->do(q{
6400         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";
6401         });
6402    $dbh->do(q{
6403         UPDATE userflags SET flagdesc="Edit Authorities" where flagdesc="Allow to edit authorities";
6404         });
6405    $dbh->do(q{
6406         UPDATE userflags SET flagdesc="Allow access to the reports module" where flagdesc="Allow to access to the reports module";
6407         });
6408    $dbh->do(q{
6409         UPDATE userflags SET flagdesc="Set library management parameters (deprecated)" where flagdesc="Set library management parameters";
6410         });
6411    $dbh->do(q{
6412         UPDATE userflags SET flagdesc="Manage serial subscriptions" where flagdesc="Allow to manage serials subscriptions";
6413         });
6414    $dbh->do(q{
6415         UPDATE userflags SET flagdesc="Manage patrons fines and fees" where flagdesc="Update borrower charges";
6416         });
6417    $dbh->do(q{
6418         UPDATE userflags SET flagdesc="Check out and check in items" where flagdesc="Circulate books";
6419         });
6420    $dbh->do(q{
6421         UPDATE userflags SET flagdesc="Manage Koha system settings (Administration panel)" where flagdesc="Set Koha system parameters";
6422         });
6423    $dbh->do(q{
6424         UPDATE userflags SET flagdesc="Add or modify patrons" where flagdesc="Add or modify borrowers";
6425         });
6426    $dbh->do(q{
6427         UPDATE userflags SET flagdesc="Use all tools (expand for granular tools permissions)" where flagdesc="Use tools (export, import, barcodes)";
6428         });
6429    $dbh->do(q{
6430         UPDATE userflags SET flagdesc="Allow staff members to modify permissions for other staff members" where flagdesc="Set user permissions";
6431         });
6432    $dbh->do(q{
6433         UPDATE permissions SET description="Perform batch modification of patrons" where description="Perform batch modifivation of patrons";
6434         });
6435
6436    print "Upgrade to $DBversion done (Bug 9382 (updated with bug 9745) - refresh permission descriptions to make more sense)\n";
6437    SetVersion ($DBversion);
6438 }
6439
6440 $DBversion ="3.11.00.017";
6441 if ( CheckVersion($DBversion) ) {
6442     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');");
6443     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');");
6444     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');");
6445     print "Upgrade to $DBversion done (Add IDreamBooks enhanced content)\n";
6446     SetVersion($DBversion);
6447 }
6448
6449 $DBversion = "3.11.00.018";
6450 if ( CheckVersion($DBversion) ) {
6451    $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')");
6452    $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')");
6453    print "Upgrade to $DBversion done (Bug 9395: Problem with callnumber and standard number search in OPAC and Staff Client)\n";
6454    SetVersion ($DBversion);
6455 }
6456
6457 $DBversion = "3.11.00.019";
6458 if ( CheckVersion($DBversion) ) {
6459     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorityField100', 'afrey50      ba0', NULL, NULL, 'Textarea')");
6460     print "Upgrade to $DBversion done (Bug 9145 - Add syspref UNIMARCAuthorityField100)\n";
6461     SetVersion ($DBversion);
6462 }
6463
6464 $DBversion = "3.11.00.020";
6465 if ( CheckVersion($DBversion) ) {
6466     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UNIMARCField100Language', 'fre','UNIMARC field 100 default language',NULL,'short')");
6467     print "Upgrade to $DBversion done (Bug 8347 - Koha forces UNIMARC 100 field code language to 'fre')\n";
6468     SetVersion($DBversion);
6469 }
6470
6471 $DBversion ="3.11.00.021";
6472 if ( CheckVersion($DBversion) ) {
6473     $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');");
6474     print "Upgrade to $DBversion done (Bug 5888 - Subject search pop-up for the OPAC)\n";
6475     SetVersion($DBversion);
6476 }
6477
6478 $DBversion = "3.11.00.022";
6479 if ( CheckVersion($DBversion) ) {
6480     $dbh->do(
6481 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('Persona',0,'Use Mozilla Persona for login','','YesNo')"
6482     );
6483     print "Upgrade to $DBversion done (Bug 9587 - Allow login via Persona)\n";
6484     SetVersion($DBversion);
6485 }
6486
6487 $DBversion = "3.11.00.023";
6488 if ( CheckVersion($DBversion) ) {
6489     $dbh->do("UPDATE z3950servers SET host = 'lx2.loc.gov', port = 210, db = 'LCDB', syntax = 'USMARC', encoding = 'utf8' WHERE name = 'LIBRARY OF CONGRESS'");
6490     print "Upgrade to $DBversion done (Bug 9520 - Update default LOC Z39.50 target)\n";
6491     SetVersion($DBversion);
6492 }
6493
6494 $DBversion = "3.11.00.024";
6495 if ( CheckVersion($DBversion) ) {
6496     $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');");
6497     print "Upgrade to $DBversion done (Bug 5079: Add OpacItemLocation syspref)\n";
6498     SetVersion ($DBversion);
6499 }
6500
6501 $DBversion = "3.11.00.025";
6502 if ( CheckVersion($DBversion) ) {
6503     $dbh->do(
6504         "CREATE TABLE linktracker (
6505   id int(11) NOT NULL AUTO_INCREMENT,
6506   biblionumber int(11) DEFAULT NULL,
6507   itemnumber int(11) DEFAULT NULL,
6508   borrowernumber int(11) DEFAULT NULL,
6509   url text,
6510   timeclicked datetime DEFAULT NULL,
6511   PRIMARY KEY (id),
6512   KEY bibidx (biblionumber),
6513   KEY itemidx (itemnumber),
6514   KEY borridx (borrowernumber),
6515   KEY dateidx (timeclicked)
6516     ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
6517     );
6518     $dbh->do( "
6519   INSERT INTO systempreferences (variable,value,explanation,options,type)
6520   VALUES('TrackClicks','0','Track links clicked',NULL,'Integer')" );
6521     print
6522 "Upgrade to $DBversion done (Adds feature Bug 8917, the ability to track links clicked)\n";
6523     SetVersion($DBversion);
6524 }
6525
6526 $DBversion = "3.11.00.026";
6527 if ( CheckVersion($DBversion) ) {
6528     $dbh->do(qq{
6529         ALTER TABLE import_records ADD INDEX batch_id_record_type ( import_batch_id, record_type );
6530     });
6531     print "Upgrade to $DBversion done (Bug 9207: Add new index batch_id_record_type to import_records)\n";
6532     SetVersion($DBversion);
6533 }
6534
6535 $DBversion = "3.11.00.027";
6536 if ( CheckVersion($DBversion) ) {
6537     $dbh->do(q{
6538         INSERT INTO permissions ( module_bit, code, description )
6539         VALUES  ( '1', 'overdues_report', 'Execute overdue items report' )
6540     });
6541     # add new permission for users with all report permissions and circulation remaining permission
6542     $dbh->do(q{
6543         INSERT INTO user_permissions (borrowernumber, module_bit, code)
6544         SELECT user_permissions.borrowernumber, 1, 'overdues_report'
6545         FROM user_permissions
6546         LEFT JOIN borrowers USING(borrowernumber)
6547         WHERE borrowers.flags & (1 << 16)
6548         AND user_permissions.code = 'circulate_remaining_permissions'
6549     });
6550     print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n";
6551     SetVersion($DBversion);
6552 }
6553
6554 $DBversion = "3.11.00.028";
6555 if ( CheckVersion($DBversion) ) {
6556     $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'    );");
6557     print "Upgrade to $DBversion done (Bug 9756 - Patron self registration missing the system preference PatronSelfRegistrationAdditionalInstructions)\n";
6558     SetVersion($DBversion);
6559 }
6560
6561 $DBversion = "3.11.00.029";
6562 if (CheckVersion($DBversion)) {
6563     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseQueryParser', '0', 'If enabled, try to use QueryParser for queries.', NULL, 'YesNo')");
6564     print "Upgrade to $DBversion done (Bug 9239: Make it possible for Koha to use QueryParser)\n";
6565     SetVersion ($DBversion);
6566 }
6567
6568 $DBversion = "3.11.00.030";
6569 if ( CheckVersion($DBversion) ) {
6570     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('FinesIncludeGracePeriod','1','If enabled, fines calculations will include the grace period.',NULL,'YesNo');");
6571     print "Upgrade to $DBversion done (Add system preference FinesIncludeGracePeriod)\n";
6572     SetVersion($DBversion);
6573 }
6574
6575 $DBversion = "3.11.00.100";
6576 if ( CheckVersion($DBversion) ) {
6577     print "Upgrade to $DBversion done (3.12-alpha release)\n";
6578     SetVersion ($DBversion);
6579 }
6580
6581 $DBversion = "3.11.00.101";
6582 if ( CheckVersion($DBversion) ) {
6583    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorsFacetsSeparator',', ', 'UNIMARC authors facets separator', NULL, 'short')");
6584    print "Upgrade to $DBversion done (Bug 9341: Problem with UNIMARC authors facets)\n";
6585    SetVersion ($DBversion);
6586 }
6587
6588 $DBversion = "3.11.00.102";
6589 if ( CheckVersion($DBversion) ) {
6590     $dbh->do(q{
6591         DELETE FROM systempreferences WHERE variable='NoZebra'
6592     });
6593     $dbh->do(q{
6594         DELETE FROM systempreferences WHERE variable='QueryRemoveStopwords'
6595     });
6596     print "Upgrade to $DBversion done (Remove deprecated NoZebra and QueryRemoveStopwords sysprefs)\n";
6597     SetVersion($DBversion);
6598 }
6599
6600 $DBversion = "3.11.00.103";
6601 if ( CheckVersion($DBversion) ) {
6602     $dbh->do("DELETE FROM systempreferences WHERE variable = 'insecure';");
6603     print "Upgrade to $DBversion done (Bug 9827 - Remove 'insecure' system preference)\n";
6604     SetVersion($DBversion);
6605 }
6606
6607 $DBversion = "3.11.00.104";
6608 if ( CheckVersion($DBversion) ) {
6609     print "Upgrade to $DBversion done (3.12-alpha2 release)\n";
6610     SetVersion ($DBversion);
6611 }
6612
6613 $DBversion = "3.11.00.105";
6614 if ( CheckVersion($DBversion) ) {
6615     if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
6616         $sth = $dbh->prepare(
6617 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '029'"
6618         );
6619         $sth->execute;
6620         my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6621
6622         for my $frameworkcode ( keys %$frameworkcodes ) {
6623             $dbh->do( "
6624     INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6625     libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6626     value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6627     ('029', 'a', 'OCLC library identifier', 'OCLC library identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6628     ('029', 'b', 'System control number', 'System control number', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6629     ('029', 'c', 'OAI set name', 'OAI set name', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6630     ('029', 't', 'Content type identifier', 'Content type identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL)
6631    " );
6632         }
6633
6634         for my $tag ( '863', '864', '865' ) {
6635             $sth = $dbh->prepare(
6636 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '$tag'"
6637             );
6638             $sth->execute;
6639             my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6640
6641             for my $frameworkcode ( keys %$frameworkcodes ) {
6642                 $dbh->do( "
6643      INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6644      libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6645      value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6646      ('$tag', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6647      ('$tag', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6648      ('$tag', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6649      ('$tag', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6650      ('$tag', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6651      ('$tag', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6652      ('$tag', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6653      ('$tag', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6654      ('$tag', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6655      ('$tag', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6656      ('$tag', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6657      ('$tag', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6658      ('$tag', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6659      ('$tag', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6660      ('$tag', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6661      ('$tag', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6662      ('$tag', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6663      ('$tag', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6664      ('$tag', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6665      ('$tag', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6666      ('$tag', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6667      ('$tag', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6668      ('$tag', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6669      ('$tag', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6670      ('$tag', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL)
6671     " );
6672             }
6673         }
6674     }
6675     print "Upgrade to $DBversion done (Bug 9353: Missing subfields on MARC21 frameworks)\n";
6676     SetVersion($DBversion);
6677 }
6678
6679
6680 $DBversion = "3.11.00.106";
6681 if ( CheckVersion($DBversion) ) {
6682     $dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('19', 'plugins', 'Koha plugins', '0')");
6683     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
6684               ('19', 'manage', 'Manage plugins ( install / uninstall )'),
6685               ('19', 'tool', 'Use tool plugins'),
6686               ('19', 'report', 'Use report plugins'),
6687               ('19', 'configure', 'Configure plugins')
6688             ");
6689     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseKohaPlugins','0','Enable or disable the ability to use Koha Plugins.','','YesNo')");
6690
6691     $dbh->do("
6692         CREATE TABLE IF NOT EXISTS plugin_data (
6693             plugin_class varchar(255) NOT NULL,
6694             plugin_key varchar(255) NOT NULL,
6695             plugin_value text,
6696             PRIMARY KEY (plugin_class,plugin_key)
6697         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6698     ");
6699
6700     print "Upgrade to $DBversion done (Bug 7804: Added plugin system.)\n";
6701     SetVersion($DBversion);
6702 }
6703
6704 $DBversion = "3.11.00.107";
6705 if ( CheckVersion($DBversion) ) {
6706    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('TimeFormat','24hr','12hr|24hr','Defines the global time format for visual output.','Choice')");
6707    print "Upgrade to $DBversion done (Bug 9014: Add syspref TimeFormat)\n";
6708    SetVersion ($DBversion);
6709 }
6710
6711 $DBversion = "3.11.00.108";
6712 if ( CheckVersion($DBversion) ) {
6713     $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP;");
6714     $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');");
6715     $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP;");
6716     print "Upgrade to $DBversion done (Bug 7241: Fix on circulation logs)\n";
6717     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";
6718     SetVersion($DBversion);
6719 }
6720
6721 $DBversion = "3.11.00.109";
6722 if ( CheckVersion($DBversion) ) {
6723    $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');");
6724    print "Upgrade to $DBversion done (Bug 9403: Add DisplayIconsXSLT)\n";
6725    SetVersion ($DBversion);
6726 }
6727
6728 $DBversion = "3.11.00.110";
6729 if ( CheckVersion($DBversion) ) {
6730     $dbh->do("ALTER TABLE pending_offline_operations CHANGE barcode barcode VARCHAR( 20 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
6731     $dbh->do("ALTER TABLE pending_offline_operations ADD amount DECIMAL( 28, 6 ) NULL DEFAULT NULL");
6732     print "Upgrade to $DBversion done (Bug 8220 - Allow koc uploads to go to process queue)\n";
6733     SetVersion ($DBversion);
6734 }
6735
6736 $DBversion = "3.11.00.111";
6737 if ( CheckVersion($DBversion) ) {
6738     my $sth = $dbh->prepare("
6739         SELECT module, code, branchcode, content
6740         FROM letter
6741         WHERE content LIKE '%<fine>%'
6742     ");
6743     $sth->execute;
6744     my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?");
6745     while(my $row = $sth->fetchrow_hashref){
6746         $row->{content} =~ s/<fine>\w+<\/fine>/<<items.fine>>/;
6747         $sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode});
6748     }
6749     print "Upgrade to $DBversion done (use new <<items.fine>> syntax in notices)\n";
6750     SetVersion($DBversion);
6751 }
6752
6753 $DBversion = "3.11.00.112";
6754 if ( CheckVersion($DBversion) ) {
6755     $dbh->do(qq{
6756         ALTER TABLE issuingrules ADD COLUMN renewalperiod int(4) DEFAULT NULL AFTER renewalsallowed
6757     });
6758     $dbh->do(qq{
6759         UPDATE issuingrules SET renewalperiod = issuelength
6760     });
6761     print "Upgrade to $DBversion done (Bug 8365: Add colum issuingrules.renewalperiod)\n";
6762     SetVersion ($DBversion);
6763 }
6764
6765 $DBversion = "3.11.00.113";
6766 if ( CheckVersion($DBversion) ) {
6767     $dbh->do(q{
6768         ALTER TABLE branchcategories ADD show_in_pulldown BOOLEAN NOT NULL DEFAULT '0',
6769         ADD INDEX ( show_in_pulldown )
6770     });
6771     print "Upgrade to $DBversion done (Bug 9257 - Add groups to normal search pulldown)\n";
6772     SetVersion ($DBversion);
6773 }
6774
6775 $DBversion = "3.11.00.115";
6776 if ( CheckVersion($DBversion) ) {
6777     $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')");
6778     $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')");
6779     print "Upgrade to $DBversion done (Bug 7740: Add syspref HighlightOwnItemsOnOPAC)\n";
6780     SetVersion ($DBversion);
6781 }
6782
6783 $DBversion = "3.11.00.116";
6784 if ( CheckVersion($DBversion) ) {
6785     $dbh->do(q{ALTER TABLE aqorders DROP COLUMN serialid;});
6786     $dbh->do(q{ALTER TABLE aqorders DROP COLUMN subscription;});
6787     $dbh->do(q{ALTER TABLE aqorders ADD COLUMN subscriptionid INT(11) DEFAULT NULL;});
6788     $dbh->do(q{ALTER TABLE aqorders ADD CONSTRAINT aqorders_subscriptionid FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE;});
6789     $dbh->do(q{ALTER TABLE subscription ADD COLUMN reneweddate DATE DEFAULT NULL;});
6790     print "Upgrade to $DBversion done (Bug 5343: table aqorders: DROP serialid and subscription fields and ADD subscriptionid, table subscription: ADD reneweddate)\n";
6791     SetVersion ($DBversion);
6792 }
6793
6794 $DBversion = "3.11.00.200";
6795 if ( CheckVersion($DBversion) ) {
6796     print "Upgrade to $DBversion done (3.12-beta1 release)\n";
6797     SetVersion ($DBversion);
6798 }
6799
6800 $DBversion = "3.11.00.201";
6801 if ( CheckVersion($DBversion) ) {
6802     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS' AND host LIKE 'z3950.bibsys.no'");
6803     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK' AND host LIKE 'z3950.nb.no'");
6804     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK' AND host LIKE 'z3950.nb.no'");
6805     $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN' AND host like 'z3950.deich.folkebibl.no'");
6806     print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n";
6807     SetVersion($DBversion);
6808 }
6809
6810 $DBversion = "3.11.00.202";
6811 if ( CheckVersion($DBversion) ) {
6812    $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ca', 'language', 'Catalan','2013-01-12' )");
6813    $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ca','cat')");
6814    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'es', 'Catalán')");
6815    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'en', 'Catalan')");
6816    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'fr', 'Catalan')");
6817    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'ca', 'Català')");
6818    $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'de', 'Katalanisch')");
6819    print "Upgrade to $DBversion done (Bug 9381: Add Catalan laguage)\n";
6820    SetVersion ($DBversion);
6821 }
6822
6823 $DBversion = "3.11.00.203";
6824 if ( CheckVersion($DBversion) ) {
6825     $dbh->do(q{ALTER TABLE suggestions CHANGE COLUMN title title VARCHAR(255) DEFAULT NULL;});
6826     print "Upgrade to $DBversion done (Bug 2046 - increasing title column length for suggestions)\n";
6827     SetVersion ($DBversion);
6828 }
6829
6830 $DBversion = "3.11.00.300";
6831 if ( CheckVersion($DBversion) ) {
6832     print "Upgrade to $DBversion done (3.12-beta3 release)\n";
6833     SetVersion ($DBversion);
6834 }
6835
6836 $DBversion = "3.11.00.301";
6837 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6838     #issues
6839     $dbh->do(q{
6840         ALTER TABLE `issues`
6841             ADD KEY `itemnumber_idx` (`itemnumber`),
6842             ADD KEY `branchcode_idx` (`branchcode`),
6843             ADD KEY `issuingbranch_idx` (`issuingbranch`)
6844     });
6845     $dbh->do(q{
6846         ALTER TABLE `old_issues`
6847             ADD KEY `branchcode_idx` (`branchcode`),
6848             ADD KEY `issuingbranch_idx` (`issuingbranch`)
6849     });
6850     #items
6851     $dbh->do(q{
6852         ALTER TABLE `items` ADD KEY `itype_idx` (`itype`)
6853     });
6854     $dbh->do(q{
6855         ALTER TABLE `deleteditems` ADD KEY `itype_idx` (`itype`)
6856     });
6857     # biblioitems
6858     $dbh->do(q{
6859         ALTER TABLE `biblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6860     });
6861     $dbh->do(q{
6862         ALTER TABLE `deletedbiblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6863     });
6864     # statistics
6865     $dbh->do(q{
6866         ALTER TABLE `statistics`
6867             ADD KEY `branch_idx` (`branch`),
6868             ADD KEY `proccode_idx` (`proccode`),
6869             ADD KEY `type_idx` (`type`),
6870             ADD KEY `usercode_idx` (`usercode`),
6871             ADD KEY `itemnumber_idx` (`itemnumber`),
6872             ADD KEY `itemtype_idx` (`itemtype`),
6873             ADD KEY `borrowernumber_idx` (`borrowernumber`),
6874             ADD KEY `associatedborrower_idx` (`associatedborrower`),
6875             ADD KEY `ccode_idx` (`ccode`)
6876     });
6877
6878     print "Upgrade to $DBversion done (Bug 9681: Add some database indexes)\n";
6879     SetVersion($DBversion);
6880 }
6881
6882 $DBversion = "3.12.00.000";
6883 if ( CheckVersion($DBversion) ) {
6884     print "Upgrade to $DBversion done (3.12.0 release)\n";
6885     SetVersion ($DBversion);
6886 }
6887
6888 $DBversion = '3.13.00.000';
6889 if ( CheckVersion($DBversion) ) {
6890     print "Upgrade to $DBversion done (start the journey to Koha Pi)\n";
6891     SetVersion ($DBversion);
6892 }
6893
6894 $DBversion = "3.13.00.001";
6895 if ( CheckVersion($DBversion) ) {
6896     $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('UseCourseReserves', '0', NULL, 'Enable the course reserves feature.', 'YesNo')");
6897     $dbh->do("INSERT INTO userflags (bit,flag,flagdesc,defaulton) VALUES ('18','coursereserves','Course Reserves','0')");
6898     $dbh->do("
6899 CREATE TABLE `courses` (
6900   `course_id` int(11) NOT NULL AUTO_INCREMENT,
6901   `department` varchar(20) DEFAULT NULL,
6902   `course_number` varchar(255) DEFAULT NULL,
6903   `section` varchar(255) DEFAULT NULL,
6904   `course_name` varchar(255) DEFAULT NULL,
6905   `term` varchar(20) DEFAULT NULL,
6906   `staff_note` mediumtext,
6907   `public_note` mediumtext,
6908   `students_count` varchar(20) DEFAULT NULL,
6909   `enabled` enum('yes','no') NOT NULL DEFAULT 'yes',
6910   `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6911    PRIMARY KEY (`course_id`)
6912 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
6913     ");
6914
6915     $dbh->do("
6916 CREATE TABLE `course_instructors` (
6917   `course_id` int(11) NOT NULL,
6918   `borrowernumber` int(11) NOT NULL,
6919   PRIMARY KEY (`course_id`,`borrowernumber`),
6920   KEY `borrowernumber` (`borrowernumber`)
6921 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6922     ");
6923
6924     $dbh->do("
6925 ALTER TABLE `course_instructors`
6926   ADD CONSTRAINT `course_instructors_ibfk_2` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`),
6927   ADD CONSTRAINT `course_instructors_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6928     ");
6929
6930     $dbh->do("
6931 CREATE TABLE `course_items` (
6932   `ci_id` int(11) NOT NULL AUTO_INCREMENT,
6933   `itemnumber` int(11) NOT NULL,
6934   `itype` varchar(10) DEFAULT NULL,
6935   `ccode` varchar(10) DEFAULT NULL,
6936   `holdingbranch` varchar(10) DEFAULT NULL,
6937   `location` varchar(80) DEFAULT NULL,
6938   `enabled` enum('yes','no') NOT NULL DEFAULT 'no',
6939   `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6940    PRIMARY KEY (`ci_id`),
6941    UNIQUE KEY `itemnumber` (`itemnumber`),
6942    KEY `holdingbranch` (`holdingbranch`)
6943 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
6944     ");
6945
6946     $dbh->do("
6947 ALTER TABLE `course_items`
6948   ADD CONSTRAINT `course_items_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
6949   ADD CONSTRAINT `course_items_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6950 ");
6951
6952     $dbh->do("
6953 CREATE TABLE `course_reserves` (
6954   `cr_id` int(11) NOT NULL AUTO_INCREMENT,
6955   `course_id` int(11) NOT NULL,
6956   `ci_id` int(11) NOT NULL,
6957   `staff_note` mediumtext,
6958   `public_note` mediumtext,
6959   `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6960    PRIMARY KEY (`cr_id`),
6961    UNIQUE KEY `pseudo_key` (`course_id`,`ci_id`),
6962    KEY `course_id` (`course_id`)
6963 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
6964 ");
6965
6966     $dbh->do("
6967 ALTER TABLE `course_reserves`
6968   ADD CONSTRAINT `course_reserves_ibfk_1` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`);
6969     ");
6970
6971     $dbh->do("
6972 INSERT INTO permissions (module_bit, code, description) VALUES
6973   (18, 'manage_courses', 'Add, edit and delete courses'),
6974   (18, 'add_reserves', 'Add course reserves'),
6975   (18, 'delete_reserves', 'Remove course reserves')
6976 ;
6977     ");
6978
6979
6980     print "Upgrade to $DBversion done (Add Course Reserves ( system preference UseCourseReserves ))\n";
6981     SetVersion($DBversion);
6982 }
6983
6984 $DBversion = "3.13.00.002";
6985 if ( CheckVersion($DBversion) ) {
6986    $dbh->do("UPDATE systempreferences SET variable = 'IndependentBranches' WHERE variable = 'IndependantBranches'");
6987    print "Upgrade to $DBversion done (Bug 10080 - Change system pref IndependantBranches to IndependentBranches)\n";
6988    SetVersion ($DBversion);
6989 }
6990
6991 $DBversion = '3.13.00.003';
6992 if ( CheckVersion($DBversion) ) {
6993     $dbh->do("ALTER TABLE serial DROP itemnumber");
6994     print "Upgrade to $DBversion done (Bug 7718 - Remove itemnumber column from serials table)\n";
6995     SetVersion($DBversion);
6996 }
6997
6998 $DBversion = "3.13.00.004";
6999 if(CheckVersion($DBversion)) {
7000     $dbh->do(
7001 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowHoldNotes',0,'Show hold notes on OPAC','','YesNo')"
7002     );
7003     print "Upgrade to $DBversion done (Bug 9722: Allow users to add notes when placing a hold in OPAC)\n";
7004     SetVersion($DBversion);
7005 }
7006
7007 $DBversion = "3.13.00.005";
7008 if(CheckVersion($DBversion)) {
7009     my $intra= C4::Context->preference("intranetstylesheet");
7010     #if this pref is not blank or starting with http, https or / [root], then
7011     #add an additional / to the front
7012     if($intra && $intra !~ /^(\/|https?)/) {
7013         $dbh->do("UPDATE systempreferences SET value=? WHERE variable=?",
7014             undef,('/'.$intra,"intranetstylesheet"));
7015         print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n";
7016     }
7017     print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n";
7018     SetVersion ($DBversion);
7019 }
7020
7021 $DBversion = "3.13.00.006";
7022 if ( CheckVersion($DBversion) ) {
7023     $dbh->do(q{
7024         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
7025         VALUES ('CalculateFinesOnReturn','1','Switch to control if overdue fines are calculated on return or not', '', 'YesNo')
7026     });
7027     print "Upgrade to $DBversion done (Bug 10120: Fines on item return controlled by a systempreference)\n";
7028     SetVersion($DBversion);
7029 }
7030
7031 $DBversion = "3.13.00.007";
7032 if ( CheckVersion($DBversion) ) {
7033     $dbh->do("UPDATE systempreferences SET variable='OpacHoldNotes' WHERE variable='OpacShowHoldNotes'");
7034     print "Upgrade to $DBversion done (Bug 10343: Rename OpacShowHoldNotes to OpacHoldNotes)\n";
7035     SetVersion($DBversion);
7036 }
7037
7038 $DBversion = "3.13.00.008";
7039 if ( CheckVersion($DBversion) ) {
7040     $dbh->do("
7041 CREATE TABLE IF NOT EXISTS borrower_files (
7042   file_id int(11) NOT NULL AUTO_INCREMENT,
7043   borrowernumber int(11) NOT NULL,
7044   file_name varchar(255) NOT NULL,
7045   file_type varchar(255) NOT NULL,
7046   file_description varchar(255) DEFAULT NULL,
7047   file_content longblob NOT NULL,
7048   date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7049   PRIMARY KEY (file_id),
7050   KEY borrowernumber (borrowernumber),
7051   CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7052 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
7053     ");
7054     print "Upgrade to $DBversion done (Bug 10443: make sure borrower_files table exists)\n";
7055     SetVersion($DBversion);
7056 }
7057
7058 $DBversion = "3.13.00.009";
7059 if ( CheckVersion($DBversion) ) {
7060     $dbh->do("ALTER TABLE aqorders DROP COLUMN biblioitemnumber");
7061     print "Upgrade to $DBversion done (Bug 9987 - Drop column aqorders.biblioitemnumber)\n";
7062     SetVersion($DBversion);
7063 }
7064
7065 $DBversion = "3.13.00.010";
7066 if ( CheckVersion($DBversion) ) {
7067     $dbh->do(
7068         q{
7069 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AcqWarnOnDuplicateInvoice','0','Warn librarians when they try to create a duplicate invoice', '', 'YesNo');
7070 }
7071     );
7072     print
7073 "Upgrade to $DBversion done (Bug 10366 - Add system preference to enabling warning librarian when invoice is duplicated)\n";
7074     SetVersion($DBversion);
7075 }
7076
7077 $DBversion = "3.13.00.011";
7078 if ( CheckVersion($DBversion) ) {
7079     $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it'");
7080     print "Upgrade to $DBversion done (Bug 9519: Wrong language code for Italian in the advanced search language limitations)\n";
7081     SetVersion($DBversion);
7082 }
7083
7084 $DBversion = "3.13.00.012";
7085 if ( CheckVersion($DBversion) ) {
7086     $dbh->do("ALTER TABLE issuingrules MODIFY COLUMN overduefinescap decimal(28,6) DEFAULT NULL;");
7087     print "Upgrade to $DBversion done (Bug 10490: Correct datatype for overduefinescap in issuingrules)\n";
7088     SetVersion($DBversion);
7089 }
7090
7091 $DBversion ="3.13.00.013";
7092 if ( CheckVersion($DBversion) ) {
7093     $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');");
7094     print "Upgrade to $DBversion done (Bug 9576: add AllowTooManyOverride syspref to enable or disable issue limit confirmation)\n";
7095     SetVersion($DBversion);
7096 }
7097
7098 $DBversion = "3.13.00.014";
7099 if ( CheckVersion($DBversion) ) {
7100     $dbh->do("ALTER TABLE courses MODIFY COLUMN department varchar(80) DEFAULT NULL;");
7101     $dbh->do("ALTER TABLE courses MODIFY COLUMN term       varchar(80) DEFAULT NULL;");
7102     print "Upgrade to $DBversion done (Bug 10604: correct width of courses.department and courses.term)\n";
7103     SetVersion($DBversion);
7104 }
7105
7106 $DBversion = "3.13.00.015";
7107 if ( CheckVersion($DBversion) ) {
7108     $dbh->do(
7109 "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')"
7110     );
7111     print "Upgrade to $DBversion done (Bug 7494: Add itemBarcodeFallbackSearch syspref)\n";
7112     SetVersion($DBversion);
7113 }
7114
7115 $DBversion = "3.13.00.016";
7116 if ( CheckVersion($DBversion) ) {
7117     $dbh->do(q{
7118         ALTER TABLE items CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT  '0'
7119     });
7120
7121     $dbh->do(q{
7122         ALTER TABLE deleteditems CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT  '0'
7123     });
7124
7125     $dbh->do(q{
7126         UPDATE saved_sql SET savedsql = REPLACE(savedsql, 'wthdrawn', 'withdrawn')
7127     });
7128
7129     $dbh->do(q{
7130         UPDATE marc_subfield_structure SET kohafield = 'items.withdrawn' WHERE kohafield = 'items.wthdrawn'
7131     });
7132
7133     print "Upgrade to $DBversion done (Bug 10550 - Fix database typo wthdrawn)\n";
7134     SetVersion($DBversion);
7135 }
7136
7137 $DBversion = "3.13.00.017";
7138 if ( CheckVersion($DBversion) ) {
7139     $dbh->do(
7140 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientKey','','Client key for OverDrive integration','30','Free')"
7141     );
7142     $dbh->do(
7143 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientSecret','','Client key for OverDrive integration','30','YesNo')"
7144     );
7145     $dbh->do(
7146 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveLibraryID','','Library ID for OverDrive integration','','Integer')"
7147     );
7148     print "Upgrade to $DBversion done (Bug 10320 - Show results from library's OverDrive collection in OPAC search)\n";
7149     SetVersion($DBversion);
7150 }
7151
7152 $DBversion = "3.13.00.018";
7153 if ( CheckVersion($DBversion) ) {
7154     $dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers;});
7155     $dbh->do(qq{
7156         CREATE TABLE aqorders_transfers (
7157           ordernumber_from int(11) NULL,
7158           ordernumber_to int(11) NULL,
7159           timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7160           UNIQUE KEY ordernumber_from (ordernumber_from),
7161           UNIQUE KEY ordernumber_to (ordernumber_to),
7162           CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
7163           CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
7164         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7165     });
7166     print "Upgrade to $DBversion done (Bug 5349: Add aqorders_transfers table)\n";
7167     SetVersion($DBversion);
7168 }
7169
7170 $DBversion = "3.13.00.019";
7171 if ( CheckVersion($DBversion) ) {
7172     $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsg VARCHAR(255) AFTER summary;");
7173     $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsgtype CHAR(16) DEFAULT 'message' NOT NULL AFTER checkinmsg;");
7174     print "Upgrade to $DBversion done (Bug 10513 - Light up a warning/message when returning a chosen item type)\n";
7175     SetVersion($DBversion);
7176 }
7177
7178 $DBversion = "3.13.00.020";
7179 if ( CheckVersion($DBversion) ) {
7180     $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')");
7181     $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')");
7182     print "Upgrade to $DBversion done (Bug 7639: system preferences to forgive fines on lost items)\n";
7183     SetVersion($DBversion);
7184 }
7185
7186 $DBversion ="3.13.00.021";
7187 if ( CheckVersion($DBversion) ) {
7188     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ConfirmFutureHolds','0','Number of days for confirming future holds','','Integer');");
7189     print "Upgrade to $DBversion done (Bug 9761: Add ConfirmFutureHolds pref)\n";
7190     SetVersion($DBversion);
7191 }
7192
7193 $DBversion = "3.13.00.022";
7194 if ( CheckVersion($DBversion) ) {
7195     $dbh->do("DELETE from auth_tag_structure WHERE tagfield IN ('68a','68b')");
7196     $dbh->do("DELETE from auth_subfield_structure WHERE tagfield IN ('68a','68b')");
7197     print "Upgrade to $DBversion done (Bug 10687 - Delete erroneous tags 68a and 68b on default MARC21 auth framework)\n";
7198     SetVersion($DBversion);
7199 }
7200
7201 $DBversion = "3.13.00.023";
7202 if ( CheckVersion($DBversion) ) {
7203     $dbh->do("ALTER TABLE borrowers CHANGE password password VARCHAR(60);");
7204     print "Upgrade to $DBversion done (Bug 9611 upgrading password storage system)\n";
7205     SetVersion($DBversion);
7206 }
7207
7208 $DBversion = "3.13.00.024";
7209 if ( CheckVersion($DBversion) ) {
7210     $dbh->do(q{ALTER TABLE z3950servers ADD COLUMN recordtype VARCHAR(45) NOT NULL DEFAULT 'biblio' AFTER description;});
7211     print "Upgrade to $DBversion done (Bug 10096 - Add a Z39.50 interface for authority searching)\n";
7212 }
7213
7214 $DBversion = "3.13.00.025";
7215 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7216    $dbh->do("ALTER TABLE oai_sets_mappings ADD COLUMN operator varchar(8) NOT NULL default 'equal' AFTER marcsubfield;");
7217    print "Upgrade to $DBversion done (Bug 9295: OAI notequal: add operator column to OAI mappings table)\n";
7218    SetVersion ($DBversion);
7219 }
7220
7221 $DBversion = "3.13.00.026";
7222 if ( CheckVersion($DBversion) ) {
7223     $dbh->do(q|
7224         ALTER TABLE auth_subfield_structure ADD COLUMN defaultvalue TEXT DEFAULT NULL AFTER frameworkcode
7225     |);
7226     print "Upgrade to $DBversion done (Bug 10602: Add the column auth_subfield_structure.defaultvalue)\n";
7227     SetVersion($DBversion);
7228 }
7229
7230 $DBversion = "3.13.00.027";
7231 if ( CheckVersion($DBversion) ) {
7232     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AllowOfflineCirculation','0','','If on, enables HTML5 offline circulation functionality.','YesNo')");
7233     print "Upgrade to $DBversion done (Bug 10240: Add syspref AllowOfflineCirculation)\n";
7234     SetVersion ($DBversion);
7235 }
7236
7237 $DBversion = "3.13.00.028";
7238 if ( CheckVersion($DBversion) ) {
7239     $dbh->do(q{
7240         ALTER TABLE export_format ADD type VARCHAR(255) DEFAULT 'marc' AFTER encoding
7241     });
7242     $dbh->do(q{
7243         ALTER TABLE export_format CHANGE marcfields content mediumtext NOT NULL
7244     });
7245     print "Upgrade to $DBversion done (Bug 10853: Add new field export_format.type and rename export_format.marcfields with export_format.content)\n";
7246     SetVersion($DBversion);
7247 }
7248
7249 $DBversion = "3.13.00.029";
7250 if ( CheckVersion($DBversion) ) {
7251     $dbh->do(q{
7252         INSERT IGNORE INTO export_format( profile, description, content, csv_separator, type )
7253         VALUES ( "issues to claim", "Default CSV export for serial issue claims",
7254                 "SUPPLIER=aqbooksellers.name|TITLE=subscription.title|ISSUE NUMBER=serial.serialseq|LATE SINCE=serial.planneddate",
7255                 ",", "sql" )
7256     });
7257     print "Upgrade to $DBversion done (Bug 10854: Add the default CSV profile for claiming issues)\n";
7258     SetVersion($DBversion);
7259 }
7260
7261 $DBversion = "3.13.00.030";
7262 if ( CheckVersion($DBversion) ) {
7263     $dbh->do(qq{
7264         DELETE FROM patronimage WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowers.cardnumber = patronimage.cardnumber)
7265     });
7266
7267     $dbh->do(qq{
7268         ALTER TABLE patronimage ADD borrowernumber INT( 11 ) NULL FIRST
7269     });
7270
7271     $dbh->{AutoCommit} = 0;
7272     $dbh->{RaiseError} = 1;
7273
7274     eval {
7275         $dbh->do(qq{
7276             UPDATE patronimage LEFT JOIN borrowers USING ( cardnumber ) SET patronimage.borrowernumber = borrowers.borrowernumber
7277         });
7278         $dbh->commit();
7279     };
7280
7281     if ($@) {
7282         print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber) failed! Transaction aborted because $@\n";
7283         eval { $dbh->rollback };
7284     }
7285     else {
7286         $dbh->do(qq{
7287             ALTER TABLE patronimage DROP FOREIGN KEY patronimage_fk1
7288         });
7289         $dbh->do(qq{
7290             ALTER TABLE patronimage DROP PRIMARY KEY, ADD PRIMARY KEY( borrowernumber )
7291         });
7292         $dbh->do(qq{
7293             ALTER TABLE patronimage DROP cardnumber
7294         });
7295         $dbh->do(qq{
7296             ALTER TABLE patronimage ADD FOREIGN KEY ( borrowernumber ) REFERENCES borrowers ( borrowernumber ) ON DELETE CASCADE ON UPDATE CASCADE
7297         });
7298
7299         print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber)\n";
7300         SetVersion($DBversion);
7301     }
7302
7303     $dbh->{AutoCommit} = 1;
7304     $dbh->{RaiseError} = 0;
7305 }
7306
7307 $DBversion = "3.13.00.031";
7308 if ( CheckVersion($DBversion) ) {
7309
7310     $dbh->do(q{
7311         CREATE TABLE IF NOT EXISTS `patron_lists` (
7312           patron_list_id int(11) NOT NULL AUTO_INCREMENT,
7313           name varchar(255) CHARACTER SET utf8 NOT NULL,
7314           owner int(11) NOT NULL,
7315           PRIMARY KEY (patron_list_id),
7316           KEY owner (owner)
7317         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7318     });
7319
7320     $dbh->do(q{
7321         ALTER TABLE `patron_lists`
7322           ADD CONSTRAINT patron_lists_ibfk_1 FOREIGN KEY (`owner`) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7323     });
7324
7325     $dbh->do(q{
7326         CREATE TABLE patron_list_patrons (
7327           patron_list_patron_id int(11) NOT NULL AUTO_INCREMENT,
7328           patron_list_id int(11) NOT NULL,
7329           borrowernumber int(11) NOT NULL,
7330           PRIMARY KEY (patron_list_patron_id),
7331           KEY patron_list_id (patron_list_id),
7332           KEY borrowernumber (borrowernumber)
7333         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7334     });
7335
7336     $dbh->do(q{
7337         ALTER TABLE `patron_list_patrons`
7338           ADD CONSTRAINT patron_list_patrons_ibfk_1 FOREIGN KEY (patron_list_id) REFERENCES patron_lists (patron_list_id) ON DELETE CASCADE ON UPDATE CASCADE,
7339           ADD CONSTRAINT patron_list_patrons_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7340     });
7341
7342     $dbh->do(q{
7343         INSERT INTO permissions (module_bit, code, description) VALUES
7344         (13, 'manage_patron_lists', 'Add, edit and delete patron lists and their contents')
7345     });
7346
7347     print "Upgrade to $DBversion done (Bug 10565 - Add a 'Patron List' feature for storing and manipulating collections of patrons)\n";
7348     SetVersion($DBversion);
7349 }
7350
7351 $DBversion = "3.13.00.032";
7352 if ( CheckVersion($DBversion) ) {
7353     $dbh->do("ALTER TABLE aqorders ADD COLUMN orderstatus varchar(16) DEFAULT 'new' AFTER parent_ordernumber");
7354     $dbh->do("UPDATE aqorders SET orderstatus='ordered' WHERE basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)");
7355     $dbh->do(q{
7356         UPDATE aqorders SET orderstatus='partial'
7357         WHERE quantity > quantityreceived
7358         AND quantityreceived > 0
7359         AND ordernumber IN (
7360             SELECT parent_ordernumber
7361             FROM (
7362                 SELECT DISTINCT(parent_ordernumber)
7363                 FROM aqorders
7364                 WHERE ordernumber != parent_ordernumber
7365             ) AS aq
7366         )
7367         AND basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)
7368     });
7369     $dbh->do("UPDATE aqorders SET orderstatus='complete' WHERE quantity=quantityreceived");
7370     $dbh->do("UPDATE aqorders SET orderstatus='cancelled' WHERE datecancellationprinted IS NOT NULL");
7371     print "Upgrade to $DBversion done (Bug 5336: Add the new column aqorders.orderstatus)\n";
7372     SetVersion($DBversion);
7373 }
7374
7375 $DBversion = "3.13.00.033";
7376 if ( CheckVersion($DBversion) ) {
7377     $dbh->do(qq|
7378         DROP TABLE IF EXISTS subscription_frequencies
7379     |);
7380     $dbh->do(qq|
7381         CREATE TABLE subscription_frequencies (
7382             id INTEGER NOT NULL AUTO_INCREMENT,
7383             description TEXT NOT NULL,
7384             displayorder INT DEFAULT NULL,
7385             unit ENUM('day','week','month','year') DEFAULT NULL,
7386             unitsperissue INTEGER NOT NULL DEFAULT '1',
7387             issuesperunit INTEGER NOT NULL DEFAULT '1',
7388             PRIMARY KEY (id)
7389         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7390     |);
7391
7392     $dbh->do(qq|
7393         DROP TABLE IF EXISTS subscription_numberpatterns
7394     |);
7395     $dbh->do(qq|
7396         CREATE TABLE subscription_numberpatterns (
7397             id INTEGER NOT NULL AUTO_INCREMENT,
7398             label VARCHAR(255) NOT NULL,
7399             displayorder INTEGER DEFAULT NULL,
7400             description TEXT NOT NULL,
7401             numberingmethod VARCHAR(255) NOT NULL,
7402             label1 VARCHAR(255) DEFAULT NULL,
7403             add1 INTEGER DEFAULT NULL,
7404             every1 INTEGER DEFAULT NULL,
7405             whenmorethan1 INTEGER DEFAULT NULL,
7406             setto1 INTEGER DEFAULT NULL,
7407             numbering1 VARCHAR(255) DEFAULT NULL,
7408             label2 VARCHAR(255) DEFAULT NULL,
7409             add2 INTEGER DEFAULT NULL,
7410             every2 INTEGER DEFAULT NULL,
7411             whenmorethan2 INTEGER DEFAULT NULL,
7412             setto2 INTEGER DEFAULT NULL,
7413             numbering2 VARCHAR(255) DEFAULT NULL,
7414             label3 VARCHAR(255) DEFAULT NULL,
7415             add3 INTEGER DEFAULT NULL,
7416             every3 INTEGER DEFAULT NULL,
7417             whenmorethan3 INTEGER DEFAULT NULL,
7418             setto3 INTEGER DEFAULT NULL,
7419             numbering3 VARCHAR(255) DEFAULT NULL,
7420             PRIMARY KEY (id)
7421         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7422     |);
7423
7424     $dbh->do(qq|
7425         INSERT INTO subscription_frequencies (description, unit, unitsperissue, issuesperunit, displayorder)
7426         VALUES
7427             ('2/day', 'day', 1, 2, 1),
7428             ('1/day', 'day', 1, 1, 2),
7429             ('3/week', 'week', 1, 3, 3),
7430             ('1/week', 'week', 1, 1, 4),
7431             ('1/2 weeks', 'week', 2, 1, 5),
7432             ('1/3 weeks', 'week', 3, 1, 6),
7433             ('1/month', 'month', 1, 1, 7),
7434             ('1/2 months', 'month', 2, 1, 8),
7435             ('1/3 months', 'month', 3, 1, 9),
7436             ('2/year', 'month', 6, 1, 10),
7437             ('1/year', 'year', 1, 1, 11),
7438             ('1/2 year', 'year', 2, 1, 12),
7439             ('Irregular', NULL, 1, 1, 13)
7440     |);
7441
7442     # Used to link existing subscription to newly created frequencies
7443     my $frequencies_mapping = {     # keys are old frequency numbers, values are the new ones
7444         1 => 2,     # daily (n/week)
7445         2 => 4,     # 1/week
7446         3 => 5,     # 1/2 weeks
7447         4 => 6,     # 1/3 weeks
7448         5 => 7,     # 1/month
7449         6 => 8,     # 1/2 months (6/year)
7450         7 => 9,     # 1/3 months (1/quarter)
7451         8 => 9,    # 1/quarter (seasonal)
7452         9 => 10,    # 2/year
7453         10 => 11,   # 1/year
7454         11 => 12,   # 1/2 years
7455         12 => 1,    # 2/day
7456         16 => 13,   # Without periodicity
7457         32 => 13,   # Irregular
7458         48 => 13    # Unknown
7459     };
7460
7461     $dbh->do(qq|
7462         INSERT INTO subscription_numberpatterns
7463             (label, displayorder, description, numberingmethod,
7464             label1, add1, every1, whenmorethan1, setto1, numbering1,
7465             label2, add2, every2, whenmorethan2, setto2, numbering2,
7466             label3, add3, every3, whenmorethan3, setto3, numbering3)
7467         VALUES
7468             ('Number', 1, 'Simple Numbering method', 'No.{X}',
7469             'Number', 1, 1, 99999, 1, NULL,
7470             NULL, NULL, NULL, NULL, NULL, NULL,
7471             NULL, NULL, NULL, NULL, NULL, NULL),
7472
7473             ('Volume, Number, Issue', 2, 'Volume Number Issue 1', 'Vol.{X}, Number {Y}, Issue {Z}',
7474             'Volume', 1, 48, 99999, 1, NULL,
7475             'Number', 1, 4, 12, 1, NULL,
7476             'Issue', 1, 1, 4, 1, NULL),
7477
7478             ('Volume, Number', 3, 'Volume Number 1', 'Vol {X}, No {Y}',
7479             'Volume', 1, 12, 99999, 1, NULL,
7480             'Number', 1, 1, 12, 1, NULL,
7481             NULL, NULL, NULL, NULL, NULL, NULL),
7482
7483             ('Seasonal', 4, 'Season Year', '{X} {Y}',
7484             'Season', 1, 1, 3, 0, 'season',
7485             'Year', 1, 4, 99999, 1, NULL,
7486             NULL, NULL, NULL, NULL, NULL, NULL)
7487     |);
7488
7489     $dbh->do(qq|
7490         ALTER TABLE subscription
7491         MODIFY COLUMN numberpattern INTEGER DEFAULT NULL,
7492         MODIFY COLUMN periodicity INTEGER DEFAULT NULL
7493     |);
7494
7495     # Update existing subscriptions
7496
7497     my $query = qq|
7498         SELECT subscriptionid, periodicity, numberingmethod,
7499             add1, every1, whenmorethan1, setto1,
7500             add2, every2, whenmorethan2, setto2,
7501             add3, every3, whenmorethan3, setto3
7502         FROM subscription
7503         ORDER BY subscriptionid
7504     |;
7505     my $sth = $dbh->prepare($query);
7506     $sth->execute;
7507     my $insert_numberpatterns_sth = $dbh->prepare(qq|
7508         INSERT INTO subscription_numberpatterns
7509              (label, displayorder, description, numberingmethod,
7510             label1, add1, every1, whenmorethan1, setto1, numbering1,
7511             label2, add2, every2, whenmorethan2, setto2, numbering2,
7512             label3, add3, every3, whenmorethan3, setto3, numbering3)
7513         VALUES
7514             (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
7515     |);
7516     my $check_numberpatterns_sth = $dbh->prepare(qq|
7517         SELECT * FROM subscription_numberpatterns
7518         WHERE (add1 = ? OR (add1 IS NULL AND ? IS NULL)) AND (add2 = ? OR (add2 IS NULL AND ? IS NULL))
7519         AND (add3 = ? OR (add3 IS NULL AND ? IS NULL)) AND (every1 = ? OR (every1 IS NULL AND ? IS NULL))
7520         AND (every2 = ? OR (every2 IS NULL AND ? IS NULL)) AND (every3 = ? OR (every3 IS NULL AND ? IS NULL))
7521         AND (whenmorethan1 = ? OR (whenmorethan1 IS NULL AND ? IS NULL)) AND (whenmorethan2 = ? OR (whenmorethan2 IS NULL AND ? IS NULL))
7522         AND (whenmorethan3 = ? OR (whenmorethan3 IS NULL AND ? IS NULL)) AND (setto1 = ? OR (setto1 IS NULL AND ? IS NULL))
7523         AND (setto2 = ? OR (setto2 IS NULL AND ? IS NULL)) AND (setto3 = ? OR (setto3 IS NULL AND ? IS NULL))
7524         AND (numberingmethod = ? OR (numberingmethod IS NULL AND ? IS NULL))
7525         LIMIT 1
7526     |);
7527     my $update_subscription_sth = $dbh->prepare(qq|
7528         UPDATE subscription
7529         SET numberpattern = ?,
7530             periodicity = ?
7531         WHERE subscriptionid = ?
7532     |);
7533
7534     my $i = 1;
7535     while(my $sub = $sth->fetchrow_hashref) {
7536         $check_numberpatterns_sth->execute(
7537             $sub->{add1}, $sub->{add1}, $sub->{add2}, $sub->{add2}, $sub->{add3}, $sub->{add3},
7538             $sub->{every1}, $sub->{every1}, $sub->{every2}, $sub->{every2}, $sub->{every3}, $sub->{every3},
7539             $sub->{whenmorethan1}, $sub->{whenmorethan1}, $sub->{whenmorethan2}, $sub->{whenmorethan2},
7540             $sub->{whenmorethan3}, $sub->{whenmorethan3}, $sub->{setto1}, $sub->{setto1}, $sub->{setto2},
7541             $sub->{setto2}, $sub->{setto3}, $sub->{setto3}, $sub->{numberingmethod}, $sub->{numberingmethod}
7542         );
7543         my $p = $check_numberpatterns_sth->fetchrow_hashref;
7544         if (defined $p) {
7545             # Pattern already exists, link to it
7546             $update_subscription_sth->execute($p->{id},
7547                 $frequencies_mapping->{$sub->{periodicity}},
7548                 $sub->{subscriptionid});
7549         } else {
7550             # Create a new numbering pattern for this subscription
7551             my $ok = $insert_numberpatterns_sth->execute(
7552                 "Backup pattern $i", 4+$i, "Automatically created pattern by updatedatabase", $sub->{numberingmethod},
7553                 "X", $sub->{add1}, $sub->{every1}, $sub->{whenmorethan1}, $sub->{setto1}, undef,
7554                 "Y", $sub->{add2}, $sub->{every2}, $sub->{whenmorethan2}, $sub->{setto2}, undef,
7555                 "Z", $sub->{add3}, $sub->{every3}, $sub->{whenmorethan3}, $sub->{setto3}, undef
7556             );
7557             if($ok) {
7558                 my $id = $dbh->last_insert_id(undef, undef, 'subscription_numberpatterns', undef);
7559                 # Link to subscription_numberpatterns and subscription_frequencies
7560                 $update_subscription_sth->execute($id,
7561                     $frequencies_mapping->{$sub->{periodicity}},
7562                     $sub->{subscriptionid});
7563             }
7564             $i++;
7565         }
7566     }
7567
7568     # Remove now useless columns
7569     $dbh->do(qq|
7570         ALTER TABLE subscription
7571         DROP COLUMN numberingmethod,
7572         DROP COLUMN add1,
7573         DROP COLUMN every1,
7574         DROP COLUMN whenmorethan1,
7575         DROP COLUMN setto1,
7576         DROP COLUMN add2,
7577         DROP COLUMN every2,
7578         DROP COLUMN whenmorethan2,
7579         DROP COLUMN setto2,
7580         DROP COLUMN add3,
7581         DROP COLUMN every3,
7582         DROP COLUMN whenmorethan3,
7583         DROP COLUMN setto3,
7584         DROP COLUMN dow,
7585         DROP COLUMN issuesatonce,
7586         DROP COLUMN hemisphere,
7587         ADD COLUMN countissuesperunit INTEGER NOT NULL DEFAULT 1 AFTER periodicity,
7588         ADD COLUMN skip_serialseq BOOLEAN NOT NULL DEFAULT 0 AFTER irregularity,
7589         ADD COLUMN locale VARCHAR(80) DEFAULT NULL AFTER numberpattern,
7590         ADD CONSTRAINT subscription_ibfk_1 FOREIGN KEY (periodicity) REFERENCES subscription_frequencies (id) ON DELETE SET NULL ON UPDATE CASCADE,
7591         ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY (numberpattern) REFERENCES subscription_numberpatterns (id) ON DELETE SET NULL ON UPDATE CASCADE
7592     |);
7593
7594     # Set firstacquidate if not already set (firstacquidate is now mandatory)
7595     my $get_first_planneddate_sth = $dbh->prepare(qq|
7596         SELECT planneddate
7597         FROM serial
7598         WHERE subscriptionid = ?
7599         ORDER BY serialid
7600         LIMIT 1
7601     |);
7602     my $update_firstacquidate_sth = $dbh->prepare(qq|
7603         UPDATE subscription
7604         SET firstacquidate = ?
7605         WHERE subscriptionid = ?
7606     |);
7607     my $get_subscriptions_sth = $dbh->prepare(qq|
7608         SELECT subscriptionid, startdate
7609         FROM subscription
7610         WHERE firstacquidate IS NULL
7611           OR firstacquidate = '0000-00-00'
7612     |);
7613     $get_subscriptions_sth->execute;
7614     while ( my ($subscriptionid, $startdate) = $get_subscriptions_sth->fetchrow ) {
7615         # Try to get the planned date of the first serial
7616         $get_first_planneddate_sth->execute($subscriptionid);
7617         my ($first_planneddate) = $get_first_planneddate_sth->fetchrow;
7618         if ($first_planneddate and $first_planneddate =~ /^\d{4}-\d{2}-\d{2}$/) {
7619             $update_firstacquidate_sth->execute($first_planneddate, $subscriptionid);
7620         } else {
7621             # Defaults to subscription start date
7622             $update_firstacquidate_sth->execute($startdate, $subscriptionid);
7623         }
7624     }
7625
7626     print "Upgrade to $DBversion done (Bug 7688: add subscription_frequencies and subscription_numberpatterns tables)\n";
7627     SetVersion($DBversion);
7628 }
7629
7630 $DBversion = "3.13.00.034";
7631 if ( CheckVersion($DBversion) ) {
7632     $dbh->do("
7633         ALTER TABLE `import_batches`
7634         CHANGE `item_action` `item_action`
7635           ENUM( 'always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore', 'replace' )
7636           NOT NULL DEFAULT 'always_add'
7637     ");
7638     print "Upgrade to $DBversion done (Bug 7131 - way to overlay items in in marc import)\n";
7639     SetVersion($DBversion);
7640 }
7641
7642 $DBversion ="3.13.00.035";
7643 if ( CheckVersion($DBversion) ) {
7644     $dbh->do(q{
7645 CREATE TABLE borrower_debarments (
7646   borrower_debarment_id int(11) NOT NULL AUTO_INCREMENT,
7647   borrowernumber int(11) NOT NULL,
7648   expiration date DEFAULT NULL,
7649   `type` enum('SUSPENSION','OVERDUES','MANUAL') NOT NULL DEFAULT 'MANUAL',
7650   `comment` text,
7651   manager_id int(11) DEFAULT NULL,
7652   created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
7653   updated timestamp NULL DEFAULT NULL,
7654   PRIMARY KEY (borrower_debarment_id),
7655   KEY borrowernumber (borrowernumber) ,
7656   CONSTRAINT `borrower_debarments_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
7657     ON DELETE CASCADE ON UPDATE CASCADE
7658 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
7659     });
7660
7661     # debarments with end date
7662     $dbh->do(q{
7663 INSERT INTO borrower_debarments ( borrowernumber, expiration, comment ) SELECT borrowernumber, debarred, debarredcomment FROM borrowers WHERE debarred IS NOT NULL AND debarred <> '9999-12-31'
7664     });
7665     # debarments with no end date
7666     $dbh->do(q{
7667 INSERT INTO borrower_debarments ( borrowernumber, comment ) SELECT borrowernumber, debarredcomment FROM borrowers WHERE debarred = '9999-12-31'
7668     });
7669
7670     $dbh->do(q{
7671 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES
7672 ('AutoRemoveOverduesRestrictions','0','Defines whether an OVERDUES debarment should be lifted automatically if all overdue items are returned by the patron.','YesNo')
7673     });
7674
7675     print "Upgrade to $DBversion done (Bug 2720 - Overdues which debar automatically should undebar automatically when returned)\n";
7676     SetVersion($DBversion);
7677 }
7678
7679 $DBversion = "3.13.00.036";
7680 if ( CheckVersion($DBversion) ) {
7681     $dbh->do(qq{
7682         INSERT INTO systempreferences (variable, value, explanation, options, type)
7683         VALUES ('StaffDetailItemSelection', '1', 'Enable item selection in record detail page', NULL, 'YesNo')
7684     });
7685     print "Upgrade to $DBversion done (Add system preference StaffDetailItemSelection)\n";
7686     SetVersion($DBversion);
7687 }
7688
7689 $DBversion = "3.13.00.037";
7690 if ( CheckVersion($DBversion) ) {
7691     #add phone if it is not there already (explains the ignore option)
7692     $dbh->do("
7693 INSERT IGNORE INTO message_transport_types (message_transport_type) values ('phone');
7694     ");
7695     print "Upgrade to $DBversion done (Bug 10572: Add phone to message_transport_types table for new installs)\n";
7696     SetVersion($DBversion);
7697 }
7698
7699 $DBversion = "3.13.00.038";
7700 if ( CheckVersion($DBversion) ) {
7701     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES(15, 'superserials', 'Manage subscriptions from any branch (only applies when IndependentBranches is used)')");
7702     print "Upgrade to $DBversion done (Bug 8435: Add superserials permission)\n";
7703     SetVersion($DBversion);
7704 }
7705
7706 $DBversion = "3.13.00.039";
7707 if ( CheckVersion($DBversion) ) {
7708     $dbh->do("
7709         ALTER TABLE aqbasket ADD branch varchar(10) default NULL
7710     ");
7711     $dbh->do("
7712         ALTER TABLE aqbasket
7713         ADD CONSTRAINT aqbasket_ibfk_4 FOREIGN KEY (branch)
7714             REFERENCES branches (branchcode)
7715             ON UPDATE CASCADE ON DELETE SET NULL
7716     ");
7717     $dbh->do("
7718         DROP TABLE IF EXISTS aqbasketusers
7719     ");
7720     $dbh->do("
7721         CREATE TABLE aqbasketusers (
7722             basketno int(11) NOT NULL,
7723             borrowernumber int(11) NOT NULL,
7724             PRIMARY KEY (basketno,borrowernumber),
7725             CONSTRAINT aqbasketusers_ibfk_1 FOREIGN KEY (basketno) REFERENCES aqbasket (basketno) ON DELETE CASCADE ON UPDATE CASCADE,
7726             CONSTRAINT aqbasketusers_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7727         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7728     ");
7729     $dbh->do("
7730         INSERT INTO permissions (module_bit, code, description)
7731         VALUES (11, 'order_manage_all', 'Manage all orders and baskets, regardless of restrictions on them')
7732     ");
7733
7734     print "Upgrade to $DBversion done (Add branch and users list to baskets. "
7735         . "New permission order_manage_all)\n";
7736     SetVersion($DBversion);
7737 }
7738
7739 $DBversion = "3.13.00.040";
7740 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7741     $dbh->do("CREATE TABLE IF NOT EXISTS marc_modification_templates (
7742               template_id int(11) NOT NULL auto_increment,
7743               name text NOT NULL,
7744               PRIMARY KEY  (template_id)
7745               ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;"
7746     );
7747
7748     $dbh->do("
7749       CREATE TABLE IF NOT EXISTS marc_modification_template_actions (
7750       mmta_id int(11) NOT NULL auto_increment,
7751       template_id int(11) NOT NULL,
7752       ordering int(3) NOT NULL,
7753       action enum('delete_field','update_field','move_field','copy_field') NOT NULL,
7754       field_number smallint(6) NOT NULL default '0',
7755       from_field varchar(3) NOT NULL,
7756       from_subfield varchar(1) NULL,
7757       field_value varchar(100) default NULL,
7758       to_field varchar(3) default NULL,
7759       to_subfield varchar(1) default NULL,
7760       to_regex_search text,
7761       to_regex_replace text,
7762       to_regex_modifiers varchar(8) default '',
7763       conditional enum('if','unless') default NULL,
7764       conditional_field varchar(3) default NULL,
7765       conditional_subfield varchar(1) default NULL,
7766       conditional_comparison enum('exists','not_exists','equals','not_equals') default NULL,
7767       conditional_value text,
7768       conditional_regex tinyint(1) NOT NULL default '0',
7769       description text,
7770       PRIMARY KEY  (mmta_id),
7771       CONSTRAINT `mmta_ibfk_1` FOREIGN KEY (`template_id`) REFERENCES `marc_modification_templates` (`template_id`) ON DELETE CASCADE ON UPDATE CASCADE
7772       ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;
7773     ");
7774
7775     $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('13', 'marc_modification_templates', 'Manage marc modification templates')");
7776
7777     print "Upgrade to $DBversion done ( Bug 8015: Added tables for MARC Modification Framework )\n";
7778     SetVersion($DBversion);
7779 }
7780
7781 $DBversion = "3.13.00.041";
7782 if(CheckVersion($DBversion)) {
7783     $dbh->do(q{
7784         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');
7785     });
7786     print "Upgrade to $DBversion done (Bug 10986: Added AcqItemSetSubfieldsWhenReceived syspref)\n";
7787     SetVersion($DBversion);
7788 }
7789
7790 $DBversion = "3.13.00.042";
7791 if(CheckVersion($DBversion)) {
7792     print "Upgrade to $DBversion done (Koha 3.14 beta)\n";
7793     SetVersion($DBversion);
7794 }
7795
7796 $DBversion = "3.13.00.043";
7797 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
7798     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
7799     print "Upgrade to $DBversion done (Bug 11196: Add system preference SearchEngine if missing )\n";
7800     SetVersion($DBversion);
7801 }
7802
7803 $DBversion = "3.14.00.000";
7804 if ( CheckVersion($DBversion) ) {
7805     print "Upgrade to $DBversion done (3.14.0 release)\n";
7806     SetVersion ($DBversion);
7807 }
7808
7809 $DBversion = '3.15.00.000';
7810 if ( CheckVersion($DBversion) ) {
7811     print "Upgrade to $DBversion done (the road goes ever on)\n";
7812     SetVersion ($DBversion);
7813 }
7814
7815 $DBversion = "3.15.00.001";
7816 if ( CheckVersion($DBversion) ) {
7817     $dbh->do("UPDATE systempreferences SET value='clear' where variable = 'CircAutoPrintQuickSlip' and value = '0'");
7818     $dbh->do("UPDATE systempreferences SET value='qslip' where variable = 'CircAutoPrintQuickSlip' and value = '1'");
7819     $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'");
7820     print "Upgrade to $DBversion done (Bug 11040: Add option to print full slip when checking out a null barcode)\n";
7821     SetVersion($DBversion);
7822 }
7823
7824 $DBversion = "3.15.00.002";
7825 if(CheckVersion($DBversion)) {
7826     $dbh->do("ALTER TABLE deleteditems MODIFY materials text;");
7827     print "Upgrade to $DBversion done (Bug 11275: alter deleteditems.materials from varchar(10) to text)\n";
7828     SetVersion($DBversion);
7829 }
7830
7831 $DBversion = "3.15.00.003";
7832 if ( CheckVersion($DBversion) ) {
7833     $dbh->do(q{
7834         UPDATE accountlines
7835         SET description = ''
7836         WHERE description IN (
7837             ' New Card',
7838             ' Fine',
7839             ' Sundry',
7840             'Writeoff',
7841             ' Account Management fee',
7842             'Payment,thanks', 'Payment,thanks - ',
7843             ' Lost Item'
7844         )
7845     });
7846     print "Upgrade to $DBversion done (Bug 2546: Update fine descriptions)\n";
7847     SetVersion($DBversion);
7848 }
7849
7850 $DBversion = "3.15.00.004";
7851 if ( CheckVersion($DBversion) ) {
7852     if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
7853         $dbh->do(qq{
7854             INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
7855             kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link,
7856             defaultvalue) VALUES
7857             ('015', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7858             ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7859             ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7860             ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7861             ('800', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7862             ('810', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7863             ('811', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7864             ('830', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL);
7865         });
7866         $dbh->do(qq{
7867             INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
7868             mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
7869             ('', '020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', ''),
7870             ('', '024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', '');
7871         });
7872     }
7873     print "Upgrade to $DBversion done (Bug 10970 - Update MARC21 frameworks to Update Nr. 17 - DB update)\n";
7874     SetVersion($DBversion);
7875 }
7876
7877 $DBversion = "3.15.00.005";
7878 if ( CheckVersion($DBversion) ) {
7879    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('AcquisitionDetails', '1', '', 'Hide/Show acquisition details on the biblio detail page.', 'YesNo');");
7880    print "Upgrade to $DBversion done (Bug 8230: Add AcquisitionDetails system preference)\n";
7881    SetVersion ($DBversion);
7882 }
7883
7884 $DBversion = "3.15.00.006";
7885 if(CheckVersion($DBversion)) {
7886     $dbh->do(q{
7887         ALTER TABLE `borrowers`
7888         ADD KEY `surname_idx` (`surname`(255)),
7889         ADD KEY `firstname_idx` (`firstname`(255)),
7890         ADD KEY `othernames_idx` (`othernames`(255))
7891     });
7892     print "Upgrade to $DBversion done (Bug 11249 - Add DB indexes on borrower names)\n";
7893     SetVersion($DBversion);
7894 }
7895
7896 $DBversion = "3.15.00.007";
7897 if ( CheckVersion($DBversion) ) {
7898    $dbh->do("ALTER TABLE items ADD itemlost_on DATETIME NULL AFTER itemlost");
7899    $dbh->do("ALTER TABLE items ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7900    $dbh->do("ALTER TABLE deleteditems ADD itemlost_on DATETIME NULL AFTER itemlost");
7901    $dbh->do("ALTER TABLE deleteditems ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7902    print "Upgrade to $DBversion done (Bug 9673 - Track when items are marked as lost or withdrawn)\n";
7903    SetVersion ($DBversion);
7904 }
7905
7906 $DBversion = "3.15.00.008";
7907 if ( CheckVersion($DBversion) ) {
7908     $dbh->do(q{
7909         ALTER TABLE collections_tracking CHANGE ctId collections_tracking_id integer(11) NOT NULL auto_increment;
7910     });
7911     print "Upgrade to $DBversion done (Bug 11384) - change name of collections_tracker.ctId column)\n";
7912    SetVersion ($DBversion);
7913 }
7914
7915 $DBversion = "3.15.00.009";
7916 if ( CheckVersion($DBversion) ) {
7917     $dbh->do(q{
7918         ALTER TABLE suggestions MODIFY suggesteddate DATE NOT NULL
7919     });
7920     print "Upgrade to $DBversion done (Bug 11391) - drop default value on suggestions.suggesteddate column)\n";
7921    SetVersion ($DBversion);
7922 }
7923
7924 $DBversion = "3.15.00.010";
7925 if(CheckVersion($DBversion)) {
7926     $dbh->do("ALTER TABLE deleteditems DROP COLUMN marc");
7927     print "Upgrade to $DBversion done (Bug 6331: remove obsolete column in deleteditems.marc)\n";
7928     SetVersion ($DBversion);
7929 }
7930
7931 $DBversion = "3.15.00.011";
7932 if(CheckVersion($DBversion)) {
7933     $dbh->do("UPDATE marc_subfield_structure SET maxlength=9999 WHERE maxlength IS NULL OR maxlength=0;");
7934     print "Upgrade to $DBversion done (Bug 8018: set 9999 as default max length for subfields)\n";
7935     SetVersion ($DBversion);
7936 }
7937
7938 $DBversion = "3.15.00.012";
7939 if ( CheckVersion($DBversion) ) {
7940     $dbh->do(q{
7941         INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'force_checkout', 'Force checkout if a limitation exists')
7942     });
7943     $dbh->do(q{
7944         INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'manage_restrictions', 'Manage restrictions for accounts')
7945     });
7946     $dbh->do(q{
7947         INSERT INTO user_permissions (borrowernumber, module_bit, code)
7948             SELECT user_permissions.borrowernumber, 1, 'force_checkout'
7949             FROM user_permissions
7950             LEFT JOIN borrowers USING(borrowernumber)
7951             WHERE borrowers.flags & (1 << 1)
7952     });
7953     $dbh->do(q{
7954         INSERT INTO user_permissions (borrowernumber, module_bit, code)
7955             SELECT user_permissions.borrowernumber, 1, 'manage_restrictions'
7956             FROM user_permissions
7957             LEFT JOIN borrowers USING(borrowernumber)
7958             WHERE borrowers.flags & (1 << 1)
7959     });
7960
7961     print "Upgrade to $DBversion done (Bug 10863 - Add permissions force_checkout and manage_restrictions)\n";
7962     SetVersion($DBversion);
7963 }
7964
7965 $DBversion = "3.15.00.013";
7966 if(CheckVersion($DBversion)) {
7967     $dbh->do(q{
7968         UPDATE systempreferences
7969         SET explanation = 'Upon receiving items, update their subfields if they were created when placing an order (e.g. o=5|a="foo bar")'
7970         WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7971     });
7972
7973     $dbh->do(q{
7974         UPDATE systempreferences
7975         SET value = ''
7976         WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7977             AND value = "0"
7978     });
7979     print "Upgrade to $DBversion done (Bug 11237: Update explanation and default value for AcqItemSetSubfieldsWhenReceived syspref)\n";
7980     SetVersion($DBversion);
7981 }
7982
7983 $DBversion = "3.15.00.014";
7984 if (CheckVersion($DBversion)) {
7985     $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');");
7986     print "Upgrade to $DBversion done (Bug 11415: add system preference for automatic self checkout receipt printing)\n";
7987     SetVersion($DBversion);
7988 }
7989
7990 $DBversion = "3.15.00.015";
7991 if (CheckVersion($DBversion)) {
7992     $dbh->do("INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
7993         ('OpacSuggestionManagedBy',1,'','Show the name of the staff member who managed a suggestion in OPAC','YesNo');");
7994     print "Upgrade to $DBversion done (Bug 10907: Add OpacSuggestionManagedBy system preference)\n";
7995     SetVersion($DBversion);
7996 }
7997
7998 $DBversion = "3.15.00.016";
7999 if (CheckVersion($DBversion)) {
8000     $dbh->do("ALTER TABLE biblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8001     $dbh->do("ALTER TABLE deletedbiblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8002     print "Upgrade to $DBversion done (Bug 11268 - Biblioitems URL field is too small for some URLs)\n";
8003     SetVersion($DBversion);
8004 }
8005
8006 $DBversion = "3.15.00.017";
8007 if(CheckVersion($DBversion)) {
8008     $dbh->do(q{
8009         UPDATE systempreferences
8010         SET explanation = 'Define the contents of UNIMARC authority control field 100 position 08-35'
8011         WHERE variable = "UNIMARCAuthorityField100"
8012     });
8013     $dbh->do(q{
8014         UPDATE systempreferences
8015         SET explanation = 'Define the contents of MARC21 authority control field 008 position 06-39'
8016         WHERE variable = "MARCAuthorityControlField008"
8017     });
8018     $dbh->do(q{
8019         UPDATE systempreferences
8020         SET explanation = 'Define MARC Organization Code for MARC21 records - http://www.loc.gov/marc/organizations/orgshome.html'
8021         WHERE variable = "MARCOrgCode"
8022     });
8023     print "Upgrade to $DBversion done (Bug 11611 - fix possible confusion between UNIMARC and MARC21 in some sysprefs)\n";
8024     SetVersion($DBversion);
8025 }
8026
8027 $DBversion = "3.15.00.018";
8028 if ( CheckVersion($DBversion) ) {
8029     $dbh->{AutoCommit} = 0;
8030     $dbh->{RaiseError} = 1;
8031
8032     eval {
8033         $dbh->selectcol_arrayref(q|SELECT COUNT(*) FROM roadtype|);
8034     };
8035     unless ( $@ ) {
8036         my $av_added = $dbh->do(q|
8037             INSERT INTO authorised_values(category, authorised_value, lib, lib_opac)
8038                 SELECT 'ROADTYPE', roadtypeid, road_type, road_type
8039                 FROM roadtype;
8040         |);
8041
8042         my $rt_deleted = $dbh->do(q|
8043             DELETE FROM roadtype
8044         |);
8045
8046         if ( $av_added == $rt_deleted or $rt_deleted eq "0E0" ) {
8047             $dbh->do(q|
8048                 DROP TABLE roadtype;
8049             |);
8050             $dbh->commit;
8051             print "Upgrade to $DBversion done (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values)\n";
8052             SetVersion($DBversion);
8053         } else {
8054             print "Upgrade to $DBversion failed (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values.\nTransaction aborted because $@\n)";
8055             $dbh->rollback;
8056         }
8057     }
8058     $dbh->{AutoCommit} = 1;
8059     $dbh->{RaiseError} = 0;
8060 }
8061
8062 $DBversion = "3.15.00.019";
8063 if ( CheckVersion($DBversion) ) {
8064     $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')");
8065     print "Upgrade to $DBversion done (Bug 11256: Add system preference OpacMaxItemsToDisplay)\n";
8066     SetVersion($DBversion);
8067 }
8068
8069 $DBversion = "3.15.00.020";
8070 if ( CheckVersion($DBversion) ) {
8071     $dbh->do(q|
8072         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')
8073     |);
8074     print "Upgrade to $DBversion done (Bug 11343: Add system preference MaxItemsForBatch )\n";
8075     SetVersion($DBversion);
8076 }
8077
8078 $DBversion = "3.15.00.021";
8079 if(CheckVersion($DBversion)) {
8080     $dbh->do(q{
8081         ALTER TABLE `action_logs`
8082             DROP KEY timestamp,
8083             ADD KEY `timestamp_idx` (`timestamp`),
8084             ADD KEY `user_idx` (`user`),
8085             ADD KEY `module_idx` (`module`(255)),
8086             ADD KEY `action_idx` (`action`(255)),
8087             ADD KEY `object_idx` (`object`),
8088             ADD KEY `info_idx` (`info`(255))
8089     });
8090     print "Upgrade to $DBversion done (Bug 3445: Add indexes to action_logs table)\n";
8091     SetVersion($DBversion);
8092 }
8093
8094 $DBversion = "3.15.00.022";
8095 if (CheckVersion($DBversion)) {
8096     $dbh->do(q|
8097         DELETE FROM systempreferences WHERE variable= "memberofinstitution"
8098     |);
8099     print "Upgrade to $DBversion done (Bug 11751: Remove memberofinstitytion system preference)\n";
8100     SetVersion($DBversion);
8101 }
8102
8103 $DBversion = "3.15.00.023";
8104 if ( CheckVersion($DBversion) ) {
8105    $dbh->do("
8106        INSERT INTO systempreferences (variable,value,options,explanation,type)
8107        VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free');
8108     ");
8109    print "Upgrade to $DBversion done (Bug 10861: Add CardnumberLength syspref)\n";
8110    SetVersion ($DBversion);
8111 }
8112
8113 $DBversion = "3.15.00.024";
8114 if ( CheckVersion($DBversion) ) {
8115     $dbh->do(q{
8116         DELETE FROM systempreferences WHERE variable = 'NoZebraIndexes'
8117     });
8118     print "Upgrade to $DBversion done (Bug 10012 - remove last vestiges of NoZebra)\n";
8119     SetVersion($DBversion);
8120 }
8121
8122 $DBversion = "3.15.00.025";
8123 if ( CheckVersion($DBversion) ) {
8124     $dbh->do(q{
8125         DROP TABLE aqorderdelivery;
8126     });
8127     print "Upgrade to $DBversion done (Bug 11928 - remove unused table)\n";
8128     SetVersion($DBversion);
8129 }
8130
8131 $DBversion = "3.15.00.026";
8132 if ( CheckVersion($DBversion) ) {
8133     $dbh->do(q{
8134         UPDATE language_descriptions SET description = 'Հայերեն' WHERE subtag = 'hy' AND lang = 'hy';
8135     });
8136     print "Upgrade to $DBversion done (Bug 11973 - Fix Armenian language description)\n";
8137     SetVersion($DBversion);
8138 }
8139
8140 $DBversion = "3.15.00.027";
8141 if (CheckVersion($DBversion)) {
8142     $dbh->do(q{
8143         ALTER TABLE opac_news ADD branchcode varchar(10) DEFAULT NULL
8144                                   AFTER idnew,
8145                               ADD CONSTRAINT opac_news_branchcode_ibfk
8146                                   FOREIGN KEY (branchcode)
8147                                   REFERENCES branches (branchcode)
8148                                   ON DELETE CASCADE ON UPDATE CASCADE;
8149     });
8150     print "Upgrade to $DBversion done (Bug 7567: Add branchcode to opac_news)\n";
8151     SetVersion($DBversion);
8152 }
8153
8154 $DBversion = "3.15.00.028";
8155 if(CheckVersion($DBversion)) {
8156     $dbh->do(q{
8157         ALTER TABLE issuingrules ADD norenewalbefore int(4) default NULL AFTER renewalperiod
8158     });
8159     print "Upgrade to $DBversion done (Bug 7413: Allow OPAC renewal x days before due date)\n";
8160     SetVersion($DBversion);
8161 }
8162
8163 $DBversion = "3.15.00.029";
8164 if ( CheckVersion($DBversion) ) {
8165     $dbh->do(q{
8166         UPDATE borrower_debarments SET expiration = NULL WHERE expiration = '9999-12-31'
8167     });
8168     print "Upgrade to $DBversion done (Bug 11846 - correct borrower_debarments with expiration 9999-12-31)\n";
8169     SetVersion($DBversion);
8170 }
8171
8172 $DBversion = "3.15.00.030";
8173 if(CheckVersion($DBversion)) {
8174     $dbh->do(q|
8175         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')
8176     |);
8177     print "Upgrade to $DBversion done (Bug 12052: Add OPACMySummaryNote syspref)\n";
8178     SetVersion($DBversion);
8179 }
8180
8181 $DBversion = "3.15.00.031";
8182 if ( CheckVersion($DBversion) ) {
8183    $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'writeoff', 'Write off fines and fees')");
8184    $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'remaining_permissions', 'Remaining permissions for managing fines and fees')");
8185    print "Upgrade to $DBversion done (Bug 9448 - Add separate permission for writing off fees)\n";
8186    SetVersion ($DBversion);
8187 }
8188
8189 $DBversion = "3.15.00.032";
8190 if ( CheckVersion($DBversion) ) {
8191     $dbh->do("ALTER TABLE aqorders CHANGE notes order_internalnote MEDIUMTEXT;");
8192     $dbh->do("ALTER TABLE aqorders ADD COLUMN order_vendornote MEDIUMTEXT AFTER order_internalnote;");
8193     print "Upgrade to $DBversion done (Bug 9416 - In each order, add a new note made for the vendor)\n";
8194    SetVersion ($DBversion);
8195 }
8196
8197 $DBversion = "3.15.00.033";
8198 if ( CheckVersion($DBversion) ) {
8199     $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')");
8200     print "Upgrade to $DBversion done (Bug 10951: Add NoLoginInstructions pref)\n";
8201     SetVersion($DBversion);
8202 }
8203
8204 $DBversion = "3.15.00.034";
8205 if ( CheckVersion($DBversion) ) {
8206     $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')");
8207     print "Upgrade to $DBversion done (Bug 10986: system preferences to limit languages in advanced search )\n";
8208     SetVersion ($DBversion);
8209 }
8210
8211 $DBversion = "3.15.00.035";
8212 if ( CheckVersion($DBversion) ) {
8213     #insert a notice for sharing a list and accepting a share
8214     $dbh->do("
8215 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8216 VALUES ( 'members', 'SHARE_INVITE', '', 'Invitation for sharing a list', '0', 'Share list <<listname>>', 'Dear patron,
8217
8218 One of our patrons, <<borrowers.firstname>> <<borrowers.surname>>, invites you to share a list <<listname>> in our library catalog.
8219
8220 To access this shared list, please click on the following URL or copy-and-paste it into your browser address bar.
8221
8222 <<shareurl>>
8223
8224 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.
8225
8226 Thank you.
8227
8228 Your library.'
8229     )");
8230     $dbh->do("
8231 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8232 VALUES ( 'members', 'SHARE_ACCEPT', '', 'Notification about an accepted share', '0', 'Share on list <<listname>> accepted', 'Dear patron,
8233
8234 We want to inform you that <<borrowers.firstname>> <<borrowers.surname>> accepted your invitation to share your list <<listname>> in our library catalog.
8235
8236 Thank you.
8237
8238 Your library.'
8239     )");
8240     print "Upgrade to $DBversion done (Bug 9032: Share a list)\n";
8241     SetVersion($DBversion);
8242 }
8243
8244 $DBversion = "3.15.00.036";
8245 if ( CheckVersion($DBversion) ) {
8246     $dbh->do(q{
8247         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
8248         VALUES('AllowMultipleIssuesOnABiblio',1,'Allow/Don\'t allow patrons to check out multiple items from one biblio','','YesNo')
8249     });
8250
8251     print "Upgrade to $DBversion done (Bug 10859 - Add system preference AllowMultipleIssuesOnABiblio)\n";
8252     SetVersion($DBversion);
8253 }
8254
8255 $DBversion = "3.15.00.037";
8256 if(CheckVersion($DBversion)) {
8257     $dbh->do(q{
8258         ALTER TABLE itemtypes ADD sip_media_type VARCHAR( 3 ) DEFAULT NULL AFTER checkinmsgtype
8259     });
8260     $dbh->do(q{
8261         INSERT INTO authorised_values (category, authorised_value, lib) VALUES
8262          ('SIP_MEDIA_TYPE', '000', 'Other'),
8263          ('SIP_MEDIA_TYPE', '001', 'Book'),
8264          ('SIP_MEDIA_TYPE', '002', 'Magazine'),
8265          ('SIP_MEDIA_TYPE', '003', 'Bound journal'),
8266          ('SIP_MEDIA_TYPE', '004', 'Audio tape'),
8267          ('SIP_MEDIA_TYPE', '005', 'Video tape'),
8268          ('SIP_MEDIA_TYPE', '006', 'CD/CDROM'),
8269          ('SIP_MEDIA_TYPE', '007', 'Diskette'),
8270          ('SIP_MEDIA_TYPE', '008', 'Book with diskette'),
8271          ('SIP_MEDIA_TYPE', '009', 'Book with CD'),
8272          ('SIP_MEDIA_TYPE', '010', 'Book with audio tape')
8273     });
8274     print "Upgrade to $DBversion done (Bug 11351 - Add support for SIP2 media type)\n";
8275     SetVersion($DBversion);
8276 }
8277
8278 $DBversion = '3.15.00.038';
8279 if ( CheckVersion($DBversion) ) {
8280     $dbh->do(q{
8281         INSERT INTO  systempreferences (
8282             variable,
8283             value,
8284             options,
8285             explanation,
8286             type
8287             )
8288         VALUES (
8289             'DisplayLibraryFacets',  'holding',  'home|holding|both',  'Defines which library facets to display.',  'Choice'
8290         );
8291     });
8292     print "Upgrade to $DBversion done (Bug 11334 - Add facet for home library)\n";
8293     SetVersion ($DBversion);
8294 }
8295
8296 $DBversion = "3.15.00.039";
8297 if ( CheckVersion($DBversion) ) {
8298
8299     $dbh->do( q{
8300         ALTER TABLE letter ADD COLUMN message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email' AFTER content
8301     } );
8302
8303     $dbh->do( q{
8304         ALTER TABLE letter ADD CONSTRAINT message_transport_type_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types(message_transport_type);
8305     } );
8306
8307     $dbh->do( q{
8308         ALTER TABLE letter DROP PRIMARY KEY, ADD PRIMARY KEY (`module`,`code`,`branchcode`, message_transport_type);
8309     } );
8310
8311     $dbh->do( q{
8312         CREATE TABLE overduerules_transport_types(
8313             id INT(11) NOT NULL AUTO_INCREMENT,
8314             branchcode varchar(10) NOT NULL DEFAULT '',
8315             categorycode VARCHAR(10) NOT NULL DEFAULT '',
8316             letternumber INT(1) NOT NULL DEFAULT 1,
8317             message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email',
8318             PRIMARY KEY (id),
8319             CONSTRAINT overduerules_fk FOREIGN KEY (branchcode, categorycode) REFERENCES overduerules (branchcode, categorycode) ON DELETE CASCADE ON UPDATE CASCADE,
8320             CONSTRAINT mtt_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types (message_transport_type) ON DELETE CASCADE ON UPDATE CASCADE
8321         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8322     } );
8323
8324     my $sth = $dbh->prepare( q{
8325         SELECT * FROM overduerules;
8326     } );
8327
8328     $sth->execute;
8329     my $sth_insert_mtt = $dbh->prepare( q{
8330         INSERT INTO overduerules_transport_types (branchcode, categorycode, letternumber, message_transport_type) VALUES ( ?, ?, ?, ? )
8331     } );
8332     while ( my $row = $sth->fetchrow_hashref ) {
8333         my $branchcode = $row->{branchcode};
8334         my $categorycode = $row->{categorycode};
8335         for my $letternumber ( 1 .. 3 ) {
8336             next unless $row->{"letter$letternumber"};
8337             $sth_insert_mtt->execute(
8338                 $branchcode, $categorycode, $letternumber, 'email'
8339             );
8340         }
8341     }
8342
8343     print "Upgrade done (Bug 9016: Adds multi transport types management for notices)\n";
8344     SetVersion($DBversion);
8345 }
8346
8347 $DBversion = "3.15.00.040";
8348 if ( CheckVersion($DBversion) ) {
8349     $dbh->do(q|
8350         UPDATE message_transports SET letter_code='HOLD' WHERE letter_code='HOLD_PHONE' OR letter_code='HOLD_PRINT'
8351     |);
8352     $dbh->do(q|
8353         UPDATE letter SET code='HOLD', message_transport_type='print' WHERE code='HOLD_PRINT'
8354     |);
8355     $dbh->do(q|
8356         UPDATE letter SET code='HOLD', message_transport_type='phone' WHERE code='HOLD_PHONE'
8357     |);
8358     print "Upgrade to $DBversion done (Bug 10845: Multi transport types for holds)\n";
8359     SetVersion($DBversion);
8360 }
8361
8362 $DBversion = "3.15.00.041";
8363 if ( CheckVersion($DBversion) ) {
8364     my $name = $dbh->selectcol_arrayref(q|
8365         SELECT name FROM letter WHERE code="HOLD"
8366     |);
8367     $name = $name->[0];
8368     $dbh->do(q|
8369         UPDATE letter
8370         SET code="HOLD",
8371             message_transport_type="phone",
8372             name= ?
8373         WHERE code="HOLD_PHONE"
8374     |, {}, $name);
8375
8376     $dbh->do(q|
8377         UPDATE letter
8378         SET code="PREDUE",
8379             message_transport_type="phone",
8380             name= ?
8381         WHERE code="PREDUE_PHONE"
8382     |, {}, $name);
8383
8384     $dbh->do(q|
8385         UPDATE letter
8386         SET code="OVERDUE",
8387             message_transport_type="phone",
8388             name= ?
8389         WHERE code="OVERDUE_PHONE"
8390     |, {}, $name);
8391
8392     print "Upgrade to $DBversion done (Bug 11867: Update letters *_PHONE)\n";
8393     SetVersion($DBversion);
8394 }
8395
8396 $DBversion = "3.15.00.042";
8397 if ( CheckVersion($DBversion) ) {
8398     $dbh->do(q{
8399         INSERT INTO systempreferences
8400             (variable,value,explanation,options,type)
8401         VALUES
8402             ('SpecifyReturnDate',0,'Define whether to display \"Specify Return Date\" form in Circulation','','YesNo')
8403     });
8404     print "Upgrade to $DBversion done (Bug 10694 - Allow arbitrary backdating of returns)\n";
8405     SetVersion($DBversion);
8406 }
8407
8408 $DBversion = "3.15.00.043";
8409 if ( CheckVersion($DBversion) ) {
8410     $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')");
8411    print "Upgrade to $DBversion done (Bug 7180: Added MarcFieldsToOrder syspref)\n";
8412    SetVersion ($DBversion);
8413 }
8414
8415 $DBversion = "3.15.00.044";
8416 if ( CheckVersion($DBversion) ) {
8417     $dbh->do("ALTER TABLE currency ADD isocode VARCHAR(5) default NULL AFTER symbol;");
8418     print "Upgrade to $DBversion done (Added isocode to the currency table)\n";
8419     SetVersion($DBversion);
8420 }
8421
8422 $DBversion = "3.15.00.045";
8423 if ( CheckVersion($DBversion) ) {
8424     $dbh->do("
8425         INSERT INTO systempreferences (variable,value,explanation,options,type)
8426         VALUES (
8427             'BlockExpiredPatronOpacActions',
8428             '0',
8429             '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',
8430             NULL,
8431             'YesNo'
8432         )
8433     ");
8434     $dbh->do("ALTER TABLE `categories` ADD COLUMN `BlockExpiredPatronOpacActions` TINYINT(1) DEFAULT -1 NOT NULL AFTER category_type");
8435     print "Upgraded to $DBversion done (Bug 6739 - expired patrons not blocked from opac actions)\n";
8436     SetVersion ($DBversion);
8437 }
8438
8439 $DBversion = "3.15.00.046";
8440 if ( CheckVersion($DBversion) ) {
8441     $dbh->do(q|
8442         ALTER TABLE search_history ADD COLUMN type VARCHAR(16) NOT NULL DEFAULT 'biblio' AFTER query_cgi
8443     |);
8444     print "Upgrade to $DBversion done (Bug 10807 - Add db field search_history.type)\n";
8445     SetVersion($DBversion);
8446 }
8447
8448 $DBversion = "3.15.00.047";
8449 if ( CheckVersion($DBversion) ) {
8450     $dbh->do(q|
8451         INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('EnableSearchHistory','0','','Enable or disable search history','YesNo')
8452     |);
8453     print "Upgrade to $DBversion done (Bug 10862: Add EnableSearchHistory syspref)\n";
8454     SetVersion($DBversion);
8455 }
8456
8457 $DBversion = "3.15.00.048";
8458 if ( CheckVersion($DBversion) ) {
8459     $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')");
8460     $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')");
8461     print "Upgrade to $DBversion done (Bug 10195: Records hidden with OpacSuppression can still be accessed)\n";
8462     SetVersion($DBversion);
8463 }
8464
8465 $DBversion = "3.15.00.049";
8466 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8467     $dbh->do("ALTER TABLE biblioitems DROP INDEX isbn");
8468     $dbh->do("ALTER TABLE biblioitems DROP INDEX issn");
8469     $dbh->do("ALTER TABLE biblioitems
8470               CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8471               CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8472     ");
8473     $dbh->do("ALTER TABLE biblioitems
8474               ADD INDEX isbn ( isbn ( 255 ) ),
8475               ADD INDEX issn ( issn ( 255 ) )
8476     ");
8477
8478     $dbh->do("ALTER TABLE deletedbiblioitems DROP INDEX isbn");
8479     $dbh->do("ALTER TABLE deletedbiblioitems
8480               CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8481               CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8482     ");
8483     $dbh->do("ALTER TABLE deletedbiblioitems
8484               ADD INDEX isbn ( isbn ( 255 ) )
8485     ");
8486
8487     print "Upgrade to $DBversion done (Bug 5377 - Biblioitems isbn and issn fields too small for multiple ISBN and ISSN)\n";
8488     SetVersion($DBversion);
8489 }
8490
8491 $DBversion = "3.15.00.050";
8492 if ( CheckVersion($DBversion) ) {
8493     $dbh->do("
8494         INSERT INTO systempreferences (
8495             variable,
8496             value,
8497             explanation,
8498             type
8499         ) VALUES (
8500             'AggressiveMatchOnISBN',
8501             '0',
8502             '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',
8503             'YesNo'
8504         )
8505     ");
8506
8507     print "Upgrade to $DBversion done (Bug 10500 - Improve isbn matching when importing records)\n";
8508     SetVersion($DBversion);
8509 }
8510
8511 $DBversion = "3.15.00.051";
8512 if ( CheckVersion($DBversion) ) {
8513     print "Upgrade to $DBversion done (Koha 3.16 beta)\n";
8514     SetVersion($DBversion);
8515 }
8516
8517 $DBversion = "3.15.00.052";
8518 if ( CheckVersion($DBversion) ) {
8519     print "Upgrade to $DBversion done (Koha 3.16 RC)\n";
8520     SetVersion($DBversion);
8521 }
8522
8523 $DBversion = "3.16.00.000";
8524 if ( CheckVersion($DBversion) ) {
8525     print "Upgrade to $DBversion done (3.16.0 release)\n";
8526     SetVersion ($DBversion);
8527 }
8528
8529 $DBversion = '3.17.00.000';
8530 if ( CheckVersion($DBversion) ) {
8531     print "Upgrade to $DBversion done (there is no time to rest on our laurels)\n";
8532     SetVersion ($DBversion);
8533 }
8534
8535 $DBversion = '3.17.00.001';
8536 if ( CheckVersion($DBversion) ) {
8537    $dbh->do("UPDATE systempreferences SET variable = 'AuthoritySeparator' WHERE variable = 'authoritysep'");
8538    print "Upgrade to $DBversion done (Bug 10330 - Rename system preference authoritysep to AuthoritySeparator)\n";
8539    SetVersion ($DBversion);
8540 }
8541
8542 $DBversion = "3.17.00.002";
8543 if (CheckVersion($DBversion)) {
8544     $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')");
8545     $dbh->do("
8546 CREATE TABLE IF NOT EXISTS `misc_files` (
8547   `file_id` int(11) NOT NULL AUTO_INCREMENT,
8548   `table_tag` varchar(255) NOT NULL,
8549   `record_id` int(11) NOT NULL,
8550   `file_name` varchar(255) NOT NULL,
8551   `file_type` varchar(255) NOT NULL,
8552   `file_description` varchar(255) DEFAULT NULL,
8553   `file_content` longblob NOT NULL, -- file content
8554   `date_uploaded` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
8555   PRIMARY KEY (`file_id`),
8556   KEY `table_tag` (`table_tag`),
8557   KEY `record_id` (`record_id`)
8558 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8559     ");
8560     print "Upgrade to $DBversion done (Bug 3050 - Add an option to upload scanned invoices)\n";
8561     SetVersion($DBversion);
8562 }
8563
8564 $DBversion = "3.17.00.003";
8565 if (CheckVersion($DBversion)) {
8566     $dbh->do("UPDATE systempreferences SET type = 'Choice', options = '0|1|force' WHERE variable = 'OPACItemHolds'");
8567     print "Upgrade to $DBversion done (Bug 7825 - Changed OPACItemHolds syspref to Choice)\n";
8568     SetVersion($DBversion);
8569 }
8570
8571 $DBversion = "3.17.00.004";
8572 if (CheckVersion($DBversion)) {
8573     $dbh->do("ALTER TABLE categories ADD default_privacy ENUM( 'default', 'never', 'forever' ) NOT NULL DEFAULT 'default' AFTER category_type");
8574     print "Upgrade to $DBversion done (Bug 6254 - can't set patron privacy by default)\n";
8575     SetVersion($DBversion);
8576 }
8577
8578 $DBversion = "3.17.00.005";
8579 if (CheckVersion($DBversion)) {
8580     $dbh->do(q|
8581         ALTER TABLE issuingrules
8582         ADD maxsuspensiondays INT(11) DEFAULT NULL AFTER finedays;
8583     |);
8584     print "Upgrade to $DBversion done (Bug 12230: Add new issuing rule maxsuspensiondays)\n";
8585     SetVersion($DBversion);
8586 }
8587
8588 $DBversion = "3.17.00.006";
8589 if ( CheckVersion($DBversion) ) {
8590     $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')");
8591     $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')");
8592     print "Upgrade to $DBversion done (Bug 7720 - Ambiguity in OPAC Details location.)\n";
8593     SetVersion($DBversion);
8594 }
8595
8596 $DBversion = "3.17.00.007";
8597 if (CheckVersion($DBversion)) {
8598     $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');");
8599     print "Upgrade to $DBversion done (Bug 11629 - Add ability to update not for loan status on checkin)\n";
8600     SetVersion($DBversion);
8601 }
8602
8603 $DBversion = "3.17.00.008";
8604 if ( CheckVersion($DBversion) ) {
8605     $dbh->do(q|
8606         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('OPACAcquisitionDetails','0', '','Show the acquisition details at the OPAC','YesNo')
8607     |);
8608     print "Upgrade to $DBversion done (Bug 11169 - Add OPACAcquisitionDetails syspref)\n";
8609     SetVersion($DBversion);
8610 }
8611
8612 $DBversion = "3.17.00.009";
8613 if ( CheckVersion($DBversion) ) {
8614     $dbh->do(q{
8615         DELETE FROM systempreferences WHERE variable = 'UseTablesortForCirc'
8616     });
8617
8618     print "Upgrade to $DBversion done (Bug 11703 - Remove UseTablesortForCirc syspref)\n";
8619     SetVersion($DBversion);
8620 }
8621
8622 $DBversion = "3.17.00.010";
8623 if ( CheckVersion($DBversion) ) {
8624     $dbh->do("DELETE FROM systempreferences WHERE variable='opacsmallimage'");
8625     print "Upgrade to $DBversion done (Bug 11347 - PROG/CCSR deprecation: Remove opacsmallimage system preference)\n";
8626     SetVersion($DBversion);
8627 }
8628
8629 $DBversion = "3.17.00.011";
8630 if ( CheckVersion($DBversion) ) {
8631     $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'hr', 'language', 'Croatian','2014-07-24' )");
8632     $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'hr','hrv')");
8633     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'hr', 'Hrvatski')");
8634     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'en', 'Croatian')");
8635     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'fr', 'Croate')");
8636     $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'de', 'Kroatisch')");
8637     print "Upgrade to $DBversion done (Bug 12649: Add Croatian language)\n";
8638     SetVersion ($DBversion);
8639 }
8640
8641 $DBversion = "3.17.00.012";
8642 if ( CheckVersion($DBversion) ) {
8643     $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowFiltersPulldownMobile'");
8644     print "Upgrade to $DBversion done ( Bug 12512 - PROG/CCSR deprecation: Remove OpacShowFiltersPulldownMobile system preference )\n";
8645     SetVersion ($DBversion);
8646 }
8647
8648 $DBversion = "3.17.00.013";
8649 if ( CheckVersion($DBversion) ) {
8650     $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')");
8651     print "Upgrade to $DBversion done (Re-add system preference maxreserves)\n";
8652     SetVersion ($DBversion);
8653 }
8654
8655 $DBversion = '3.17.00.014';
8656 if ( CheckVersion($DBversion) ) {
8657     $dbh->do("
8658         INSERT INTO systempreferences (variable,value,explanation,type) VALUES
8659         ('OverdueNoticeCalendar',0,'Take calendar into consideration when working out sending overdue notices','YesNo')
8660     ");
8661     print "Upgrade to $DBversion done (Bug 12529 - Adding a syspref to allow the overdue notices to consider the calendar when generating notices)\n";
8662     SetVersion($DBversion);
8663 }
8664
8665 $DBversion = "3.17.00.015";
8666 if ( CheckVersion($DBversion) ) {
8667     $dbh->do(q{
8668         CREATE TABLE IF NOT EXISTS columns_settings (
8669             module varchar(255) NOT NULL,
8670             page varchar(255) NOT NULL,
8671             tablename varchar(255) NOT NULL,
8672             columnname varchar(255) NOT NULL,
8673             cannot_be_toggled int(1) NOT NULL DEFAULT 0,
8674             is_hidden int(1) NOT NULL DEFAULT 0,
8675             PRIMARY KEY(module, page, tablename, columnname)
8676         ) ENGINE=InnoDB DEFAULT CHARSET=utf8
8677     });
8678     print "Upgrade to $DBversion done (Bug 10212 - Create new table columns_settings)\n";
8679     SetVersion ($DBversion);
8680 }
8681
8682 $DBversion = "3.17.00.016";
8683 if ( CheckVersion($DBversion) ) {
8684     $dbh->do("CREATE TABLE aqcontacts (
8685         id int(11) NOT NULL auto_increment,
8686         name varchar(100) default NULL,
8687         position varchar(100) default NULL,
8688         phone varchar(100) default NULL,
8689         altphone varchar(100) default NULL,
8690         fax varchar(100) default NULL,
8691         email varchar(100) default NULL,
8692         notes mediumtext,
8693         claimacquisition BOOLEAN NOT NULL DEFAULT 0,
8694         claimissues BOOLEAN NOT NULL DEFAULT 0,
8695         acqprimary BOOLEAN NOT NULL DEFAULT 0,
8696         serialsprimary BOOLEAN NOT NULL DEFAULT 0,
8697         booksellerid int(11) not NULL,
8698         PRIMARY KEY  (id),
8699         CONSTRAINT booksellerid_aqcontacts_fk FOREIGN KEY (booksellerid)
8700             REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE
8701         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1;");
8702     $dbh->do("INSERT INTO aqcontacts (name, position, phone, altphone, fax,
8703             email, notes, booksellerid, claimacquisition, claimissues, acqprimary, serialsprimary)
8704         SELECT contact, contpos, contphone, contaltphone, contfax, contemail,
8705             contnotes, id, 1, 1, 1, 1 FROM aqbooksellers;");
8706     $dbh->do("ALTER TABLE aqbooksellers DROP COLUMN contact,
8707         DROP COLUMN contpos, DROP COLUMN contphone,
8708         DROP COLUMN contaltphone, DROP COLUMN contfax,
8709         DROP COLUMN contemail, DROP COLUMN contnotes;");
8710     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contact>>', '<<aqcontacts.name>>')");
8711     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contpos>>', '<<aqcontacts.position>>')");
8712     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contphone>>', '<<aqcontacts.phone>>')");
8713     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contaltphone>>', '<<aqcontacts.altphone>>')");
8714     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contfax>>', '<<aqcontacts.contfax>>')");
8715     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contemail>>', '<<aqcontacts.contemail>>')");
8716     $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contnotes>>', '<<aqcontacts.contnotes>>')");
8717     print "Upgrade to $DBversion done (Bug 10402: Move bookseller contacts to separate table)\n";
8718     SetVersion($DBversion);
8719 }
8720
8721 $DBversion = "3.17.00.017";
8722 if ( CheckVersion($DBversion) ) {
8723     # Correct invalid recordtypes (should be very exceptional)
8724     $dbh->do(q{
8725         UPDATE z3950servers set recordtype='biblio' WHERE recordtype NOT IN ('authority','biblio')
8726     });
8727     # Correct invalid server types (should also be very exceptional)
8728     $dbh->do(q{
8729         UPDATE z3950servers set type='zed' WHERE type <> 'zed'
8730     });
8731     # Adjust table
8732     $dbh->do(q{
8733         ALTER TABLE z3950servers
8734         DROP COLUMN icon,
8735         DROP COLUMN description,
8736         DROP COLUMN position,
8737         MODIFY COLUMN id int NOT NULL AUTO_INCREMENT FIRST,
8738         MODIFY COLUMN recordtype enum('authority','biblio') NOT NULL DEFAULT 'biblio',
8739         CHANGE COLUMN name servername mediumtext NOT NULL,
8740         CHANGE COLUMN type servertype enum('zed','sru') NOT NULL DEFAULT 'zed',
8741         ADD COLUMN sru_options varchar(255) default NULL,
8742         ADD COLUMN sru_fields mediumtext default NULL,
8743         ADD COLUMN add_xslt mediumtext default NULL
8744     });
8745     print "Upgrade to $DBversion done (Bug 6536: Z3950 improvements)\n";
8746     SetVersion ($DBversion);
8747 }
8748
8749 $DBversion = "3.17.00.018";
8750 if ( CheckVersion($DBversion) ) {
8751     $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('HoldsInNoissuesCharge', '0', 'Hold charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
8752     print "Upgrade to $DBversion done (Bug 12205: Add HoldsInNoissuesCharge systempreference)\n";
8753     SetVersion($DBversion);
8754 }
8755
8756 $DBversion = "3.17.00.019";
8757 if ( CheckVersion($DBversion) ) {
8758     $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')"
8759     );
8760     print "Upgrade to $DBversion done (Bug 6149: Operator highlighted in search results)\n";
8761     SetVersion($DBversion);
8762 }
8763
8764 $DBversion = "3.17.00.020";
8765 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8766     $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')");
8767     print "Upgrade to $DBversion done (Bug 8735 - Expire holds waiting only on days the library is open)\n";
8768     SetVersion ($DBversion);
8769 }
8770
8771 $DBversion = "3.17.00.021";
8772 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
8773     my $pref = C4::Context->preference('HomeOrHoldingBranch');
8774     $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
8775        VALUES ('StaffSearchResultsDisplayBranch', ?,'homebranch|holdingbranch','Controls the display of the home or holding branch for staff search results','choice')", undef, $pref);
8776     print "Upgrade to $DBversion done (Bug 12582 - Control of branch displayed in search results linked to HomeOrHoldingBranch)\n";
8777     SetVersion ($DBversion);
8778 }
8779
8780 $DBversion = '3.17.00.022';
8781 if ( CheckVersion($DBversion) ) {
8782     my @temp= $dbh->selectrow_array(qq|
8783         SELECT count(*)
8784         FROM marc_subfield_structure
8785         WHERE kohafield='permanent_location' OR kohafield='items.permanent_location'
8786     |);
8787     print "Upgrade to $DBversion done (Bug 7817: Check for permanent_location)\n";
8788     if( $temp[0] ) {
8789         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";
8790     }
8791     SetVersion($DBversion);
8792 }
8793
8794 $DBversion = "3.17.00.023";
8795 if ( CheckVersion($DBversion) ) {
8796     $dbh->do(q{
8797         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')
8798     });
8799     print "Upgrade to $DBversion done (Bug 11169 - Add AcqItemSetSubfieldsWhenReceiptIsCancelled syspref)\n";
8800     SetVersion($DBversion);
8801 }
8802
8803 $DBversion = "3.17.00.024";
8804 if(CheckVersion($DBversion)) {
8805     $dbh->do(q{
8806         ALTER TABLE issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8807     });
8808     $dbh->do(q{
8809         ALTER TABLE old_issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8810     });
8811     $dbh->do(q{
8812         ALTER TABLE issuingrules ADD auto_renew BOOLEAN default FALSE AFTER norenewalbefore
8813     });
8814     print "Upgrade to $DBversion done (Bug 11577: [ENH] Automatic renewal feature)\n";
8815     SetVersion($DBversion);
8816 }
8817
8818 $DBversion = '3.17.00.025';
8819 if ( CheckVersion($DBversion) ) {
8820     $dbh->do(qq{
8821         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')
8822     });
8823     print "Upgrade to $DBversion done (Bug 12728: Checked syspref StatisticsFields)\n";
8824 }
8825
8826 $DBversion = "3.17.00.026";
8827 if ( CheckVersion($DBversion) ) {
8828     if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
8829         $dbh->do("UPDATE marc_subfield_structure SET liblibrarian = 'Encoded bitrate', libopac = 'Encoded bitrate' WHERE tagfield = '347' AND tagsubfield = 'f'");
8830         $dbh->do("UPDATE marc_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','610','611','710','711','810','811') AND tagsubfield = 'c'");
8831         $dbh->do("UPDATE auth_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','410','411','510','511','710','711') AND tagsubfield = 'c'");
8832         print "Upgrade to $DBversion done (Bug 12435 - Update MARC21 frameworks to Update No. 18 (April 2014))\n";
8833     }
8834     SetVersion($DBversion);
8835 }
8836
8837 $DBversion = "3.17.00.027";
8838 if ( CheckVersion($DBversion) ) {
8839     $dbh->do(q{
8840         DELETE FROM systempreferences WHERE variable = 'SearchEngine'
8841     });
8842     print "Upgrade to $DBversion done (Bug 12538 - Remove SearchEngine syspref)\n";
8843     SetVersion($DBversion);
8844 }
8845
8846 $DBversion = "3.17.00.028";
8847 if ( CheckVersion($DBversion) ) {
8848     $dbh->do(q{
8849         INSERT INTO systempreferences (variable,value) VALUES('OpacCustomSearch','');
8850     });
8851     print "Upgrade to $DBversion done (Bug 12296 - search box replaceable with a system preference)\n";
8852     SetVersion($DBversion);
8853 }
8854
8855 $DBversion = "3.17.00.029";
8856 if ( CheckVersion($DBversion) ) {
8857     $dbh->do("ALTER TABLE  `items` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8858     $dbh->do("ALTER TABLE  `deleteditems` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8859     $dbh->do("ALTER TABLE  `biblioitems` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8860     $dbh->do("ALTER TABLE  `deletedbiblioitems` CHANGE  `cn_sort`  `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8861     print "Upgrade to $DBversion done (Bug 12424 - ddc sorting of call numbers truncates long Cutter parts)\n";
8862     SetVersion ($DBversion);
8863 }
8864
8865 $DBversion = "3.17.00.030";
8866 if ( CheckVersion($DBversion) ) {
8867     $dbh->do(
8868         q{
8869        INSERT INTO systempreferences (variable, value, options, explanation, type )
8870        VALUES
8871         ('UsageStatsCountry', '', NULL, 'The country where your library is located, to be shown on the Hea Koha community website', 'YesNo'),
8872         ('UsageStatsID', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.',  'Free'),
8873         ('UsageStatsLastUpdateTime', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8874         ('UsageStatsLibraryName', '', NULL, 'The library name to be shown on Hea Koha community website', 'Free'),
8875         ('UsageStatsLibraryType', 'public', 'public|university', 'The library type to be shown on the Hea Koha community website', 'Choice'),
8876         ('UsageStatsLibraryUrl', '', NULL, 'The library URL to be shown on Hea Koha community website', 'Free'),
8877         ('UsageStats', 0, NULL, 'Share anonymous usage data on the Hea Koha community website.', 'YesNo')
8878     });
8879     print "Upgrade to $DBversion done (Bug 11926: Add UsageStats systempreferences (HEA))\n";
8880     SetVersion ($DBversion);
8881 }
8882
8883 $DBversion = "3.17.00.031";
8884 if ( CheckVersion($DBversion) ) {
8885    $dbh->do("ALTER TABLE saved_sql CHANGE report_name report_name VARCHAR( 255 ) NOT NULL DEFAULT '' ");
8886    print "Upgrade to $DBversion done (Bug 2969: Report Name should be mandatory for saved reports)\n";
8887    SetVersion ($DBversion);
8888 }
8889
8890 $DBversion = "3.17.00.032";
8891 if ( CheckVersion($DBversion) ) {
8892     $dbh->do(
8893 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReplytoDefault',  '',  NULL,  'The default email address to be set as replyto.',  'Free')"
8894     );
8895     $dbh->do(
8896 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReturnpathDefault',  '',  NULL,  'The default email address to be set as return-path',  'Free')"
8897     );
8898     $dbh->do("ALTER TABLE branches ADD branchreplyto mediumtext AFTER branchemail");
8899     $dbh->do("ALTER TABLE branches ADD branchreturnpath mediumtext AFTER branchreplyto");
8900     print "Upgrade to $DBversion done (Bug 9530: Adding replyto and returnpath addresses.)\n";
8901     SetVersion($DBversion);
8902 }
8903
8904 $DBversion = "3.17.00.033";
8905 if ( CheckVersion($DBversion) ) {
8906     $dbh->do(q{
8907         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
8908         VALUES('FacetMaxCount', '20','Specify the max facet count for each category',NULL,'Integer')
8909     });
8910     print "Upgrade to $DBversion done (Bug 13088 - Allow the user to specify a max amount of facets to show)\n";
8911     SetVersion($DBversion);
8912 }
8913
8914 $DBversion = "3.17.00.034";
8915 if ( CheckVersion($DBversion) ) {
8916     $dbh->do(q|
8917         ALTER TABLE aqorders DROP COLUMN cancelledby;
8918     |);
8919
8920     print "Upgrade to $DBversion done (Bug 11007 - DROP column aqorders.cancelledby)\n";
8921     SetVersion($DBversion);
8922 }
8923
8924 $DBversion = "3.17.00.035";
8925 if ( CheckVersion($DBversion) ) {
8926     $dbh->do(q|
8927         ALTER TABLE serial ADD COLUMN claims_count INT(11) DEFAULT 0 after claimdate
8928     |);
8929     $dbh->do(q|
8930         UPDATE serial
8931         SET claims_count = 1
8932         WHERE claimdate IS NOT NULL
8933     |);
8934     print "Upgrade to $DBversion done (Bug 5342: Add claims_count field in serial table)\n";
8935     SetVersion($DBversion);
8936 }
8937
8938 $DBversion = "3.17.00.036";
8939 if ( CheckVersion($DBversion) ) {
8940     $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowLibrariesPulldownMobile'");
8941     print "Upgrade to $DBversion done ( Bug 12513 - PROG/CCSR deprecation: Remove OpacShowLibrariesPulldownMobile system preference )\n";
8942     SetVersion ($DBversion);
8943 }
8944
8945 $DBversion = "3.17.00.037";
8946 if ( CheckVersion($DBversion) ) {
8947     $dbh->do("DELETE FROM systempreferences WHERE variable='OpacMainUserBlockMobile'");
8948     print "Upgrade to $DBversion done ( Bug 12246 - PROG/CCSR deprecation: Remove OpacMainUserBlockMobile system preference )\n";
8949     SetVersion ($DBversion);
8950 }
8951
8952 $DBversion = "3.17.00.038";
8953 if ( CheckVersion($DBversion) ) {
8954     $dbh->do("DELETE FROM systempreferences WHERE variable='OPACMobileUserCSS'");
8955     print "Upgrade to $DBversion done ( Bug 12245 - PROG/CCSR deprecation: Remove OPACMobileUserCSS system preference )\n";
8956     SetVersion ($DBversion);
8957 }
8958
8959 $DBversion = "3.17.00.039";
8960 if ( CheckVersion($DBversion) ) {
8961     $dbh->do("INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
8962     ('OPACFallback', 'prog', 'bootstrap|prog', 'Define the fallback theme for the OPAC interface.', 'Themes')");
8963     print "Upgrade to $DBversion done (Bug 12539 - PROG/CCSR deprecation: Remove hardcoded theme from C4/Templates.pm)\n";
8964     SetVersion ($DBversion);
8965 }
8966
8967 $DBversion = "3.17.00.040";
8968 if ( CheckVersion($DBversion) ) {
8969     my $opac_theme = C4::Context->preference( 'opacthemes' );
8970     if ( !defined $opac_theme || $opac_theme eq 'prog' || $opac_theme eq 'ccsr' ) {
8971         $dbh->do("UPDATE systempreferences SET value='bootstrap' WHERE variable='opacthemes'");
8972     }
8973     print "Upgrade to $DBversion done (Bug 12223: 'prog' and 'ccsr' themes removed)\n";
8974     SetVersion($DBversion);
8975 }
8976
8977 $DBversion = "3.17.00.041";
8978 if ( CheckVersion($DBversion) ) {
8979     print "Upgrade to $DBversion done (Bug 11346: Deprecate the 'prog' and 'CCSR' themes)\n";
8980     SetVersion($DBversion);
8981 }
8982
8983 $DBversion = "3.17.00.042";
8984 if ( CheckVersion($DBversion) ) {
8985     $dbh->do("DELETE FROM systempreferences WHERE variable='yuipath'");
8986     print "Upgrade to $DBversion done (Bug 12494: Remove yuipath system preference)\n";
8987     SetVersion ($DBversion);
8988 }
8989
8990 $DBversion = "3.17.00.043";
8991 if ( CheckVersion($DBversion) ) {
8992     $dbh->do("
8993         ALTER TABLE aqorders
8994         ADD COLUMN cancellationreason TEXT DEFAULT NULL AFTER datecancellationprinted
8995     ");
8996     print "Upgrade to $DBversion done (Bug 7162: Add aqorders.cancellationreason)\n";
8997     SetVersion ($DBversion);
8998 }
8999
9000 $DBversion = "3.17.00.044";
9001 if ( CheckVersion($DBversion) ) {
9002     $dbh->do(q{
9003         INSERT IGNORE INTO systempreferences
9004             (variable,value,explanation,options,type)
9005             VALUES('OnSiteCheckouts','0','Enable/Disable the on-site checkouts feature','','YesNo');
9006     });
9007     $dbh->do(q{
9008         INSERT IGNORE INTO systempreferences
9009             (variable,value,explanation,options,type)
9010             VALUES('OnSiteCheckoutsForce','0','Enable/Disable the on-site for all cases (Even if a user is debarred, etc.)','','YesNo');
9011     });
9012     $dbh->do(q{
9013         ALTER TABLE issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9014     });
9015     $dbh->do(q{
9016         ALTER TABLE old_issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9017     });
9018     print "Upgrade to $DBversion done (Bug 10860: Add new system preference OnSiteCheckouts + fields [old_]issues.onsite_checkout)\n";
9019     SetVersion($DBversion);
9020 }
9021
9022 $DBversion = "3.17.00.045";
9023 if ( CheckVersion($DBversion) ) {
9024     $dbh->do(q{
9025         INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9026         ('LocalHoldsPriority',  '0', NULL,  'Enables the LocalHoldsPriority feature',  'YesNo'),
9027         ('LocalHoldsPriorityItemControl',  'holdingbranch',  'holdingbranch|homebranch',  'decides if the feature operates using the item''s home or holding library.',  'Choice'),
9028         ('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')
9029     });
9030     print "Upgrade to $DBversion done (Bug 11126 - Make the holds system optionally give precedence to local holds)\n";
9031     SetVersion($DBversion);
9032 }
9033
9034 $DBversion = "3.17.00.046";
9035 if ( CheckVersion($DBversion) ) {
9036     $dbh->do(q{
9037         CREATE TABLE IF NOT EXISTS items_search_fields (
9038           name VARCHAR(255) NOT NULL,
9039           label VARCHAR(255) NOT NULL,
9040           tagfield CHAR(3) NOT NULL,
9041           tagsubfield CHAR(1) NULL DEFAULT NULL,
9042           authorised_values_category VARCHAR(16) NULL DEFAULT NULL,
9043           PRIMARY KEY(name),
9044           CONSTRAINT items_search_fields_authorised_values_category
9045             FOREIGN KEY (authorised_values_category) REFERENCES authorised_values (category)
9046             ON DELETE SET NULL ON UPDATE CASCADE
9047         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
9048     });
9049     print "Upgrade to $DBversion done (Bug 11425: Add items_search_fields table)\n";
9050     SetVersion($DBversion);
9051 }
9052
9053 $DBversion = "3.17.00.047";
9054 if ( CheckVersion($DBversion) ) {
9055     $dbh->do(q{
9056         ALTER TABLE collections
9057             CHANGE colBranchcode colBranchcode VARCHAR( 10 ) NULL DEFAULT NULL,
9058             ADD INDEX ( colBranchcode ),
9059             ADD CONSTRAINT collections_ibfk_1 FOREIGN KEY (colBranchcode) REFERENCES branches (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
9060     });
9061     print "Upgrade to $DBversion done (Bug 8836 - Resurrect Rotating Collections)\n";
9062     SetVersion($DBversion);
9063 }
9064
9065 $DBversion = "3.17.00.048";
9066 if ( CheckVersion($DBversion) ) {
9067     $dbh->do(q|
9068         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')
9069     |);
9070     print "Upgrade to $DBversion done (Bug 12448 - Add RentalFeesCheckoutConfirmation syspref)\n";
9071     SetVersion($DBversion);
9072 }
9073
9074 $DBversion = "3.17.00.049";
9075 if ( CheckVersion($DBversion) ) {
9076     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'am', 'language', 'Amharic','2014-10-29')");
9077     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'am','amh')");
9078     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'am', 'አማርኛ')");
9079     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'en', 'Amharic')");
9080
9081     $dbh->do("UPDATE language_descriptions SET description = 'لعربية' WHERE subtag = 'ar' AND type = 'language' AND lang = 'ar'");
9082
9083     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'az', 'language', 'Azerbaijani','2014-10-30')");
9084     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'az','aze')");
9085     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'az', 'Azərbaycan dili')");
9086     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'en', 'Azerbaijani')");
9087
9088     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'be', 'language', 'Byelorussian','2014-10-30')");
9089     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'be','bel')");
9090     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'be', 'Беларуская мова')");
9091     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'en', 'Byelorussian')");
9092
9093     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'bn', 'language', 'Bengali','2014-10-30')");
9094     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'bn','ben')");
9095     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'bn', 'বাংলা')");
9096     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'en', 'Bengali')");
9097
9098     $dbh->do("UPDATE language_descriptions SET description = 'Български' WHERE subtag = 'bg' AND type = 'language' AND lang = 'bg'");
9099     $dbh->do("UPDATE language_descriptions SET description = 'Ceština' WHERE subtag = 'cs' AND type = 'language' AND lang = 'cs'");
9100     $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικά' WHERE subtag = 'el' AND type = 'language' AND lang = 'el'");
9101     $dbh->do("UPDATE language_descriptions SET description = 'Español' WHERE subtag = 'es' AND type = 'language' AND lang = 'es'");
9102
9103     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'eu', 'language', 'Basque','2014-10-30')");
9104     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'eu','eus')");
9105     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'eu', 'Euskera')");
9106     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'en', 'Basque')");
9107
9108     $dbh->do("UPDATE language_descriptions SET description = 'فارسى' WHERE subtag = 'fa' AND type = 'language' AND lang = 'fa'");
9109     $dbh->do("UPDATE language_descriptions SET description = 'Suomi' WHERE subtag = 'fi' AND type = 'language' AND lang = 'fi'");
9110
9111     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'fo', 'language', 'Faroese','2014-10-30')");
9112     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'fo','fao')");
9113     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'fo', 'Føroyskt')");
9114     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'en', 'Faroese')");
9115
9116     $dbh->do("UPDATE language_descriptions SET description = 'Français' WHERE subtag = 'fr' AND type = 'language' AND lang = 'fr'");
9117     $dbh->do("UPDATE language_descriptions SET description = 'עִבְרִית' WHERE subtag = 'he' AND type = 'language' AND lang = 'he'");
9118     $dbh->do("UPDATE language_descriptions SET description = 'हिन्दी' WHERE subtag = 'hi' AND type = 'language' AND lang = 'hi'");
9119
9120     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'is', 'language', 'Icelandic','2014-10-30')");
9121     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'is','ice')");
9122     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'is', 'Íslenska')");
9123     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'en', 'Icelandic')");
9124
9125     $dbh->do("UPDATE language_descriptions SET description = '日本語' WHERE subtag = 'ja' AND type = 'language' AND lang = 'ja'");
9126
9127     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Kannada','2014-10-30')");
9128     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka','kan')");
9129     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ಕನ್ನಡ')");
9130     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Kannada')");
9131
9132     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'km', 'language', 'Khmer','2014-10-30')");
9133     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'km','khm')");
9134     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'km', 'language', 'km', 'ភាសាខ្មែរ')");
9135     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'km', 'language', 'en', 'Khmer')");
9136
9137     $dbh->do("UPDATE language_descriptions SET description = '한국어' WHERE subtag = 'ko' AND type = 'language' AND lang = 'ko'");
9138
9139     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ku', 'language', 'Kurdish','2014-05-13')");
9140     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ku','kur')");
9141     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'ku', 'کوردی')");
9142     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'en', 'Kurdish')");
9143     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'fr', 'Kurde')");
9144     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'de', 'Kurdisch')");
9145     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'es', 'Kurdo')");
9146
9147     $dbh->do("UPDATE language_descriptions SET description = 'ພາສາລາວ' WHERE subtag = 'lo' AND type = 'language' AND lang = 'lo'");
9148
9149     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mi', 'language', 'Maori','2014-10-30')");
9150     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mi','mri')");
9151     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'mi', 'Te Reo Māori')");
9152     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'en', 'Maori')");
9153
9154     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mn', 'language', 'Mongolian','2014-10-30')");
9155     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mn','mon')");
9156     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'mn', 'Mонгол')");
9157     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'en', 'Mongolian')");
9158
9159     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mr', 'language', 'Marathi','2014-10-30')");
9160     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mr','mar')");
9161     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'mr', 'मराठी')");
9162     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'en', 'Marathi')");
9163
9164     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ms', 'language', 'Malay','2014-10-30')");
9165     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ms','may')");
9166     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'ms', 'Bahasa melayu')");
9167     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'en', 'Malay')");
9168
9169     $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'nb'");
9170     $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'en'");
9171     $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'fr'");
9172     $dbh->do("UPDATE language_descriptions SET description = 'Norwegisch bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'de'");
9173
9174     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ne', 'language', 'Nepali','2014-10-30')");
9175     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ne','nep')");
9176     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)VALUES ( 'ne', 'language', 'ne', 'नेपाली')");
9177     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ne', 'language', 'en', 'Nepali')");
9178
9179     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'pbr', 'language', 'Pangwa','2014-10-30')");
9180     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'pbr','pbr')");
9181     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'pbr', 'Ekipangwa')");
9182     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'en', 'Pangwa')");
9183
9184     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'prs', 'language', 'Dari','2014-10-30')");
9185     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'prs','prs')");
9186     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'prs', 'درى')");
9187     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'en', 'Dari')");
9188
9189     $dbh->do("UPDATE language_descriptions SET description = 'Português' WHERE subtag = 'pt' AND type = 'language' AND lang = 'pt'");
9190     $dbh->do("UPDATE language_descriptions SET description = 'Român' WHERE subtag = 'ro' AND type = 'language' AND lang = 'ro'");
9191     $dbh->do("UPDATE language_descriptions SET description = 'Русский' WHERE subtag = 'ru' AND type = 'language' AND lang = 'ru'");
9192
9193     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'rw', 'language', 'Kinyarwanda','2014-10-30')");
9194     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'rw','kin')");
9195     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'rw', 'Ikinyarwanda')");
9196     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'en', 'Kinyarwanda')");
9197
9198     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sd', 'language', 'Sindhi','2014-10-30')");
9199     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sd','snd')");
9200     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'sd', 'سنڌي')");
9201     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'en', 'Sindhi')");
9202
9203     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sk', 'language', 'Slovak','2014-10-30')");
9204     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sk','slk')");
9205     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'sk', 'Slovenčina')");
9206     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'en', 'Slovak')");
9207
9208     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sl', 'language', 'Slovene','2014-10-30')");
9209     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sl','slv')");
9210     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'sl', 'Slovenščina')");
9211     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'en', 'Slovene')");
9212
9213     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sq', 'language', 'Albanian','2014-10-30')");
9214     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sq','sqi')");
9215     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'sq', 'Shqip')");
9216     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'en', 'Albanian')");
9217
9218     $dbh->do("UPDATE language_descriptions SET description = 'Cрпски' WHERE subtag = 'sr' AND type = 'language' AND lang = 'sr'");
9219
9220     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sw', 'language', 'Swahili','2014-10-30')");
9221     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sw','swa')");
9222     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'sw', 'Kiswahili')");
9223     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'en', 'Swahili')");
9224
9225     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ta', 'language', 'Tamil','2014-10-30')");
9226     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ta','tam')");
9227     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'ta', 'தமிழ்')");
9228     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'en', 'Tamil')");
9229
9230     $dbh->do("UPDATE language_descriptions SET description = 'Tetun' WHERE subtag = 'tet' AND type = 'language' AND lang = 'tet'");
9231     $dbh->do("UPDATE language_descriptions SET description = 'ภาษาไทย' WHERE subtag = 'th' AND type = 'language' AND lang = 'th'");
9232
9233     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'tl', 'language', 'Tagalog','2014-10-30')");
9234     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'tl','tgl')");
9235     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'tl', 'Tagalog')");
9236     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'en', 'Tagalog')");
9237
9238     $dbh->do("UPDATE language_descriptions SET description = 'Türkçe' WHERE subtag = 'tr' AND type = 'language' AND lang = 'tr'");
9239     $dbh->do("UPDATE language_descriptions SET description = 'Українська' WHERE subtag = 'uk' AND type = 'language' AND lang = 'uk'");
9240     $dbh->do("UPDATE language_descriptions SET description = 'اردو' WHERE subtag = 'ur' AND type = 'language' AND lang = 'ur'");
9241
9242     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'vi', 'language', 'Vietnamese','2014-10-30')");
9243     $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'vi','vie')");
9244     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'vi', '㗂越')");
9245     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'en', 'Vietnamese')");
9246
9247     $dbh->do("UPDATE language_descriptions SET description = '中文' WHERE subtag = 'zh' AND type = 'language' AND lang = 'zh'");
9248     $dbh->do("UPDATE language_descriptions SET description = '' WHERE subtag = 'Arab,script' AND type = 'Arab' AND lang = 'العربية'");
9249
9250     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Armn', 'script', 'Armenian','2014-10-30')");
9251     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Armn', 'script', 'Armn', 'Հայոց այբուբեն')");
9252     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Armn', 'script', 'en', 'Armenian')");
9253
9254     $dbh->do("UPDATE language_descriptions SET description = 'Кирилица' WHERE subtag = 'Cyrl' AND type = 'script' AND lang = 'Cyrl'");
9255
9256     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Ethi', 'script', 'Ethiopic','2014-10-30')");
9257     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Ethi', 'script', 'Ethi', 'ግዕዝ')");
9258     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Ethi', 'script', 'en', 'Ethiopic')");
9259
9260     $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικό αλφάβητο' WHERE subtag = 'Grek' AND type = 'script' AND lang = 'Grek'");
9261     $dbh->do("UPDATE language_descriptions SET description = '简体字' WHERE subtag = 'Hans' AND type = 'script' AND lang = 'Hans'");
9262     $dbh->do("UPDATE language_descriptions SET description = '繁體字' WHERE subtag = 'Hant' AND type = 'script' AND lang = 'Hant'");
9263     $dbh->do("UPDATE language_descriptions SET description = 'אָלֶף־בֵּית עִבְרִי' WHERE subtag = 'Hebr' AND type = 'script' AND lang = 'Hebr'");
9264
9265     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Jpan', 'script', 'Japanese','2014-10-30')");
9266     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Jpan', 'script', 'Jpan', '漢字')");
9267     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Jpan', 'script', 'en', 'Japanese')");
9268
9269     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Knda', 'script', 'Kannada','2014-10-30')");
9270     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Knda', 'script', 'Knda', 'ಕನ್ನಡ ಲಿಪಿ')");
9271     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Knda', 'script', 'en', 'Kannada')");
9272
9273     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Kore', 'script', 'Korean','2014-10-30')");
9274     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Kore', 'script', 'Kore', '한글')");
9275     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Kore', 'script', 'en', 'Korean')");
9276
9277     $dbh->do("UPDATE language_descriptions SET description = 'ອັກສອນລາວ' WHERE subtag = 'Laoo' AND type = 'script' AND lang = 'Laoo'");
9278
9279     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AL', 'region', 'Albania','2014-10-30')");
9280     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'en', 'Albania')");
9281     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'sq', 'Shqipërisë')");
9282
9283     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AZ', 'region', 'Azerbaijan','2014-10-30')");
9284     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'en', 'Azerbaijan')");
9285     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'az', 'Azərbaycan')");
9286
9287     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BE', 'region', 'Belgium','2014-10-30')");
9288     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'en', 'Belgium')");
9289     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'nl', 'België')");
9290
9291     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BR', 'region', 'Brazil','2014-10-30')");
9292     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'en', 'Brazil')");
9293     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'pt', 'Brasil')");
9294
9295     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BY', 'region', 'Belarus','2014-10-30')");
9296     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'en', 'Belarus')");
9297     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'be', 'Беларусь')");
9298
9299     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CA', 'region', 'fr', 'Canada')");
9300
9301     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CH', 'region', 'Switzerland','2014-10-30')");
9302     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'en', 'Switzerland')");
9303     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'de', 'Schweiz')");
9304
9305     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CN', 'region', 'China','2014-10-30')");
9306     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'en', 'China')");
9307     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'zh', '中国')");
9308
9309     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CZ', 'region', 'Czech Republic','2014-10-30')");
9310     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'en', 'Czech Republic')");
9311     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'cs', 'Česká republika')");
9312
9313     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'DE', 'region', 'Germany','2014-10-30')");
9314     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'en', 'Germany')");
9315     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'de', 'Deutschland')");
9316
9317     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DK', 'region', 'en', 'Denmark')");
9318
9319     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ES', 'region', 'Spain','2014-10-30')");
9320     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'en', 'Spain')");
9321     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'es', 'España')");
9322
9323     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FI', 'region', 'Finland','2014-10-30')");
9324     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'en', 'Finland')");
9325     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'fi', 'Suomi')");
9326
9327     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FO', 'region', 'Faroe Islands','2014-10-30')");
9328     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'en', 'Faroe Islands')");
9329     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'fo', 'Føroyar')");
9330
9331     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'GR', 'region', 'Greece','2014-10-30')");
9332     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'en', 'Greece')");
9333     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'el', 'Ελλάδα')");
9334
9335     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HR', 'region', 'Croatia','2014-10-30')");
9336     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'en', 'Croatia')");
9337     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'hr', 'Hrvatska')");
9338
9339     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HU', 'region', 'Hungary','2014-10-30')");
9340     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'en', 'Hungary')");
9341     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'hu', 'Magyarország')");
9342
9343     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ID', 'region', 'Indonesia','2014-10-30')");
9344     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'en', 'Indonesia')");
9345     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'id', 'Indonesia')");
9346
9347     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IS', 'region', 'Iceland','2014-10-30')");
9348     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'en', 'Iceland')");
9349     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'is', 'Ísland')");
9350
9351     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IT', 'region', 'Italy','2014-10-30')");
9352     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'en', 'Italy')");
9353     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'it', 'Italia')");
9354
9355     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'JP', 'region', 'Japan','2014-10-30')");
9356     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'en', 'Japan')");
9357     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'ja', '日本')");
9358
9359     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KE', 'region', 'Kenya','2014-10-30')");
9360     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'en', 'Kenya')");
9361     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'rw', 'Kenya')");
9362
9363     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KH', 'region', 'Cambodia','2014-10-30')");
9364     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'en', 'Cambodia')");
9365     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'km', 'កម្ពុជា')");
9366
9367     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KP', 'region', 'North Korea','2014-10-30')");
9368     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'en', 'North Korea')");
9369     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'ko', '조선민주주의인민공화국')");
9370
9371     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'LK', 'region', 'Sri Lanka','2014-10-30')");
9372     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'en', 'Sri Lanka')");
9373     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'ta', 'இலங்கை')");
9374
9375     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'MY', 'region', 'Malaysia','2014-10-30')");
9376     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'en', 'Malaysia')");
9377     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'ms', 'Malaysia')");
9378
9379     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NE', 'region', 'Niger','2014-10-30')");
9380     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'en', 'Niger')");
9381     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'ne', 'Niger')");
9382
9383     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NL', 'region', 'Netherlands','2014-10-30')");
9384     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'en', 'Netherlands')");
9385     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'nl', 'Nederland')");
9386
9387     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NO', 'region', 'Norway','2014-10-30')");
9388     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'en', 'Norway')");
9389     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'ne', 'Noreg')");
9390     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'nn', 'Noreg')");
9391
9392     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PH', 'region', 'Philippines','2014-10-30')");
9393     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'en', 'Philippines')");
9394     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'tl', 'Pilipinas')");
9395
9396     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PK', 'region', 'Pakistan','2014-10-30')");
9397     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'en', 'Pakistan')");
9398     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'sd', 'پاكستان')");
9399
9400     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PL', 'region', 'Poland','2014-10-30')");
9401     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'en', 'Poland')");
9402     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'pl', 'Polska')");
9403
9404     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PT', 'region', 'Portugal','2014-10-30')");
9405     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'en', 'Portugal')");
9406     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'pt', 'Portugal')");
9407
9408     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RO', 'region', 'Romania','2014-10-30')");
9409     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'en', 'Romania')");
9410     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'ro', 'România')");
9411
9412     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RU', 'region', 'Russia','2014-10-30')");
9413     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'en', 'Russia')");
9414     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'ru', 'Россия')");
9415
9416     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RW', 'region', 'Rwanda','2014-10-30')");
9417     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'en', 'Rwanda')");
9418     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'rw', 'Rwanda')");
9419
9420     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SE', 'region', 'Sweden','2014-10-30')");
9421     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'en', 'Sweden')");
9422     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'sv', 'Sverige')");
9423
9424     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SI', 'region', 'Slovenia','2014-10-30')");
9425     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'en', 'Slovenia')");
9426     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'sl', 'Slovenija')");
9427
9428     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SK', 'region', 'Slovakia','2014-10-30')");
9429     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'en', 'Slovakia')");
9430     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'sk', 'Slovensko')");
9431
9432     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TH', 'region', 'Thailand','2014-10-30')");
9433     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'en', 'Thailand')");
9434     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'th', 'ประเทศไทย')");
9435
9436     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TR', 'region', 'Turkey','2014-10-30')");
9437     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'en', 'Turkey')");
9438     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'tr', 'Türkiye')");
9439
9440     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TW', 'region', 'Taiwan','2014-10-30')");
9441     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'en', 'Taiwan')");
9442     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'zh', '台灣')");
9443
9444     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'UA', 'region', 'Ukraine','2014-10-30')");
9445     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'en', 'Ukraine')");
9446     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'uk', 'Україна')");
9447
9448     $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'VN', 'region', 'Vietnam','2014-10-30')");
9449     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'en', 'Vietnam')");
9450     $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'vi', 'Việt Nam')");
9451
9452     print "Upgrade to $DBversion done (Bug 12250: Update descriptions for languages, scripts and regions)\n";
9453     SetVersion($DBversion);
9454 }
9455
9456 $DBversion = "3.17.00.050";
9457 if ( CheckVersion($DBversion) ) {
9458     $dbh->do(q|
9459         INSERT INTO permissions (module_bit, code, description) VALUES
9460           (13, 'records_batchdel', 'Perform batch deletion of records (bibliographic or authority)')
9461     |);
9462     print "Upgrade to $DBversion done (Bug 12403: Add permission tools_records_batchdelitem)\n";
9463     SetVersion($DBversion);
9464 }
9465
9466 $DBversion = "3.17.00.051";
9467 if ( CheckVersion($DBversion) ) {
9468     $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('GoogleIndicTransliteration','0','','GoogleIndicTransliteration on the OPAC.','YesNo')");
9469     print "Upgrade to $DBversion done (Bug 13211: Added system preferences GoogleIndicTransliteration on the OPAC)\n";
9470     SetVersion($DBversion);
9471 }
9472
9473 $DBversion = "3.17.00.052";
9474 if ( CheckVersion($DBversion) ) {
9475     $dbh->do(q{
9476         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');
9477     });
9478
9479     $dbh->do(q{
9480         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');
9481    });
9482    print "Upgrade to $DBversion done (Bug 9043: Add system preference OpacAdvSearchOptions and OpacAdvSearchMoreOptions)\n";
9483    SetVersion ($DBversion);
9484 }
9485
9486 $DBversion = "3.17.00.053";
9487 if ( CheckVersion($DBversion) ) {
9488     $dbh->do(q{
9489         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)');
9490     });
9491
9492     $dbh->do(q{
9493         INSERT INTO permissions (module_bit, code, description) VALUES ('9', 'delete_all_items', 'Delete all items at once');
9494     });
9495
9496     $dbh->do(q{
9497         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)');
9498     });
9499
9500     # The delete_all_items permission should be added to users having the edit_items permission.
9501     $dbh->do(q{
9502         INSERT INTO user_permissions (borrowernumber, module_bit, code) SELECT borrowernumber, module_bit, "delete_all_items" FROM user_permissions WHERE code="edit_items";
9503     });
9504
9505     # Add 2 new prefs
9506     $dbh->do(q{
9507         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');
9508     });
9509
9510     $dbh->do(q{
9511         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');
9512     });
9513
9514     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";
9515     SetVersion($DBversion);
9516 }
9517
9518 $DBversion = "3.17.00.054";
9519 if (CheckVersion($DBversion)) {
9520     $dbh->do(q{
9521         INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9522         ('AllowRenewalIfOtherItemsAvailable','0',NULL,'If enabled, allow a patron to renew an item with unfilled holds if other available items can fill that hold.','YesNo')
9523     });
9524     print "Upgrade to $DBversion done (Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds)\n";
9525     SetVersion($DBversion);
9526 }
9527
9528 $DBversion = "3.17.00.055";
9529 if ( CheckVersion($DBversion) ) {
9530     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEnable', '0', NULL, 'Enable communication with the Norwegian national patron database.', 'YesNo')");
9531     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEndpoint', '', NULL, 'Which NL endpoint to use.', 'Free')");
9532     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBUsername', '', NULL, 'Username for communication with the Norwegian national patron database.', 'Free')");
9533     $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBPassword', '', NULL, 'Password for communication with the Norwegian national patron database.', 'Free')");
9534     $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')");
9535     $dbh->do("
9536 CREATE TABLE borrower_sync (
9537     borrowersyncid int(11) NOT NULL AUTO_INCREMENT,
9538     borrowernumber int(11) NOT NULL,
9539     synctype varchar(32) NOT NULL,
9540     sync tinyint(1) NOT NULL DEFAULT '0',
9541     syncstatus varchar(10) DEFAULT NULL,
9542     lastsync varchar(50) DEFAULT NULL,
9543     hashed_pin varchar(64) DEFAULT NULL,
9544     PRIMARY KEY (borrowersyncid),
9545     KEY borrowernumber (borrowernumber),
9546     CONSTRAINT borrower_sync_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9547 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
9548 );
9549     print "Upgrade to $DBversion done (Bug 11401 - Add support for Norwegian national library card)\n";
9550     SetVersion($DBversion);
9551 }
9552
9553 $DBversion = "3.17.00.056";
9554 if ( CheckVersion($DBversion) ) {
9555     $dbh->do(q{
9556         UPDATE systempreferences SET value = 'pubdate,itemtype,language,sorting,location' WHERE variable='OpacAdvSearchOptions'
9557     });
9558
9559     $dbh->do(q{
9560         UPDATE systempreferences SET value = 'pubdate,itemtype,language,subtype,sorting,location' WHERE variable='OpacAdvSearchMoreOptions'
9561     });
9562
9563     print "Upgrade to $DBversion done (Bug 9043 - Update the values for OpacAdvSearchOptions and OpacAdvSearchOptions)\n";
9564     SetVersion($DBversion);
9565 }
9566
9567 $DBversion = "3.17.00.057";
9568 if ( CheckVersion($DBversion) ) {
9569     print "Upgrade to $DBversion done (Koha 3.18 beta)\n";
9570     SetVersion ($DBversion);
9571 }
9572
9573 $DBversion = "3.17.00.058";
9574 if( CheckVersion($DBversion) ){
9575     $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')");
9576     $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')");
9577     $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')");
9578     print "Upgrade to $DBversion done (Bug 8337: System preferences for longoverdue cron)\n";
9579     SetVersion($DBversion);
9580 }
9581
9582 $DBversion = "3.17.00.059";
9583 if ( CheckVersion($DBversion) ) {
9584     $dbh->do(q{
9585         UPDATE permissions SET description = "Add and delete budgets (but can't modifiy budgets)" WHERE description = "Add and delete budgets (but cant modify budgets)";
9586     });
9587     print "Upgrade to $DBversion done (Bug 10749: Fix typo in budget_add_del permission description)\n";
9588     SetVersion ($DBversion);
9589 }
9590
9591 $DBversion = "3.17.00.060";
9592 if ( CheckVersion($DBversion) ) {
9593     my $count_l = $dbh->selectcol_arrayref(q|
9594         SELECT COUNT(*) FROM letter WHERE message_transport_type='feed'
9595     |);
9596     my $count_mq = $dbh->selectcol_arrayref(q|
9597         SELECT COUNT(*) FROM message_queue WHERE message_transport_type='feed'
9598     |);
9599     my $count_ott = $dbh->selectcol_arrayref(q|
9600         SELECT COUNT(*) FROM overduerules_transport_types WHERE message_transport_type='feed'
9601     |);
9602     my $count_mt = $dbh->selectcol_arrayref(q|
9603         SELECT COUNT(*) FROM message_transports WHERE message_transport_type='feed'
9604     |);
9605     my $count_bmtp = $dbh->selectcol_arrayref(q|
9606         SELECT COUNT(*) FROM borrower_message_transport_preferences WHERE message_transport_type='feed'
9607     |);
9608
9609     my $deleted = 0;
9610     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 ) {
9611         $deleted = $dbh->do(q|
9612             DELETE FROM message_transport_types where message_transport_type='feed'
9613         |);
9614         $deleted = $deleted ne '0E0' ? 1 : 0;
9615     }
9616
9617     print "Upgrade to $DBversion done (Bug 12298: Delete the 'feed' message transport type " . ($deleted ? '(deleted!)' : '(not deleted)') . ")\n";
9618     SetVersion($DBversion);
9619 }
9620
9621 $DBversion = "3.18.00.000";
9622 if ( CheckVersion($DBversion) ) {
9623     print "Upgrade to $DBversion done (3.18.0 release)\n";
9624     SetVersion($DBversion);
9625 }
9626
9627 $DBversion = "3.19.00.000";
9628 if ( CheckVersion($DBversion) ) {
9629     print "Upgrade to $DBversion done (there's life after 3.18)\n";
9630     SetVersion ($DBversion);
9631 }
9632
9633 $DBversion = "3.19.00.001";
9634 if ( CheckVersion($DBversion) ) {
9635     $dbh->do("
9636         UPDATE systempreferences
9637         SET options = 'public|school|academic|research|private|societyAssociation|corporate|government|religiousOrg|subscription'
9638         WHERE variable = 'UsageStatsLibraryType'
9639     ");
9640     if ( C4::Context->preference("UsageStatsLibraryType") eq "university" ) {
9641         C4::Context->set_preference("UsageStatsLibraryType", "academic")
9642     }
9643     print "Upgrade to $DBversion done (Bug 13436: Add more options to UsageStatsLibraryType)\n";
9644     SetVersion ($DBversion);
9645 }
9646
9647 $DBversion = "3.19.00.002";
9648 if ( CheckVersion($DBversion) ) {
9649     $dbh->do(q|
9650         UPDATE suggestions SET branchcode="" WHERE branchcode="__ANY__"
9651     |);
9652     print "upgrade to $DBversion done (Bug 10753: replace __ANY__ with empty string in suggestions.branchcode)\n";
9653     SetVersion ($DBversion);
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.004";
9676 if ( CheckVersion($DBversion) ) {
9677     my $pref_value = C4::Context->preference('OpacExportOptions');
9678     $pref_value =~ s/\|/,/g; # multiple is separated by ,
9679     $dbh->do(q{
9680         UPDATE systempreferences
9681             SET value = ?,
9682                 type = 'multiple'
9683         WHERE variable = 'OpacExportOptions'
9684     }, {}, $pref_value );
9685     print "Upgrade to $DBversion done (Bug 13346: OpacExportOptions is now multiple)\n";
9686     SetVersion ($DBversion);
9687 }
9688
9689 $DBversion = "3.19.00.005";
9690 if(CheckVersion($DBversion)) {
9691     $dbh->do(q{
9692         ALTER TABLE authorised_values MODIFY COLUMN category VARCHAR(32) NOT NULL DEFAULT ''
9693     });
9694
9695     $dbh->do(q{
9696         ALTER TABLE borrower_attribute_types MODIFY COLUMN authorised_value_category VARCHAR(32) DEFAULT NULL
9697     });
9698
9699     print "Upgrade to $DBversion done (Bug 13379: Modify authorised_values.category to varchar(32))\n";
9700     SetVersion($DBversion);
9701 }
9702
9703 $DBversion = "3.19.00.006";
9704 if ( CheckVersion($DBversion) ) {
9705     $dbh->do(q|SET foreign_key_checks = 0|);
9706     my $sth = $dbh->table_info( '','','','TABLE' );
9707     my ( $cat, $schema, $name, $type, $remarks );
9708     while ( ( $cat, $schema, $name, $type, $remarks ) = $sth->fetchrow_array ) {
9709         my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE $name|);
9710         $table_sth->execute;
9711         my @table = $table_sth->fetchrow_array;
9712         unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables
9713             if ( $name eq 'marc_subfield_structure' ) {
9714                 $dbh->do(q|
9715                     ALTER TABLE marc_subfield_structure
9716                     MODIFY COLUMN tagfield varchar(3) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9717                     MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT '',
9718                     MODIFY COLUMN liblibrarian varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9719                     MODIFY COLUMN libopac varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9720                     MODIFY COLUMN kohafield varchar(40) COLLATE utf8_unicode_ci DEFAULT NULL,
9721                     MODIFY COLUMN authorised_value varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9722                     MODIFY COLUMN authtypecode varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9723                     MODIFY COLUMN value_builder varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL,
9724                     MODIFY COLUMN frameworkcode varchar(4) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9725                     MODIFY COLUMN seealso varchar(1100) COLLATE utf8_unicode_ci DEFAULT NULL,
9726                     MODIFY COLUMN link varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL
9727                 |);
9728             }
9729             else {
9730                 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
9731             }
9732         }
9733     }
9734     $dbh->do(q|SET foreign_key_checks = 1|);;
9735
9736     print "Upgrade to $DBversion done (Bug 11944: Convert DB tables to utf8_unicode_ci)\n";
9737     SetVersion($DBversion);
9738 }
9739
9740 $DBversion = "3.19.00.007";
9741 if ( CheckVersion($DBversion) ) {
9742     my $orphan_budgets = $dbh->selectall_arrayref(q|
9743         SELECT budget_id, budget_name, budget_code
9744         FROM aqbudgets
9745         WHERE   budget_parent_id IS NOT NULL
9746             AND budget_parent_id NOT IN (
9747                 SELECT DISTINCT budget_id FROM aqbudgets
9748             )
9749     |, { Slice => {} } );
9750
9751     if ( @$orphan_budgets ) {
9752         for my $b ( @$orphan_budgets ) {
9753             print "Fund $b->{budget_name} (code:$b->{budget_code}, id:$b->{budget_id}) does not have a parent, it may cause problem\n";
9754         }
9755         print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: FAIL)\n";
9756     } else {
9757         print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: OK)\n";
9758     }
9759     SetVersion($DBversion);
9760 }
9761
9762 $DBversion = "3.19.00.008";
9763 if ( CheckVersion($DBversion) ) {
9764     my $number_of_orders_not_linked = $dbh->selectcol_arrayref(q|
9765         SELECT COUNT(*)
9766         FROM aqorders o
9767         WHERE NOT EXISTS (
9768             SELECT NULL
9769             FROM aqbudgets b
9770             WHERE b.budget_id = o.budget_id
9771         );
9772     |);
9773
9774     if ( $number_of_orders_not_linked->[0] > 0 ) {
9775         $dbh->do(q|
9776             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)
9777         |);
9778         my $budget_period_id = $dbh->last_insert_id( undef, undef, 'aqbudgetperiods', undef );
9779         $dbh->do(qq|
9780             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 );
9781         |);
9782         my $budget_id = $dbh->last_insert_id( undef, undef, 'aqbudgets', undef );
9783         $dbh->do(qq|
9784             UPDATE aqorders o
9785             SET budget_id = $budget_id
9786             WHERE NOT EXISTS (
9787                 SELECT NULL
9788                 FROM aqbudgets b
9789                 WHERE b.budget_id = o.budget_id
9790             )
9791         |);
9792     }
9793
9794     $dbh->do(q|
9795         ALTER TABLE aqorders
9796         ADD CONSTRAINT aqorders_budget_id_fk FOREIGN KEY (budget_id) REFERENCES aqbudgets(budget_id) ON DELETE CASCADE ON UPDATE CASCADE
9797     |);
9798
9799     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";
9800     SetVersion($DBversion);
9801 }
9802
9803 $DBversion = "3.19.00.009";
9804 if ( CheckVersion($DBversion) ) {
9805     $dbh->do(q|
9806         UPDATE suggestions s SET s.budgetid = NULL
9807         WHERE NOT EXISTS (
9808             SELECT NULL
9809             FROM aqbudgets b
9810             WHERE b.budget_id = s.budgetid
9811         );
9812     |);
9813
9814     $dbh->do(q|
9815         ALTER TABLE suggestions
9816         ADD CONSTRAINT suggestions_budget_id_fk FOREIGN KEY (budgetid) REFERENCES aqbudgets(budget_id) ON DELETE SET NULL ON UPDATE CASCADE
9817     |);
9818
9819     print "Upgrade to $DBversion done (Bug 13007: Add new foreign key suggestions.budgetid)\n";
9820     SetVersion($DBversion);
9821 }
9822
9823 $DBversion = "3.19.00.010";
9824 if ( CheckVersion($DBversion) ) {
9825     $dbh->do(q|
9826         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
9827         VALUES('SessionRestrictionByIP','1','Check for Change in  Remote IP address for Session Security. Disable when remote ip address changes frequently.','','YesNo')
9828     |);
9829     print "Upgrade to $DBversion done (Bug 5511: SessionRestrictionByIP)\n";
9830     SetVersion ($DBversion);
9831 }
9832
9833 $DBversion = "3.19.00.011";
9834 if ( CheckVersion($DBversion) ) {
9835     $dbh->do(q|
9836         INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES
9837         (20, 'lists', 'Lists', 0)
9838     |);
9839     $dbh->do(q|
9840         INSERT INTO permissions (module_bit, code, description) VALUES
9841         (20, 'delete_public_lists', 'Delete public lists')
9842     |);
9843     print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n";
9844     SetVersion ($DBversion);
9845 }
9846
9847 $DBversion = "3.19.00.012";
9848 if(CheckVersion($DBversion)) {
9849     $dbh->do(q{
9850         ALTER TABLE biblioitems MODIFY COLUMN marcxml longtext
9851     });
9852
9853     $dbh->do(q{
9854         ALTER TABLE deletedbiblioitems MODIFY COLUMN marcxml longtext
9855     });
9856
9857     print "Upgrade to $DBversion done (Bug 13523 Remove NOT NULL restriction on field marcxml due to mysql STRICT_TRANS_TABLES)\n";
9858     SetVersion ($DBversion);
9859 }
9860
9861 $DBversion = "3.19.00.013";
9862 if ( CheckVersion($DBversion) ) {
9863     $dbh->do(q|
9864         INSERT INTO permissions (module_bit, code, description) VALUES
9865           (13, 'records_batchmod', 'Perform batch modification of records (biblios or authorities)')
9866     |);
9867     print "Upgrade to $DBversion done (Bug 11395: Add permission tools_records_batchmod)\n";
9868     SetVersion($DBversion);
9869 }
9870
9871 $DBversion = "3.19.00.014";
9872 if ( CheckVersion($DBversion) ) {
9873     $dbh->do(q|
9874         CREATE TABLE aqorder_users (
9875             ordernumber int(11) NOT NULL,
9876             borrowernumber int(11) NOT NULL,
9877             PRIMARY KEY (ordernumber, borrowernumber),
9878             CONSTRAINT aqorder_users_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber) ON DELETE CASCADE ON UPDATE CASCADE,
9879             CONSTRAINT aqorder_users_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9880         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
9881     |);
9882
9883     $dbh->do(q|
9884         INSERT INTO letter(module, code, branchcode, name, title, content, message_transport_type)
9885         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')
9886     |);
9887     print "Upgrade to $DBversion done (Bug 12648: Add letter ACQ_NOTIF_ON_RECEIV )\n";
9888     SetVersion ($DBversion);
9889 }
9890
9891 $DBversion = "3.19.00.015";
9892 if ( CheckVersion($DBversion) ) {
9893     $dbh->do(q|
9894         ALTER TABLE search_history ADD COLUMN id INT(11) NOT NULL AUTO_INCREMENT FIRST, ADD PRIMARY KEY(id);
9895     |);
9896     print "Upgrade to $DBversion done (Bug 11430: Add primary key for search_history)\n";
9897     SetVersion($DBversion);
9898 }
9899
9900 $DBversion = "3.19.00.016";
9901 if(CheckVersion($DBversion)) {
9902     my @order_cancellation_reason = $dbh->selectrow_array("SELECT count(*) FROM authorised_values WHERE category='ORDER_CANCELLATION_REASON'");
9903     if ($order_cancellation_reason[0] == 0) {
9904         $dbh->do(q{
9905             INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9906              ('ORDER_CANCELLATION_REASON', 0, 'No reason provided'),
9907              ('ORDER_CANCELLATION_REASON', 1, 'Out of stock'),
9908              ('ORDER_CANCELLATION_REASON', 2, 'Restocking')
9909         });
9910
9911         my $already_existing_reasons = $dbh->selectcol_arrayref(q{
9912             SELECT DISTINCT( cancellationreason )
9913             FROM aqorders;
9914         }, { Slice => {} });
9915
9916         my $update_orders_sth = $dbh->prepare(q{
9917             UPDATE aqorders
9918             SET cancellationreason = ?
9919             WHERE cancellationreason = ?
9920         });
9921
9922         my $insert_av_sth = $dbh->prepare(q{
9923             INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9924              ('ORDER_CANCELLATION_REASON', ?, ?)
9925         });
9926         my $i = 3;
9927         for my $reason ( @$already_existing_reasons ) {
9928             next unless $reason;
9929             $insert_av_sth->execute( $i, $reason );
9930             $update_orders_sth->execute( $i, $reason );
9931             $i++;
9932         }
9933         print "Upgrade to $DBversion done (Bug 13380: Add the ORDER_CANCELLATION_REASON authorised value)\n";
9934     }
9935     else {
9936         print "Upgrade to $DBversion done (Bug 13380: ORDER_CANCELLATION_REASON authorised value already existed from earlier update!)\n";
9937     }
9938
9939     SetVersion($DBversion);
9940 }
9941
9942 $DBversion = '3.19.00.017';
9943 if ( CheckVersion($DBversion) ) {
9944     # First create the column
9945     $dbh->do("ALTER TABLE issuingrules ADD onshelfholds tinyint(1) default 0 NOT NULL");
9946     # Now update the column
9947     if (C4::Context->preference("AllowOnShelfHolds")){
9948         # Pref is on, set allow for all rules
9949         $dbh->do("UPDATE issuingrules SET onshelfholds=1");
9950     } else {
9951         # If the preference is not set, leave off
9952         $dbh->do("UPDATE issuingrules SET onshelfholds=0");
9953     }
9954     # Remove from the systempreferences table
9955     $dbh->do("DELETE FROM systempreferences WHERE variable = 'AllowOnShelfHolds'");
9956
9957     # First create the column
9958     $dbh->do("ALTER TABLE issuingrules ADD opacitemholds char(1) DEFAULT 'N' NOT NULL");
9959     # Now update the column
9960     my $opacitemholds = C4::Context->preference("OPACItemHolds") || '';
9961     if (lc ($opacitemholds) eq 'force') {
9962         $opacitemholds = 'F';
9963     }
9964     else {
9965         $opacitemholds = $opacitemholds ? 'Y' : 'N';
9966     }
9967     # Set allow for all rules
9968     $dbh->do("UPDATE issuingrules SET opacitemholds='$opacitemholds'");
9969
9970     # Remove from the systempreferences table
9971     $dbh->do("DELETE FROM systempreferences WHERE variable = 'OPACItemHolds'");
9972
9973     print "Upgrade to $DBversion done (Bug 5786: Move AllowOnShelfHolds to circulation matrix; Move OPACItemHolds system preference to circulation matrix)\n";
9974     SetVersion ($DBversion);
9975 }
9976
9977
9978 $DBversion = "3.19.00.018";
9979 if ( CheckVersion($DBversion) ) {
9980     $dbh->do(q|
9981         UPDATE systempreferences set variable="OpacAdditionalStylesheet" WHERE variable="opaccolorstylesheet"
9982     |);
9983     print "Upgrade to $DBversion done (Bug 10328: Rename opaccolorstylesheet to OpacAdditionalStylesheet\n";
9984     SetVersion ($DBversion);
9985 }
9986
9987 $DBversion = "3.19.00.019";
9988 if ( CheckVersion($DBversion) ) {
9989     $dbh->do(q{
9990         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
9991         VALUES('Coce','0', 'If on, enables cover retrieval from the configured Coce server', NULL, 'YesNo')
9992     });
9993     $dbh->do(q{
9994         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
9995         VALUES('CoceHost', NULL, 'Coce server URL', NULL,'Free')
9996     });
9997     $dbh->do(q{
9998         INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
9999         VALUES('CoceProviders', NULL, 'Coce providers', 'aws,gb,ol', 'multiple')
10000     });
10001     print "Upgrade to $DBversion done (Bug 9580: Cover image from Coce, a remote image URL cache)\n";
10002     SetVersion($DBversion);
10003 }
10004
10005 $DBversion = "3.19.00.020";
10006 if ( CheckVersion($DBversion) ) {
10007     $dbh->do(q|
10008         ALTER TABLE aqorders DROP COLUMN supplierreference;
10009     |);
10010
10011     print "Upgrade to $DBversion done (Bug 11008: DROP column aqorders.supplierreference)\n";
10012     SetVersion($DBversion);
10013 }
10014
10015 $DBversion = "3.19.00.021";
10016 if ( CheckVersion($DBversion) ) {
10017     $dbh->do(q|
10018         ALTER TABLE issues DROP COLUMN issuingbranch
10019     |);
10020     $dbh->do(q|
10021         ALTER TABLE old_issues DROP COLUMN issuingbranch
10022     |);
10023     print "Upgrade to $DBversion done (Bug 2806: Remove issuingbranch columns)\n";
10024     SetVersion ($DBversion);
10025 }
10026
10027 $DBversion = '3.19.00.022';
10028 if ( CheckVersion($DBversion) ) {
10029     $dbh->do(q{
10030         ALTER TABLE suggestions DROP COLUMN mailoverseeing;
10031     });
10032     print "Upgrade to $DBversion done (Bug 13006: Drop column suggestion.mailoverseeing)\n";
10033     SetVersion($DBversion);
10034 }
10035
10036 $DBversion = "3.19.00.023";
10037 if ( CheckVersion($DBversion) ) {
10038     $dbh->do(q|
10039         DELETE FROM systempreferences where variable = 'AddPatronLists'
10040     |);
10041     print "Upgrade to $DBversion done (Bug 13497: Remove the AddPatronLists system preferences)\n";
10042     SetVersion ($DBversion);
10043 }
10044
10045 $DBversion = "3.19.00.024";
10046 if ( CheckVersion($DBversion) ) {
10047     $dbh->do(qq|DROP table patroncards;|);
10048     print "Upgrade to $DBversion done (Bug 13539: Remove table patroncards from database as it's no longer in use)\n";
10049     SetVersion ($DBversion);
10050 }
10051
10052 $DBversion = "3.19.00.025";
10053 if ( CheckVersion($DBversion) ) {
10054     $dbh->do(q|
10055         INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
10056         ('SearchWithISBNVariations','0',NULL,'If enabled, search on all variations of the ISBN','YesNo')
10057     |);
10058     print "Upgrade to $DBversion done (Bug 13528: Add the SearchWithISBNVariations syspref)\n";
10059     SetVersion ($DBversion);
10060 }
10061
10062 $DBversion = "3.19.00.026";
10063 if( CheckVersion($DBversion) ) {
10064     if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
10065     $dbh->do(q{
10066         INSERT IGNORE INTO auth_tag_structure (authtypecode, tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value) VALUES
10067         ('', '388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL);
10068     });
10069
10070     $dbh->do(q{
10071         INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10072         mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10073         ('', '388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10074         ('', '388', '2', 'Source of term', 'Source of term', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10075         ('', '388', '3', 'Materials specified', 'Materials specified', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10076         ('', '388', '6', 'Linkage', 'Linkage', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10077         ('', '388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10078         ('', '388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', '');
10079     });
10080
10081     $dbh->do(q{
10082         UPDATE IGNORE auth_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND tagfield IN
10083         ('100','110','111','130','400','410','411','430','500','510','511','530','700','710','730');
10084     });
10085
10086     $dbh->do(q{
10087         INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10088         mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10089         ('', '150', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10090         ('', '151', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10091         ('', '450', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10092         ('', '451', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10093         ('', '550', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10094         ('', '551', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10095         ('', '750', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10096         ('', '751', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10097         ('', '748', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10098         ('', '755', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10099         ('', '780', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10100         ('', '781', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10101         ('', '782', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10102         ('', '785', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10103         ('', '710', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10104         ('', '730', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10105         ('', '748', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10106         ('', '750', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10107         ('', '751', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10108         ('', '755', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10109         ('', '762', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10110         ('', '780', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10111         ('', '781', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10112         ('', '782', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10113         ('', '785', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10114         ('', '788', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', '');
10115     });
10116
10117     $dbh->do(q{
10118         UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship information', libopac = 'Relationship information'
10119         WHERE tagsubfield = 'i' AND tagfield IN ('700','710','730','750','751','762');
10120     });
10121
10122     $dbh->do(q{
10123         UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship code', libopac = 'Relationship code'
10124         WHERE tagsubfield = '4' AND tagfield IN ('700','710');
10125     });
10126
10127     $dbh->do(q{
10128         INSERT IGNORE INTO marc_tag_structure (tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value, frameworkcode) VALUES
10129         ('370', 'ASSOCIATED PLACE', 'ASSOCIATED PLACE', 1, 0, NULL, ''),
10130         ('388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL, '');
10131     });
10132
10133     $dbh->do(q{
10134         INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
10135         kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
10136         ('370', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10137         ('370', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10138         ('370', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10139         ('370', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10140         ('370', 'c', 'Associated country', 'Associated country', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10141         ('370', 'f', 'Other associated place', 'Other associated place', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10142         ('370', 'g', 'Place of origin of work', 'Place of origin of work', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10143         ('370', 's', 'Start period', 'Start period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10144         ('370', 't', 'End period', 'End period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10145         ('370', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10146         ('370', 'v', 'Source of information', 'Source of information', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10147         ('377', 'l', 'Language term', 'Language term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10148         ('382', 's', 'Total number of performers', 'Total number of performers', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10149         ('388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10150         ('388', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10151         ('388', '3', ' Materials specified', ' Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10152         ('388', '6', ' Linkage', ' Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10153         ('388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10154         ('388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10155         ('650', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL),
10156         ('651', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL);
10157     });
10158
10159     $dbh->do(q{
10160         UPDATE IGNORE marc_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND
10161         tagfield IN ('100','110','111','130','240','243','246','247','600','610','611','630','700','710','711','730','800','810','811','830');
10162     });
10163     }
10164
10165     print "Upgrade to $DBversion done (Bug 13322: Update MARC21 frameworks to Update No. 19 - October 2014)\n";
10166     SetVersion($DBversion);
10167 }
10168
10169 $DBversion = '3.19.00.027';
10170 if ( CheckVersion($DBversion) ) {
10171     $dbh->do("ALTER TABLE items ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10172     $dbh->do("ALTER TABLE deleteditems ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10173     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";
10174     SetVersion($DBversion);
10175 }
10176
10177 $DBversion = "3.19.00.028";
10178 if( CheckVersion($DBversion) ) {
10179     eval {
10180         local $dbh->{PrintError} = 0;
10181         $dbh->do(q{
10182             ALTER TABLE issues DROP PRIMARY KEY
10183         });
10184     };
10185
10186     $dbh->do(q{
10187         ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10188     });
10189
10190     $dbh->do(q{
10191         ALTER TABLE old_issues CHANGE issue_id issue_id INT( 11 ) NOT NULL
10192     });
10193
10194     $dbh->do(q{
10195         ALTER TABLE issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10196     });
10197
10198     $dbh->do(q{
10199         UPDATE issues SET issue_id = issue_id + ( SELECT COUNT(*) FROM old_issues ) ORDER BY issue_id DESC
10200     });
10201
10202     my $max_issue_id = $schema->resultset('Issue')->get_column('issue_id')->max();
10203     if ($max_issue_id) {
10204         $max_issue_id++;
10205         $dbh->do(qq{
10206             ALTER TABLE issues AUTO_INCREMENT = $max_issue_id
10207         });
10208     }
10209
10210     print "Upgrade to $DBversion done (Bug 13790: Add unique id issue_id to issues and oldissues tables)\n";
10211     SetVersion($DBversion);
10212 }
10213
10214 $DBversion = "3.19.00.029";
10215 if ( CheckVersion($DBversion) ) {
10216     $dbh->do(q|
10217          ALTER TABLE sessions CHANGE COLUMN a_session a_session MEDIUMTEXT
10218     |);
10219     print "Upgrade to $DBversion done (Bug 13606: Upgrade sessions.a_session to MEDIUMTEXT)\n";
10220     SetVersion($DBversion);
10221 }
10222
10223 $DBversion = "3.19.00.030";
10224 if ( CheckVersion($DBversion) ) {
10225     $dbh->do(q|
10226 UPDATE language_subtag_registry SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10227     |);
10228     $dbh->do(q|
10229 UPDATE language_rfc4646_to_iso639 SET rfc4646_subtag = 'kn' WHERE rfc4646_subtag = 'ka' AND iso639_2_code = 'kan';
10230     |);
10231     $dbh->do(q|
10232 UPDATE language_descriptions SET subtag = 'kn', lang = 'kn' WHERE subtag = 'ka' AND lang = 'ka' AND description = 'ಕನ್ನಡ';
10233     |);
10234     $dbh->do(q|
10235 UPDATE language_descriptions SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10236     |);
10237     $dbh->do(q|
10238 INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Georgian','2015-04-20');
10239     |);
10240     $dbh->do(q|
10241 DELETE FROM language_subtag_registry
10242        WHERE NOT id IN
10243          (SELECT id FROM
10244            (SELECT MIN(id) as id,subtag,type,description,added
10245             FROM language_subtag_registry
10246             GROUP BY subtag,type,description,added)
10247            AS subtable);
10248     |);
10249     $dbh->do(q|
10250 INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka', 'geo');
10251     |);
10252     $dbh->do(q|
10253 DELETE FROM language_rfc4646_to_iso639
10254        WHERE NOT id IN
10255          (SELECT id FROM
10256            (SELECT MIN(id) as id,rfc4646_subtag,iso639_2_code
10257             FROM language_rfc4646_to_iso639
10258             GROUP BY rfc4646_subtag,iso639_2_code)
10259            AS subtable);
10260     |);
10261     $dbh->do(q|
10262 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ქართული');
10263     |);
10264     $dbh->do(q|
10265 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Georgian');
10266     |);
10267     $dbh->do(q|
10268 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'fr', 'Géorgien');
10269     |);
10270     $dbh->do(q|
10271 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'de', 'Georgisch');
10272     |);
10273     $dbh->do(q|
10274 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'es', 'Georgiano');
10275     |);
10276     $dbh->do(q|
10277 DELETE FROM language_descriptions
10278        WHERE NOT id IN
10279          (SELECT id FROM
10280            (SELECT MIN(id) as id,subtag,type,lang,description
10281             FROM language_descriptions GROUP BY subtag,type,lang,description)
10282            AS subtable);
10283     |);
10284     print "Upgrade to $DBversion done (Bug 14030: Add Georgian language and fix Kannada language code)\n";
10285     SetVersion($DBversion);
10286 }
10287
10288 $DBversion = "3.19.00.031";
10289 if ( CheckVersion($DBversion) ) {
10290     $dbh->do(q{
10291         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10292         VALUES('IdRef','0','Disable/enable the IdRef webservice from the OPAC detail page.',NULL,'YesNo')
10293     });
10294     print "Upgrade to $DBversion done (Bug 8992: Add system preference IdRef))\n";
10295     SetVersion($DBversion);
10296 }
10297
10298 $DBversion = "3.19.00.032";
10299 if ( CheckVersion($DBversion) ) {
10300     $dbh->do(q|
10301         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10302         VALUES('AddressFormat','us','Choose format to display postal addresses','','Choice')
10303     |);
10304     print "Upgrade to $DBversion done (Bug 4041: Address Format as a I18N/L10N system preference\n";
10305     SetVersion ($DBversion);
10306 }
10307
10308 $DBversion = "3.19.00.033";
10309 if ( CheckVersion($DBversion) ) {
10310     $dbh->do(q|
10311         ALTER TABLE auth_header
10312         CHANGE COLUMN datemodified modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP
10313     |);
10314     $dbh->do(q|
10315         ALTER TABLE auth_header
10316         CHANGE COLUMN modification_time modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP
10317     |);
10318     print "Upgrade to $DBversion done (Bug 11165: Update auth_header.datemodified when updated)\n";
10319     SetVersion ($DBversion);
10320 }
10321
10322 $DBversion = "3.19.00.034";
10323 if ( CheckVersion($DBversion) ) {
10324     $dbh->do(q|
10325         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10326         VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free')
10327     |);
10328     print "Upgrade to $DBversion done (Bug 13984: CardnumberLength syspref missing on some setups\n";
10329     SetVersion ($DBversion);
10330 }
10331
10332 $DBversion = "3.19.00.035";
10333 if ( CheckVersion($DBversion) ) {
10334     $dbh->do(q|
10335         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('useDischarge','','Allows librarians to discharge borrowers and borrowers to request a discharge','','YesNo')
10336     |);
10337     $dbh->do(q|
10338         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.')
10339     |);
10340
10341     $dbh->do(q|
10342         ALTER TABLE borrower_debarments CHANGE type type ENUM('SUSPENSION','OVERDUES','MANUAL','DISCHARGE') NOT NULL DEFAULT 'MANUAL'
10343     |);
10344
10345     $dbh->do(q|
10346         CREATE TABLE discharges (
10347           borrower int(11) DEFAULT NULL,
10348           needed timestamp NULL DEFAULT NULL,
10349           validated timestamp NULL DEFAULT NULL,
10350           KEY borrower_discharges_ibfk1 (borrower),
10351           CONSTRAINT borrower_discharges_ibfk1 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
10352         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
10353     |);
10354
10355     print "Upgrade to $DBversion done (Bug 8007: Add System Preferences useDischarge, the discharge notice and the new table discharges)\n";
10356     SetVersion($DBversion);
10357 }
10358
10359 $DBversion = "3.19.00.036";
10360 if ( CheckVersion($DBversion) ) {
10361     $dbh->do(q|
10362         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10363         VALUES ('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo')
10364     |);
10365     print "Upgrade to $DBversion done (Bug 13889: Add cron jobs information to system log)\n";
10366     SetVersion ($DBversion);
10367 }
10368
10369 $DBversion = "3.19.00.037";
10370 if ( CheckVersion($DBversion) ) {
10371     $dbh->do(q|
10372         ALTER TABLE marc_subfield_structure
10373         MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT ''
10374     |);
10375     print "Upgrade to $DBversion done (Bug 13810: Change collate for tagsubfield (utf8_bin))\n";
10376     SetVersion ($DBversion);
10377 }
10378
10379 $DBversion = "3.19.00.038";
10380 if ( CheckVersion($DBversion) ) {
10381     $dbh->do(q|
10382         ALTER TABLE virtualshelves
10383         ADD COLUMN created_on TIMESTAMP NOT NULL AFTER lastmodified
10384     |);
10385     # Set created_on = lastmodified
10386     # I would say it's better than 0000-00-00
10387     # Set modified to the existing value (do not get the current ts!)
10388     $dbh->do(q|
10389         UPDATE virtualshelves
10390         SET created_on = lastmodified, lastmodified = lastmodified
10391     |);
10392     print "Upgrade to $DBversion done (Bug 13421: Add DB field virtualshelves.created_on)\n";
10393     SetVersion ($DBversion);
10394 }
10395
10396 $DBversion = "3.19.00.039";
10397 if ( CheckVersion($DBversion) ) {
10398     print "Upgrade to $DBversion done (Koha 3.20 beta)\n";
10399     SetVersion ($DBversion);
10400 }
10401
10402 $DBversion = "3.19.00.040";
10403 if ( CheckVersion($DBversion) ) {
10404     $dbh->do(q|
10405         ALTER TABLE aqorders DROP COLUMN totalamount
10406     |);
10407     print "Upgrade to $DBversion done (Bug 11006: Drop column aqorders.totalamount)\n";
10408     SetVersion ($DBversion);
10409 }
10410
10411 $DBversion = "3.19.00.041";
10412 if ( CheckVersion($DBversion) ) {
10413     $dbh->do(q|
10414         ALTER IGNORE TABLE suggestions ADD KEY status (STATUS)
10415     |);
10416     $dbh->do(q|
10417         ALTER IGNORE TABLE suggestions ADD KEY biblionumber (biblionumber)
10418     |);
10419     $dbh->do(q|
10420         ALTER IGNORE TABLE suggestions ADD KEY branchcode (branchcode)
10421     |);
10422     print "Upgrade to $DBversion done (Bug 14132: suggestions table is missing indexes)\n";
10423     SetVersion ($DBversion);
10424 }
10425
10426 $DBversion = "3.19.00.042";
10427 if ( CheckVersion($DBversion) ) {
10428     $dbh->do(q{
10429         DELETE ass.*
10430         FROM auth_subfield_structure AS ass
10431         LEFT JOIN auth_types USING(authtypecode)
10432         WHERE auth_types.authtypecode IS NULL
10433     });
10434
10435     $dbh->do(q{
10436         ALTER IGNORE TABLE auth_subfield_structure
10437         ADD CONSTRAINT auth_subfield_structure_ibfk_1
10438         FOREIGN KEY (authtypecode) REFERENCES auth_types(authtypecode)
10439         ON DELETE CASCADE ON UPDATE CASCADE
10440     });
10441
10442     print "Upgrade to $DBversion done (Bug 8480: Add foreign key on auth_subfield_structure.authtypecode)\n";
10443     SetVersion($DBversion);
10444 }
10445
10446 $DBversion = "3.19.00.043";
10447 if ( CheckVersion($DBversion) ) {
10448     $dbh->do(q|
10449         INSERT IGNORE INTO authorised_values (category, authorised_value, lib) VALUES
10450         ('REPORT_GROUP', 'SER', 'Serials')
10451     |);
10452
10453     print "Upgrade to $DBversion done (Bug 5338: Add Serial to the report groups if does not exist)\n";
10454     SetVersion ($DBversion);
10455 }
10456
10457 $DBversion = "3.20.00.000";
10458 if ( CheckVersion($DBversion) ) {
10459     print "Upgrade to $DBversion done (Koha 3.20)\n";
10460     SetVersion ($DBversion);
10461 }
10462
10463 $DBversion = "3.21.00.000";
10464 if ( CheckVersion($DBversion) ) {
10465     print "Upgrade to $DBversion done (El tiempo vuela, un nuevo ciclo comienza.)\n";
10466     SetVersion ($DBversion);
10467 }
10468
10469 $DBversion = "3.21.00.001";
10470 if ( CheckVersion($DBversion) ) {
10471     $dbh->do(q|
10472         UPDATE systempreferences SET variable='IntranetUserJS' where variable='intranetuserjs'
10473     |);
10474     print "Upgrade to $DBversion done (Bug 12160: Rename intranetuserjs to IntranetUserJS)\n";
10475     SetVersion ($DBversion);
10476 }
10477
10478 $DBversion = "3.21.00.002";
10479 if ( CheckVersion($DBversion) ) {
10480     $dbh->do(q|
10481         UPDATE systempreferences SET variable='OPACUserJS' where variable='opacuserjs'
10482     |);
10483     print "Upgrade to $DBversion done (Bug 12160: Rename opacuserjs to OPACUserJS)\n";
10484     SetVersion ($DBversion);
10485 }
10486
10487 $DBversion = "3.21.00.003";
10488 if ( CheckVersion($DBversion) ) {
10489     $dbh->do(q|
10490         INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added)
10491         VALUES ( 'IN', 'region', 'India','2015-05-28');
10492     |);
10493     $dbh->do(q|
10494         INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
10495         VALUES ( 'IN', 'region', 'en', 'India');
10496     |);
10497     $dbh->do(q|
10498         INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
10499         VALUES ( 'IN', 'region', 'bn', 'ভারত');
10500     |);
10501     print "Upgrade to $DBversion done (Bug 14285: Add new region India)\n";
10502     SetVersion ($DBversion);
10503 }
10504
10505 $DBversion = '3.21.00.004';
10506 if ( CheckVersion($DBversion) ) {
10507     my $OPACBaseURL = C4::Context->preference('OPACBaseURL');
10508     if (defined($OPACBaseURL) && substr($OPACBaseURL,0,4) ne "http") {
10509         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.};
10510         $OPACBaseURL = 'http://' . $OPACBaseURL;
10511         my $sth_OPACBaseURL = $dbh->prepare( q{
10512             UPDATE systempreferences SET value=?,explanation=?
10513             WHERE variable='OPACBaseURL'; } );
10514         $sth_OPACBaseURL->execute($OPACBaseURL,$explanation);
10515     }
10516     if (defined($OPACBaseURL)) {
10517         $dbh->do( q{ UPDATE letter
10518                      SET content=replace(content,
10519                                          'http://<<OPACBaseURL>>',
10520                                          '<<OPACBaseURL>>')
10521                      WHERE content LIKE "%http://<<OPACBaseURL>>%"; } );
10522     }
10523
10524     print "Upgrade to $DBversion done (Bug 5010: Fix OPACBaseURL to include protocol)\n";
10525     SetVersion($DBversion);
10526 }
10527
10528 $DBversion = "3.21.00.005";
10529 if ( CheckVersion($DBversion) ) {
10530     $dbh->do(q|
10531         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10532         VALUES ('ReportsLog','0',NULL,'If ON, log information about reports.','YesNo')
10533     |);
10534     print "Upgrade to $DBversion done (Bug 14024: Add reports to action logs)\n";
10535     SetVersion ($DBversion);
10536 }
10537
10538 $DBversion = "3.21.00.006";
10539 if ( CheckVersion($DBversion) ) {
10540     # Remove the borrow permission flag (bit 7)
10541     $dbh->do(q|
10542         UPDATE borrowers
10543         SET flags = flags - ( flags & (1<<7) )
10544         WHERE flags IS NOT NULL
10545             AND flags > 0
10546     |);
10547     $dbh->do(q|
10548         DELETE FROM userflags WHERE bit=7;
10549     |);
10550     print "Upgrade to $DBversion done (Bug 7976: Remove the 'borrow' permission)\n";
10551     SetVersion($DBversion);
10552 }
10553
10554 $DBversion = "3.21.00.007";
10555 if ( CheckVersion($DBversion) ) {
10556     $dbh->do(q|
10557         ALTER IGNORE TABLE aqbasket
10558             ADD KEY authorisedby (authorisedby)
10559     |);
10560     $dbh->do(q|
10561         ALTER IGNORE TABLE aqbooksellers
10562             ADD KEY name (name(255))
10563     |);
10564     $dbh->do(q|
10565         ALTER IGNORE TABLE aqbudgets
10566             ADD KEY budget_parent_id (budget_parent_id),
10567             ADD KEY budget_code (budget_code),
10568             ADD KEY budget_branchcode (budget_branchcode),
10569             ADD KEY budget_period_id (budget_period_id),
10570             ADD KEY budget_owner_id (budget_owner_id)
10571     |);
10572     $dbh->do(q|
10573         ALTER IGNORE TABLE aqbudgets_planning
10574             ADD KEY budget_period_id (budget_period_id)
10575     |);
10576     $dbh->do(q|
10577         ALTER IGNORE TABLE aqorders
10578             ADD KEY parent_ordernumber (parent_ordernumber),
10579             ADD KEY orderstatus (orderstatus)
10580     |);
10581     print "Upgrade to $DBversion done (Bug 14053: Acquisition db tables are missing indexes)\n";
10582     SetVersion ($DBversion);
10583 }
10584
10585 $DBversion = "3.21.00.008";
10586 if ( CheckVersion($DBversion) ) {
10587     $dbh->do(q{
10588         DELETE IGNORE FROM systempreferences
10589         WHERE variable = 'HomeOrHoldingBranchReturn';
10590     });
10591     print "Upgrade to $DBversion done (Bug 7981: Transfer message on return. HomeOrHoldingBranchReturn syspref removed in favour of circulation rules.)\n";
10592     SetVersion($DBversion);
10593 }
10594
10595 $DBversion = "3.21.00.009";
10596 if ( CheckVersion($DBversion) ) {
10597     $dbh->do(q|
10598         UPDATE aqorders SET orderstatus='cancelled'
10599         WHERE (datecancellationprinted IS NOT NULL OR
10600                datecancellationprinted<>'0000-00-00');
10601     |);
10602     print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n";
10603     SetVersion($DBversion);
10604 }
10605
10606 $DBversion = "3.21.00.010";
10607 if ( CheckVersion($DBversion) ) {
10608     $dbh->do(q|
10609         ALTER TABLE message_queue
10610             DROP message_id
10611     |);
10612     $dbh->do(q|
10613         ALTER TABLE message_queue
10614             ADD message_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10615     |);
10616     print "Upgrade to $DBversion done (Bug 7793: redefine the field message_id as PRIMARY KEY of message_queue)\n";
10617     SetVersion ($DBversion);
10618 }
10619
10620 $DBversion = "3.21.00.011";
10621 if ( CheckVersion($DBversion) ) {
10622     $dbh->do(q{
10623         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10624         VALUES ('OpacLangSelectorMode','footer','top|both|footer','Select the location to display the language selector','Choice')
10625     });
10626     print "Upgrade to $DBversion done (Bug 14252: Make the OPAC language switcher available in the masthead navbar, footer, or both)\n";
10627     SetVersion ($DBversion);
10628 }
10629
10630 $DBversion = "3.21.00.012";
10631 if ( CheckVersion($DBversion) ) {
10632     $dbh->do(q|
10633         INSERT INTO letter (module, code, name, title, content, message_transport_type)
10634         VALUES
10635         ('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')
10636     |);
10637     print "Upgrade to $DBversion done (Bug 13014: Add the TO_PROCESS letter code)\n";
10638     SetVersion($DBversion);
10639 }
10640
10641 $DBversion = "3.21.00.013";
10642 if ( CheckVersion($DBversion) ) {
10643     my $msg;
10644     if ( C4::Context->preference('OPACPrivacy') ) {
10645         if ( my $anonymous_patron = C4::Context->preference('AnonymousPatron') ) {
10646             my $anonymous_patron_exists = $dbh->selectcol_arrayref(q|
10647                 SELECT COUNT(*)
10648                 FROM borrowers
10649                 WHERE borrowernumber=?
10650             |, {}, $anonymous_patron);
10651             unless ( $anonymous_patron_exists->[0] ) {
10652                 $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not linked to an existing patron";
10653             }
10654         }
10655         else {
10656             $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not";
10657         }
10658     }
10659     else {
10660         my $patrons_have_required_anonymity = $dbh->selectcol_arrayref(q|
10661             SELECT COUNT(*)
10662             FROM borrowers
10663             WHERE privacy = 2
10664         |, {} );
10665         if ( $patrons_have_required_anonymity->[0] ) {
10666             $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.";
10667         }
10668     }
10669
10670     $msg //= "Privacy is correctly set";
10671     print "Upgrade to $DBversion done (Bug 9942: $msg)\n";
10672     SetVersion ($DBversion);
10673 }
10674
10675 $DBversion = "3.21.00.014";
10676 if ( CheckVersion($DBversion) ) {
10677     $dbh->do(q{
10678         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10679         VALUES ('OAI-PMH:DeletedRecord','persistent','Koha\'s deletedbiblio table will never be deleted (persistent) or might be deleted (transient)','transient|persistent','Choice')
10680     });
10681     $dbh->do(q|
10682         ALTER TABLE oai_sets_biblios DROP FOREIGN KEY oai_sets_biblios_ibfk_1
10683     |);
10684     print "Upgrade to $DBversion done (Bug 3206: OAI repository deleted record support)\n";
10685     SetVersion ($DBversion);
10686 }
10687
10688 $DBversion = "3.21.00.015";
10689 if ( CheckVersion($DBversion) ) {
10690     $dbh->do(q{
10691         UPDATE systempreferences SET value='0' WHERE variable='CalendarFirstDayOfWeek' AND value='Sunday';
10692     });
10693     $dbh->do(q{
10694         UPDATE systempreferences SET value='1' WHERE variable='CalendarFirstDayOfWeek' AND value='Monday';
10695     });
10696     $dbh->do(q{
10697         UPDATE systempreferences SET options='0|1|2|3|4|5|6' WHERE variable='CalendarFirstDayOfWeek';
10698     });
10699
10700     print "Upgrade to $DBversion done (Bug 12137: Extend functionality of CalendarFirstDayOfWeek to be any day)\n";
10701     SetVersion($DBversion);
10702 }
10703
10704 $DBversion = "3.21.00.016";
10705 if ( CheckVersion($DBversion) ) {
10706     my $rs = $schema->resultset('Systempreference');
10707     $rs->find_or_create(
10708         {
10709             variable => 'DumpTemplateVarsIntranet',
10710             value    => 0,
10711             explanation => 'If enabled, dump all Template Toolkit variable to a comment in the html source for the staff intranet.',
10712             type => 'YesNo',
10713         }
10714     );
10715     $rs->find_or_create(
10716         {
10717             variable => 'DumpTemplateVarsOpac',
10718             value    => 0,
10719             explanation => 'If enabled, dump all Template Toolkit variable to a comment in the html source for the opac.',
10720             type => 'YesNo',
10721         }
10722     );
10723     print "Upgrade to $DBversion done (Bug 13948: Add ability to dump template toolkit variables to html comment)\n";
10724     SetVersion($DBversion);
10725 }
10726
10727 $DBversion = "3.21.00.017";
10728 if ( CheckVersion($DBversion) ) {
10729     $dbh->do("
10730         CREATE TABLE uploaded_files (
10731             id int(11) NOT NULL AUTO_INCREMENT,
10732             hashvalue CHAR(40) NOT NULL,
10733             filename TEXT NOT NULL,
10734             dir TEXT NOT NULL,
10735             filesize int(11),
10736             dtcreated timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
10737             categorycode tinytext,
10738             owner int(11),
10739             PRIMARY KEY (id)
10740         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10741     ");
10742
10743     print "Upgrade to $DBversion done (Bug 6874: New cataloging plugin upload.pl)\n";
10744     print "This plugin comes with a new config variable (upload_path) and a new table (uploaded_files)\n";
10745     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";
10746     SetVersion($DBversion);
10747 }
10748
10749 $DBversion = "3.21.00.018";
10750 if ( CheckVersion($DBversion) ) {
10751     $dbh->do(q{
10752         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10753         VALUES
10754             ('RestrictedPageLocalIPs','',NULL,'Beginning of IP addresses considered as local (comma separated ex: \"127.0.0,127.0.2\")','Free'),
10755             ('RestrictedPageContent','',NULL,'HTML content of the restricted page','TextArea'),
10756             ('RestrictedPageTitle','',NULL,'Title of the restricted page (breadcrumb and header)','Free')
10757     });
10758     print "Upgrade to $DBversion done (Bug 13485: Add a page to display links to restricted sites)\n";
10759     SetVersion ($DBversion);
10760 }
10761
10762 $DBversion = "3.21.00.019";
10763 if ( CheckVersion($DBversion) ) {
10764     $dbh->do(q{
10765         ALTER TABLE reserves DROP constrainttype
10766     });
10767     $dbh->do(q{
10768         ALTER TABLE old_reserves DROP constrainttype
10769     });
10770     $dbh->do(q{
10771         DROP TABLE IF EXISTS reserveconstraints
10772     });
10773     print "Upgrade to $DBversion done (Bug 9809: Get rid of reserveconstraints)\n";
10774     SetVersion ($DBversion);
10775 }
10776
10777 $DBversion = "3.21.00.020";
10778 if ( CheckVersion($DBversion) ) {
10779     $dbh->do(q{
10780         INSERT IGNORE INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`)
10781         VALUES ('FeeOnChangePatronCategory','1','','If set, when a patron changes to a category with enrolment fee, a fee is charged','YesNo')
10782     });
10783     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";
10784     SetVersion($DBversion);
10785 }
10786
10787 $DBversion = "3.21.00.021";
10788 if ( CheckVersion($DBversion) ) {
10789     $dbh->do(q{
10790         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10791         VALUES ('UseWYSIWYGinSystemPreferences','0','','Show WYSIWYG editor when editing certain HTML system preferences.','YesNo')
10792     });
10793     print "Upgrade to $DBversion done (Bug 11584: Add wysiwyg editor to system preferences dealing with HTML)\n";
10794     SetVersion($DBversion);
10795 }
10796
10797 $DBversion = "3.21.00.022";
10798 if ( CheckVersion($DBversion) ) {
10799     $dbh->do(q{
10800         DELETE cr.*
10801         FROM course_reserves AS cr
10802         LEFT JOIN course_items USING(ci_id)
10803         WHERE course_items.ci_id IS NULL
10804     });
10805     $dbh->do(q{
10806         ALTER IGNORE TABLE course_reserves
10807             add CONSTRAINT course_reserves_ibfk_2
10808                 FOREIGN KEY (ci_id) REFERENCES course_items (ci_id)
10809                 ON DELETE CASCADE ON UPDATE CASCADE
10810     });
10811     print "Upgrade to $DBversion done (Bug 14205: Deleting an Item/Record does not remove link to course reserve)\n";
10812     SetVersion($DBversion);
10813 }
10814
10815 $DBversion = "3.21.00.023";
10816 if ( CheckVersion($DBversion) ) {
10817     $dbh->do(q{
10818         UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00'
10819     });
10820     $dbh->do(q{
10821         UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00'
10822     });
10823     $dbh->do(q{
10824         UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00'
10825     });
10826     $dbh->do(q{
10827         UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00'
10828     });
10829     print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n";
10830     SetVersion($DBversion);
10831 }
10832
10833 $DBversion = "3.21.00.024";
10834 if ( CheckVersion($DBversion) ) {
10835     $dbh->do(q{
10836         ALTER TABLE marc_modification_template_actions
10837         MODIFY COLUMN action
10838             ENUM('delete_field','update_field','move_field','copy_field','copy_and_replace_field')
10839             NOT NULL
10840     });
10841     print "Upgrade to $DBversion done (Bug 14098: Regression in Marc Modification Templates)\n";
10842     SetVersion($DBversion);
10843 }
10844
10845 $DBversion = "3.21.00.025";
10846 if ( CheckVersion($DBversion) ) {
10847     $dbh->do(q{
10848         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10849         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')
10850     });
10851     $dbh->do(q{
10852         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10853         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')
10854     });
10855     print "Upgrade to $DBversion done (Bug 12357: Enhancements to RIS and BibTeX exporting)\n";
10856     SetVersion($DBversion);
10857 }
10858
10859 $DBversion = "3.21.00.026";
10860 if ( CheckVersion($DBversion) ) {
10861     $dbh->do(q{
10862         UPDATE matchpoints
10863         SET search_index='issn'
10864         WHERE matcher_id IN (SELECT matcher_id FROM marc_matchers WHERE code = 'ISSN')
10865     });
10866     print "Upgrade to $DBversion done (Bug 14472: Wrong ISSN search index in record matching rules)\n";
10867     SetVersion($DBversion);
10868 }
10869
10870 $DBversion = "3.21.00.027";
10871 if ( CheckVersion($DBversion) ) {
10872     $dbh->do(q|
10873         INSERT INTO permissions (module_bit, code, description)
10874         VALUES (1, 'self_checkout', 'Perform self checkout at the OPAC. It should be used for the patron matching the AutoSelfCheckID')
10875     |);
10876
10877     my $AutoSelfCheckID = C4::Context->preference('AutoSelfCheckID');
10878
10879     $dbh->do(q|
10880         UPDATE borrowers
10881         SET flags=0
10882         WHERE userid=?
10883     |, undef, $AutoSelfCheckID);
10884
10885     $dbh->do(q|
10886         DELETE FROM user_permissions
10887         WHERE borrowernumber=(SELECT borrowernumber FROM borrowers WHERE userid=?)
10888     |, undef, $AutoSelfCheckID);
10889
10890     $dbh->do(q|
10891         INSERT INTO user_permissions(borrowernumber, module_bit, code)
10892         SELECT borrowernumber, 1, 'self_checkout' FROM borrowers WHERE userid=?
10893     |, undef, $AutoSelfCheckID);
10894     print "Upgrade to $DBversion done (Bug 14298: AutoSelfCheckID user should only be able to access SCO)\n";
10895     SetVersion($DBversion);
10896 }
10897
10898 $DBversion = "3.21.00.028";
10899 if ( CheckVersion($DBversion) ) {
10900     $dbh->do(q{
10901         ALTER TABLE uploaded_files
10902             ADD COLUMN public tinyint,
10903             ADD COLUMN permanent tinyint
10904     });
10905     $dbh->do(q{
10906         UPDATE uploaded_files SET public=1, permanent=1
10907     });
10908     $dbh->do(q{
10909         ALTER TABLE uploaded_files
10910             CHANGE COLUMN categorycode uploadcategorycode tinytext
10911     });
10912     print "Upgrade to $DBversion done (Bug 14321: Merge UploadedFile and UploadedFiles into Koha::Upload)\n";
10913     SetVersion($DBversion);
10914 }
10915
10916 $DBversion = "3.21.00.029";
10917 if ( CheckVersion($DBversion) ) {
10918     $dbh->do(q{
10919         ALTER IGNORE TABLE discharges
10920             ADD COLUMN discharge_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10921     });
10922     print "Upgrade to $DBversion done (Bug 14368: Add discharges history)\n";
10923     SetVersion($DBversion);
10924 }
10925
10926 $DBversion = "3.21.00.030";
10927 if ( CheckVersion($DBversion) ) {
10928     $dbh->do(q{
10929         UPDATE marc_subfield_structure
10930         SET value_builder='marc21_leader.pl'
10931         WHERE value_builder='marc21_leader_book.pl'
10932     });
10933     $dbh->do(q{
10934         UPDATE marc_subfield_structure
10935         SET value_builder='marc21_leader.pl'
10936         WHERE value_builder='marc21_leader_computerfile.pl'
10937     });
10938     $dbh->do(q{
10939         UPDATE marc_subfield_structure
10940         SET value_builder='marc21_leader.pl'
10941         WHERE value_builder='marc21_leader_video.pl'
10942     });
10943     print "Upgrade to $DBversion done (Bug 14201: Remove unused code or template from some MARC21 leader plugins )\n";
10944     SetVersion($DBversion);
10945 }
10946
10947 $DBversion = "3.21.00.031";
10948 if ( CheckVersion($DBversion) ) {
10949     $dbh->do(q{
10950         INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10951         VALUES
10952             ('SMSSendPassword', '', '', 'Password used to send SMS messages', 'free'),
10953             ('SMSSendUsername', '', '', 'Username/Login used to send SMS messages', 'free')
10954     });
10955     print "Upgrade to $DBversion done (Bug 14820: SMSSendUsername and SMSSendPassword are not listed in the system preferences)\n";
10956     SetVersion($DBversion);
10957 }
10958
10959 $DBversion = "3.21.00.032";
10960 if ( CheckVersion($DBversion) ) {
10961     $dbh->do(q{
10962         CREATE TABLE additional_fields (
10963             id int(11) NOT NULL AUTO_INCREMENT,
10964             tablename varchar(255) NOT NULL DEFAULT '',
10965             name varchar(255) NOT NULL DEFAULT '',
10966             authorised_value_category varchar(16) NOT NULL DEFAULT '',
10967             marcfield varchar(16) NOT NULL DEFAULT '',
10968             searchable tinyint(1) NOT NULL DEFAULT '0',
10969             PRIMARY KEY (id),
10970             UNIQUE KEY fields_uniq (tablename,name)
10971         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10972     });
10973     $dbh->do(q{
10974         CREATE TABLE additional_field_values (
10975             id int(11) NOT NULL AUTO_INCREMENT,
10976             field_id int(11) NOT NULL,
10977             record_id int(11) NOT NULL,
10978             value varchar(255) NOT NULL DEFAULT '',
10979             PRIMARY KEY (id),
10980             UNIQUE KEY field_record (field_id,record_id),
10981             CONSTRAINT afv_fk FOREIGN KEY (field_id) REFERENCES additional_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
10982         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10983     });
10984     print "Upgrade to $DBversion done (Bug 10855: Additional fields for subscriptions)\n";
10985     SetVersion($DBversion);
10986 }
10987
10988 $DBversion = "3.21.00.033";
10989 if ( CheckVersion($DBversion) ) {
10990
10991     my $done = 0;
10992     my $count_ethnicity = $dbh->selectrow_arrayref(q|
10993         SELECT COUNT(*) FROM ethnicity
10994     |);
10995     my $count_borrower_modifications = $dbh->selectrow_arrayref(q|
10996         SELECT COUNT(*)
10997         FROM borrower_modifications
10998         WHERE ethnicity IS NOT NULL
10999             OR ethnotes IS NOT NULL
11000     |);
11001     my $count_borrowers = $dbh->selectrow_arrayref(q|
11002         SELECT COUNT(*)
11003         FROM borrowers
11004         WHERE ethnicity IS NOT NULL
11005             OR ethnotes IS NOT NULL
11006     |);
11007     # We don't care about the ethnicity of the deleted borrowers, right?
11008     if ( $count_ethnicity->[0] == 0
11009             and $count_borrower_modifications->[0] == 0
11010             and $count_borrowers->[0] == 0
11011     ) {
11012         $dbh->do(q|
11013             DROP TABLE ethnicity
11014         |);
11015         $dbh->do(q|
11016             ALTER TABLE borrower_modifications
11017             DROP COLUMN ethnicity,
11018             DROP COLUMN ethnotes
11019         |);
11020         $dbh->do(q|
11021             ALTER TABLE borrowers
11022             DROP COLUMN ethnicity,
11023             DROP COLUMN ethnotes
11024         |);
11025         $dbh->do(q|
11026             ALTER TABLE deletedborrowers
11027             DROP COLUMN ethnicity,
11028             DROP COLUMN ethnotes
11029         |);
11030         $done = 1;
11031     }
11032     if ( $done ) {
11033         print "Upgrade to $DBversion done (Bug 10020: Drop table ethnicity and columns ethnicity and ethnotes)\n";
11034     }
11035     else {
11036         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";
11037     }
11038
11039     SetVersion ($DBversion);
11040 }
11041
11042 $DBversion = "3.21.00.034";
11043 if ( CheckVersion($DBversion) ) {
11044     $dbh->do(q{
11045         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11046         VALUES('MembershipExpiryDaysNotice',NULL,'Send an account expiration notice that a patron''s card is about to expire after',NULL,'Integer')
11047     });
11048     $dbh->do(q{
11049         INSERT IGNORE INTO letter (module, code, branchcode, name, title, content, message_transport_type)
11050         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')
11051     });
11052     print "Upgrade to $DBversion done (Bug 6810: Send membership expiry reminder notices)\n";
11053     SetVersion($DBversion);
11054 }
11055
11056 $DBversion = "3.21.00.035";
11057 if ( CheckVersion($DBversion) ) {
11058     $dbh->do(q|
11059         ALTER TABLE branch_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11060     |);
11061     $dbh->do(q|
11062         UPDATE branch_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11063     |);
11064     $dbh->do(q|
11065         ALTER TABLE default_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11066     |);
11067     $dbh->do(q|
11068         UPDATE default_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11069     |);
11070     $dbh->do(q|
11071         ALTER TABLE default_branch_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11072     |);
11073     $dbh->do(q|
11074         UPDATE default_branch_circ_rules SET maxonsiteissueqty = maxissueqty;
11075     |);
11076     $dbh->do(q|
11077         ALTER TABLE default_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11078     |);
11079     $dbh->do(q|
11080         UPDATE default_circ_rules SET maxonsiteissueqty = maxissueqty;
11081     |);
11082     $dbh->do(q|
11083         ALTER TABLE issuingrules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11084     |);
11085     $dbh->do(q|
11086         UPDATE issuingrules SET maxonsiteissueqty = maxissueqty;
11087     |);
11088     $dbh->do(q|
11089         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11090         VALUES ('ConsiderOnSiteCheckoutsAsNormalCheckouts','1',NULL,'Consider on-site checkouts as normal checkouts','YesNo');
11091     |);
11092
11093     print "Upgrade to $DBversion done (Bug 14045: Add DB fields maxonsiteissueqty and pref ConsiderOnSiteCheckoutsAsNormalCheckouts)\n";
11094     SetVersion ($DBversion);
11095 }
11096
11097 $DBversion = "3.21.00.036";
11098 if ( CheckVersion($DBversion) ) {
11099    $dbh->do(q{
11100         ALTER TABLE authorised_values_branches
11101         DROP FOREIGN KEY authorised_values_branches_ibfk_1,
11102         DROP FOREIGN KEY authorised_values_branches_ibfk_2
11103     });
11104     $dbh->do(q{
11105         ALTER TABLE authorised_values_branches
11106         MODIFY av_id INT( 11 ) NOT NULL,
11107         MODIFY branchcode VARCHAR( 10 ) NOT NULL,
11108         ADD FOREIGN KEY (`av_id`) REFERENCES `authorised_values` (`id`) ON DELETE CASCADE,
11109         ADD FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE
11110    });
11111    print "Upgrade to $DBversion done (Bug 10363: There is no package for authorised values)\n";
11112    SetVersion($DBversion);
11113 }
11114
11115 $DBversion = "3.21.00.037";
11116 if ( CheckVersion($DBversion) ) {
11117    $dbh->do(q{
11118        INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11119        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')
11120    });
11121    $dbh->do(q{
11122        INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11123        VALUES ('RestrictionBlockRenewing','0','If patron is restricted, should renewal be allowed or blocked',NULL,'YesNo')
11124     });
11125    print "Upgrade to $DBversion done (Bug 8236: Prevent renewing if overdue or restriction)\n";
11126    SetVersion($DBversion);
11127 }
11128
11129 $DBversion = "3.21.00.038";
11130 if ( CheckVersion($DBversion) ) {
11131     $dbh->do(q|
11132         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11133         VALUES ('BatchCheckouts','0','','Enable or disable batch checkouts','YesNo')
11134     |);
11135     $dbh->do(q|
11136         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11137         VALUES ('BatchCheckoutsValidCategories','',NULL,'Patron categories allowed to checkout in a batch','Free')
11138     |);
11139     print "Upgrade to $DBversion done (Bug 11759: Add the batch checkout feature)\n";
11140     SetVersion($DBversion);
11141 }
11142
11143 $DBversion = "3.21.00.039";
11144 if ( CheckVersion($DBversion) ) {
11145     $dbh->do(q|
11146         ALTER TABLE creator_layouts ADD COLUMN oblique_title INT(1) NULL DEFAULT 1 AFTER guidebox
11147     |);
11148     print "Upgrade to $DBversion done (Bug 12194: Add column oblique_title to layouts)\n";
11149     SetVersion($DBversion);
11150 }
11151
11152 $DBversion = "3.21.00.040";
11153 if ( CheckVersion($DBversion) ) {
11154     $dbh->do(q{
11155         ALTER TABLE itemtypes
11156             ADD hideinopac TINYINT(1) NOT NULL DEFAULT 0
11157               AFTER sip_media_type,
11158             ADD searchcategory VARCHAR(80) DEFAULT NULL
11159               AFTER hideinopac;
11160     });
11161     print "Upgrade to $DBversion done (Bug 10937: Option to hide and group itemtypes from advanced search)\n";
11162     SetVersion($DBversion);
11163 }
11164
11165 $DBversion = "3.21.00.041";
11166 if ( CheckVersion($DBversion) ) {
11167     $dbh->do(q|
11168         ALTER TABLE issuingrules
11169             ADD chargeperiod_charge_at BOOLEAN NOT NULL DEFAULT  '0' AFTER chargeperiod
11170     |);
11171     print "Upgrade to $DBversion done (Bug 13590: Add ability to charge fines at start of charge period)\n";
11172     SetVersion($DBversion);
11173 }
11174
11175 $DBversion = "3.21.00.042";
11176 if ( CheckVersion($DBversion) ) {
11177     $dbh->do(q|
11178         ALTER TABLE items_search_fields
11179             MODIFY COLUMN authorised_values_category VARCHAR(32) DEFAULT NULL
11180     |);
11181     print "Upgrade to $DBversion done (Bug 15069: items_search_fields.authorised_values_category is still a varchar(32))\n";
11182     SetVersion($DBversion);
11183 }
11184
11185 $DBversion = "3.21.00.043";
11186 if ( CheckVersion($DBversion) ) {
11187     $dbh->do(q|
11188         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11189         VALUES ('EnableAdvancedCatalogingEditor','0','','Enable the Rancor advanced cataloging editor','YesNo')
11190     |);
11191     print "Upgrade to $DBversion done (Bug 11559: Professional cataloger's interface)\n";
11192     SetVersion($DBversion);
11193 }
11194
11195 $DBversion = "3.21.00.044";
11196 if ( CheckVersion($DBversion) ) {
11197     $dbh->do(q|
11198         CREATE TABLE localization (
11199             localization_id int(11) NOT NULL AUTO_INCREMENT,
11200             entity varchar(16) COLLATE utf8_unicode_ci NOT NULL,
11201             code varchar(64) COLLATE utf8_unicode_ci NOT NULL,
11202             lang varchar(25) COLLATE utf8_unicode_ci NOT NULL,
11203             translation text COLLATE utf8_unicode_ci,
11204             PRIMARY KEY (localization_id),
11205             UNIQUE KEY entity_code_lang (entity,code,lang)
11206         ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
11207     |);
11208     print "Upgrade to $DBversion done (Bug 14100: Generic solution for language overlay)\n";
11209     SetVersion($DBversion);
11210 }
11211
11212 $DBversion = "3.21.00.045";
11213 if ( CheckVersion($DBversion) ) {
11214     $dbh->do(q|
11215         ALTER TABLE opac_news
11216             ADD borrowernumber int(11) default NULL
11217                 AFTER number
11218     |);
11219     $dbh->do(q|
11220         ALTER TABLE opac_news
11221             ADD CONSTRAINT borrowernumber_fk
11222                 FOREIGN KEY (borrowernumber)
11223                 REFERENCES borrowers (borrowernumber)
11224                 ON DELETE SET NULL ON UPDATE CASCADE
11225     |);
11226     print "Upgrade to $DBversion done (Bug 14246: (newsauthor) Add borrowernumber to koha_news)\n";
11227     SetVersion($DBversion);
11228 }
11229
11230 $DBversion = "3.21.00.046";
11231 if ( CheckVersion($DBversion) ) {
11232     $dbh->do(q{
11233         INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11234         VALUES ('NewsAuthorDisplay','none','none|opac|staff|both','Display the author name for news items.','Choice')
11235     });
11236     print "Upgrade to $DBversion done (Bug 14247: (newsauthor) System preference for news author display)\n";
11237     SetVersion($DBversion);
11238 }
11239
11240 $DBversion = "3.21.00.047";
11241 if(CheckVersion($DBversion)) {
11242     $dbh->do(q{
11243         INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11244         VALUES ('IndependentBranchesPatronModifications','0','Show only modification request for the logged in branch','','YesNo')
11245     });
11246     print "Upgrade to $DBversion done (Bug 10904: Limit patron update request management by branch)\n";
11247     SetVersion($DBversion);
11248 }
11249
11250 $DBversion = '3.21.00.048';
11251 if ( CheckVersion($DBversion) ) {
11252     my $create_table_issues = @{ $dbh->selectall_arrayref(q|SHOW CREATE TABLE issues|) }[0]->[1];
11253     if ($create_table_issues !~ m|UNIQUE KEY.*itemnumber| ) {
11254         $dbh->do(q|ALTER TABLE issues ADD CONSTRAINT UNIQUE KEY (itemnumber)|);
11255     }
11256     print "Upgrade to $DBversion done (Bug 14978: Make sure issues.itemnumber is a unique key)\n";
11257     SetVersion($DBversion);
11258 }
11259
11260 $DBversion = "3.21.00.049";
11261 if ( CheckVersion($DBversion) ) {
11262     $dbh->do(q{UPDATE systempreferences SET variable = 'AudioAlerts' WHERE variable = 'soundon'});
11263
11264     $dbh->do(q{
11265         CREATE TABLE audio_alerts (
11266             id int(11) NOT NULL AUTO_INCREMENT,
11267             precedence smallint(5) unsigned NOT NULL,
11268             selector varchar(255) NOT NULL,
11269             sound varchar(255) NOT NULL,
11270             PRIMARY KEY (id),
11271             KEY precedence (precedence)
11272         ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
11273     });
11274
11275     $dbh->do(q{
11276         INSERT INTO audio_alerts VALUES
11277         (1, 1, '.audio-alert-action', 'opening.ogg'),
11278         (2, 2, '.audio-alert-warning', 'critical.ogg'),
11279         (3, 3, '.audio-alert-success', 'beep.ogg');
11280     });
11281
11282     print "Upgrade to $DBversion done (Bug 11431: Add additional sound options for warnings)\n";
11283     SetVersion($DBversion);
11284 }
11285
11286 $DBversion = "3.21.00.050";
11287 if(CheckVersion($DBversion)) {
11288     $dbh->do(q{
11289         INSERT INTO letter ( module, code, branchcode, name, is_html, title, content, message_transport_type )
11290         VALUES ( 'circulation', 'OVERDUES_SLIP', '', 'Overdues Slip', '0', 'OVERDUES_SLIP', 'The following item(s) is/are currently overdue:
11291
11292 <item>"<<biblio.title>>" by <<biblio.author>>, <<items.itemcallnumber>>, Barcode: <<items.barcode>> Fine: <<items.fine>></item>
11293 ', 'print' )
11294     });
11295     print "Upgrade to $DBversion done (Bug 12933: Add ability to print overdue slip from staff intranet)\n";
11296     SetVersion($DBversion);
11297 }
11298
11299 $DBversion = "3.21.00.051";
11300 if ( CheckVersion($DBversion) ) {
11301     $dbh->do(q{
11302         ALTER TABLE virtualshelves
11303             CHANGE COLUMN sortfield sortfield VARCHAR(16) DEFAULT 'title'
11304     });
11305     $dbh->do(q{
11306         UPDATE virtualshelves
11307         SET sortfield='title'
11308             WHERE sortfield IS NULL;
11309     });
11310     print "Upgrade to $DBversion done (Bug 14544: Move the list related code to Koha::Virtualshelves)\n";
11311     SetVersion($DBversion);
11312 }
11313
11314 $DBversion = "3.21.00.052";
11315 if ( CheckVersion($DBversion) ) {
11316     $dbh->do(q{
11317         ALTER TABLE serial
11318             ADD COLUMN publisheddatetext VARCHAR(100) DEFAULT NULL AFTER publisheddate
11319     });
11320     print "Upgrade to $DBversion done (Bug 8296: Add descriptive (text) published date field for serials)\n";
11321     SetVersion($DBversion);
11322 }
11323
11324 $DBversion = "3.19.00.XXX";
11325 if ( CheckVersion($DBversion) ) {
11326     foreach my $format (@{ GetSupportList() }) {
11327         $dbh->do(
11328             q/INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl)
11329             VALUES (?, ?, ?, ?, ?)/,
11330             {},
11331             'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description}, $format->{imageurl}
11332         );
11333     }
11334     print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n";
11335     SetVersion($DBversion);
11336 }
11337
11338 # DEVELOPER PROCESS, search for anything to execute in the db_update directory
11339 # SEE bug 13068
11340 # if there is anything in the atomicupdate, read and execute it.
11341
11342 my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
11343 opendir( my $dirh, $update_dir );
11344 foreach my $file ( sort readdir $dirh ) {
11345     next if $file !~ /\.(sql|perl)$/;  #skip other files
11346     print "DEV atomic update: $file\n";
11347     if ( $file =~ /\.sql$/ ) {
11348         my $installer = C4::Installer->new();
11349         my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
11350     } elsif ( $file =~ /\.perl$/ ) {
11351         do $update_dir . $file;
11352     }
11353 }
11354
11355 =head1 FUNCTIONS
11356
11357 =head2 TableExists($table)
11358
11359 =cut
11360
11361 sub TableExists {
11362     my $table = shift;
11363     eval {
11364                 local $dbh->{PrintError} = 0;
11365                 local $dbh->{RaiseError} = 1;
11366                 $dbh->do(qq{SELECT * FROM $table WHERE 1 = 0 });
11367             };
11368     return 1 unless $@;
11369     return 0;
11370 }
11371
11372 =head2 DropAllForeignKeys($table)
11373
11374 Drop all foreign keys of the table $table
11375
11376 =cut
11377
11378 sub DropAllForeignKeys {
11379     my ($table) = @_;
11380     # get the table description
11381     my $sth = $dbh->prepare("SHOW CREATE TABLE $table");
11382     $sth->execute;
11383     my $vsc_structure = $sth->fetchrow;
11384     # split on CONSTRAINT keyword
11385     my @fks = split /CONSTRAINT /,$vsc_structure;
11386     # parse each entry
11387     foreach (@fks) {
11388         # isolate what is before FOREIGN KEY, if there is something, it's a foreign key to drop
11389         $_ = /(.*) FOREIGN KEY.*/;
11390         my $id = $1;
11391         if ($id) {
11392             # we have found 1 foreign, drop it
11393             $dbh->do("ALTER TABLE $table DROP FOREIGN KEY $id");
11394             $id="";
11395         }
11396     }
11397 }
11398
11399
11400 =head2 TransformToNum
11401
11402 Transform the Koha version from a 4 parts string
11403 to a number, with just 1 .
11404
11405 =cut
11406
11407 sub TransformToNum {
11408     my $version = shift;
11409     # remove the 3 last . to have a Perl number
11410     $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
11411     # three X's at the end indicate that you are testing patch with dbrev
11412     # change it into 999
11413     # prevents error on a < comparison between strings (should be: lt)
11414     $version =~ s/XXX$/999/;
11415     return $version;
11416 }
11417
11418 =head2 SetVersion
11419
11420 set the DBversion in the systempreferences
11421
11422 =cut
11423
11424 sub SetVersion {
11425     return if $_[0]=~ /XXX$/;
11426       #you are testing a patch with a db revision; do not change version
11427     my $kohaversion = TransformToNum($_[0]);
11428     if (C4::Context->preference('Version')) {
11429       my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
11430       $finish->execute($kohaversion);
11431     } else {
11432       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')");
11433       $finish->execute($kohaversion);
11434     }
11435     C4::Context::clear_syspref_cache(); # invalidate cached preferences
11436 }
11437
11438 =head2 CheckVersion
11439
11440 Check whether a given update should be run when passed the proposed version
11441 number. The update will always be run if the proposed version is greater
11442 than the current database version and less than or equal to the version in
11443 kohaversion.pl. The update is also run if the version contains XXX, though
11444 this behavior will be changed following the adoption of non-linear updates
11445 as implemented in bug 7167.
11446
11447 =cut
11448
11449 sub CheckVersion {
11450     my ($proposed_version) = @_;
11451     my $version_number = TransformToNum($proposed_version);
11452
11453     # The following line should be deleted when bug 7167 is pushed
11454     return 1 if ( $proposed_version =~ m/XXX/ );
11455
11456     if ( C4::Context->preference("Version") < $version_number
11457         && $version_number <= TransformToNum( $Koha::VERSION ) )
11458     {
11459         return 1;
11460     }
11461     else {
11462         return 0;
11463     }
11464 }
11465
11466 exit;