4 # This script checks for required updates to the database.
6 # Parts copyright Catalyst IT 2011
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.
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.
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>.
24 # - Would also be a good idea to offer to do a backup at this time...
26 # NOTE: If you do something more than once in here, make it table driven.
28 # NOTE: Please keep the version in kohaversion.pl up-to-date!
46 use MARC::File::XML ( BinaryEncoding => 'utf8' );
48 use File::Path qw[remove_tree]; # perl core module
51 # FIXME - The user might be installing a new database, so can't rely
52 # on /etc/koha.conf anyway.
59 %existingtables, # tables already in database
63 $type, $null, $key, $default, $extra,
64 $prefitem, # preference item in systempreferences table
67 my $schema = Koha::Database->new()->schema();
73 my $dbh = C4::Context->dbh;
74 $|=1; # flushes output
76 local $dbh->{RaiseError} = 0;
78 # Record the version we are coming from
80 my $original_version = C4::Context->preference("Version");
82 # Deal with virtualshelves
83 my $DBversion = "3.00.00.001";
84 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
85 # update virtualshelves table to
87 $dbh->do("ALTER TABLE `bookshelf` RENAME `virtualshelves`");
88 $dbh->do("ALTER TABLE `shelfcontents` RENAME `virtualshelfcontents`");
89 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD `biblionumber` INT( 11 ) NOT NULL default '0' AFTER shelfnumber");
90 $dbh->do("UPDATE `virtualshelfcontents` SET biblionumber=(SELECT biblionumber FROM items WHERE items.itemnumber=virtualshelfcontents.itemnumber)");
91 # drop all foreign keys : otherwise, we can't drop itemnumber field.
92 DropAllForeignKeys('virtualshelfcontents');
93 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD KEY biblionumber (biblionumber)");
94 # create the new foreign keys (on biblionumber)
95 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `virtualshelfcontents_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE");
96 # re-create the foreign key on virtualshelf
97 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `shelfcontents_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
98 $dbh->do("ALTER TABLE `virtualshelfcontents` DROP `itemnumber`");
99 print "Upgrade to $DBversion done (virtualshelves)\n";
100 SetVersion ($DBversion);
104 $DBversion = "3.00.00.002";
105 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
106 $dbh->do("DROP TABLE sessions");
107 $dbh->do("CREATE TABLE `sessions` (
108 `id` varchar(32) NOT NULL,
109 `a_session` text NOT NULL,
110 UNIQUE KEY `id` (`id`)
111 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
112 print "Upgrade to $DBversion done (sessions uses CGI::session, new table structure for sessions)\n";
113 SetVersion ($DBversion);
117 $DBversion = "3.00.00.003";
118 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
119 if (C4::Context->preference("opaclanguages") eq "fr") {
120 $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')");
122 $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')");
124 print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
125 SetVersion ($DBversion);
129 $DBversion = "3.00.00.004";
130 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
131 $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')");
132 print "Upgrade to $DBversion done (adding DebugLevel systempref, in 'Admin' tab)\n";
133 SetVersion ($DBversion);
136 $DBversion = "3.00.00.005";
137 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
138 $dbh->do("CREATE TABLE `tags` (
139 `entry` varchar(255) NOT NULL default '',
140 `weight` bigint(20) NOT NULL default 0,
141 PRIMARY KEY (`entry`)
142 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
144 $dbh->do("CREATE TABLE `nozebra` (
145 `server` varchar(20) NOT NULL,
146 `indexname` varchar(40) NOT NULL,
147 `value` varchar(250) NOT NULL,
148 `biblionumbers` longtext NOT NULL,
149 KEY `indexname` (`server`,`indexname`),
150 KEY `value` (`server`,`value`))
151 ENGINE=InnoDB DEFAULT CHARSET=utf8;
153 print "Upgrade to $DBversion done (adding tags and nozebra tables )\n";
154 SetVersion ($DBversion);
157 $DBversion = "3.00.00.006";
158 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
159 $dbh->do("UPDATE issues SET issuedate=timestamp WHERE issuedate='0000-00-00'");
160 print "Upgrade to $DBversion done (filled issues.issuedate with timestamp)\n";
161 SetVersion ($DBversion);
164 $DBversion = "3.00.00.007";
165 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
166 $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')");
167 print "Upgrade to $DBversion done (set SessionStorage variable)\n";
168 SetVersion ($DBversion);
171 $DBversion = "3.00.00.008";
172 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
173 $dbh->do("ALTER TABLE `biblio` ADD `datecreated` DATE NOT NULL AFTER `timestamp` ;");
174 $dbh->do("UPDATE biblio SET datecreated=timestamp");
175 print "Upgrade to $DBversion done (biblio creation date)\n";
176 SetVersion ($DBversion);
179 $DBversion = "3.00.00.009";
180 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
182 # Create backups of call number columns
183 # in case default migration needs to be customized
185 # UPGRADE NOTE: temp_upg_biblioitems_call_num should be dropped
186 # after call numbers have been transformed to the new structure
188 # Not bothering to do the same with deletedbiblioitems -- assume
189 # default is good enough.
190 $dbh->do("CREATE TABLE `temp_upg_biblioitems_call_num` AS
191 SELECT `biblioitemnumber`, `biblionumber`,
192 `classification`, `dewey`, `subclass`,
194 FROM `biblioitems`");
196 # biblioitems changes
197 $dbh->do("ALTER TABLE `biblioitems` CHANGE COLUMN `volumeddesc` `volumedesc` TEXT,
198 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
199 ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
200 ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
201 ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
202 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
203 ADD `totalissues` INT(10) AFTER `cn_sort`");
205 # default mapping of call number columns:
206 # cn_class = concatentation of classification + dewey,
207 # trimmed to fit -- assumes that most users do not
208 # populate both classification and dewey in a single record
210 # cn_source = left null
213 # After upgrade, cn_sort will have to be set based on whatever
214 # default call number scheme user sets as a preference. Misc
215 # script will be added at some point to do that.
217 $dbh->do("UPDATE `biblioitems`
218 SET cn_class = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
223 # Now drop the old call number columns
224 $dbh->do("ALTER TABLE `biblioitems` DROP COLUMN `classification`,
226 DROP COLUMN `subclass`,
227 DROP COLUMN `lcsort`,
228 DROP COLUMN `ccode`");
230 # deletedbiblio changes
231 $dbh->do("ALTER TABLE `deletedbiblio` ALTER COLUMN `frameworkcode` SET DEFAULT '',
233 ADD `datecreated` DATE NOT NULL AFTER `timestamp`");
234 $dbh->do("UPDATE deletedbiblio SET datecreated = timestamp");
236 # deletedbiblioitems changes
237 $dbh->do("ALTER TABLE `deletedbiblioitems`
238 MODIFY `publicationyear` TEXT,
239 CHANGE `volumeddesc` `volumedesc` TEXT,
240 MODIFY `collectiontitle` MEDIUMTEXT DEFAULT NULL AFTER `volumedesc`,
241 MODIFY `collectionissn` TEXT DEFAULT NULL AFTER `collectiontitle`,
242 MODIFY `collectionvolume` MEDIUMTEXT DEFAULT NULL AFTER `collectionissn`,
243 MODIFY `editionstatement` TEXT DEFAULT NULL AFTER `collectionvolume`,
244 MODIFY `editionresponsibility` TEXT DEFAULT NULL AFTER `editionstatement`,
245 MODIFY `place` VARCHAR(255) DEFAULT NULL AFTER `size`,
246 MODIFY `marc` LONGBLOB,
247 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `url`,
248 ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
249 ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
250 ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
251 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
252 ADD `totalissues` INT(10) AFTER `cn_sort`,
253 ADD `marcxml` LONGTEXT NOT NULL AFTER `totalissues`,
254 ADD KEY `isbn` (`isbn`),
255 ADD KEY `publishercode` (`publishercode`)
258 $dbh->do("UPDATE `deletedbiblioitems`
259 SET `cn_class` = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
260 `cn_item` = `subclass`,
263 $dbh->do("ALTER TABLE `deletedbiblioitems`
264 DROP COLUMN `classification`,
266 DROP COLUMN `subclass`,
267 DROP COLUMN `lcsort`,
271 # deleteditems changes
272 $dbh->do("ALTER TABLE `deleteditems`
273 MODIFY `barcode` VARCHAR(20) DEFAULT NULL,
274 MODIFY `price` DECIMAL(8,2) DEFAULT NULL,
275 MODIFY `replacementprice` DECIMAL(8,2) DEFAULT NULL,
277 MODIFY `itemcallnumber` VARCHAR(30) DEFAULT NULL AFTER `wthdrawn`,
278 MODIFY `holdingbranch` VARCHAR(10) DEFAULT NULL,
280 MODIFY `timestamp` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER `paidfor`,
282 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
283 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
284 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
285 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
286 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`,
287 MODIFY `marc` LONGBLOB AFTER `uri`,
289 DROP KEY `itembarcodeidx`,
290 DROP KEY `itembinoidx`,
291 DROP KEY `itembibnoidx`,
292 ADD UNIQUE KEY `delitembarcodeidx` (`barcode`),
293 ADD KEY `delitembinoidx` (`biblioitemnumber`),
294 ADD KEY `delitembibnoidx` (`biblionumber`),
295 ADD KEY `delhomebranch` (`homebranch`),
296 ADD KEY `delholdingbranch` (`holdingbranch`)");
297 $dbh->do("UPDATE deleteditems SET `ccode` = `itype`");
298 $dbh->do("ALTER TABLE deleteditems DROP `itype`");
299 $dbh->do("UPDATE `deleteditems` SET `cn_sort` = `itemcallnumber`");
302 $dbh->do("ALTER TABLE `items` ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
303 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
304 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
305 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
306 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`
308 $dbh->do("ALTER TABLE `items`
309 DROP KEY `itembarcodeidx`,
310 ADD UNIQUE KEY `itembarcodeidx` (`barcode`)");
312 # map items.itype to items.ccode and
313 # set cn_sort to itemcallnumber -- as with biblioitems.cn_sort,
314 # will have to be subsequently updated per user's default
315 # classification scheme
316 $dbh->do("UPDATE `items` SET `cn_sort` = `itemcallnumber`,
319 $dbh->do("ALTER TABLE `items` DROP `cutterextra`,
322 print "Upgrade to $DBversion done (major changes to biblio, biblioitems, items, and deleted* versions of same\n";
323 SetVersion ($DBversion);
326 $DBversion = "3.00.00.010";
327 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
328 $dbh->do("CREATE INDEX `userid` ON borrowers (`userid`) ");
329 print "Upgrade to $DBversion done (userid index added)\n";
330 SetVersion ($DBversion);
333 $DBversion = "3.00.00.011";
334 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
335 $dbh->do("ALTER TABLE `branchcategories` CHANGE `categorycode` `categorycode` varchar(10) ");
336 $dbh->do("ALTER TABLE `branchcategories` CHANGE `categoryname` `categoryname` varchar(32) ");
337 $dbh->do("ALTER TABLE `branchcategories` ADD COLUMN `categorytype` varchar(16) ");
338 $dbh->do("UPDATE `branchcategories` SET `categorytype` = 'properties'");
339 $dbh->do("ALTER TABLE `branchrelations` CHANGE `categorycode` `categorycode` varchar(10) ");
340 print "Upgrade to $DBversion done (added branchcategory type)\n";
341 SetVersion ($DBversion);
344 $DBversion = "3.00.00.012";
345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
346 $dbh->do("CREATE TABLE `class_sort_rules` (
347 `class_sort_rule` varchar(10) NOT NULL default '',
348 `description` mediumtext,
349 `sort_routine` varchar(30) NOT NULL default '',
350 PRIMARY KEY (`class_sort_rule`),
351 UNIQUE KEY `class_sort_rule_idx` (`class_sort_rule`)
352 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
353 $dbh->do("CREATE TABLE `class_sources` (
354 `cn_source` varchar(10) NOT NULL default '',
355 `description` mediumtext,
356 `used` tinyint(4) NOT NULL default 0,
357 `class_sort_rule` varchar(10) NOT NULL default '',
358 PRIMARY KEY (`cn_source`),
359 UNIQUE KEY `cn_source_idx` (`cn_source`),
360 KEY `used_idx` (`used`),
361 CONSTRAINT `class_source_ibfk_1` FOREIGN KEY (`class_sort_rule`)
362 REFERENCES `class_sort_rules` (`class_sort_rule`)
363 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
364 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type)
365 VALUES('DefaultClassificationSource','ddc',
366 'Default classification scheme used by the collection. E.g., Dewey, LCC, etc.', NULL,'free')");
367 $dbh->do("INSERT INTO `class_sort_rules` (`class_sort_rule`, `description`, `sort_routine`) VALUES
368 ('dewey', 'Default filing rules for DDC', 'Dewey'),
369 ('lcc', 'Default filing rules for LCC', 'LCC'),
370 ('generic', 'Generic call number filing rules', 'Generic')");
371 $dbh->do("INSERT INTO `class_sources` (`cn_source`, `description`, `used`, `class_sort_rule`) VALUES
372 ('ddc', 'Dewey Decimal Classification', 1, 'dewey'),
373 ('lcc', 'Library of Congress Classification', 1, 'lcc'),
374 ('udc', 'Universal Decimal Classification', 0, 'generic'),
375 ('sudocs', 'SuDoc Classification (U.S. GPO)', 0, 'generic'),
376 ('z', 'Other/Generic Classification Scheme', 0, 'generic')");
377 print "Upgrade to $DBversion done (classification sources added)\n";
378 SetVersion ($DBversion);
381 $DBversion = "3.00.00.013";
382 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
383 $dbh->do("CREATE TABLE `import_batches` (
384 `import_batch_id` int(11) NOT NULL auto_increment,
385 `template_id` int(11) default NULL,
386 `branchcode` varchar(10) default NULL,
387 `num_biblios` int(11) NOT NULL default 0,
388 `num_items` int(11) NOT NULL default 0,
389 `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
390 `overlay_action` enum('replace', 'create_new', 'use_template') NOT NULL default 'create_new',
391 `import_status` enum('staging', 'staged', 'importing', 'imported', 'reverting', 'reverted', 'cleaned') NOT NULL default 'staging',
392 `batch_type` enum('batch', 'z3950') NOT NULL default 'batch',
393 `file_name` varchar(100),
394 `comments` mediumtext,
395 PRIMARY KEY (`import_batch_id`),
396 KEY `branchcode` (`branchcode`)
397 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
398 $dbh->do("CREATE TABLE `import_records` (
399 `import_record_id` int(11) NOT NULL auto_increment,
400 `import_batch_id` int(11) NOT NULL,
401 `branchcode` varchar(10) default NULL,
402 `record_sequence` int(11) NOT NULL default 0,
403 `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
404 `import_date` DATE default NULL,
405 `marc` longblob NOT NULL,
406 `marcxml` longtext NOT NULL,
407 `marcxml_old` longtext NOT NULL,
408 `record_type` enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio',
409 `overlay_status` enum('no_match', 'auto_match', 'manual_match', 'match_applied') NOT NULL default 'no_match',
410 `status` enum('error', 'staged', 'imported', 'reverted', 'items_reverted') NOT NULL default 'staged',
411 `import_error` mediumtext,
412 `encoding` varchar(40) NOT NULL default '',
413 `z3950random` varchar(40) default NULL,
414 PRIMARY KEY (`import_record_id`),
415 CONSTRAINT `import_records_ifbk_1` FOREIGN KEY (`import_batch_id`)
416 REFERENCES `import_batches` (`import_batch_id`) ON DELETE CASCADE ON UPDATE CASCADE,
417 KEY `branchcode` (`branchcode`),
418 KEY `batch_sequence` (`import_batch_id`, `record_sequence`)
419 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
420 $dbh->do("CREATE TABLE `import_record_matches` (
421 `import_record_id` int(11) NOT NULL,
422 `candidate_match_id` int(11) NOT NULL,
423 `score` int(11) NOT NULL default 0,
424 CONSTRAINT `import_record_matches_ibfk_1` FOREIGN KEY (`import_record_id`)
425 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
426 KEY `record_score` (`import_record_id`, `score`)
427 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
428 $dbh->do("CREATE TABLE `import_biblios` (
429 `import_record_id` int(11) NOT NULL,
430 `matched_biblionumber` int(11) default NULL,
431 `control_number` varchar(25) default NULL,
432 `original_source` varchar(25) default NULL,
433 `title` varchar(128) default NULL,
434 `author` varchar(80) default NULL,
435 `isbn` varchar(14) default NULL,
436 `issn` varchar(9) default NULL,
437 `has_items` tinyint(1) NOT NULL default 0,
438 CONSTRAINT `import_biblios_ibfk_1` FOREIGN KEY (`import_record_id`)
439 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
440 KEY `matched_biblionumber` (`matched_biblionumber`),
441 KEY `title` (`title`),
443 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
444 $dbh->do("CREATE TABLE `import_items` (
445 `import_items_id` int(11) NOT NULL auto_increment,
446 `import_record_id` int(11) NOT NULL,
447 `itemnumber` int(11) default NULL,
448 `branchcode` varchar(10) default NULL,
449 `status` enum('error', 'staged', 'imported', 'reverted') NOT NULL default 'staged',
450 `marcxml` longtext NOT NULL,
451 `import_error` mediumtext,
452 PRIMARY KEY (`import_items_id`),
453 CONSTRAINT `import_items_ibfk_1` FOREIGN KEY (`import_record_id`)
454 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
455 KEY `itemnumber` (`itemnumber`),
456 KEY `branchcode` (`branchcode`)
457 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
459 $dbh->do("INSERT INTO `import_batches`
460 (`overlay_action`, `import_status`, `batch_type`, `file_name`)
461 SELECT distinct 'create_new', 'staged', 'z3950', `file`
462 FROM `marc_breeding`");
464 $dbh->do("INSERT INTO `import_records`
465 (`import_batch_id`, `import_record_id`, `record_sequence`, `marc`, `record_type`, `status`,
466 `encoding`, `z3950random`, `marcxml`, `marcxml_old`)
467 SELECT `import_batch_id`, `id`, 1, `marc`, 'biblio', 'staged', `encoding`, `z3950random`, '', ''
469 JOIN `import_batches` ON (`file_name` = `file`)");
471 $dbh->do("INSERT INTO `import_biblios`
472 (`import_record_id`, `title`, `author`, `isbn`)
473 SELECT `import_record_id`, `title`, `author`, `isbn`
475 JOIN `import_records` ON (`import_record_id` = `id`)");
477 $dbh->do("UPDATE `import_batches`
478 SET `num_biblios` = (
480 FROM `import_records`
481 WHERE `import_batch_id` = `import_batches`.`import_batch_id`
484 $dbh->do("DROP TABLE `marc_breeding`");
486 print "Upgrade to $DBversion done (import_batches et al. added)\n";
487 SetVersion ($DBversion);
490 $DBversion = "3.00.00.014";
491 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
492 $dbh->do("ALTER TABLE subscription ADD lastbranch VARCHAR(4)");
493 print "Upgrade to $DBversion done (userid index added)\n";
494 SetVersion ($DBversion);
497 $DBversion = "3.00.00.015";
498 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
499 $dbh->do("CREATE TABLE `saved_sql` (
500 `id` int(11) NOT NULL auto_increment,
501 `borrowernumber` int(11) default NULL,
502 `date_created` datetime default NULL,
503 `last_modified` datetime default NULL,
505 `last_run` datetime default NULL,
506 `report_name` varchar(255) default NULL,
507 `type` varchar(255) default NULL,
510 KEY boridx (`borrowernumber`)
511 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
512 $dbh->do("CREATE TABLE `saved_reports` (
513 `id` int(11) NOT NULL auto_increment,
514 `report_id` int(11) default NULL,
516 `date_run` datetime default NULL,
518 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
519 print "Upgrade to $DBversion done (saved_sql and saved_reports added)\n";
520 SetVersion ($DBversion);
523 $DBversion = "3.00.00.016";
524 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
525 $dbh->do(" CREATE TABLE reports_dictionary (
526 id int(11) NOT NULL auto_increment,
527 name varchar(255) default NULL,
529 date_created datetime default NULL,
530 date_modified datetime default NULL,
532 area int(11) default NULL,
534 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
535 print "Upgrade to $DBversion done (reports_dictionary) added)\n";
536 SetVersion ($DBversion);
539 $DBversion = "3.00.00.017";
540 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
541 $dbh->do("ALTER TABLE action_logs DROP PRIMARY KEY");
542 $dbh->do("ALTER TABLE action_logs ADD KEY timestamp (timestamp,user)");
543 $dbh->do("ALTER TABLE action_logs ADD action_id INT(11) NOT NULL FIRST");
544 $dbh->do("UPDATE action_logs SET action_id = if (\@a, \@a:=\@a+1, \@a:=1)");
545 $dbh->do("ALTER TABLE action_logs MODIFY action_id INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY");
546 print "Upgrade to $DBversion done (added column to action_logs)\n";
547 SetVersion ($DBversion);
550 $DBversion = "3.00.00.018";
551 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
552 $dbh->do("ALTER TABLE `zebraqueue`
553 ADD `done` INT NOT NULL DEFAULT '0',
554 ADD `time` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ;
556 print "Upgrade to $DBversion done (adding timestamp and done columns to zebraque table to improve problem tracking) added)\n";
557 SetVersion ($DBversion);
560 $DBversion = "3.00.00.019";
561 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
562 $dbh->do("ALTER TABLE biblio MODIFY biblionumber INT(11) NOT NULL AUTO_INCREMENT");
563 $dbh->do("ALTER TABLE biblioitems MODIFY biblioitemnumber INT(11) NOT NULL AUTO_INCREMENT");
564 $dbh->do("ALTER TABLE items MODIFY itemnumber INT(11) NOT NULL AUTO_INCREMENT");
565 print "Upgrade to $DBversion done (made bib/item PKs auto_increment)\n";
566 SetVersion ($DBversion);
569 $DBversion = "3.00.00.020";
570 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
571 $dbh->do("ALTER TABLE deleteditems
572 DROP KEY `delitembarcodeidx`,
573 ADD KEY `delitembarcodeidx` (`barcode`)");
574 print "Upgrade to $DBversion done (dropped uniqueness of key on deleteditems.barcode)\n";
575 SetVersion ($DBversion);
578 $DBversion = "3.00.00.021";
579 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
580 $dbh->do("ALTER TABLE items CHANGE homebranch homebranch VARCHAR(10)");
581 $dbh->do("ALTER TABLE deleteditems CHANGE homebranch homebranch VARCHAR(10)");
582 $dbh->do("ALTER TABLE statistics CHANGE branch branch VARCHAR(10)");
583 $dbh->do("ALTER TABLE subscription CHANGE lastbranch lastbranch VARCHAR(10)");
584 print "Upgrade to $DBversion done (extended missed branchcode columns to 10 chars)\n";
585 SetVersion ($DBversion);
588 $DBversion = "3.00.00.022";
589 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
590 $dbh->do("ALTER TABLE items
591 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
592 $dbh->do("ALTER TABLE deleteditems
593 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
594 print "Upgrade to $DBversion done (adding damaged column to items table)\n";
595 SetVersion ($DBversion);
598 $DBversion = "3.00.00.023";
599 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
600 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
601 VALUES ('yuipath','http://yui.yahooapis.com/2.3.1/build','Insert the path to YUI libraries','','free')");
602 print "Upgrade to $DBversion done (adding new system preference for controlling YUI path)\n";
603 SetVersion ($DBversion);
605 $DBversion = "3.00.00.024";
606 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
607 $dbh->do("ALTER TABLE biblioitems CHANGE itemtype itemtype VARCHAR(10)");
608 print "Upgrade to $DBversion done (changing itemtype to (10))\n";
609 SetVersion ($DBversion);
612 $DBversion = "3.00.00.025";
613 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
614 $dbh->do("ALTER TABLE items ADD COLUMN itype VARCHAR(10)");
615 $dbh->do("ALTER TABLE deleteditems ADD COLUMN itype VARCHAR(10) AFTER uri");
616 if(C4::Context->preference('item-level_itypes')){
617 $dbh->do('update items,biblioitems set items.itype=biblioitems.itemtype where items.biblionumber=biblioitems.biblionumber and itype is null');
619 print "Upgrade to $DBversion done (reintroduce items.itype - fill from itemtype)\n ";
620 SetVersion ($DBversion);
623 $DBversion = "3.00.00.026";
624 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
625 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
626 VALUES ('HomeOrHoldingBranch','homebranch','homebranch|holdingbranch','With independent branches turned on this decides whether to check the items holdingbranch or homebranch at circulatilon','choice')");
627 print "Upgrade to $DBversion done (adding new system preference for choosing whether homebranch or holdingbranch is checked in circulation)\n";
628 SetVersion ($DBversion);
631 $DBversion = "3.00.00.027";
632 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
633 $dbh->do("CREATE TABLE `marc_matchers` (
634 `matcher_id` int(11) NOT NULL auto_increment,
635 `code` varchar(10) NOT NULL default '',
636 `description` varchar(255) NOT NULL default '',
637 `record_type` varchar(10) NOT NULL default 'biblio',
638 `threshold` int(11) NOT NULL default 0,
639 PRIMARY KEY (`matcher_id`),
641 KEY `record_type` (`record_type`)
642 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
643 $dbh->do("CREATE TABLE `matchpoints` (
644 `matcher_id` int(11) NOT NULL,
645 `matchpoint_id` int(11) NOT NULL auto_increment,
646 `search_index` varchar(30) NOT NULL default '',
647 `score` int(11) NOT NULL default 0,
648 PRIMARY KEY (`matchpoint_id`),
649 CONSTRAINT `matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
650 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE
651 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
652 $dbh->do("CREATE TABLE `matchpoint_components` (
653 `matchpoint_id` int(11) NOT NULL,
654 `matchpoint_component_id` int(11) NOT NULL auto_increment,
655 sequence int(11) NOT NULL default 0,
656 tag varchar(3) NOT NULL default '',
657 subfields varchar(40) NOT NULL default '',
658 offset int(4) NOT NULL default 0,
659 length int(4) NOT NULL default 0,
660 PRIMARY KEY (`matchpoint_component_id`),
661 KEY `by_sequence` (`matchpoint_id`, `sequence`),
662 CONSTRAINT `matchpoint_components_ifbk_1` FOREIGN KEY (`matchpoint_id`)
663 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
664 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
665 $dbh->do("CREATE TABLE `matchpoint_component_norms` (
666 `matchpoint_component_id` int(11) NOT NULL,
667 `sequence` int(11) NOT NULL default 0,
668 `norm_routine` varchar(50) NOT NULL default '',
669 KEY `matchpoint_component_norms` (`matchpoint_component_id`, `sequence`),
670 CONSTRAINT `matchpoint_component_norms_ifbk_1` FOREIGN KEY (`matchpoint_component_id`)
671 REFERENCES `matchpoint_components` (`matchpoint_component_id`) ON DELETE CASCADE ON UPDATE CASCADE
672 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
673 $dbh->do("CREATE TABLE `matcher_matchpoints` (
674 `matcher_id` int(11) NOT NULL,
675 `matchpoint_id` int(11) NOT NULL,
676 CONSTRAINT `matcher_matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
677 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
678 CONSTRAINT `matcher_matchpoints_ifbk_2` FOREIGN KEY (`matchpoint_id`)
679 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
680 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
681 $dbh->do("CREATE TABLE `matchchecks` (
682 `matcher_id` int(11) NOT NULL,
683 `matchcheck_id` int(11) NOT NULL auto_increment,
684 `source_matchpoint_id` int(11) NOT NULL,
685 `target_matchpoint_id` int(11) NOT NULL,
686 PRIMARY KEY (`matchcheck_id`),
687 CONSTRAINT `matcher_matchchecks_ifbk_1` FOREIGN KEY (`matcher_id`)
688 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
689 CONSTRAINT `matcher_matchchecks_ifbk_2` FOREIGN KEY (`source_matchpoint_id`)
690 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE,
691 CONSTRAINT `matcher_matchchecks_ifbk_3` FOREIGN KEY (`target_matchpoint_id`)
692 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
693 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
694 print "Upgrade to $DBversion done (added C4::Matcher serialization tables)\n ";
695 SetVersion ($DBversion);
698 $DBversion = "3.00.00.028";
699 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
700 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
701 VALUES ('canreservefromotherbranches','1','','With Independent branches on, can a user from one library reserve an item from another library','YesNo')");
702 print "Upgrade to $DBversion done (adding new system preference for changing reserve/holds behaviour with independent branches)\n";
703 SetVersion ($DBversion);
707 $DBversion = "3.00.00.029";
708 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
709 $dbh->do("ALTER TABLE `import_batches` ADD `matcher_id` int(11) NULL AFTER `import_batch_id`");
710 print "Upgrade to $DBversion done (adding matcher_id to import_batches)\n";
711 SetVersion ($DBversion);
714 $DBversion = "3.00.00.030";
715 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
717 CREATE TABLE services_throttle (
718 service_type varchar(10) NOT NULL default '',
719 service_count varchar(45) default NULL,
720 PRIMARY KEY (service_type)
721 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
723 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
724 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')");
725 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
726 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')");
727 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
728 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')");
729 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
730 VALUES ('XISBNDailyLimit',499,'','The xISBN Web service is free for non-commercial use when usage does not exceed 500 requests per day','free')");
731 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
732 VALUES ('PINESISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use PINES OISBN web service in the Editions tab on the detail pages.','YesNo')");
733 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
734 VALUES ('ThingISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the ThingISBN web service in the Editions tab on the detail pages.','YesNo')");
735 print "Upgrade to $DBversion done (adding services throttle table and sysprefs for xISBN)\n";
736 SetVersion ($DBversion);
739 $DBversion = "3.00.00.031";
740 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
742 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryStemming',1,'If ON, enables query stemming',NULL,'YesNo')");
743 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryFuzzy',1,'If ON, enables fuzzy option for searches',NULL,'YesNo')");
744 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryWeightFields',1,'If ON, enables field weighting',NULL,'YesNo')");
745 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('WebBasedSelfCheck',0,'If ON, enables the web-based self-check system',NULL,'YesNo')");
746 $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')");
747 $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')");
748 $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')");
749 $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')");
750 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortOrder',NULL,'Specify the default sort order','asc|dsc|az|za','Choice')");
751 $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')");
752 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortOrder',NULL,'Specify the default sort order','asc|dsc|za|az','Choice')");
753 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('staffClientBaseURL','','Specify the base URL of the staff client',NULL,'free')");
754 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('minPasswordLength',3,'Specify the minimum length of a patron/staff password',NULL,'free')");
755 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('noItemTypeImages',0,'If ON, disables item-type images',NULL,'YesNo')");
756 $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')");
757 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('holdCancelLength','','Specify how many days before a hold is canceled',NULL,'free')");
758 $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')");
759 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesMode','test','Choose the fines mode, test or production','test|production','Choice')");
760 $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')");
761 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('itemBarcodeInputFilter','','If set, allows specification of a item barcode input filter','cuecat','Choice')");
762 $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')");
763 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('URLLinkText','','Text to display as the link anchor in the OPAC',NULL,'free')");
764 $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')");
765 $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')");
766 $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')");
767 $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')");
768 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACUserCSS',0,'Add CSS to be included in the OPAC',NULL,'free')");
770 print "Upgrade to $DBversion done (adding additional system preference)\n";
771 SetVersion ($DBversion);
774 $DBversion = "3.00.00.032";
775 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
776 $dbh->do("UPDATE `marc_subfield_structure` SET `kohafield` = 'items.wthdrawn' WHERE `kohafield` = 'items.withdrawn'");
777 print "Upgrade to $DBversion done (fixed MARC framework references to items.withdrawn)\n";
778 SetVersion ($DBversion);
781 $DBversion = "3.00.00.033";
782 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
783 $dbh->do("INSERT INTO `userflags` VALUES(17,'staffaccess','Modify login / permissions for staff users',0)");
784 print "Upgrade to $DBversion done (Adding permissions flag for staff member access modification. )\n";
785 SetVersion ($DBversion);
788 $DBversion = "3.00.00.034";
789 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
790 $dbh->do("ALTER TABLE `virtualshelves` ADD COLUMN `sortfield` VARCHAR(16) ");
791 print "Upgrade to $DBversion done (Adding sortfield for Virtual Shelves. )\n";
792 SetVersion ($DBversion);
795 $DBversion = "3.00.00.035";
796 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
797 $dbh->do("UPDATE marc_subfield_structure
798 SET authorised_value = 'cn_source'
799 WHERE kohafield IN ('items.cn_source', 'biblioitems.cn_source')
800 AND (authorised_value is NULL OR authorised_value = '')");
801 print "Upgrade to $DBversion done (MARC frameworks: make classification source a drop-down)\n";
802 SetVersion ($DBversion);
805 $DBversion = "3.00.00.036";
806 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
807 $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');");
808 print "Upgrade to $DBversion done (OPACItemsResultsDisplay systempreference added)\n";
809 SetVersion ($DBversion);
812 $DBversion = "3.00.00.037";
813 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
814 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactfirstname` varchar(255)");
815 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactsurname` varchar(255)");
816 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress1` varchar(255)");
817 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress2` varchar(255)");
818 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress3` varchar(255)");
819 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactzipcode` varchar(50)");
820 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactphone` varchar(50)");
821 print "Upgrade to $DBversion done (Adding Alternative Contact Person information to borrowers table)\n";
822 SetVersion ($DBversion);
825 $DBversion = "3.00.00.038";
826 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
827 $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'");
828 $dbh->do("DELETE FROM `systempreferences` WHERE variable='hideBiblioNumber'");
829 print "Upgrade to $DBversion done ('alter finesMode systempreference, remove superfluous syspref.')\n";
830 SetVersion ($DBversion);
833 $DBversion = "3.00.00.039";
834 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
835 $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')");
836 $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')");
837 $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')");
838 # $dbh->do("DELETE FROM `systempreferences` WHERE variable='HomeOrHoldingBranch'"); # Bug #2752
839 print "Upgrade to $DBversion done ('add circ sysprefs CircControl, finesCalendar, and uppercasesurnames, and delete HomeOrHoldingBranch.')\n";
840 SetVersion ($DBversion);
843 $DBversion = "3.00.00.040";
844 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
845 $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')");
846 $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')");
847 print "Upgrade to $DBversion done ('add circ sysprefs todaysIssuesDefaultSortOrder and previousIssuesDefaultSortOrder.')\n";
848 SetVersion ($DBversion);
852 $DBversion = "3.00.00.041";
853 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
854 # Strictly speaking it is not necessary to explicitly change
855 # NULL values to 0, because the ALTER TABLE statement will do that.
856 # However, setting them first avoids a warning.
857 $dbh->do("UPDATE items SET notforloan = 0 WHERE notforloan IS NULL");
858 $dbh->do("UPDATE items SET damaged = 0 WHERE damaged IS NULL");
859 $dbh->do("UPDATE items SET itemlost = 0 WHERE itemlost IS NULL");
860 $dbh->do("UPDATE items SET wthdrawn = 0 WHERE wthdrawn IS NULL");
861 $dbh->do("ALTER TABLE items
862 MODIFY notforloan tinyint(1) NOT NULL default 0,
863 MODIFY damaged tinyint(1) NOT NULL default 0,
864 MODIFY itemlost tinyint(1) NOT NULL default 0,
865 MODIFY wthdrawn tinyint(1) NOT NULL default 0");
866 $dbh->do("UPDATE deleteditems SET notforloan = 0 WHERE notforloan IS NULL");
867 $dbh->do("UPDATE deleteditems SET damaged = 0 WHERE damaged IS NULL");
868 $dbh->do("UPDATE deleteditems SET itemlost = 0 WHERE itemlost IS NULL");
869 $dbh->do("UPDATE deleteditems SET wthdrawn = 0 WHERE wthdrawn IS NULL");
870 $dbh->do("ALTER TABLE deleteditems
871 MODIFY notforloan tinyint(1) NOT NULL default 0,
872 MODIFY damaged tinyint(1) NOT NULL default 0,
873 MODIFY itemlost tinyint(1) NOT NULL default 0,
874 MODIFY wthdrawn tinyint(1) NOT NULL default 0");
875 print "Upgrade to $DBversion done (disallow NULL in several item status columns)\n";
876 SetVersion ($DBversion);
879 $DBversion = "3.00.00.04";
880 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
881 $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
882 print "Upgrade to $DBversion done (disallow NULL in aqbooksellers.name; part of fix for bug 1251)\n";
883 SetVersion ($DBversion);
886 $DBversion = "3.00.00.043";
887 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
888 $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");
889 print "Upgrade to $DBversion done (currency table: add symbol and timestamp columns)\n";
890 SetVersion ($DBversion);
893 $DBversion = "3.00.00.044";
894 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
895 $dbh->do("ALTER TABLE deletedborrowers
896 ADD `altcontactfirstname` varchar(255) default NULL,
897 ADD `altcontactsurname` varchar(255) default NULL,
898 ADD `altcontactaddress1` varchar(255) default NULL,
899 ADD `altcontactaddress2` varchar(255) default NULL,
900 ADD `altcontactaddress3` varchar(255) default NULL,
901 ADD `altcontactzipcode` varchar(50) default NULL,
902 ADD `altcontactphone` varchar(50) default NULL
904 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES
905 ('OPACBaseURL',NULL,'Specify the Base URL of the OPAC, e.g., opac.mylibrary.com, the http:// will be added automatically by Koha.',NULL,'Free'),
906 ('language','en','Set the default language in the staff client.',NULL,'Languages'),
907 ('QueryAutoTruncate',1,'If ON, query truncation is enabled by default',NULL,'YesNo'),
908 ('QueryRemoveStopwords',0,'If ON, stopwords listed in the Administration area will be removed from queries',NULL,'YesNo')
910 print "Upgrade to $DBversion done (syncing deletedborrowers table with borrowers table)\n";
911 SetVersion ($DBversion);
914 #-- http://www.w3.org/International/articles/language-tags/
917 $DBversion = "3.00.00.045";
918 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
920 CREATE TABLE language_subtag_registry (
922 type varchar(25), -- language-script-region-variant-extension-privateuse
923 description varchar(25), -- only one of the possible descriptions for ease of reference, see language_descriptions for the complete list
925 KEY `subtag` (`subtag`)
926 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
928 #-- TODO: add suppress_scripts
929 #-- this maps three letter codes defined in iso639.2 back to their
930 #-- two letter equivilents in rfc4646 (LOC maintains iso639+)
931 $dbh->do("CREATE TABLE language_rfc4646_to_iso639 (
932 rfc4646_subtag varchar(25),
933 iso639_2_code varchar(25),
934 KEY `rfc4646_subtag` (`rfc4646_subtag`)
935 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
937 $dbh->do("CREATE TABLE language_descriptions (
941 description varchar(255),
943 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
945 #-- bi-directional support, keyed by script subcode
946 $dbh->do("CREATE TABLE language_script_bidi (
947 rfc4646_subtag varchar(25), -- script subtag, Arab, Hebr, etc.
948 bidi varchar(3), -- rtl ltr
949 KEY `rfc4646_subtag` (`rfc4646_subtag`)
950 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
952 #-- BIDI Stuff, Arabic and Hebrew
953 $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
954 VALUES( 'Arab', 'rtl')");
955 $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
956 VALUES( 'Hebr', 'rtl')");
958 #-- TODO: need to map language subtags to script subtags for detection
959 #-- of bidi when script is not specified (like ar, he)
960 $dbh->do("CREATE TABLE language_script_mapping (
961 language_subtag varchar(25),
962 script_subtag varchar(25),
963 KEY `language_subtag` (`language_subtag`)
964 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
966 #-- Default mappings between script and language subcodes
967 $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
968 VALUES( 'ar', 'Arab')");
969 $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
970 VALUES( 'he', 'Hebr')");
972 print "Upgrade to $DBversion done (adding language subtag registry and basic BiDi support NOTE: You should import the subtag registry SQL)\n";
973 SetVersion ($DBversion);
976 $DBversion = "3.00.00.046";
977 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
978 $dbh->do("ALTER TABLE `subscription` CHANGE `numberlength` `numberlength` int(11) default '0' ,
979 CHANGE `weeklength` `weeklength` int(11) default '0'");
980 $dbh->do("CREATE TABLE `serialitems` (`serialid` int(11) NOT NULL, `itemnumber` int(11) NOT NULL, UNIQUE KEY `serialididx` (`serialid`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
981 $dbh->do("INSERT INTO `serialitems` SELECT `serialid`,`itemnumber` from serial where NOT ISNULL(itemnumber) && itemnumber <> '' && itemnumber NOT LIKE '%,%'");
982 print "Upgrade to $DBversion done (Add serialitems table to link serial issues to items. )\n";
983 SetVersion ($DBversion);
986 $DBversion = "3.00.00.047";
987 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
988 $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');");
989 print "Upgrade to $DBversion done ( Added OpacRenewalAllowed syspref )\n";
990 SetVersion ($DBversion);
993 $DBversion = "3.00.00.048";
994 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
995 $dbh->do("ALTER TABLE `items` ADD `more_subfields_xml` longtext default NULL AFTER `itype`");
996 print "Upgrade to $DBversion done (added items.more_subfields_xml)\n";
997 SetVersion ($DBversion);
1000 $DBversion = "3.00.00.049";
1001 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1002 $dbh->do("ALTER TABLE `z3950servers` ADD `encoding` text default NULL AFTER type ");
1003 print "Upgrade to $DBversion done ( Added encoding field to z3950servers table )\n";
1004 SetVersion ($DBversion);
1007 $DBversion = "3.00.00.050";
1008 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1009 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacHighlightedWords','0','If Set, query matched terms are highlighted in OPAC',NULL,'YesNo');");
1010 print "Upgrade to $DBversion done ( Added OpacHighlightedWords syspref )\n";
1011 SetVersion ($DBversion);
1014 $DBversion = "3.00.00.051";
1015 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1016 $dbh->do("UPDATE systempreferences SET explanation = 'Define the current theme for the OPAC interface.' WHERE variable = 'opacthemes';");
1017 print "Upgrade to $DBversion done ( Corrected opacthemes explanation. )\n";
1018 SetVersion ($DBversion);
1021 $DBversion = "3.00.00.052";
1022 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1023 $dbh->do("ALTER TABLE `deleteditems` ADD `more_subfields_xml` LONGTEXT DEFAULT NULL AFTER `itype`");
1024 print "Upgrade to $DBversion done ( Adding missing column to deleteditems table. )\n";
1025 SetVersion ($DBversion);
1028 $DBversion = "3.00.00.053";
1029 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1030 $dbh->do("CREATE TABLE `printers_profile` (
1031 `prof_id` int(4) NOT NULL auto_increment,
1032 `printername` varchar(40) NOT NULL,
1033 `tmpl_id` int(4) NOT NULL,
1034 `paper_bin` varchar(20) NOT NULL,
1035 `offset_horz` float default NULL,
1036 `offset_vert` float default NULL,
1037 `creep_horz` float default NULL,
1038 `creep_vert` float default NULL,
1039 `unit` char(20) NOT NULL default 'POINT',
1040 PRIMARY KEY (`prof_id`),
1041 UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1042 CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1043 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1044 $dbh->do("CREATE TABLE `labels_profile` (
1045 `tmpl_id` int(4) NOT NULL,
1046 `prof_id` int(4) NOT NULL,
1047 UNIQUE KEY `tmpl_id` (`tmpl_id`),
1048 UNIQUE KEY `prof_id` (`prof_id`)
1049 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1050 print "Upgrade to $DBversion done ( Printer Profile tables added )\n";
1051 SetVersion ($DBversion);
1054 $DBversion = "3.00.00.054";
1055 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1056 $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';");
1057 print "Upgrade to $DBversion done ( Added another barcode autogeneration sequence to barcode.pl. )\n";
1058 SetVersion ($DBversion);
1061 $DBversion = "3.00.00.055";
1062 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1063 $dbh->do("ALTER TABLE `zebraqueue` ADD KEY `zebraqueue_lookup` (`server`, `biblio_auth_number`, `operation`, `done`)");
1064 print "Upgrade to $DBversion done ( Added index on zebraqueue. )\n";
1065 SetVersion ($DBversion);
1067 $DBversion = "3.00.00.056";
1068 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1069 if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
1070 $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) ");
1072 $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) ");
1074 $dbh->do("ALTER TABLE `items` ADD `enumchron` VARCHAR(80) DEFAULT NULL;");
1075 print "Upgrade to $DBversion done ( Added item.enumchron column, and framework map to 952h )\n";
1076 SetVersion ($DBversion);
1079 $DBversion = "3.00.00.057";
1080 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1081 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH','0','if ON, OAI-PMH server is enabled',NULL,'YesNo');");
1082 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:archiveID','KOHA-OAI-TEST','OAI-PMH archive identification',NULL,'Free');");
1083 $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');");
1084 $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');");
1085 $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');");
1086 SetVersion ($DBversion);
1089 $DBversion = "3.00.00.058";
1090 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1091 $dbh->do("ALTER TABLE `opac_news`
1092 CHANGE `lang` `lang` VARCHAR( 25 )
1094 COLLATE utf8_general_ci
1095 NOT NULL default ''");
1096 print "Upgrade to $DBversion done ( lang field in opac_news made longer )\n";
1097 SetVersion ($DBversion);
1100 $DBversion = "3.00.00.059";
1101 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1103 $dbh->do("CREATE TABLE IF NOT EXISTS `labels_templates` (
1104 `tmpl_id` int(4) NOT NULL auto_increment,
1105 `tmpl_code` char(100) default '',
1106 `tmpl_desc` char(100) default '',
1107 `page_width` float default '0',
1108 `page_height` float default '0',
1109 `label_width` float default '0',
1110 `label_height` float default '0',
1111 `topmargin` float default '0',
1112 `leftmargin` float default '0',
1113 `cols` int(2) default '0',
1114 `rows` int(2) default '0',
1115 `colgap` float default '0',
1116 `rowgap` float default '0',
1117 `active` int(1) default NULL,
1118 `units` char(20) default 'PX',
1119 `fontsize` int(4) NOT NULL default '3',
1120 PRIMARY KEY (`tmpl_id`)
1121 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1122 $dbh->do("CREATE TABLE IF NOT EXISTS `printers_profile` (
1123 `prof_id` int(4) NOT NULL auto_increment,
1124 `printername` varchar(40) NOT NULL,
1125 `tmpl_id` int(4) NOT NULL,
1126 `paper_bin` varchar(20) NOT NULL,
1127 `offset_horz` float default NULL,
1128 `offset_vert` float default NULL,
1129 `creep_horz` float default NULL,
1130 `creep_vert` float default NULL,
1131 `unit` char(20) NOT NULL default 'POINT',
1132 PRIMARY KEY (`prof_id`),
1133 UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1134 CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1135 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1136 print "Upgrade to $DBversion done ( Added labels_templates table if it did not exist. )\n";
1137 SetVersion ($DBversion);
1140 $DBversion = "3.00.00.060";
1141 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1142 $dbh->do("CREATE TABLE IF NOT EXISTS `patronimage` (
1143 `cardnumber` varchar(16) NOT NULL,
1144 `mimetype` varchar(15) NOT NULL,
1145 `imagefile` mediumblob NOT NULL,
1146 PRIMARY KEY (`cardnumber`),
1147 CONSTRAINT `patronimage_fk1` FOREIGN KEY (`cardnumber`) REFERENCES `borrowers` (`cardnumber`) ON DELETE CASCADE ON UPDATE CASCADE
1148 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1149 print "Upgrade to $DBversion done ( Added patronimage table. )\n";
1150 SetVersion ($DBversion);
1153 $DBversion = "3.00.00.061";
1154 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1155 $dbh->do("ALTER TABLE labels_templates ADD COLUMN font char(10) NOT NULL DEFAULT 'TR';");
1156 print "Upgrade to $DBversion done ( Added font column to labels_templates )\n";
1157 SetVersion ($DBversion);
1160 $DBversion = "3.00.00.062";
1161 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1162 $dbh->do("CREATE TABLE `old_issues` (
1163 `borrowernumber` int(11) default NULL,
1164 `itemnumber` int(11) default NULL,
1165 `date_due` date default NULL,
1166 `branchcode` varchar(10) default NULL,
1167 `issuingbranch` varchar(18) default NULL,
1168 `returndate` date default NULL,
1169 `lastreneweddate` date default NULL,
1170 `return` varchar(4) default NULL,
1171 `renewals` tinyint(4) default NULL,
1172 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1173 `issuedate` date default NULL,
1174 KEY `old_issuesborridx` (`borrowernumber`),
1175 KEY `old_issuesitemidx` (`itemnumber`),
1176 KEY `old_bordate` (`borrowernumber`,`timestamp`),
1177 CONSTRAINT `old_issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1178 ON DELETE SET NULL ON UPDATE SET NULL,
1179 CONSTRAINT `old_issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1180 ON DELETE SET NULL ON UPDATE SET NULL
1181 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1182 $dbh->do("CREATE TABLE `old_reserves` (
1183 `borrowernumber` int(11) default NULL,
1184 `reservedate` date default NULL,
1185 `biblionumber` int(11) default NULL,
1186 `constrainttype` varchar(1) default NULL,
1187 `branchcode` varchar(10) default NULL,
1188 `notificationdate` date default NULL,
1189 `reminderdate` date default NULL,
1190 `cancellationdate` date default NULL,
1191 `reservenotes` mediumtext,
1192 `priority` smallint(6) default NULL,
1193 `found` varchar(1) default NULL,
1194 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1195 `itemnumber` int(11) default NULL,
1196 `waitingdate` date default NULL,
1197 KEY `old_reserves_borrowernumber` (`borrowernumber`),
1198 KEY `old_reserves_biblionumber` (`biblionumber`),
1199 KEY `old_reserves_itemnumber` (`itemnumber`),
1200 KEY `old_reserves_branchcode` (`branchcode`),
1201 CONSTRAINT `old_reserves_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1202 ON DELETE SET NULL ON UPDATE SET NULL,
1203 CONSTRAINT `old_reserves_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`)
1204 ON DELETE SET NULL ON UPDATE SET NULL,
1205 CONSTRAINT `old_reserves_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1206 ON DELETE SET NULL ON UPDATE SET NULL
1207 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1209 # move closed transactions to old_* tables
1210 $dbh->do("INSERT INTO old_issues SELECT * FROM issues WHERE returndate IS NOT NULL");
1211 $dbh->do("DELETE FROM issues WHERE returndate IS NOT NULL");
1212 $dbh->do("INSERT INTO old_reserves SELECT * FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1213 $dbh->do("DELETE FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1215 print "Upgrade to $DBversion done ( Added old_issues and old_reserves tables )\n";
1216 SetVersion ($DBversion);
1219 $DBversion = "3.00.00.063";
1220 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1221 $dbh->do("ALTER TABLE deleteditems
1222 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT DEFAULT NULL,
1223 ADD COLUMN enumchron VARCHAR(80) DEFAULT NULL AFTER more_subfields_xml,
1224 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1225 $dbh->do("ALTER TABLE items
1226 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT,
1227 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1228 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";
1229 SetVersion ($DBversion);
1232 $DBversion = "3.00.00.064";
1233 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1234 $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');");
1235 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSAccessKeyID','','See: http://aws.amazon.com','','free');");
1236 $dbh->do("DELETE FROM `systempreferences` WHERE variable='AmazonDevKey';");
1237 $dbh->do("DELETE FROM `systempreferences` WHERE variable='XISBNAmazonSimilarItems';");
1238 $dbh->do("DELETE FROM `systempreferences` WHERE variable='OPACXISBNAmazonSimilarItems';");
1239 print "Upgrade to $DBversion done (IMPORTANT: Upgrading to Amazon.com Associates Web Service 4.0 ) \n";
1240 SetVersion ($DBversion);
1243 $DBversion = "3.00.00.065";
1244 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1245 $dbh->do("CREATE TABLE `patroncards` (
1246 `cardid` int(11) NOT NULL auto_increment,
1247 `batch_id` varchar(10) NOT NULL default '1',
1248 `borrowernumber` int(11) NOT NULL,
1249 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1250 PRIMARY KEY (`cardid`),
1251 KEY `patroncards_ibfk_1` (`borrowernumber`),
1252 CONSTRAINT `patroncards_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1253 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1254 print "Upgrade to $DBversion done (Adding patroncards table for patroncards generation feature. ) \n";
1255 SetVersion ($DBversion);
1258 $DBversion = "3.00.00.066";
1259 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1260 $dbh->do("ALTER TABLE `virtualshelfcontents` MODIFY `dateadded` timestamp NOT NULL
1261 DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP;
1263 print "Upgrade to $DBversion done (fix for bug 1873: virtualshelfcontents dateadded column empty. ) \n";
1264 SetVersion ($DBversion);
1267 $DBversion = "3.00.00.067";
1268 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1269 $dbh->do("UPDATE systempreferences SET explanation = 'Enable patron images for the Staff Client', type = 'YesNo' WHERE variable = 'patronimages'");
1270 print "Upgrade to $DBversion done (Updating patronimages syspref to reflect current kohastructure.sql. ) \n";
1271 SetVersion ($DBversion);
1274 $DBversion = "3.00.00.068";
1275 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1276 $dbh->do("CREATE TABLE `permissions` (
1277 `module_bit` int(11) NOT NULL DEFAULT 0,
1278 `code` varchar(30) DEFAULT NULL,
1279 `description` varchar(255) DEFAULT NULL,
1280 PRIMARY KEY (`module_bit`, `code`),
1281 CONSTRAINT `permissions_ibfk_1` FOREIGN KEY (`module_bit`) REFERENCES `userflags` (`bit`)
1282 ON DELETE CASCADE ON UPDATE CASCADE
1283 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1284 $dbh->do("CREATE TABLE `user_permissions` (
1285 `borrowernumber` int(11) NOT NULL DEFAULT 0,
1286 `module_bit` int(11) NOT NULL DEFAULT 0,
1287 `code` varchar(30) DEFAULT NULL,
1288 CONSTRAINT `user_permissions_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1289 ON DELETE CASCADE ON UPDATE CASCADE,
1290 CONSTRAINT `user_permissions_ibfk_2` FOREIGN KEY (`module_bit`, `code`)
1291 REFERENCES `permissions` (`module_bit`, `code`)
1292 ON DELETE CASCADE ON UPDATE CASCADE
1293 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1295 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
1296 (13, 'edit_news', 'Write news for the OPAC and staff interfaces'),
1297 (13, 'label_creator', 'Create printable labels and barcodes from catalog and patron data'),
1298 (13, 'edit_calendar', 'Define days when the library is closed'),
1299 (13, 'moderate_comments', 'Moderate patron comments'),
1300 (13, 'edit_notices', 'Define notices'),
1301 (13, 'edit_notice_status_triggers', 'Set notice/status triggers for overdue items'),
1302 (13, 'view_system_logs', 'Browse the system logs'),
1303 (13, 'inventory', 'Perform inventory (stocktaking) of your catalogue'),
1304 (13, 'stage_marc_import', 'Stage MARC records into the reservoir'),
1305 (13, 'manage_staged_marc', 'Managed staged MARC records, including completing and reversing imports'),
1306 (13, 'export_catalog', 'Export bibliographic and holdings data'),
1307 (13, 'import_patrons', 'Import patron data'),
1308 (13, 'delete_anonymize_patrons', 'Delete old borrowers and anonymize circulation history (deletes borrower reading history)'),
1309 (13, 'batch_upload_patron_images', 'Upload patron images in batch or one at a time'),
1310 (13, 'schedule_tasks', 'Schedule tasks to run')");
1312 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('GranularPermissions','0','Use detailed staff user permissions',NULL,'YesNo')");
1314 print "Upgrade to $DBversion done (adding permissions and user_permissions tables and GranularPermissions syspref) \n";
1315 SetVersion ($DBversion);
1317 $DBversion = "3.00.00.069";
1318 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1319 $dbh->do("ALTER TABLE labels_conf CHANGE COLUMN class classification int(1) DEFAULT NULL;");
1320 print "Upgrade to $DBversion done ( Correcting columname in labels_conf )\n";
1321 SetVersion ($DBversion);
1324 $DBversion = "3.00.00.070";
1325 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1326 $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='yuipath'");
1328 my ($value) = $sth->fetchrow;
1329 $value =~ s/2.3.1/2.5.1/;
1330 $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='yuipath';");
1331 print "Update yuipath syspref to 2.5.1 if necessary\n";
1332 SetVersion ($DBversion);
1335 $DBversion = "3.00.00.071";
1336 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1337 $dbh->do(" ALTER TABLE `subscription` ADD `serialsadditems` TINYINT( 1 ) NOT NULL DEFAULT '0';");
1338 # fill the new field with the previous systempreference value, then drop the syspref
1339 my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='serialsadditems'");
1341 my ($serialsadditems) = $sth->fetchrow();
1342 $dbh->do("UPDATE subscription SET serialsadditems=$serialsadditems");
1343 $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1344 print "Upgrade to $DBversion done ( moving serialsadditems from syspref to subscription )\n";
1345 SetVersion ($DBversion);
1348 $DBversion = "3.00.00.072";
1349 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1350 $dbh->do("ALTER TABLE labels_conf ADD COLUMN formatstring mediumtext DEFAULT NULL AFTER printingtype");
1351 print "Upgrade to $DBversion done ( Adding format string to labels generator. )\n";
1352 SetVersion ($DBversion);
1355 $DBversion = "3.00.00.073";
1356 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1357 $dbh->do("DROP TABLE IF EXISTS `tags_all`;");
1359 CREATE TABLE `tags_all` (
1360 `tag_id` int(11) NOT NULL auto_increment,
1361 `borrowernumber` int(11) NOT NULL,
1362 `biblionumber` int(11) NOT NULL,
1363 `term` varchar(255) NOT NULL,
1364 `language` int(4) default NULL,
1365 `date_created` datetime NOT NULL,
1366 PRIMARY KEY (`tag_id`),
1367 KEY `tags_borrowers_fk_1` (`borrowernumber`),
1368 KEY `tags_biblionumber_fk_1` (`biblionumber`),
1369 CONSTRAINT `tags_borrowers_fk_1` FOREIGN KEY (`borrowernumber`)
1370 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1371 CONSTRAINT `tags_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1372 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1373 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1375 $dbh->do("DROP TABLE IF EXISTS `tags_approval`;");
1377 CREATE TABLE `tags_approval` (
1378 `term` varchar(255) NOT NULL,
1379 `approved` int(1) NOT NULL default '0',
1380 `date_approved` datetime default NULL,
1381 `approved_by` int(11) default NULL,
1382 `weight_total` int(9) NOT NULL default '1',
1383 PRIMARY KEY (`term`),
1384 KEY `tags_approval_borrowers_fk_1` (`approved_by`),
1385 CONSTRAINT `tags_approval_borrowers_fk_1` FOREIGN KEY (`approved_by`)
1386 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1387 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1389 $dbh->do("DROP TABLE IF EXISTS `tags_index`;");
1391 CREATE TABLE `tags_index` (
1392 `term` varchar(255) NOT NULL,
1393 `biblionumber` int(11) NOT NULL,
1394 `weight` int(9) NOT NULL default '1',
1395 PRIMARY KEY (`term`,`biblionumber`),
1396 KEY `tags_index_biblionumber_fk_1` (`biblionumber`),
1397 CONSTRAINT `tags_index_term_fk_1` FOREIGN KEY (`term`)
1398 REFERENCES `tags_approval` (`term`) ON DELETE CASCADE ON UPDATE CASCADE,
1399 CONSTRAINT `tags_index_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1400 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1401 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1404 INSERT INTO `systempreferences` VALUES
1405 ('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=',''),
1406 ('BakerTaylorEnabled','0','','Enable or disable all Baker & Taylor features.','YesNo'),
1407 ('BakerTaylorPassword','','','Baker & Taylor Password for Content Cafe (external content)','Textarea'),
1408 ('BakerTaylorUsername','','','Baker & Taylor Username for Content Cafe (external content)','Textarea'),
1409 ('TagsEnabled','1','','Enables or disables all tagging features. This is the main switch for tags.','YesNo'),
1410 ('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.',''),
1411 ('TagsInputOnDetail','1','','Allow users to input tags from the detail page.', 'YesNo'),
1412 ('TagsInputOnList', '0','','Allow users to input tags from the search results list.', 'YesNo'),
1413 ('TagsModeration', NULL,'','Require tags from patrons to be approved before becoming visible.','YesNo'),
1414 ('TagsShowOnDetail','10','','Number of tags to display on detail page. 0 is off.', 'Integer'),
1415 ('TagsShowOnList', '6','','Number of tags to display on search results list. 0 is off.','Integer')
1417 print "Upgrade to $DBversion done (Baker/Taylor,Tags: sysprefs and tables (tags_all, tags_index, tags_approval)) \n";
1418 SetVersion ($DBversion);
1421 $DBversion = "3.00.00.074";
1422 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1423 $dbh->do( q(update itemtypes set imageurl = concat( 'npl/', imageurl )
1424 where imageurl not like 'http%'
1425 and imageurl is not NULL
1426 and imageurl != '') );
1427 print "Upgrade to $DBversion done (updating imagetype.imageurls to reflect new icon locations.)\n";
1428 SetVersion ($DBversion);
1431 $DBversion = "3.00.00.075";
1432 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1433 $dbh->do( q(alter table authorised_values add imageurl varchar(200) default NULL) );
1434 print "Upgrade to $DBversion done (adding imageurl field to authorised_values table)\n";
1435 SetVersion ($DBversion);
1438 $DBversion = "3.00.00.076";
1439 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1440 $dbh->do("ALTER TABLE import_batches
1441 ADD COLUMN nomatch_action enum('create_new', 'ignore') NOT NULL default 'create_new' AFTER overlay_action");
1442 $dbh->do("ALTER TABLE import_batches
1443 ADD COLUMN item_action enum('always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore')
1444 NOT NULL default 'always_add' AFTER nomatch_action");
1445 $dbh->do("ALTER TABLE import_batches
1446 MODIFY overlay_action enum('replace', 'create_new', 'use_template', 'ignore')
1447 NOT NULL default 'create_new'");
1448 $dbh->do("ALTER TABLE import_records
1449 MODIFY status enum('error', 'staged', 'imported', 'reverted', 'items_reverted',
1450 'ignored') NOT NULL default 'staged'");
1451 $dbh->do("ALTER TABLE import_items
1452 MODIFY status enum('error', 'staged', 'imported', 'reverted', 'ignored') NOT NULL default 'staged'");
1454 print "Upgrade to $DBversion done (changes to import_batches and import_records)\n";
1455 SetVersion ($DBversion);
1458 $DBversion = "3.00.00.077";
1459 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1460 # drop these tables only if they exist and none of them are empty
1461 # these tables are not defined in the packaged 2.2.9, but since it is believed
1462 # that at least one library may be using them in a post-2.2.9 but pre-3.0 Koha,
1463 # some care is taken.
1464 my ($print_error) = $dbh->{PrintError};
1465 $dbh->{PrintError} = 0;
1466 my ($raise_error) = $dbh->{RaiseError};
1467 $dbh->{RaiseError} = 1;
1471 eval { $count = $dbh->do("SELECT 1 FROM categorytable"); };
1475 eval { $count = $dbh->do("SELECT 1 FROM mediatypetable"); };
1479 eval { $count = $dbh->do("SELECT 1 FROM subcategorytable"); };
1485 $dbh->do("DROP TABLE IF EXISTS `categorytable`");
1486 $dbh->do("DROP TABLE IF EXISTS `mediatypetable`");
1487 $dbh->do("DROP TABLE IF EXISTS `subcategorytable`");
1490 $dbh->{PrintError} = $print_error;
1491 $dbh->{RaiseError} = $raise_error;
1492 print "Upgrade to $DBversion done (drop categorytable, subcategorytable, and mediatypetable)\n";
1493 SetVersion ($DBversion);
1496 $DBversion = "3.00.00.078";
1497 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1498 my ($print_error) = $dbh->{PrintError};
1499 $dbh->{PrintError} = 0;
1501 unless ($dbh->do("SELECT 1 FROM browser")) {
1502 $dbh->{PrintError} = $print_error;
1503 $dbh->do("CREATE TABLE `browser` (
1504 `level` int(11) NOT NULL,
1505 `classification` varchar(20) NOT NULL,
1506 `description` varchar(255) NOT NULL,
1507 `number` bigint(20) NOT NULL,
1508 `endnode` tinyint(4) NOT NULL
1509 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1511 $dbh->{PrintError} = $print_error;
1512 print "Upgrade to $DBversion done (add browser table if not already present)\n";
1513 SetVersion ($DBversion);
1516 $DBversion = "3.00.00.079";
1517 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1518 my ($print_error) = $dbh->{PrintError};
1519 $dbh->{PrintError} = 0;
1521 $dbh->do("INSERT INTO `systempreferences` (variable, value,options,type, explanation)VALUES
1522 ('AddPatronLists','categorycode','categorycode|category_type','Choice','Allow user to choose what list to pick up from when adding patrons')");
1523 print "Upgrade to $DBversion done (add browser table if not already present)\n";
1524 SetVersion ($DBversion);
1527 $DBversion = "3.00.00.080";
1528 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1529 $dbh->do("ALTER TABLE subscription CHANGE monthlength monthlength int(11) default '0'");
1530 $dbh->do("ALTER TABLE deleteditems MODIFY marc LONGBLOB AFTER copynumber");
1531 $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
1532 print "Upgrade to $DBversion done (catch up on DB schema changes since alpha and beta)\n";
1533 SetVersion ($DBversion);
1536 $DBversion = "3.00.00.081";
1537 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1538 $dbh->do("CREATE TABLE `borrower_attribute_types` (
1539 `code` varchar(10) NOT NULL,
1540 `description` varchar(255) NOT NULL,
1541 `repeatable` tinyint(1) NOT NULL default 0,
1542 `unique_id` tinyint(1) NOT NULL default 0,
1543 `opac_display` tinyint(1) NOT NULL default 0,
1544 `password_allowed` tinyint(1) NOT NULL default 0,
1545 `staff_searchable` tinyint(1) NOT NULL default 0,
1546 `authorised_value_category` varchar(10) default NULL,
1547 PRIMARY KEY (`code`)
1548 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1549 $dbh->do("CREATE TABLE `borrower_attributes` (
1550 `borrowernumber` int(11) NOT NULL,
1551 `code` varchar(10) NOT NULL,
1552 `attribute` varchar(30) default NULL,
1553 `password` varchar(30) default NULL,
1554 KEY `borrowernumber` (`borrowernumber`),
1555 KEY `code_attribute` (`code`, `attribute`),
1556 CONSTRAINT `borrower_attributes_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1557 ON DELETE CASCADE ON UPDATE CASCADE,
1558 CONSTRAINT `borrower_attributes_ibfk_2` FOREIGN KEY (`code`) REFERENCES `borrower_attribute_types` (`code`)
1559 ON DELETE CASCADE ON UPDATE CASCADE
1560 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1561 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ExtendedPatronAttributes','0','Use extended patron IDs and attributes',NULL,'YesNo')");
1562 print "Upgrade to $DBversion done (added borrower_attributes and borrower_attribute_types)\n";
1563 SetVersion ($DBversion);
1566 $DBversion = "3.00.00.082";
1567 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1568 $dbh->do( q(alter table accountlines add column lastincrement decimal(28,6) default NULL) );
1569 print "Upgrade to $DBversion done (adding lastincrement column to accountlines table)\n";
1570 SetVersion ($DBversion);
1573 $DBversion = "3.00.00.083";
1574 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1575 $dbh->do( qq(UPDATE systempreferences SET value='local' where variable='yuipath' and value like "%/intranet-tmpl/prog/%"));
1576 print "Upgrade to $DBversion done (Changing yuipath behaviour in managing a local value)\n";
1577 SetVersion ($DBversion);
1579 $DBversion = "3.00.00.084";
1580 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1581 $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')");
1582 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('GoogleJackets','0','if ON, displays jacket covers from Google Books API',NULL,'YesNo')");
1583 print "Upgrade to $DBversion done (add new sysprefs)\n";
1584 SetVersion ($DBversion);
1587 $DBversion = "3.00.00.085";
1588 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1589 if (C4::Context->preference("marcflavour") eq 'MARC21') {
1590 $dbh->do("UPDATE marc_subfield_structure SET tab = 0 WHERE tab = 9 AND tagfield = '037'");
1591 $dbh->do("UPDATE marc_subfield_structure SET tab = 1 WHERE tab = 6 AND tagfield in ('100', '110', '111', '130')");
1592 $dbh->do("UPDATE marc_subfield_structure SET tab = 2 WHERE tab = 6 AND tagfield in ('240', '243')");
1593 $dbh->do("UPDATE marc_subfield_structure SET tab = 4 WHERE tab = 6 AND tagfield in ('400', '410', '411', '440')");
1594 $dbh->do("UPDATE marc_subfield_structure SET tab = 5 WHERE tab = 9 AND tagfield = '584'");
1595 $dbh->do("UPDATE marc_subfield_structure SET tab = 7 WHERE tab = -6 AND tagfield = '760'");
1597 print "Upgrade to $DBversion done (move editing tab of various MARC21 subfields)\n";
1598 SetVersion ($DBversion);
1601 $DBversion = "3.00.00.086";
1602 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1604 "CREATE TABLE `tmp_holdsqueue` (
1605 `biblionumber` int(11) default NULL,
1606 `itemnumber` int(11) default NULL,
1607 `barcode` varchar(20) default NULL,
1608 `surname` mediumtext NOT NULL,
1611 `borrowernumber` int(11) NOT NULL,
1612 `cardnumber` varchar(16) default NULL,
1613 `reservedate` date default NULL,
1615 `itemcallnumber` varchar(30) default NULL,
1616 `holdingbranch` varchar(10) default NULL,
1617 `pickbranch` varchar(10) default NULL,
1619 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1621 $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')");
1622 $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')");
1624 print "Upgrade to $DBversion done (Table structure for table `tmp_holdsqueue`)\n";
1625 SetVersion ($DBversion);
1628 $DBversion = "3.00.00.087";
1629 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1630 $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailOpacUser','0','','Sends notification emails containing new account details to patrons - when account is created.','YesNo')" );
1631 $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')");
1632 print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1633 SetVersion ($DBversion);
1636 $DBversion = "3.00.00.088";
1637 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1638 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACShelfBrowser','1','','Enable/disable Shelf Browser on item details page','YesNo')");
1639 $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')");
1640 $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')");
1641 $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')");
1642 print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1643 SetVersion ($DBversion);
1646 $DBversion = "3.00.00.089";
1647 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1648 $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')");
1649 print "Upgrade to $DBversion done (added new AdvancedSearchTypes syspref)\n";
1650 SetVersion ($DBversion);
1653 $DBversion = "3.00.00.090";
1654 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1656 CREATE TABLE `branch_borrower_circ_rules` (
1657 `branchcode` VARCHAR(10) NOT NULL,
1658 `categorycode` VARCHAR(10) NOT NULL,
1659 `maxissueqty` int(4) default NULL,
1660 PRIMARY KEY (`categorycode`, `branchcode`),
1661 CONSTRAINT `branch_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1662 ON DELETE CASCADE ON UPDATE CASCADE,
1663 CONSTRAINT `branch_borrower_circ_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1664 ON DELETE CASCADE ON UPDATE CASCADE
1665 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1668 CREATE TABLE `default_borrower_circ_rules` (
1669 `categorycode` VARCHAR(10) NOT NULL,
1670 `maxissueqty` int(4) default NULL,
1671 PRIMARY KEY (`categorycode`),
1672 CONSTRAINT `borrower_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1673 ON DELETE CASCADE ON UPDATE CASCADE
1674 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1677 CREATE TABLE `default_branch_circ_rules` (
1678 `branchcode` VARCHAR(10) NOT NULL,
1679 `maxissueqty` int(4) default NULL,
1680 PRIMARY KEY (`branchcode`),
1681 CONSTRAINT `default_branch_circ_rules_ibfk_1` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1682 ON DELETE CASCADE ON UPDATE CASCADE
1683 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1686 CREATE TABLE `default_circ_rules` (
1687 `singleton` enum('singleton') NOT NULL default 'singleton',
1688 `maxissueqty` int(4) default NULL,
1689 PRIMARY KEY (`singleton`)
1690 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1692 print "Upgrade to $DBversion done (added several circ rules tables)\n";
1693 SetVersion ($DBversion);
1697 $DBversion = "3.00.00.091";
1698 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1699 $dbh->do(<<'END_SQL');
1700 ALTER TABLE borrowers
1701 ADD `smsalertnumber` varchar(50) default NULL
1704 $dbh->do(<<'END_SQL');
1705 CREATE TABLE `message_attributes` (
1706 `message_attribute_id` int(11) NOT NULL auto_increment,
1707 `message_name` varchar(20) NOT NULL default '',
1708 `takes_days` tinyint(1) NOT NULL default '0',
1709 PRIMARY KEY (`message_attribute_id`),
1710 UNIQUE KEY `message_name` (`message_name`)
1711 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1714 $dbh->do(<<'END_SQL');
1715 CREATE TABLE `message_transport_types` (
1716 `message_transport_type` varchar(20) NOT NULL,
1717 PRIMARY KEY (`message_transport_type`)
1718 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1721 $dbh->do(<<'END_SQL');
1722 CREATE TABLE `message_transports` (
1723 `message_attribute_id` int(11) NOT NULL,
1724 `message_transport_type` varchar(20) NOT NULL,
1725 `is_digest` tinyint(1) NOT NULL default '0',
1726 `letter_module` varchar(20) NOT NULL default '',
1727 `letter_code` varchar(20) NOT NULL default '',
1728 PRIMARY KEY (`message_attribute_id`,`message_transport_type`,`is_digest`),
1729 KEY `message_transport_type` (`message_transport_type`),
1730 KEY `letter_module` (`letter_module`,`letter_code`),
1731 CONSTRAINT `message_transports_ibfk_1` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE,
1732 CONSTRAINT `message_transports_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE,
1733 CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`) REFERENCES `letter` (`module`, `code`) ON DELETE CASCADE ON UPDATE CASCADE
1734 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1737 $dbh->do(<<'END_SQL');
1738 CREATE TABLE `borrower_message_preferences` (
1739 `borrower_message_preference_id` int(11) NOT NULL auto_increment,
1740 `borrowernumber` int(11) NOT NULL default '0',
1741 `message_attribute_id` int(11) default '0',
1742 `days_in_advance` int(11) default '0',
1743 `wants_digets` tinyint(1) NOT NULL default '0',
1744 PRIMARY KEY (`borrower_message_preference_id`),
1745 KEY `borrowernumber` (`borrowernumber`),
1746 KEY `message_attribute_id` (`message_attribute_id`),
1747 CONSTRAINT `borrower_message_preferences_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1748 CONSTRAINT `borrower_message_preferences_ibfk_2` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE
1749 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1752 $dbh->do(<<'END_SQL');
1753 CREATE TABLE `borrower_message_transport_preferences` (
1754 `borrower_message_preference_id` int(11) NOT NULL default '0',
1755 `message_transport_type` varchar(20) NOT NULL default '0',
1756 PRIMARY KEY (`borrower_message_preference_id`,`message_transport_type`),
1757 KEY `message_transport_type` (`message_transport_type`),
1758 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,
1759 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
1760 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1763 $dbh->do(<<'END_SQL');
1764 CREATE TABLE `message_queue` (
1765 `message_id` int(11) NOT NULL auto_increment,
1766 `borrowernumber` int(11) NOT NULL,
1769 `message_transport_type` varchar(20) NOT NULL,
1770 `status` enum('sent','pending','failed','deleted') NOT NULL default 'pending',
1771 `time_queued` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1772 KEY `message_id` (`message_id`),
1773 KEY `borrowernumber` (`borrowernumber`),
1774 KEY `message_transport_type` (`message_transport_type`),
1775 CONSTRAINT `messageq_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1776 CONSTRAINT `messageq_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE RESTRICT ON UPDATE CASCADE
1777 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1780 $dbh->do(<<'END_SQL');
1781 INSERT INTO `systempreferences`
1782 (variable,value,explanation,options,type)
1784 ('EnhancedMessagingPreferences',0,'If ON, allows patrons to select to receive additional messages about items due or nearly due.','','YesNo')
1787 $dbh->do( <<'END_SQL');
1788 INSERT INTO `letter`
1789 (module, code, name, title, content)
1791 ('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>>'),
1792 ('circulation','DUEDGST','Item Due Reminder (Digest)','Item Due Reminder','You have <<count>> items due'),
1793 ('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>>'),
1794 ('circulation','PREDUEDGST','Advance Notice of Item Due (Digest)','Advance Notice of Item Due','You have <<count>> items due soon'),
1795 ('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.');
1799 'installer/data/mysql/en/mandatory/message_transport_types.sql',
1800 'installer/data/mysql/en/optional/sample_notices_message_attributes.sql',
1801 'installer/data/mysql/en/optional/sample_notices_message_transports.sql',
1804 my $installer = C4::Installer->new();
1805 foreach my $script ( @sql_scripts ) {
1806 my $full_path = $installer->get_file_path_from_name($script);
1807 my $error = $installer->load_sql($full_path);
1808 warn $error if $error;
1811 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";
1812 SetVersion ($DBversion);
1815 $DBversion = "3.00.00.092";
1816 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1817 $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')");
1818 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AllowHoldsOnDamagedItems', '1', '', 'Allow hold requests to be placed on damaged items', 'YesNo')");
1819 print "Upgrade to $DBversion done (added new AllowOnShelfHolds syspref)\n";
1820 SetVersion ($DBversion);
1823 $DBversion = "3.00.00.093";
1824 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1825 $dbh->do("ALTER TABLE `items` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1826 $dbh->do("ALTER TABLE `deleteditems` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1827 print "Upgrade to $DBversion done (Change data type of items.copynumber to allow free text)\n";
1828 SetVersion ($DBversion);
1831 $DBversion = "3.00.00.094";
1832 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1833 $dbh->do("ALTER TABLE `marc_subfield_structure` MODIFY `tagsubfield` VARCHAR(1) NOT NULL DEFAULT '' COLLATE utf8_bin");
1834 print "Upgrade to $DBversion done (Change Collation of marc_subfield_structure to allow mixed case in subfield labels.)\n";
1835 SetVersion ($DBversion);
1838 $DBversion = "3.00.00.095";
1839 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1840 if (C4::Context->preference("marcflavour") eq 'MARC21') {
1841 $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'MEETI_NAME' WHERE authtypecode = 'Meeting Name'");
1842 $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'CORPO_NAME' WHERE authtypecode = 'CORP0_NAME'");
1844 print "Upgrade to $DBversion done (fix invalid authority types in MARC21 frameworks [bug 2254])\n";
1845 SetVersion ($DBversion);
1848 $DBversion = "3.00.00.096";
1849 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1850 $sth = $dbh->prepare("SHOW COLUMNS FROM borrower_message_preferences LIKE 'wants_digets'");
1852 if (my $row = $sth->fetchrow_hashref) {
1853 $dbh->do("ALTER TABLE borrower_message_preferences CHANGE wants_digets wants_digest tinyint(1) NOT NULL default 0");
1855 print "Upgrade to $DBversion done (fix name borrower_message_preferences.wants_digest)\n";
1856 SetVersion ($DBversion);
1859 $DBversion = '3.00.00.097';
1860 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1862 $dbh->do('ALTER TABLE message_queue ADD to_address mediumtext default NULL');
1863 $dbh->do('ALTER TABLE message_queue ADD from_address mediumtext default NULL');
1864 $dbh->do('ALTER TABLE message_queue ADD content_type text');
1865 $dbh->do('ALTER TABLE message_queue CHANGE borrowernumber borrowernumber int(11) default NULL');
1867 print "Upgrade to $DBversion done (updating 4 fields in message_queue table)\n";
1868 SetVersion($DBversion);
1871 $DBversion = '3.00.00.098';
1872 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1874 $dbh->do(q(DELETE FROM message_transport_types WHERE message_transport_type = 'rss'));
1875 $dbh->do(q(DELETE FROM message_transports WHERE message_transport_type = 'rss'));
1877 print "Upgrade to $DBversion done (removing unused RSS message_transport_type)\n";
1878 SetVersion($DBversion);
1881 $DBversion = '3.00.00.099';
1882 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1883 $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')");
1884 print "Upgrade to $DBversion done (Adding OpacSuppression syspref)\n";
1885 SetVersion($DBversion);
1888 $DBversion = '3.00.00.100';
1889 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1890 $dbh->do('ALTER TABLE virtualshelves ADD COLUMN lastmodified timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP');
1891 print "Upgrade to $DBversion done (Adding lastmodified column to virtualshelves)\n";
1892 SetVersion($DBversion);
1895 $DBversion = '3.00.00.101';
1896 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1897 $dbh->do('ALTER TABLE `overduerules` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1898 $dbh->do('ALTER TABLE `deletedborrowers` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1899 print "Upgrade to $DBversion done (Updating columnd definitions for patron category codes in notice/statsu triggers and deletedborrowers tables.)\n";
1900 SetVersion($DBversion);
1903 $DBversion = '3.00.00.102';
1904 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1905 $dbh->do('ALTER TABLE serialitems MODIFY `serialid` int(11) NOT NULL AFTER itemnumber' );
1906 $dbh->do('ALTER TABLE serialitems DROP KEY serialididx' );
1907 $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT UNIQUE KEY serialitemsidx (itemnumber)' );
1908 # before setting constraint, delete any unvalid data
1909 $dbh->do('DELETE from serialitems WHERE serialid not in (SELECT serial.serialid FROM serial)');
1910 $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT serialitems_sfk_1 FOREIGN KEY (serialid) REFERENCES serial (serialid) ON DELETE CASCADE ON UPDATE CASCADE' );
1911 print "Upgrade to $DBversion done (Updating serialitems table to allow for multiple items per serial fixing kohabug 2380)\n";
1912 SetVersion($DBversion);
1915 $DBversion = "3.00.00.103";
1916 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1917 $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1918 print "Upgrade to $DBversion done ( Verifying the removal of serialsadditems from syspref fixing kohabug 2219)\n";
1919 SetVersion ($DBversion);
1922 $DBversion = "3.00.00.104";
1923 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1924 $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1925 print "Upgrade to $DBversion done (remove superseded 'noOPACHolds' system preference per bug 2413)\n";
1926 SetVersion ($DBversion);
1929 $DBversion = '3.00.00.105';
1930 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
1932 # it is possible that this syspref is already defined since the feature was added some time ago.
1933 unless ( $dbh->do(q(SELECT variable FROM systempreferences WHERE variable = 'SMSSendDriver')) ) {
1934 $dbh->do(<<'END_SQL');
1935 INSERT INTO `systempreferences`
1936 (variable,value,explanation,options,type)
1938 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')
1941 print "Upgrade to $DBversion done (added SMSSendDriver system preference)\n";
1942 SetVersion($DBversion);
1945 $DBversion = "3.00.00.106";
1946 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1947 $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1949 # db revision 105 didn't apply correctly, so we're rolling this into 106
1950 $dbh->do("INSERT INTO `systempreferences`
1951 (variable,value,explanation,options,type)
1953 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')");
1955 print "Upgrade to $DBversion done (remove default '0000-00-00' in subscriptionhistory.enddate field)\n";
1956 $dbh->do("ALTER TABLE `subscriptionhistory` CHANGE `enddate` `enddate` DATE NULL DEFAULT NULL ");
1957 $dbh->do("UPDATE subscriptionhistory SET enddate=NULL WHERE enddate='0000-00-00'");
1958 SetVersion ($DBversion);
1961 $DBversion = '3.00.00.107';
1962 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1963 $dbh->do(<<'END_SQL');
1964 UPDATE systempreferences
1965 SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming on collections with large numbers of items.' )
1966 WHERE variable = 'OPACShelfBrowser'
1967 AND explanation NOT LIKE '%WARNING%'
1969 $dbh->do(<<'END_SQL');
1970 UPDATE systempreferences
1971 SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming.' )
1972 WHERE variable = 'CataloguingLog'
1973 AND explanation NOT LIKE '%WARNING%'
1975 $dbh->do(<<'END_SQL');
1976 UPDATE systempreferences
1977 SET explanation = CONCAT( explanation, '. WARNING: using NoZebra on even modest sized collections is very slow.' )
1978 WHERE variable = 'NoZebra'
1979 AND explanation NOT LIKE '%WARNING%'
1981 print "Upgrade to $DBversion done (warning added to OPACShelfBrowser system preference)\n";
1982 SetVersion ($DBversion);
1985 $DBversion = '3.01.00.000';
1986 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1987 print "Upgrade to $DBversion done (start of 3.1)\n";
1988 SetVersion ($DBversion);
1991 $DBversion = '3.01.00.001';
1992 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1994 CREATE TABLE hold_fill_targets (
1995 `borrowernumber` int(11) NOT NULL,
1996 `biblionumber` int(11) NOT NULL,
1997 `itemnumber` int(11) NOT NULL,
1998 `source_branchcode` varchar(10) default NULL,
1999 `item_level_request` tinyint(4) NOT NULL default 0,
2000 PRIMARY KEY `itemnumber` (`itemnumber`),
2001 KEY `bib_branch` (`biblionumber`, `source_branchcode`),
2002 CONSTRAINT `hold_fill_targets_ibfk_1` FOREIGN KEY (`borrowernumber`)
2003 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2004 CONSTRAINT `hold_fill_targets_ibfk_2` FOREIGN KEY (`biblionumber`)
2005 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2006 CONSTRAINT `hold_fill_targets_ibfk_3` FOREIGN KEY (`itemnumber`)
2007 REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2008 CONSTRAINT `hold_fill_targets_ibfk_4` FOREIGN KEY (`source_branchcode`)
2009 REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2010 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2013 ALTER TABLE tmp_holdsqueue
2014 ADD item_level_request tinyint(4) NOT NULL default 0
2017 print "Upgrade to $DBversion done (add hold_fill_targets table and a column to tmp_holdsqueue)\n";
2018 SetVersion($DBversion);
2021 $DBversion = '3.01.00.002';
2022 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2023 # use statistics where available
2025 ALTER TABLE statistics ADD KEY tmp_stats (type, itemnumber, borrowernumber)
2030 SELECT max(datetime)
2032 WHERE type = 'issue'
2033 AND itemnumber = iss.itemnumber
2034 AND borrowernumber = iss.borrowernumber
2036 WHERE issuedate IS NULL;
2038 $dbh->do("ALTER TABLE statistics DROP KEY tmp_stats");
2040 # default to last renewal date
2043 SET issuedate = lastreneweddate
2044 WHERE issuedate IS NULL
2045 and lastreneweddate IS NOT NULL
2048 my $num_bad_issuedates = $dbh->selectrow_array("SELECT COUNT(*) FROM issues WHERE issuedate IS NULL");
2049 if ($num_bad_issuedates > 0) {
2050 print STDERR "After the upgrade to $DBversion, there are still $num_bad_issuedates loan(s) with a NULL (blank) loan date. ",
2051 "Please check the issues table in your database.";
2053 print "Upgrade to $DBversion done (bug 2582: set null issues.issuedate to lastreneweddate)\n";
2054 SetVersion($DBversion);
2057 $DBversion = "3.01.00.003";
2058 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2059 $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')");
2060 print "Upgrade to $DBversion done (add new syspref)\n";
2061 SetVersion ($DBversion);
2064 $DBversion = '3.01.00.004';
2065 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2066 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACDisplayRequestPriority','0','Show patrons the priority level on holds in the OPAC','','YesNo')");
2067 print "Upgrade to $DBversion done (added OPACDisplayRequestPriority system preference)\n";
2068 SetVersion ($DBversion);
2071 $DBversion = '3.01.00.005';
2072 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2074 INSERT INTO `letter` (module, code, name, title, content)
2075 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>>')
2077 $dbh->do("INSERT INTO `message_attributes` (message_attribute_id, message_name, takes_days) values(4, 'Hold Filled', 0)");
2078 $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'sms', 0, 'reserves', 'HOLD')");
2079 $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'email', 0, 'reserves', 'HOLD')");
2080 print "Upgrade to $DBversion done (Add letter for holds notifications)\n";
2081 SetVersion ($DBversion);
2084 $DBversion = '3.01.00.006';
2085 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2086 $dbh->do("ALTER TABLE `biblioitems` ADD KEY issn (issn)");
2087 print "Upgrade to $DBversion done (add index on biblioitems.issn)\n";
2088 SetVersion ($DBversion);
2091 $DBversion = "3.01.00.007";
2092 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2093 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetmainUserblock'");
2094 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetuserjs'");
2095 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacheader'");
2096 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacMainUserBlock'");
2097 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacNav'");
2098 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacuserjs'");
2099 $dbh->do("UPDATE `systempreferences` SET options='30|10', type='Textarea' WHERE variable='OAI-PMH:Set'");
2100 $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetstylesheet'");
2101 $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetcolorstylesheet'");
2102 $dbh->do("UPDATE `systempreferences` SET options='10' WHERE variable='globalDueDate'");
2103 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='numSearchResults'");
2104 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='OPACnumSearchResults'");
2105 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='ReservesMaxPickupDelay'");
2106 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='TransfersMaxDaysWarning'");
2107 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='StaticHoldsQueueWeight'");
2108 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='holdCancelLength'");
2109 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='XISBNDailyLimit'");
2110 $dbh->do("UPDATE `systempreferences` SET type='Float' WHERE variable='gist'");
2111 $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorUsername'");
2112 $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorPassword'");
2113 $dbh->do("UPDATE `systempreferences` SET type='Textarea', options='70|10' WHERE variable='ISBD'");
2114 $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'");
2115 print "Upgrade to $DBversion done (fix display of many sysprefs)\n";
2116 SetVersion ($DBversion);
2119 $DBversion = '3.01.00.008';
2120 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2122 $dbh->do("CREATE TABLE branch_transfer_limits (
2123 limitId int(8) NOT NULL auto_increment,
2124 toBranch varchar(4) NOT NULL,
2125 fromBranch varchar(4) NOT NULL,
2126 itemtype varchar(4) NOT NULL,
2127 PRIMARY KEY (limitId)
2128 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
2131 $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')");
2133 print "Upgrade to $DBversion done (added branch_transfer_limits table and UseBranchTransferLimits system preference)\n";
2134 SetVersion ($DBversion);
2137 $DBversion = "3.01.00.009";
2138 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2139 $dbh->do("ALTER TABLE permissions MODIFY `code` varchar(64) DEFAULT NULL");
2140 $dbh->do("ALTER TABLE user_permissions MODIFY `code` varchar(64) DEFAULT NULL");
2141 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'circulate_remaining_permissions', 'Remaining circulation permissions')");
2142 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'override_renewals', 'Override blocked renewals')");
2143 print "Upgrade to $DBversion done (added subpermissions for circulate permission)\n";
2146 $DBversion = '3.01.00.010';
2147 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2148 $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `attribute` VARCHAR(64) DEFAULT NULL");
2149 $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `password` VARCHAR(64) DEFAULT NULL");
2150 print "Upgrade to $DBversion done (bug 2687: increase length of borrower attribute fields)\n";
2151 SetVersion ($DBversion);
2154 $DBversion = '3.01.00.011';
2155 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2157 # Yes, the old value was ^M terminated.
2158 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);";
2160 my $intranetuserjs = C4::Context->preference('intranetuserjs');
2161 if ($intranetuserjs and $intranetuserjs eq $bad_value) {
2162 my $sql = <<'END_SQL';
2163 UPDATE systempreferences
2165 WHERE variable = 'intranetuserjs'
2169 print "Upgrade to $DBversion done (removed bogus intranetuserjs syspref)\n";
2170 SetVersion($DBversion);
2173 $DBversion = "3.01.00.012";
2174 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2175 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldPolicyOverride', '0', 'Allow staff to override hold policies when placing holds',NULL,'YesNo')");
2177 CREATE TABLE `branch_item_rules` (
2178 `branchcode` varchar(10) NOT NULL,
2179 `itemtype` varchar(10) NOT NULL,
2180 `holdallowed` tinyint(1) default NULL,
2181 PRIMARY KEY (`itemtype`,`branchcode`),
2182 KEY `branch_item_rules_ibfk_2` (`branchcode`),
2183 CONSTRAINT `branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE,
2184 CONSTRAINT `branch_item_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2185 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2188 CREATE TABLE `default_branch_item_rules` (
2189 `itemtype` varchar(10) NOT NULL,
2190 `holdallowed` tinyint(1) default NULL,
2191 PRIMARY KEY (`itemtype`),
2192 CONSTRAINT `default_branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE
2193 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2196 ALTER TABLE default_branch_circ_rules
2197 ADD COLUMN holdallowed tinyint(1) NULL
2200 ALTER TABLE default_circ_rules
2201 ADD COLUMN holdallowed tinyint(1) NULL
2203 print "Upgrade to $DBversion done (Add tables and system preferences for holds policies)\n";
2204 SetVersion ($DBversion);
2207 $DBversion = '3.01.00.013';
2208 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2210 CREATE TABLE item_circulation_alert_preferences (
2211 id int(11) AUTO_INCREMENT,
2212 branchcode varchar(10) NOT NULL,
2213 categorycode varchar(10) NOT NULL,
2214 item_type varchar(10) NOT NULL,
2215 notification varchar(16) NOT NULL,
2217 KEY (branchcode, categorycode, item_type, notification)
2218 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2221 $dbh->do(q{ ALTER TABLE `message_queue` ADD metadata text DEFAULT NULL AFTER content; });
2222 $dbh->do(q{ ALTER TABLE `message_queue` ADD letter_code varchar(64) DEFAULT NULL AFTER metadata; });
2225 INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2226 ('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.');
2229 INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2230 ('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>>.');
2233 $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (5, 'Item Check-in', 0);});
2234 $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (6, 'Item Checkout', 0);});
2236 $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');});
2237 $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');});
2238 $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');});
2239 $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');});
2241 print "Upgrade to $DBversion done (data for Email Checkout Slips project)\n";
2242 SetVersion ($DBversion);
2245 $DBversion = "3.01.00.014";
2246 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2247 $dbh->do("ALTER TABLE `branch_transfer_limits` CHANGE `itemtype` `itemtype` VARCHAR( 4 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL");
2248 $dbh->do("ALTER TABLE `branch_transfer_limits` ADD `ccode` VARCHAR( 10 ) NULL ;");
2249 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2251 'BranchTransferLimitsType', 'ccode', 'itemtype|ccode', 'When using branch transfer limits, choose whether to limit by itemtype or collection code.', 'Choice'
2254 print "Upgrade to $DBversion done ( Updated table for Branch Transfer Limits)\n";
2255 SetVersion ($DBversion);
2258 $DBversion = '3.01.00.015';
2259 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2260 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsClientCode', '0', 'Client Code for using Syndetics Solutions content','','free')");
2262 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEnabled', '0', 'Turn on Syndetics Enhanced Content','','YesNo')");
2264 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImages', '0', 'Display Cover Images from Syndetics','','YesNo')");
2266 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsTOC', '0', 'Display Table of Content information from Syndetics','','YesNo')");
2268 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSummary', '0', 'Display Summary Information from Syndetics','','YesNo')");
2270 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEditions', '0', 'Display Editions from Syndetics','','YesNo')");
2272 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsExcerpt', '0', 'Display Excerpts and first chapters on OPAC from Syndetics','','YesNo')");
2274 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsReviews', '0', 'Display Reviews on OPAC from Syndetics','','YesNo')");
2276 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAuthorNotes', '0', 'Display Notes about the Author on OPAC from Syndetics','','YesNo')");
2278 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAwards', '0', 'Display Awards on OPAC from Syndetics','','YesNo')");
2280 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSeries', '0', 'Display Series information on OPAC from Syndetics','','YesNo')");
2282 $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')");
2284 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonCoverImages', '0', 'Display cover images on OPAC from Amazon Web Services','','YesNo')");
2286 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonCoverImages', '0', 'Display Cover Images in Staff Client from Amazon Web Services','','YesNo')");
2288 $dbh->do("UPDATE systempreferences SET variable='AmazonEnabled' WHERE variable = 'AmazonContent'");
2290 $dbh->do("UPDATE systempreferences SET variable='OPACAmazonEnabled' WHERE variable = 'OPACAmazonContent'");
2292 print "Upgrade to $DBversion done (added Syndetics Enhanced Content system preferences)\n";
2293 SetVersion ($DBversion);
2296 $DBversion = "3.01.00.016";
2297 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2298 $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')");
2299 print "Upgrade to $DBversion done (Added Babeltheque syspref)\n";
2300 SetVersion ($DBversion);
2303 $DBversion = "3.01.00.017";
2304 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2305 $dbh->do("ALTER TABLE `subscription` ADD `staffdisplaycount` VARCHAR(10) NULL;");
2306 $dbh->do("ALTER TABLE `subscription` ADD `opacdisplaycount` VARCHAR(10) NULL;");
2307 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2309 'StaffSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the Staff client', 'Integer'
2311 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2313 'OPACSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the OPAC', 'Integer'
2316 print "Upgrade to $DBversion done ( Updated table for Serials Display)\n";
2317 SetVersion ($DBversion);
2320 $DBversion = "3.01.00.018";
2321 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2322 $dbh->do("ALTER TABLE deletedborrowers ADD `smsalertnumber` varchar(50) default NULL");
2323 print "Upgrade to $DBversion done (added deletedborrowers.smsalertnumber, missed in 3.00.00.091)\n";
2324 SetVersion ($DBversion);
2327 $DBversion = "3.01.00.019";
2328 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2329 $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')");
2330 print "Upgrade to $DBversion done (adding OPACShowCheckoutName systempref)\n";
2331 SetVersion ($DBversion);
2334 $DBversion = "3.01.00.020";
2335 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2336 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesID','','See:http://librarything.com/forlibraries/','','free')");
2337 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesEnabled','0','Enable or Disable Library Thing for Libraries Features','','YesNo')");
2338 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesTabbedView','0','Put LibraryThingForLibraries Content in Tabs.','','YesNo')");
2339 print "Upgrade to $DBversion done (adding LibraryThing for Libraries sysprefs)\n";
2340 SetVersion ($DBversion);
2343 $DBversion = "3.01.00.021";
2344 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2345 my $enable_reviews = C4::Context->preference('OPACAmazonEnabled') ? '1' : '0';
2346 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonReviews', '$enable_reviews', 'Display Amazon readers reviews on OPAC','','YesNo')");
2347 print "Upgrade to $DBversion done (adding OPACAmazonReviews syspref)\n";
2348 SetVersion ($DBversion);
2351 $DBversion = '3.01.00.022';
2352 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2353 $dbh->do("ALTER TABLE `labels_conf` MODIFY COLUMN `formatstring` mediumtext DEFAULT NULL");
2354 print "Upgrade to $DBversion done (bug 2945: increase size of labels_conf.formatstring)\n";
2355 SetVersion ($DBversion);
2358 $DBversion = '3.01.00.023';
2359 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2360 $dbh->do("ALTER TABLE biblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2361 $dbh->do("ALTER TABLE deletedbiblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2362 $dbh->do("ALTER TABLE import_biblios MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2363 $dbh->do("ALTER TABLE suggestions MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2364 print "Upgrade to $DBversion done (bug 2765: increase width of isbn column in several tables)\n";
2365 SetVersion ($DBversion);
2368 $DBversion = "3.01.00.024";
2369 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2370 $dbh->do("ALTER TABLE labels MODIFY COLUMN batch_id int(10) NOT NULL default 1;");
2371 print "Upgrade to $DBversion done (change labels.batch_id from varchar to int)\n";
2372 SetVersion ($DBversion);
2375 $DBversion = '3.01.00.025';
2376 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2377 $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')");
2379 print "Upgrade to $DBversion done (added ceilingDueDate system preference)\n";
2380 SetVersion ($DBversion);
2383 $DBversion = '3.01.00.026';
2384 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2385 $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')");
2387 print "Upgrade to $DBversion done (added numReturnedItemsToShow system preference)\n";
2388 SetVersion ($DBversion);
2391 $DBversion = '3.01.00.027';
2392 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2393 $dbh->do("ALTER TABLE zebraqueue CHANGE `biblio_auth_number` `biblio_auth_number` bigint(20) unsigned NOT NULL default 0");
2394 print "Upgrade to $DBversion done (Increased size of zebraqueue biblio_auth_number to address bug 3148.)\n";
2395 SetVersion ($DBversion);
2398 $DBversion = '3.01.00.028';
2399 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2400 my $enable_reviews = C4::Context->preference('AmazonEnabled') ? '1' : '0';
2401 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonReviews', '$enable_reviews', 'Display Amazon reviews on staff interface','','YesNo')");
2402 print "Upgrade to $DBversion done (added AmazonReviews)\n";
2403 SetVersion ($DBversion);
2406 $DBversion = '3.01.00.029';
2407 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2408 $dbh->do(q( UPDATE language_rfc4646_to_iso639
2409 SET iso639_2_code = 'spa'
2410 WHERE rfc4646_subtag = 'es'
2411 AND iso639_2_code = 'rus' )
2413 print "Upgrade to $DBversion done (fixed bug 2599: using Spanish search limit retrieves Russian results)\n";
2414 SetVersion ($DBversion);
2417 $DBversion = "3.01.00.030";
2418 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2419 $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')");
2420 print "Upgrade to $DBversion done (added AllowNotForLoanOverride system preference)\n";
2421 SetVersion ($DBversion);
2424 $DBversion = "3.01.00.031";
2425 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2426 $dbh->do("ALTER TABLE branch_transfer_limits
2427 MODIFY toBranch varchar(10) NOT NULL,
2428 MODIFY fromBranch varchar(10) NOT NULL,
2429 MODIFY itemtype varchar(10) NULL");
2430 print "Upgrade to $DBversion done (fix column widths in branch_transfer_limits)\n";
2431 SetVersion ($DBversion);
2434 $DBversion = "3.01.00.032";
2435 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2436 $dbh->do(<<ENDOFRENEWAL);
2437 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');
2439 print "Upgrade to $DBversion done (Change the field)\n";
2440 SetVersion ($DBversion);
2443 $DBversion = "3.01.00.033";
2444 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2446 ALTER TABLE borrower_message_preferences
2447 MODIFY borrowernumber int(11) default NULL,
2448 ADD categorycode varchar(10) default NULL AFTER borrowernumber,
2449 ADD KEY `categorycode` (`categorycode`),
2450 ADD CONSTRAINT `borrower_message_preferences_ibfk_3`
2451 FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
2452 ON DELETE CASCADE ON UPDATE CASCADE
2454 print "Upgrade to $DBversion done (DB changes to allow patron category defaults for messaging preferences)\n";
2455 SetVersion ($DBversion);
2458 $DBversion = "3.01.00.034";
2459 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2460 $dbh->do("ALTER TABLE `subscription` ADD COLUMN `graceperiod` INT(11) NOT NULL default '0';");
2461 print "Upgrade to $DBversion done (Adding graceperiod column to subscription table)\n";
2462 SetVersion ($DBversion);
2465 $DBversion = '3.01.00.035';
2466 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2467 $dbh->do(q{ ALTER TABLE `subscription` ADD location varchar(80) NULL DEFAULT '' AFTER callnumber; });
2468 print "Upgrade to $DBversion done (Adding location to subscription table)\n";
2469 SetVersion ($DBversion);
2472 $DBversion = '3.01.00.036';
2473 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2474 $dbh->do("UPDATE systempreferences SET explanation = 'Choose the default detail view in the staff interface; choose between normal, labeled_marc, marc or isbd'
2475 WHERE variable = 'IntranetBiblioDefaultView'
2476 AND explanation = 'IntranetBiblioDefaultView'");
2477 $dbh->do("UPDATE systempreferences SET type = 'Choice', options = 'normal|marc|isbd|labeled_marc'
2478 WHERE variable = 'IntranetBiblioDefaultView'");
2479 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewISBD','1','Allow display of ISBD view of bibiographic records','','YesNo')");
2480 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewLabeledMARC','0','Allow display of labeled MARC view of bibiographic records','','YesNo')");
2481 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewMARC','1','Allow display of MARC view of bibiographic records','','YesNo')");
2482 print "Upgrade to $DBversion done (new viewISBD, viewLabeledMARC, viewMARC sysprefs and tweak IntranetBiblioDefaultView)\n";
2483 SetVersion ($DBversion);
2486 $DBversion = '3.01.00.037';
2487 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2488 $dbh->do('ALTER TABLE authorised_values ADD KEY `lib` (`lib`)');
2489 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('FilterBeforeOverdueReport','0','Do not run overdue report until filter selected','','YesNo')");
2490 SetVersion ($DBversion);
2491 print "Upgrade to $DBversion done (added FilterBeforeOverdueReport syspref and new index on authorised_values)\n";
2494 $DBversion = "3.01.00.038";
2495 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2496 # update branches table
2498 $dbh->do("ALTER TABLE branches ADD `branchzip` varchar(25) default NULL AFTER `branchaddress3`");
2499 $dbh->do("ALTER TABLE branches ADD `branchcity` mediumtext AFTER `branchzip`");
2500 $dbh->do("ALTER TABLE branches ADD `branchcountry` text AFTER `branchcity`");
2501 $dbh->do("ALTER TABLE branches ADD `branchurl` mediumtext AFTER `branchemail`");
2502 $dbh->do("ALTER TABLE branches ADD `branchnotes` mediumtext AFTER `branchprinter`");
2503 print "Upgrade to $DBversion done (add ZIP, city, country, URL, and notes column to branches)\n";
2504 SetVersion ($DBversion);
2507 $DBversion = '3.01.00.039';
2508 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2509 $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')");
2510 $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')");
2511 SetVersion ($DBversion);
2512 print "Upgrade to $DBversion done (added SpineLabelFormat and SpineLabelAutoPrint sysprefs)\n";
2515 $DBversion = '3.01.00.040';
2516 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2517 $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')");
2518 $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')");
2519 SetVersion ($DBversion);
2520 print "Upgrade to $DBversion done (AllowHoldDateInFuture and OPACAllowHoldDateInFuture sysprefs)\n";
2523 $DBversion = '3.01.00.041';
2524 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2525 $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')");
2526 SetVersion ($DBversion);
2527 print "Upgrade to $DBversion done (added AWSPrivateKey syspref - note that if you use enhanced content from Amazon, this should be set right away.)\n";
2530 $DBversion = '3.01.00.042';
2531 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2532 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACFineNoRenewals','99999','Fine Limit above which user canmot renew books via OPAC','','Integer')");
2533 SetVersion ($DBversion);
2534 print "Upgrade to $DBversion done (added OPACFineNoRenewals syspref)\n";
2537 $DBversion = '3.01.00.043';
2538 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2539 $dbh->do('ALTER TABLE items ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2540 $dbh->do('UPDATE items SET permanent_location = location');
2541 $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 )', '')");
2542 $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')");
2543 $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')");
2544 SetVersion ($DBversion);
2545 print "Upgrade to $DBversion done (amended Item added NewItemsDefaultLocation, InProcessingToShelvingCart, ReturnToShelvingCart sysprefs)\n";
2548 $DBversion = '3.01.00.044';
2549 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2550 $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')");
2551 SetVersion ($DBversion);
2552 print "Upgrade to $DBversion done (added DisplayClearScreenButton system preference)\n";
2555 $DBversion = '3.01.00.045';
2556 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2557 $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')");
2558 SetVersion ($DBversion);
2559 print "Upgrade to $DBversion done (added a preference to hide the patrons name in the staff catalog)\n";
2562 $DBversion = "3.01.00.046";
2563 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2564 # update borrowers table
2566 $dbh->do("ALTER TABLE borrowers ADD `country` text AFTER zipcode");
2567 $dbh->do("ALTER TABLE borrowers ADD `B_country` text AFTER B_zipcode");
2568 $dbh->do("ALTER TABLE deletedborrowers ADD `country` text AFTER zipcode");
2569 $dbh->do("ALTER TABLE deletedborrowers ADD `B_country` text AFTER B_zipcode");
2570 print "Upgrade to $DBversion done (add country and B_country to borrowers)\n";
2571 SetVersion ($DBversion);
2574 $DBversion = '3.01.00.047';
2575 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2576 $dbh->do("ALTER TABLE items MODIFY itemcallnumber varchar(255);");
2577 $dbh->do("ALTER TABLE deleteditems MODIFY itemcallnumber varchar(255);");
2578 $dbh->do("ALTER TABLE tmp_holdsqueue MODIFY itemcallnumber varchar(255);");
2579 SetVersion ($DBversion);
2580 print " Upgrade to $DBversion done (bug 2761: change max length of itemcallnumber to 255 from 30)\n";
2583 $DBversion = '3.01.00.048';
2584 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2585 $dbh->do("UPDATE userflags SET flagdesc='View Catalog (Librarian Interface)' WHERE bit=2;");
2586 $dbh->do("UPDATE userflags SET flagdesc='Edit Catalog (Modify bibliographic/holdings data)' WHERE bit=9;");
2587 $dbh->do("UPDATE userflags SET flagdesc='Allow to edit authorities' WHERE bit=14;");
2588 $dbh->do("UPDATE userflags SET flagdesc='Allow to access to the reports module' WHERE bit=16;");
2589 $dbh->do("UPDATE userflags SET flagdesc='Allow to manage serials subscriptions' WHERE bit=15;");
2590 SetVersion ($DBversion);
2591 print " Upgrade to $DBversion done (bug 2611: fix spelling/capitalization in permission flag descriptions)\n";
2594 $DBversion = '3.01.00.049';
2595 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2596 $dbh->do("UPDATE permissions SET description = 'Perform inventory (stocktaking) of your catalog' WHERE code = 'inventory';");
2597 SetVersion ($DBversion);
2598 print "Upgrade to $DBversion done (bug 2611: changed catalogue to catalog per the standard)\n";
2601 $DBversion = '3.01.00.050';
2602 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2603 $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&title=TITLE&st=xl&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');");
2604 SetVersion ($DBversion);
2605 print "Upgrade to $DBversion done (bug 1934: Add OPACSearchForTitleIn syspref)\n";
2608 $DBversion = '3.01.00.051';
2609 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2610 $dbh->do("UPDATE systempreferences SET explanation='Fine limit above which user cannot renew books via OPAC' WHERE variable='OPACFineNoRenewals';");
2611 $dbh->do("UPDATE systempreferences SET explanation='If set to ON, a clear screen button will appear on the circulation page.' WHERE variable='DisplayClearScreenButton';");
2612 SetVersion ($DBversion);
2613 print "Upgrade to $DBversion done (fixed typos in new sysprefs)\n";
2616 $DBversion = '3.01.00.052';
2617 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2618 $dbh->do('ALTER TABLE deleteditems ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2619 SetVersion ($DBversion);
2620 print "Upgrade to $DBversion done (bug 3481: add permanent_location column to deleteditems)\n";
2623 $DBversion = '3.01.00.053';
2624 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2625 my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/labels_upgrade.pl";
2626 system("perl $upgrade_script");
2627 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";
2628 SetVersion ($DBversion);
2631 $DBversion = '3.01.00.054';
2632 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2633 $dbh->do("ALTER TABLE borrowers ADD `B_address2` text AFTER B_address");
2634 $dbh->do("ALTER TABLE borrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2635 $dbh->do("ALTER TABLE deletedborrowers ADD `B_address2` text AFTER B_address");
2636 $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2637 SetVersion ($DBversion);
2638 print "Upgrade to $DBversion done (bug 1600, bug 3454: add altcontactcountry and B_address2 to borrowers and deletedborrowers)\n";
2641 $DBversion = '3.01.00.055';
2642 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2643 $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}&title={TITLE}&st=xl&ac=qr" target="_blank">Online Stores (Bookfinder.com)</a></li>' WHERE variable='OPACSearchForTitleIn'|);
2644 SetVersion ($DBversion);
2645 print "Upgrade to $DBversion done (changed OPACSearchForTitleIn per requests in bug 1934)\n";
2648 $DBversion = '3.01.00.056';
2649 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2650 $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');");
2651 SetVersion ($DBversion);
2652 print "Upgrade to $DBversion done (Bug 1172 : Add OPACPatronDetails syspref)\n";
2655 $DBversion = '3.01.00.057';
2656 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2657 $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');");
2658 SetVersion ($DBversion);
2659 print "Upgrade to $DBversion done (Bug 2576 : Add OPACFinesTab syspref)\n";
2662 $DBversion = '3.01.00.058';
2663 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2664 $dbh->do("ALTER TABLE `language_subtag_registry` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2665 $dbh->do("ALTER TABLE `language_rfc4646_to_iso639` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2666 $dbh->do("ALTER TABLE `language_descriptions` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2667 SetVersion ($DBversion);
2668 print "Upgrade to $DBversion done (Added primary keys to language tables)\n";
2671 $DBversion = '3.01.00.059';
2672 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2673 $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')");
2674 SetVersion ($DBversion);
2675 print "Upgrade to $DBversion done (added DisplayOPACiconsXSLT sysprefs)\n";
2678 $DBversion = '3.01.00.060';
2679 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2680 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowAllMessageDeletion','0','Allow any Library to delete any message','','YesNo');");
2681 $dbh->do('DROP TABLE IF EXISTS messages');
2682 $dbh->do("CREATE TABLE messages ( `message_id` int(11) NOT NULL auto_increment,
2683 `borrowernumber` int(11) NOT NULL,
2684 `branchcode` varchar(4) default NULL,
2685 `message_type` varchar(1) NOT NULL,
2686 `message` text NOT NULL,
2687 `message_date` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,
2688 PRIMARY KEY (`message_id`)
2689 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
2691 print "Upgrade to $DBversion done ( Added AllowAllMessageDeletion syspref and messages table )\n";
2692 SetVersion ($DBversion);
2695 $DBversion = '3.01.00.061';
2696 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2697 $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')");
2698 print "Upgrade to $DBversion done ( Added ShowPatronImageInWebBasedSelfCheck system preference )\n";
2699 SetVersion ($DBversion);
2702 $DBversion = "3.01.00.062";
2703 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2704 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'manage_csv_profiles', 'Manage CSV export profiles')");
2706 CREATE TABLE `export_format` (
2707 `export_format_id` int(11) NOT NULL auto_increment,
2708 `profile` varchar(255) NOT NULL,
2709 `description` mediumtext NOT NULL,
2710 `marcfields` mediumtext NOT NULL,
2711 PRIMARY KEY (`export_format_id`)
2712 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Used for CSV export';
2714 print "Upgrade to $DBversion done (added csv export profiles)\n";
2717 $DBversion = "3.01.00.063";
2718 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2720 CREATE TABLE `fieldmapping` (
2721 `id` int(11) NOT NULL auto_increment,
2722 `field` varchar(255) NOT NULL,
2723 `frameworkcode` char(4) NOT NULL default '',
2724 `fieldcode` char(3) NOT NULL,
2725 `subfieldcode` char(1) NOT NULL,
2727 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2729 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";
2732 $DBversion = '3.01.00.065';
2733 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2734 $dbh->do('ALTER TABLE issuingrules ADD COLUMN `renewalsallowed` smallint(6) NOT NULL default "0" AFTER `issuelength`;');
2735 $sth = $dbh->prepare("SELECT itemtype, renewalsallowed FROM itemtypes");
2738 my $sthupd = $dbh->prepare("UPDATE issuingrules SET renewalsallowed = ? WHERE itemtype = ?");
2740 while(my $row = $sth->fetchrow_hashref){
2741 $sthupd->execute($row->{renewalsallowed}, $row->{itemtype});
2744 $dbh->do('ALTER TABLE itemtypes DROP COLUMN `renewalsallowed`;');
2746 SetVersion ($DBversion);
2747 print "Upgrade to $DBversion done (Moving allowed renewals from itemtypes to issuingrule)\n";
2750 $DBversion = '3.01.00.066';
2751 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2752 $dbh->do('ALTER TABLE issuingrules ADD COLUMN `reservesallowed` smallint(6) NOT NULL default "0" AFTER `renewalsallowed`;');
2754 my $maxreserves = C4::Context->preference('maxreserves');
2755 $sth = $dbh->prepare('UPDATE issuingrules SET reservesallowed = ?;');
2756 $sth->execute($maxreserves);
2758 $dbh->do('DELETE FROM systempreferences WHERE variable = "maxreserves";');
2760 $dbh->do("INSERT INTO systempreferences (variable,value, options, explanation, type) VALUES('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights','Choice')");
2762 SetVersion ($DBversion);
2763 print "Upgrade to $DBversion done (Moving max allowed reserves from system preference to issuingrule)\n";
2766 $DBversion = "3.01.00.067";
2767 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2768 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchmod', 'Perform batch modification of items')");
2769 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchdel', 'Perform batch deletion of items')");
2770 print "Upgrade to $DBversion done (added permissions for batch modification and deletion)\n";
2771 SetVersion ($DBversion);
2774 $DBversion = "3.01.00.068";
2775 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2776 $dbh->do("ALTER TABLE issuingrules ADD COLUMN `finedays` int(11) default NULL AFTER `fine` ");
2777 print "Upgrade to $DBversion done (Adding finedays in issuingrules table)\n";
2778 SetVersion ($DBversion);
2782 $DBversion = "3.01.00.069";
2783 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2784 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('EnableOpacSearchHistory', '1', '', 'Enable or disable opac search history', 'YesNo')");
2786 my $create = <<SEARCHHIST;
2787 CREATE TABLE IF NOT EXISTS `search_history` (
2788 `userid` int(11) NOT NULL,
2789 `sessionid` varchar(32) NOT NULL,
2790 `query_desc` varchar(255) NOT NULL,
2791 `query_cgi` varchar(255) NOT NULL,
2792 `total` int(11) NOT NULL,
2793 `time` timestamp NOT NULL default CURRENT_TIMESTAMP,
2794 KEY `userid` (`userid`),
2795 KEY `sessionid` (`sessionid`)
2796 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Opac search history results';
2800 print "Upgrade to $DBversion done (added OPAC search history preference and table)\n";
2803 $DBversion = "3.01.00.070";
2804 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2805 $dbh->do("ALTER TABLE authorised_values ADD COLUMN `lib_opac` VARCHAR(80) default NULL AFTER `lib`");
2806 print "Upgrade to $DBversion done (Added a lib_opac field in authorised_values table)\n";
2809 $DBversion = "3.01.00.071";
2810 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2811 $dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");
2812 $dbh->do("ALTER TABLE subscriptionhistory CHANGE enddate histenddate DATE default NULL");
2813 print "Upgrade to $DBversion done ( Adding enddate to subscription)\n";
2816 # Acquisitions update
2818 $DBversion = "3.01.00.072";
2819 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2820 $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')");
2821 # create a new syspref for the 'Mr anonymous' patron
2822 $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,'')");
2823 # fill AnonymousPatron with AnonymousSuggestion value (copy)
2824 my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='AnonSuggestions'");
2826 my ($value) = $sth->fetchrow() || 0;
2827 $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='AnonymousPatron'");
2828 # set AnonymousSuggestion do YesNo
2829 # 1st, set the value (1/True if it had a borrowernumber)
2830 $dbh->do("UPDATE systempreferences SET value=1 WHERE variable='AnonSuggestions' AND value>0");
2831 # 2nd, change the type to Choice
2832 $dbh->do("UPDATE systempreferences SET type='YesNo' WHERE variable='AnonSuggestions'");
2833 # borrower reading record privacy : 0 : forever, 1 : laws, 2 : don't keep at all
2834 $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
2835 print "Upgrade to $DBversion done (add new syspref and column in borrowers)\n";
2836 SetVersion ($DBversion);
2839 $DBversion = '3.01.00.073';
2840 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2841 $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2842 $dbh->do(<<'END_SQL');
2843 CREATE TABLE IF NOT EXISTS `aqcontract` (
2844 `contractnumber` int(11) NOT NULL auto_increment,
2845 `contractstartdate` date default NULL,
2846 `contractenddate` date default NULL,
2847 `contractname` varchar(50) default NULL,
2848 `contractdescription` mediumtext,
2849 `booksellerid` int(11) not NULL,
2850 PRIMARY KEY (`contractnumber`),
2851 CONSTRAINT `booksellerid_fk1` FOREIGN KEY (`booksellerid`)
2852 REFERENCES `aqbooksellers` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
2853 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
2855 $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2856 print "Upgrade to $DBversion done (adding aqcontract table)\n";
2857 SetVersion ($DBversion);
2860 $DBversion = '3.01.00.074';
2861 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2862 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `basketname` varchar(50) default NULL AFTER `basketno`");
2863 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `note` mediumtext AFTER `basketname`");
2864 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `booksellernote` mediumtext AFTER `note`");
2865 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `contractnumber` int(11) AFTER `booksellernote`");
2866 $dbh->do("ALTER TABLE `aqbasket` ADD FOREIGN KEY (`contractnumber`) REFERENCES `aqcontract` (`contractnumber`)");
2867 print "Upgrade to $DBversion done (edit aqbasket table done)\n";
2868 SetVersion ($DBversion);
2871 $DBversion = '3.01.00.075';
2872 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2873 $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `uncertainprice` tinyint(1)");
2875 print "Upgrade to $DBversion done (adding uncertainprices)\n";
2876 SetVersion ($DBversion);
2879 $DBversion = '3.01.00.076';
2880 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2881 $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2882 $dbh->do("CREATE TABLE IF NOT EXISTS `aqbasketgroups` (
2883 `id` int(11) NOT NULL auto_increment,
2884 `name` varchar(50) default NULL,
2885 `closed` tinyint(1) default NULL,
2886 `booksellerid` int(11) NOT NULL,
2888 KEY `booksellerid` (`booksellerid`),
2889 CONSTRAINT `aqbasketgroups_ibfk_1` FOREIGN KEY (`booksellerid`) REFERENCES `aqbooksellers` (`id`) ON UPDATE CASCADE ON DELETE CASCADE
2890 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
2891 $dbh->do("ALTER TABLE aqbasket ADD COLUMN `basketgroupid` int(11)");
2892 $dbh->do("ALTER TABLE aqbasket ADD FOREIGN KEY (`basketgroupid`) REFERENCES `aqbasketgroups` (`id`) ON UPDATE CASCADE ON DELETE SET NULL");
2893 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('pdfformat','pdfformat::layout2pages','Controls what script is used for printing (basketgroups)','','free')");
2894 $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2895 print "Upgrade to $DBversion done (adding basketgroups)\n";
2896 SetVersion ($DBversion);
2898 $DBversion = '3.01.00.077';
2899 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2901 $dbh->do("SET FOREIGN_KEY_CHECKS=0 ");
2902 # create a mapping table holding the info we need to match orders to budgets
2903 $dbh->do('DROP TABLE IF EXISTS fundmapping');
2905 q|CREATE TABLE fundmapping AS
2906 SELECT aqorderbreakdown.ordernumber, branchcode, bookfundid, budgetdate, entrydate
2907 FROM aqorderbreakdown JOIN aqorders ON aqorderbreakdown.ordernumber = aqorders.ordernumber|);
2908 # match the new type of the corresponding field
2909 $dbh->do('ALTER TABLE fundmapping modify column bookfundid varchar(30)');
2910 # System did not ensure budgetdate was valid historically
2911 $dbh->do(q|UPDATE fundmapping SET budgetdate = entrydate WHERE budgetdate = '0000-00-00' OR budgetdate IS NULL|);
2912 # We save the map in fundmapping in case you need later processing
2913 $dbh->do(q|ALTER TABLE fundmapping add column aqbudgetid integer|);
2914 # these can speed processing up
2915 $dbh->do(q|CREATE INDEX fundmaporder ON fundmapping (ordernumber)|);
2916 $dbh->do(q|CREATE INDEX fundmapid ON fundmapping (bookfundid)|);
2918 $dbh->do("DROP TABLE IF EXISTS `aqbudgetperiods` ");
2921 CREATE TABLE `aqbudgetperiods` (
2922 `budget_period_id` int(11) NOT NULL auto_increment,
2923 `budget_period_startdate` date NOT NULL,
2924 `budget_period_enddate` date NOT NULL,
2925 `budget_period_active` tinyint(1) default '0',
2926 `budget_period_description` mediumtext,
2927 `budget_period_locked` tinyint(1) default NULL,
2928 `sort1_authcat` varchar(10) default NULL,
2929 `sort2_authcat` varchar(10) default NULL,
2930 PRIMARY KEY (`budget_period_id`)
2931 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |);
2933 $dbh->do(<<ADDPERIODS);
2934 INSERT INTO aqbudgetperiods (budget_period_startdate,budget_period_enddate,budget_period_active,budget_period_description,budget_period_locked)
2935 SELECT DISTINCT startdate, enddate, NOW() BETWEEN startdate and enddate, concat(startdate," ",enddate),NOT NOW() BETWEEN startdate AND enddate from aqbudget
2937 # SORRY , NO AQBUDGET/AQBOOKFUND -> AQBUDGETS IMPORT JUST YET,
2938 # BUT A NEW CLEAN AQBUDGETS TABLE CREATE FOR NOW..
2939 # DROP TABLE IF EXISTS `aqbudget`;
2940 #CREATE TABLE `aqbudget` (
2941 # `bookfundid` varchar(10) NOT NULL default ',
2942 # `startdate` date NOT NULL default 0,
2943 # `enddate` date default NULL,
2944 # `budgetamount` decimal(13,2) default NULL,
2945 # `aqbudgetid` tinyint(4) NOT NULL auto_increment,
2946 # `branchcode` varchar(10) default NULL,
2947 DropAllForeignKeys('aqbudget');
2948 #$dbh->do("drop table aqbudget;");
2951 my $maxbudgetid = $dbh->selectcol_arrayref(<<IDsBUDGET);
2952 SELECT MAX(aqbudgetid) from aqbudget
2955 $$maxbudgetid[0] = 0 if !$$maxbudgetid[0];
2957 $dbh->do(<<BUDGETAUTOINCREMENT);
2958 ALTER TABLE aqbudget AUTO_INCREMENT=$$maxbudgetid[0]
2961 $dbh->do(<<BUDGETNAME);
2962 ALTER TABLE aqbudget RENAME `aqbudgets`
2965 $dbh->do(<<BUDGETS);
2966 ALTER TABLE `aqbudgets`
2967 CHANGE COLUMN aqbudgetid `budget_id` int(11) NOT NULL AUTO_INCREMENT,
2968 CHANGE COLUMN branchcode `budget_branchcode` varchar(10) default NULL,
2969 CHANGE COLUMN budgetamount `budget_amount` decimal(28,6) NOT NULL default '0.00',
2970 CHANGE COLUMN bookfundid `budget_code` varchar(30) default NULL,
2971 ADD COLUMN `budget_parent_id` int(11) default NULL,
2972 ADD COLUMN `budget_name` varchar(80) default NULL,
2973 ADD COLUMN `budget_encumb` decimal(28,6) default '0.00',
2974 ADD COLUMN `budget_expend` decimal(28,6) default '0.00',
2975 ADD COLUMN `budget_notes` mediumtext,
2976 ADD COLUMN `budget_description` mediumtext,
2977 ADD COLUMN `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
2978 ADD COLUMN `budget_amount_sublevel` decimal(28,6) AFTER `budget_amount`,
2979 ADD COLUMN `budget_period_id` int(11) default NULL,
2980 ADD COLUMN `sort1_authcat` varchar(80) default NULL,
2981 ADD COLUMN `sort2_authcat` varchar(80) default NULL,
2982 ADD COLUMN `budget_owner_id` int(11) default NULL,
2983 ADD COLUMN `budget_permission` int(1) default '0';
2986 $dbh->do(<<BUDGETCONSTRAINTS);
2987 ALTER TABLE `aqbudgets`
2988 ADD CONSTRAINT `aqbudgets_ifbk_1` FOREIGN KEY (`budget_period_id`) REFERENCES `aqbudgetperiods` (`budget_period_id`) ON DELETE CASCADE ON UPDATE CASCADE
2990 # $dbh->do(<<BUDGETPKDROP);
2991 #ALTER TABLE `aqbudgets`
2994 # $dbh->do(<<BUDGETPKADD);
2995 #ALTER TABLE `aqbudgets`
2996 # ADD PRIMARY KEY budget_id
3000 my $query_period= $dbh->prepare(qq|SELECT budget_period_id from aqbudgetperiods where budget_period_startdate=? and budget_period_enddate=?|);
3001 my $query_bookfund= $dbh->prepare(qq|SELECT * from aqbookfund where bookfundid=?|);
3002 my $selectbudgets=$dbh->prepare(qq|SELECT * from aqbudgets|);
3003 my $updatebudgets=$dbh->prepare(qq|UPDATE aqbudgets SET budget_period_id= ? , budget_name=?, budget_branchcode=? where budget_id=?|);
3004 $selectbudgets->execute;
3005 while (my $databudget=$selectbudgets->fetchrow_hashref){
3006 $query_period->execute ($$databudget{startdate},$$databudget{enddate});
3007 my ($budgetperiodid)=$query_period->fetchrow;
3008 $query_bookfund->execute ($$databudget{budget_code});
3009 my $databf=$query_bookfund->fetchrow_hashref;
3010 my $branchcode=$$databudget{budget_branchcode}||$$databf{branchcode};
3011 $updatebudgets->execute($budgetperiodid,$$databf{bookfundname},$branchcode,$$databudget{budget_id});
3013 $dbh->do(<<BUDGETDROPDATES);
3014 ALTER TABLE `aqbudgets`
3020 $dbh->do("DROP TABLE IF EXISTS `aqbudgets_planning` ");
3021 $dbh->do("CREATE TABLE `aqbudgets_planning` (
3022 `plan_id` int(11) NOT NULL auto_increment,
3023 `budget_id` int(11) NOT NULL,
3024 `budget_period_id` int(11) NOT NULL,
3025 `estimated_amount` decimal(28,6) default NULL,
3026 `authcat` varchar(30) NOT NULL,
3027 `authvalue` varchar(30) NOT NULL,
3028 `display` tinyint(1) DEFAULT 1,
3029 PRIMARY KEY (`plan_id`),
3030 CONSTRAINT `aqbudgets_planning_ifbk_1` FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON DELETE CASCADE ON UPDATE CASCADE
3031 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
3033 $dbh->do("ALTER TABLE `aqorders`
3034 ADD COLUMN `budget_id` tinyint(4) NOT NULL,
3035 ADD COLUMN `budgetgroup_id` int(11) NOT NULL,
3036 ADD COLUMN `sort1_authcat` varchar(10) default NULL,
3037 ADD COLUMN `sort2_authcat` varchar(10) default NULL" );
3038 # We need to map the orders to the budgets
3039 # For Historic reasons this is more complex than it should be on occasions
3040 my $budg_arr = $dbh->selectall_arrayref(
3041 q|SELECT aqbudgets.budget_id, aqbudgets.budget_code, aqbudgetperiods.budget_period_startdate,
3042 aqbudgetperiods.budget_period_enddate
3043 FROM aqbudgets JOIN aqbudgetperiods ON aqbudgets.budget_period_id = aqbudgetperiods.budget_period_id
3044 ORDER BY budget_code, budget_period_startdate|, { Slice => {} });
3045 # We arbitarily order on start date, this means if you have overlapping periods the order will be
3046 # linked to the latest matching budget YMMV
3047 my $b_sth = $dbh->prepare(
3048 'UPDATE fundmapping set aqbudgetid = ? where bookfundid =? AND budgetdate >= ? AND budgetdate <= ?');
3049 for my $b ( @{$budg_arr}) {
3050 $b_sth->execute($b->{budget_id}, $b->{budget_code}, $b->{budget_period_startdate}, $b->{budget_period_enddate});
3052 # move the budgetids to aqorders
3053 $dbh->do(q|UPDATE aqorders, fundmapping SET aqorders.budget_id = fundmapping.aqbudgetid
3054 WHERE aqorders.ordernumber = fundmapping.ordernumber AND fundmapping.aqbudgetid IS NOT NULL|);
3055 # NB fundmapping is left as an accontants trail also if you have budgetids that werent set
3056 # you can decide what to do with them
3059 q|UPDATE aqorders, aqbudgets SET aqorders.budgetgroup_id = aqbudgets.budget_period_id
3060 WHERE aqorders.budget_id = aqbudgets.budget_id|);
3061 # cannot do until aqorderbreakdown removed
3062 # $dbh->do("DROP TABLE aqbookfund ");
3063 # $dbh->do("ALTER TABLE aqorders ADD FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON UPDATE CASCADE " ); ????
3064 $dbh->do("SET FOREIGN_KEY_CHECKS=1 ");
3066 print "Upgrade to $DBversion done (Adding new aqbudgetperiods, aqbudgets and aqbudget_planning tables )\n";
3067 SetVersion ($DBversion);
3072 $DBversion = '3.01.00.078';
3073 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3074 $dbh->do("ALTER TABLE aqbudgetperiods ADD COLUMN budget_period_total decimal(28,6)");
3075 print "Upgrade to $DBversion done (adds 'budget_period_total' column to aqbudgetperiods table)\n";
3076 SetVersion($DBversion);
3080 $DBversion = '3.01.00.079';
3081 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3082 $dbh->do("ALTER TABLE currency ADD COLUMN active tinyint(1)");
3084 print "Upgrade to $DBversion done (adds 'active' column to currencies table)\n";
3085 SetVersion($DBversion);
3088 $DBversion = '3.01.00.080';
3089 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3090 $dbh->do(<<BUDG_PERM );
3091 INSERT INTO permissions (module_bit, code, description) VALUES
3092 (11, 'vendors_manage', 'Manage vendors'),
3093 (11, 'contracts_manage', 'Manage contracts'),
3094 (11, 'period_manage', 'Manage periods'),
3095 (11, 'budget_manage', 'Manage budgets'),
3096 (11, 'budget_modify', "Modify budget (can't create lines but can modify existing ones)"),
3097 (11, 'planning_manage', 'Manage budget plannings'),
3098 (11, 'order_manage', 'Manage orders & basket'),
3099 (11, 'group_manage', 'Manage orders & basketgroups'),
3100 (11, 'order_receive', 'Manage orders & basket'),
3101 (11, 'budget_add_del', "Add and delete budgets (but can't modify budgets)");
3104 print "Upgrade to $DBversion done (adds permissions for the acquisitions module)\n";
3105 SetVersion($DBversion);
3109 $DBversion = '3.01.00.081';
3110 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3111 $dbh->do("ALTER TABLE aqbooksellers ADD COLUMN `gstrate` decimal(6,4) default NULL");
3112 if (my $gist=C4::Context->preference("gist")){
3113 my $sql=$dbh->prepare("UPDATE aqbooksellers set `gstrate`=? ");
3114 $sql->execute($gist) ;
3116 print "Upgrade to $DBversion done (added per-supplier gstrate setting)\n";
3117 SetVersion($DBversion);
3120 $DBversion = "3.01.00.082";
3121 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3122 if (C4::Context->preference("opaclanguages") eq "fr") {
3123 $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')#);
3125 $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')");
3127 print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
3128 SetVersion ($DBversion);
3131 $DBversion = "3.01.00.083";
3132 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3134 CREATE TABLE `aqorders_items` (
3135 `ordernumber` int(11) NOT NULL,
3136 `itemnumber` int(11) NOT NULL,
3137 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
3138 PRIMARY KEY (`itemnumber`),
3139 KEY `ordernumber` (`ordernumber`)
3140 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |
3143 $dbh->do(qq| DROP TABLE aqorderbreakdown |);
3144 $dbh->do('DROP TABLE aqbookfund');
3145 print "Upgrade to $DBversion done (New aqorders_items table for acqui)\n";
3146 SetVersion ($DBversion);
3149 $DBversion = "3.01.00.084";
3150 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3151 $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') #);
3153 print "Upgrade to $DBversion done (CurrencyFormat syspref added)\n";
3154 SetVersion ($DBversion);
3157 $DBversion = "3.01.00.085";
3158 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3159 $dbh->do("ALTER table aqorders drop column title");
3160 $dbh->do("ALTER TABLE `aqorders` CHANGE `budget_id` `budget_id` INT( 11 ) NOT NULL");
3161 print "Upgrade to $DBversion done update budget_id size that should not be a tinyint\n";
3162 SetVersion ($DBversion);
3165 $DBversion = "3.01.00.086";
3166 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3167 $dbh->do(<<SUGGESTIONS);
3168 ALTER table suggestions
3169 ADD budgetid INT(11),
3170 ADD branchcode VARCHAR(10) default NULL,
3171 ADD acceptedby INT(11) default NULL,
3172 ADD accepteddate date default NULL,
3173 ADD suggesteddate date default NULL,
3174 ADD manageddate date default NULL,
3175 ADD rejectedby INT(11) default NULL,
3176 ADD rejecteddate date default NULL,
3177 ADD collectiontitle text default NULL,
3178 ADD itemtype VARCHAR(30) default NULL
3181 print "Upgrade to $DBversion done (Suggestions)\n";
3182 SetVersion ($DBversion);
3185 $DBversion = "3.01.00.087";
3186 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3187 $dbh->do("ALTER table aqbudgets drop column budget_amount_sublevel;");
3188 print "Upgrade to $DBversion done (Drop column budget_amount_sublevel from aqbudgets)\n";
3189 SetVersion ($DBversion);
3192 $DBversion = "3.01.00.088";
3193 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3194 $dbh->do( qq# INSERT INTO `systempreferences` VALUES ('intranetbookbag','1','','If ON, enables display of Cart feature in the intranet','YesNo') #);
3196 print "Upgrade to $DBversion done (intranetbookbag syspref added)\n";
3197 SetVersion ($DBversion);
3200 $DBversion = "3.01.00.090";
3201 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3203 INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3204 (16, 'execute_reports', 'Execute SQL reports'),
3205 (16, 'create_reports', 'Create SQL Reports')
3208 print "Upgrade to $DBversion done (granular permissions for guided reports added)\n";
3209 SetVersion ($DBversion);
3212 $DBversion = "3.01.00.091";
3213 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3215 UPDATE `systempreferences` SET `options` = 'holdings|serialcollection|subscriptions'
3216 WHERE `systempreferences`.`variable` = 'opacSerialDefaultTab' LIMIT 1
3219 print "Upgrade to $DBversion done (opac-detail default tag updated)\n";
3220 SetVersion ($DBversion);
3223 $DBversion = "3.01.00.092";
3224 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3225 if (C4::Context->preference("opaclanguages") =~ /fr/) {
3227 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');
3231 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');
3234 print "Upgrade to $DBversion done (Added RoutingListAddReserves syspref)\n";
3235 SetVersion ($DBversion);
3238 $DBversion = "3.01.00.093";
3239 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3241 ALTER TABLE biblioitems ADD INDEX issn_idx (issn);
3243 print "Upgrade to $DBversion done (added index to ISSN)\n";
3244 SetVersion ($DBversion);
3247 $DBversion = "3.01.00.094";
3248 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3250 ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10) default NULL, ADD deliverycomment VARCHAR(255) default NULL;
3253 print "Upgrade to $DBversion done (adding deliveryplace deliverycomment to basketgroups)\n";
3254 SetVersion ($DBversion);
3257 $DBversion = "3.01.00.095";
3258 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3260 ALTER TABLE items ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number";
3263 ALTER TABLE items ADD UNIQUE INDEX itemsstocknumberidx (stocknumber);
3266 ALTER TABLE deleteditems ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number of deleted items";
3269 ALTER TABLE deleteditems ADD UNIQUE INDEX deleteditemsstocknumberidx (stocknumber);
3271 if (C4::Context->preference('marcflavour') eq 'UNIMARC'){
3273 INSERT IGNORE INTO marc_subfield_structure (frameworkcode,tagfield, tagsubfield, tab, repeatable, mandatory,kohafield)
3274 SELECT DISTINCT (frameworkcode),995,"j",10,0,0,"items.stocknumber" from biblio_framework ;
3276 #Previously, copynumber was used as stocknumber
3278 UPDATE items set stocknumber=copynumber;
3281 UPDATE items set copynumber=NULL;
3284 print "Upgrade to $DBversion done (stocknumber field added)\n";
3285 SetVersion ($DBversion);
3288 $DBversion = "3.01.00.096";
3289 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3290 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OrderPdfTemplate','','Uploads a PDF template to use for printing baskets','NULL','Upload')");
3291 $dbh->do("UPDATE systempreferences SET variable='OrderPdfFormat' WHERE variable='pdfformat'");
3292 print "Upgrade to $DBversion done (PDF orders system preferences added and updated)\n";
3293 SetVersion ($DBversion);
3296 $DBversion = "3.01.00.097";
3297 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3299 ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10) NOT NULL AFTER deliverycomment;
3302 print "Upgrade to $DBversion done (Adding billingplace to aqbasketgroups)\n";
3303 SetVersion ($DBversion);
3306 $DBversion = "3.01.00.098";
3307 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3309 ALTER TABLE auth_subfield_structure MODIFY frameworkcode VARCHAR(10) NULL;
3312 print "Upgrade to $DBversion done (changing frameworkcode length in auth_subfield_structure)\n";
3313 SetVersion ($DBversion);
3316 $DBversion = "3.01.00.099";
3317 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3319 INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3320 (9, 'edit_catalogue', 'Edit catalogue'),
3321 (9, 'fast_cataloging', 'Fast cataloging')
3324 print "Upgrade to $DBversion done (granular permissions for cataloging added)\n";
3325 SetVersion ($DBversion);
3328 $DBversion = "3.01.00.100";
3329 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3330 $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')");
3331 print "Upgrade to $DBversion done (added CAS authentication system preferences)\n";
3332 SetVersion ($DBversion);
3335 $DBversion = "3.01.00.101";
3336 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3338 "INSERT INTO systempreferences
3339 (variable, value, options, explanation, type)
3341 'OverdueNoticeBcc', '', '',
3342 'Email address to Bcc outgoing notices sent by email',
3345 print "Upgrade to $DBversion done (added OverdueNoticeBcc system preferences)\n";
3346 SetVersion ($DBversion);
3348 $DBversion = "3.01.00.102";
3349 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3351 "UPDATE permissions set description = 'Edit catalog (Modify bibliographic/holdings data)' where module_bit = 9 and code = 'edit_catalogue'"
3353 print "Upgrade to $DBversion done (fixed spelling error in edit_catalogue permission)\n";
3354 SetVersion ($DBversion);
3357 $DBversion = "3.01.00.103";
3358 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3359 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES (13, 'moderate_tags', 'Moderate patron tags')");
3360 print "Upgrade to $DBversion done (adding patron permissions for tags tool)\n";
3361 SetVersion ($DBversion);
3364 $DBversion = "3.01.00.104";
3365 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3367 my ($maninv_count, $borrnotes_count);
3368 eval { $maninv_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='MANUAL_INV'"); };
3369 if ($maninv_count == 0) {
3370 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('MANUAL_INV','Copier Fees','.25')");
3372 eval { $borrnotes_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='BOR_NOTES'"); };
3373 if ($borrnotes_count == 0) {
3374 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('BOR_NOTES','ADDR','Address Notes')");
3377 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','CART','Book Cart')");
3378 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','PROC','Processing Center')");
3380 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";
3381 SetVersion ($DBversion);
3385 $DBversion = "3.01.00.105";
3386 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3388 CREATE TABLE `collections` (
3389 `colId` int(11) NOT NULL auto_increment,
3390 `colTitle` varchar(100) NOT NULL default '',
3391 `colDesc` text NOT NULL,
3392 `colBranchcode` varchar(4) default NULL COMMENT 'branchcode for branch where item should be held.',
3393 PRIMARY KEY (`colId`)
3394 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3398 CREATE TABLE `collections_tracking` (
3399 `ctId` int(11) NOT NULL auto_increment,
3400 `colId` int(11) NOT NULL default '0' COMMENT 'collections.colId',
3401 `itemnumber` int(11) NOT NULL default '0' COMMENT 'items.itemnumber',
3402 PRIMARY KEY (`ctId`)
3403 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3406 INSERT INTO permissions (module_bit, code, description)
3407 VALUES ( 13, 'rotating_collections', 'Manage Rotating collections')" );
3408 print "Upgrade to $DBversion done (added collection and collection_tracking tables for rotating collections functionality)\n";
3409 SetVersion ($DBversion);
3411 $DBversion = "3.01.00.106";
3412 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3413 $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' )");
3414 print "Upgrade to $DBversion done (added OpacAddMastheadLibraryPulldown system preferences)\n";
3415 SetVersion ($DBversion);
3418 $DBversion = '3.01.00.107';
3419 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3420 my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/patroncards_upgrade.pl";
3421 system("perl $upgrade_script");
3422 print "Upgrade to $DBversion done (Migrated labels and patroncards tables and data to new schema.)\n";
3423 SetVersion ($DBversion);
3426 $DBversion = '3.01.00.108';
3427 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3429 ALTER TABLE `export_format` ADD `csv_separator` VARCHAR( 2 ) NOT NULL AFTER `marcfields` ,
3430 ADD `field_separator` VARCHAR( 2 ) NOT NULL AFTER `csv_separator` ,
3431 ADD `subfield_separator` VARCHAR( 2 ) NOT NULL AFTER `field_separator`
3433 print "Upgrade to $DBversion done (added separators for csv export)\n";
3434 SetVersion ($DBversion);
3437 $DBversion = "3.01.00.109";
3438 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3440 ALTER TABLE `export_format` ADD `encoding` VARCHAR(255) NOT NULL AFTER `subfield_separator`
3442 print "Upgrade to $DBversion done (added encoding for csv export)\n";
3443 SetVersion ($DBversion);
3446 $DBversion = '3.01.00.110';
3447 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3448 $dbh->do('ALTER TABLE `categories` ADD COLUMN `enrolmentperioddate` DATE NULL DEFAULT NULL AFTER `enrolmentperiod`');
3449 print "Upgrade to $DBversion done (Add enrolment period date support)\n";
3450 SetVersion ($DBversion);
3453 $DBversion = '3.01.00.111';
3454 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3455 print "Upgrade to $DBversion done (mark DBrev for 3.2-alpha release)\n";
3456 SetVersion ($DBversion);
3459 $DBversion = '3.01.00.112';
3460 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3461 $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');");
3462 print "Upgrade to $DBversion done ( added Show Spine Label Printer on Bib Items Details preferences )\n";
3463 SetVersion ($DBversion);
3466 $DBversion = '3.01.00.113';
3467 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3468 my $value = C4::Context->preference("XSLTResultsDisplay");
3470 "INSERT INTO systempreferences (variable,value,type)
3471 VALUES('OPACXSLTResultsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3472 $value = C4::Context->preference("XSLTDetailsDisplay");
3474 "INSERT INTO systempreferences (variable,value,type)
3475 VALUES('OPACXSLTDetailsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3476 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";
3477 SetVersion ($DBversion);
3480 $DBversion = '3.01.00.114';
3481 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3482 $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')");
3483 $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')");
3484 $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')");
3485 print "Upgrade to $DBversion done ( Added AutoSelfCheckAllowed, AutoSelfCheckID, and AutoShelfCheckPass system preference )\n";
3486 SetVersion ($DBversion);
3489 $DBversion = '3.01.00.115';
3490 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3491 $dbh->do('UPDATE aqorders SET quantityreceived = 0 WHERE quantityreceived IS NULL');
3492 $dbh->do('ALTER TABLE aqorders MODIFY COLUMN quantityreceived smallint(6) NOT NULL DEFAULT 0');
3493 print "Upgrade to $DBversion done ( Default aqorders.quantityreceived to 0 )\n";
3494 SetVersion ($DBversion);
3497 $DBversion = '3.01.00.116';
3498 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3499 if (C4::Context->preference('OrderPdfFormat') eq 'pdfformat::example'){
3500 $dbh->do("UPDATE `systempreferences` set value='pdfformat::layout2pages' WHERE variable='OrderPdfFormat'");
3502 print "Upgrade to $DBversion done (corrected default OrderPdfFormat value if still set wrong )\n";
3503 SetVersion ($DBversion);
3506 $DBversion = '3.01.00.117';
3507 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3508 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'por' WHERE rfc4646_subtag='pt' ");
3509 print "Upgrade to $DBversion done (corrected ISO 639-2 language code for Portuguese)\n";
3510 SetVersion ($DBversion);
3513 $DBversion = '3.01.00.118';
3514 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3515 my ($count) = $dbh->selectrow_array("SELECT count(*) FROM information_schema.columns
3516 WHERE table_name = 'aqbudgets_planning'
3517 AND column_name = 'display'");
3519 $dbh->do("ALTER TABLE aqbudgets_planning ADD COLUMN display tinyint(1) DEFAULT 1");
3521 print "Upgrade to $DBversion done (bug 4203: add display column to aqbudgets_planning if missing)\n";
3522 SetVersion ($DBversion);
3525 $DBversion = '3.01.00.119';
3526 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3527 eval{require Locale::Currency::Format};
3529 print "Upgrade to $DBversion done (Locale::Currency::Format installed.)\n";
3530 SetVersion ($DBversion);
3533 print "Upgrade to $DBversion done.\n";
3534 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";
3535 SetVersion ($DBversion);
3539 $DBversion = '3.01.00.120';
3540 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3542 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');
3544 print "Upgrade to $DBversion done (bug 1080: add soundon system preference for circulation sounds)\n";
3545 SetVersion ($DBversion);
3548 $DBversion = '3.01.00.121';
3549 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3550 $dbh->do("ALTER TABLE `reserves` ADD `expirationdate` DATE DEFAULT NULL");
3551 $dbh->do("ALTER TABLE `reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3552 $dbh->do("ALTER TABLE `old_reserves` ADD `expirationdate` DATE DEFAULT NULL");
3553 $dbh->do("ALTER TABLE `old_reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3554 print "Upgrade to $DBversion done ( Added Additional Fields to Reserves tables )\n";
3555 SetVersion ($DBversion);
3558 $DBversion = '3.01.00.122';
3559 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3561 INSERT INTO systempreferences (variable,value,explanation,options,type)
3562 VALUES ('OAI-PMH:ConfFile', '', 'If empty, Koha OAI Server operates in normal mode, otherwise it operates in extended mode.','','File');
3564 print "Upgrade to $DBversion done. — Add a new system preference OAI-PMF:ConfFile\n";
3565 SetVersion ($DBversion);
3568 $DBversion = "3.01.00.123";
3569 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3570 $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3571 (6, 'place_holds', 'Place holds for patrons')");
3572 $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3573 (6, 'modify_holds_priority', 'Modify holds priority')");
3574 $dbh->do("UPDATE `userflags` SET `flagdesc` = 'Place and modify holds for patrons' WHERE `flag` = 'reserveforothers'");
3575 print "Upgrade to $DBversion done (Add granular permission for holds modification and update description of reserveforothers permission)\n";
3576 SetVersion ($DBversion);
3579 $DBversion = '3.01.00.124';
3580 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3582 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>>).');
3584 print "Upgrade to $DBversion done (bug 3242: add HOLDPLACED letter template, which is used when emailLibrarianWhenHoldIsPlaced is enabled)\n";
3585 SetVersion ($DBversion);
3588 $DBversion = '3.01.00.125';
3589 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3591 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' );
3594 INSERT INTO message_transport_types (message_transport_type) values ('print');
3596 print "Upgrade to $DBversion done (bug 3482: Printable hold and overdue notices)\n";
3597 SetVersion ($DBversion);
3600 $DBversion = "3.01.00.126";
3601 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3602 $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')");
3603 $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')");
3605 print "Upgrade to $DBversion done (Adding ILS-DI updates and ILS-DI:AuthorizedIPs)\n";
3606 SetVersion ($DBversion);
3609 $DBversion = '3.01.00.127';
3610 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3611 $dbh->do("ALTER TABLE messages CHANGE branchcode branchcode varchar(10);");
3612 print "Upgrade to $DBversion done (bug 4190: messages in patron account did not work with branchcodes > 4)\n";
3613 SetVersion ($DBversion);
3616 $DBversion = '3.01.00.128';
3617 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3618 $dbh->do('CREATE INDEX budget_id ON aqorders (budget_id );');
3619 print "Upgrade to $DBversion done (bug 4331: index orders by budget_id)\n";
3620 SetVersion ($DBversion);
3623 $DBversion = "3.01.00.129";
3624 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3625 $dbh->do("UPDATE `permissions` SET `code` = 'items_batchdel' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchdel' LIMIT 1 ;");
3626 $dbh->do("UPDATE `permissions` SET `code` = 'items_batchmod' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchmod' LIMIT 1 ;");
3627 print "Upgrade to $DBversion done (Change permissions names for item batch modification / deletion)\n";
3629 SetVersion ($DBversion);
3632 $DBversion = "3.01.00.130";
3633 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3634 $dbh->do("UPDATE reserves SET expirationdate = NULL WHERE expirationdate = '0000-00-00'");
3635 print "Upgrade to $DBversion done (change reserves.expirationdate values of 0000-00-00 to NULL (bug 1532)\n";
3636 SetVersion ($DBversion);
3639 $DBversion = "3.01.00.131";
3640 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3642 INSERT IGNORE INTO message_transport_types (message_transport_type) VALUES ('print'),('feed');
3644 print "Upgrade to $DBversion done (adding print and feed message transport types)\n";
3645 SetVersion ($DBversion);
3648 $DBversion = "3.01.00.132";
3649 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3651 ALTER TABLE language_descriptions ADD INDEX subtag_type_lang (subtag, type, lang);
3653 print "Upgrade to $DBversion done (Adding index to language_descriptions table)\n";
3654 SetVersion ($DBversion);
3657 $DBversion = '3.01.00.133';
3658 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3659 $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')");
3660 print "Upgrade to $DBversion done (bug 4405: added OverduesBlockCirc syspref to control whether circulation is blocked if a borrower has overdues)\n";
3661 SetVersion ($DBversion);
3664 $DBversion = '3.01.00.134';
3665 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3666 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('DisplayMultiPlaceHold','1','Display the ability to place multiple holds or not','','YesNo')");
3667 print "Upgrade to $DBversion done (adding syspref DisplayMultiPlaceHold to control whether multiple holds can be placed from the search results page)\n";
3668 SetVersion ($DBversion);
3671 $DBversion = '3.01.00.135';
3672 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3674 INSERT INTO `letter` (module, code, name, title, content) VALUES
3675 ('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')
3677 print "Upgrade to $DBversion done (bug 4377: added HOLD_PRINT message template)\n";
3678 SetVersion ($DBversion);
3681 $DBversion = '3.01.00.136';
3682 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3684 INSERT INTO permissions (module_bit, code, description) VALUES
3685 ( 9, 'edit_items', 'Edit Items');});
3686 print "Upgrade to $DBversion done (Adding a new permission to edit items)\n";
3687 SetVersion ($DBversion);
3690 $DBversion = "3.01.00.137";
3691 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3693 INSERT INTO permissions (module_bit, code, description) VALUES
3694 (15, 'check_expiration', 'Check the expiration of a serial'),
3695 (15, 'claim_serials', 'Claim missing serials'),
3696 (15, 'create_subscription', 'Create a new subscription'),
3697 (15, 'delete_subscription', 'Delete an existing subscription'),
3698 (15, 'edit_subscription', 'Edit an existing subscription'),
3699 (15, 'receive_serials', 'Serials receiving'),
3700 (15, 'renew_subscription', 'Renew a subscription'),
3701 (15, 'routing', 'Routing');
3703 print "Upgrade to $DBversion done (adding granular permissions for serials)\n";
3704 SetVersion ($DBversion);
3707 $DBversion = "3.01.00.138";
3708 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3709 $dbh->do("DELETE FROM systempreferences WHERE variable = 'GranularPermissions'");
3710 print "Upgrade to $DBversion done (bug 4896: removing GranularPermissions syspref; use of granular permissions is now the default)\n";
3711 SetVersion ($DBversion);
3714 $DBversion = '3.01.00.139';
3715 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3716 $dbh->do("ALTER TABLE message_attributes CHANGE message_name message_name varchar(40);");
3717 print "Upgrade to $DBversion done (bug 3682: change message_name from varchar(20) to varchar(40))\n";
3718 SetVersion ($DBversion);
3721 $DBversion = '3.01.00.140';
3722 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3723 $dbh->do("UPDATE systempreferences SET value = '0' WHERE variable = 'TagsModeration' AND value is NULL");
3724 print "Upgrade to $DBversion done (bug 4312 TagsModeration changed from NULL to 0)\n";
3725 SetVersion ($DBversion);
3728 $DBversion = '3.01.00.141';
3729 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3730 $dbh->do(qq{DELETE FROM message_attributes WHERE message_attribute_id=3;});
3731 $dbh->do(qq{DELETE FROM letter WHERE code='EVENT' AND title='Upcoming Library Event';});
3732 print "Upgrade to $DBversion done Remove upcoming events messaging option (bug 2434)\n";
3733 SetVersion ($DBversion);
3736 $DBversion = '3.01.00.142';
3737 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3738 $dbh->do(qq{DELETE FROM message_transports WHERE message_attribute_id=3;});
3739 print "Upgrade to $DBversion done (Remove upcoming events messaging option part 2 (bug 2434))\n";
3740 SetVersion ($DBversion);
3743 $DBversion = '3.01.00.143';
3744 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3745 $dbh->do(qq{CREATE INDEX auth_value_idx ON authorised_values (authorised_value)});
3746 $dbh->do(qq{CREATE INDEX auth_val_cat_idx ON borrower_attribute_types (authorised_value_category)});
3747 print "Upgrade to $DBversion done (Create index on authorised_values and borrower_attribute_types (bug 4139))\n";
3748 SetVersion ($DBversion);
3751 $DBversion = '3.01.00.144';
3752 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3753 $dbh->do(qq{UPDATE systempreferences SET value='normal' where value='default' and variable='IntranetBiblioDefaultView'});
3754 print "Upgrade to $DBversion done (Update the 'default' to 'normal' for the IntranetBiblioDefaultView syspref (bug 5007))\n";
3755 SetVersion ($DBversion);
3758 $DBversion = "3.01.00.145";
3759 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3760 $dbh->do("ALTER TABLE borrowers ADD KEY `guarantorid` (guarantorid);");
3761 print "Upgrade to $DBversion done (Add index on guarantorid)\n";
3762 SetVersion ($DBversion);
3765 $DBversion = '3.01.00.999';
3766 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3767 print "Upgrade to $DBversion done (3.2.0 release candidate)\n";
3768 SetVersion ($DBversion);
3771 $DBversion = "3.02.00.000";
3772 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3773 my $value = $dbh->selectrow_array("SELECT value FROM systempreferences WHERE variable = 'HomeOrHoldingBranch'");
3774 $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');");
3775 print "Upgrade to $DBversion done (Add HomeOrHoldingBranchReturn system preference)\n";
3776 SetVersion ($DBversion);
3779 $DBversion = "3.02.00.001";
3780 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3781 $dbh->do(q{DELETE FROM systempreferences WHERE variable IN (
3786 'OPACSubscriptionDisplay',
3787 'OPACDisplayExtendedSubInfo',
3798 print "Upgrade to $DBversion done (bug 3756: remove disused system preferences)\n";
3799 SetVersion ($DBversion);
3802 $DBversion = "3.02.00.002";
3803 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3804 $dbh->do(q{DELETE FROM systempreferences WHERE variable = 'OpacPrivacy'});
3805 print "Upgrade to $DBversion done (bug 3881: remove unused OpacPrivacy system preference)\n";
3806 SetVersion ($DBversion);
3809 $DBversion = "3.02.00.003";
3810 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3811 $dbh->do(q{UPDATE systempreferences SET variable = 'ILS-DI:AuthorizedIPs' WHERE variable = 'ILS-DI:Authorized_IPs'});
3812 print "Upgrade to $DBversion done (correct ILS-DI:AuthorizedIPs)\n";
3813 SetVersion ($DBversion);
3816 $DBversion = "3.02.00.004";
3817 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3818 print "Upgrade to $DBversion done (3.2.0 general release)\n";
3819 SetVersion ($DBversion);
3821 # This is the point where 3.2.x and master diverged, we can use $original_version to make sure we don't
3823 # apply updates that have already been done
3825 $DBversion = "3.03.00.001";
3826 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.005")) {
3827 $dbh->do("DELETE FROM subscriptionroutinglist WHERE borrowernumber IS NULL;");
3828 $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `borrowernumber` int(11) NOT NULL;");
3829 $dbh->do("DELETE FROM subscriptionroutinglist WHERE subscriptionid IS NULL;");
3830 $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `subscriptionid` int(11) NOT NULL;");
3831 $dbh->do("CREATE TEMPORARY TABLE del_subscriptionroutinglist
3832 SELECT s1.routingid FROM subscriptionroutinglist s1
3833 WHERE EXISTS (SELECT * FROM subscriptionroutinglist s2
3834 WHERE s2.borrowernumber = s1.borrowernumber
3835 AND s2.subscriptionid = s1.subscriptionid
3836 AND s2.routingid < s1.routingid);");
3837 $dbh->do("DELETE FROM subscriptionroutinglist
3838 WHERE routingid IN (SELECT routingid FROM del_subscriptionroutinglist);");
3839 $dbh->do("ALTER TABLE subscriptionroutinglist ADD UNIQUE (subscriptionid, borrowernumber);");
3840 $dbh->do("ALTER TABLE subscriptionroutinglist
3841 ADD CONSTRAINT `subscriptionroutinglist_ibfk_1` FOREIGN KEY (`borrowernumber`)
3842 REFERENCES `borrowers` (`borrowernumber`)
3843 ON DELETE CASCADE ON UPDATE CASCADE");
3844 $dbh->do("ALTER TABLE subscriptionroutinglist
3845 ADD CONSTRAINT `subscriptionroutinglist_ibfk_2` FOREIGN KEY (`subscriptionid`)
3846 REFERENCES `subscription` (`subscriptionid`)
3847 ON DELETE CASCADE ON UPDATE CASCADE");
3848 print "Upgrade to $DBversion done (Make subscriptionroutinglist more strict)\n";
3849 SetVersion ($DBversion);
3852 $DBversion = '3.03.00.002';
3853 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.006")) {
3854 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='arm' WHERE rfc4646_subtag='hy';");
3855 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='eng' WHERE rfc4646_subtag='en';");
3856 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'fi','fin');");
3857 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='fre' WHERE rfc4646_subtag='fr';");
3858 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'lo','lao');");
3859 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it';");
3860 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'sr','srp');");
3861 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'tet','tet');");
3862 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ur','urd');");
3864 print "Upgrade to $DBversion done (Correct language mappings)\n";
3865 SetVersion ($DBversion);
3868 $DBversion = '3.03.00.003';
3869 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.007")) {
3870 $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');");
3871 print "Upgrade to $DBversion done (Add UseTablesortForCirc syspref)\n";
3872 SetVersion ($DBversion);
3875 $DBversion = '3.03.00.004';
3876 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.001")) {
3877 my $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ACCEPTED');
3879 INSERT INTO `letter`
3880 (module, code, name, title, content)
3882 ('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>>')
3883 /) unless $count > 0;
3884 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'AVAILABLE');
3886 INSERT INTO `letter`
3887 (module, code, name, title, content)
3889 ('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>>')
3890 /) unless $count > 0;
3891 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ORDERED');
3893 INSERT INTO `letter`
3894 (module, code, name, title, content)
3896 ('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>>')
3897 /) unless $count > 0;
3898 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'REJECTED');
3900 INSERT INTO `letter`
3901 (module, code, name, title, content)
3903 ('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>>')
3904 /) unless $count > 0;
3905 print "Upgrade to $DBversion done (bug 5127: add default templates for suggestion status change notifications)\n";
3906 SetVersion ($DBversion);
3909 $DBversion = '3.03.00.005';
3910 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3911 $dbh->do("update `systempreferences` set options='whitespace|T-prefix|cuecat|libsuite8' where variable='itemBarcodeInputFilter'");
3912 print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice libsuite8)\n";
3915 $DBversion = '3.03.00.006';
3916 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.002")) {
3917 $dbh->do("ALTER TABLE deletedborrowers ADD `privacy` int(11) AFTER smsalertnumber;");
3918 $dbh->do("ALTER TABLE deletedborrowers CHANGE `cardnumber` `cardnumber` varchar(16);");
3919 print "Upgrade to $DBversion done (Fix differences between borrowers and deletedborrowers)\n";
3920 SetVersion ($DBversion);
3923 $DBversion = '3.03.00.007';
3924 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3925 $dbh->do("ALTER table suggestions ADD quantity SMALLINT(6) default NULL,
3926 ADD currency VARCHAR(3) default NULL,
3927 ADD price DECIMAL(28,6) default NULL,
3928 ADD total DECIMAL(28,6) default NULL;
3930 print "Upgrade to $DBversion done (Added acq related columns to suggestions)\n";
3931 SetVersion ($DBversion);
3934 $DBversion = '3.03.00.008';
3935 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3936 $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')");
3937 print "Upgrade to $DBversion done (adding syspref OPACNoResultsFound to control what displays when no results are found for a search in the OPAC.)\n";
3938 SetVersion ($DBversion);
3941 $DBversion = '3.03.00.009';
3942 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.003")) {
3943 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetUserCSS','','Add CSS to be included in the Intranet',NULL,'free')");
3944 print "Upgrade to $DBversion done (Add IntranetUserCSS syspref)\n";
3945 SetVersion ($DBversion);
3948 $DBversion = "3.03.00.010";
3949 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.02.001")) {
3950 $dbh->do("UPDATE `marc_subfield_structure` SET liblibrarian = 'Distance from earth' WHERE liblibrarian = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3951 $dbh->do("UPDATE `marc_subfield_structure` SET libopac = 'Distance from earth' WHERE libopac = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3952 print "Upgrade to $DBversion done (Fix misspelled 034r subfield in MARC21 Frameworks)\n";
3953 SetVersion ($DBversion);
3956 $DBversion = "3.03.00.011";
3957 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3958 $dbh->do("UPDATE aqbooksellers SET gstrate=NULL WHERE gstrate=0.0");
3959 print "Upgrade to $DBversion done (Bug 5186: allow GST rate to be set to 0)\n";
3960 SetVersion ($DBversion);
3963 $DBversion = "3.03.00.012";
3964 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3965 $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')");
3966 print "Upgrade to $DBversion done (Bug 2142: maxItemsInSearchResults syspref resurrected)\n";
3967 SetVersion ($DBversion);
3970 $DBversion = "3.03.00.013";
3971 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3972 $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')");
3973 print "Upgrade to $DBversion done (added 'OpacPublic' syspref)\n";
3974 SetVersion ($DBversion);
3977 $DBversion = "3.03.00.014";
3978 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3979 $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')");
3980 $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')");
3981 $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')");
3982 print "Upgrade to $DBversion done (Add flexible shelf browser constraints)\n";
3983 SetVersion ($DBversion);
3986 $DBversion = "3.03.00.015";
3987 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3988 if ( C4::Context->preference("marcflavour") eq "MARC21" ) {
3989 my $sth = $dbh->prepare(
3990 "INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`,
3991 `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`)
3992 VALUES ( ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, '', 6, '', '', '', 0, -5, '', '', '', NULL)"
3994 $sth->execute('648');
3995 $sth->execute('654');
3996 $sth->execute('655');
3997 $sth->execute('656');
3998 $sth->execute('657');
3999 $sth->execute('658');
4000 $sth->execute('662');
4003 "Upgrade to $DBversion done (Bug 5619: Add subfield 9 to marc21 648,654,655,656,657,658,662)\n";
4005 SetVersion($DBversion);
4008 $DBversion = '3.03.00.016';
4009 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4010 # reimplement OpacPrivacy system preference
4011 $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')");
4012 $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4013 $dbh->do("ALTER TABLE `deletedborrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4014 print "Upgrade to $DBversion done (OpacPrivacy reimplementation)\n";
4015 SetVersion($DBversion);
4018 $DBversion = '3.03.00.017';
4019 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.001")) {
4020 $dbh->do("ALTER TABLE `currency` CHANGE `rate` `rate` FLOAT( 15, 5 ) NULL DEFAULT NULL;");
4021 print "Upgrade to $DBversion done (Enable currency rates >= 100)\n";
4022 SetVersion ($DBversion);
4025 $DBversion = '3.03.00.018';
4026 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.002")) {
4027 $dbh->do( q|update language_descriptions set description = 'Nederlands' where lang = 'nl' and subtag = 'nl'|);
4028 $dbh->do( q|update language_descriptions set description = 'Dansk' where lang = 'da' and subtag = 'da'|);
4029 print "Upgrade to $DBversion done (Correct language descriptions)\n";
4030 SetVersion ($DBversion);
4033 $DBversion = '3.03.00.019';
4034 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.003")) {
4036 $dbh->do("UPDATE language_subtag_registry SET description = 'Norwegian bokmål' WHERE subtag = 'nb';");
4037 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nb','nob');");
4038 $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND lang = 'nb';");
4039 $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND lang = 'en';");
4040 $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND lang = 'fr';");
4042 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'nn', 'language', 'Norwegian nynorsk','2011-02-14' )");
4043 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nn','nno')");
4044 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nb', 'Norsk nynorsk')");
4045 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nn', 'Norsk nynorsk')");
4046 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'en', 'Norwegian nynorsk')");
4047 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'fr', 'Norvégien nynorsk')");
4048 print "Upgrade to $DBversion done (Correct language descriptions for Norwegian)\n";
4049 SetVersion ($DBversion);
4052 $DBversion = '3.03.00.020';
4053 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4054 $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')");
4055 $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')");
4056 print "Upgrade to $DBversion done (Bug 5811: Add sysprefs controlling overriding fines)\n";
4057 SetVersion($DBversion);
4060 $DBversion = '3.03.00.021';
4061 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.001")) {
4062 $dbh->do("ALTER TABLE items MODIFY enumchron TEXT");
4063 $dbh->do("ALTER TABLE deleteditems MODIFY enumchron TEXT");
4064 print "Upgrade to $DBversion done (bug 5642: longer serial enumeration)\n";
4065 SetVersion ($DBversion);
4068 $DBversion = '3.03.00.022';
4069 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4070 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AuthoritiesLog','0','If ON, log edit/create/delete actions on authorities.','','YesNo');");
4071 print "Upgrade to $DBversion done (Add AuthoritiesLog syspref)\n";
4072 SetVersion ($DBversion);
4075 # due to a mismatch in kohastructure.sql some koha will have missing columns in aqbasketgroup
4076 # this attempts to fix that
4077 $DBversion = '3.03.00.023';
4078 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.002")) {
4079 my $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'billingplace'");
4081 $dbh->do("ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4082 $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliveryplace'");
4084 $dbh->do("ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4085 $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliverycomment'");
4087 $dbh->do("ALTER TABLE aqbasketgroups ADD deliverycomment VARCHAR(255)") if ! $sth->fetchrow_hashref;
4088 print "Upgrade to $DBversion done (Reconcile aqbasketgroups)\n";
4089 SetVersion ($DBversion);
4092 $DBversion = '3.03.00.024';
4093 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4094 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('TraceCompleteSubfields','0','Force subject tracings to only match complete subfields.','0','YesNo')");
4095 $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')");
4096 print "Upgrade to $DBversion done (Add syspref to force whole-subfield matching on subject tracings)\n";
4097 SetVersion($DBversion);
4100 $DBversion = "3.03.00.025";
4101 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4102 $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')");
4103 print "Upgrade to $DBversion done (Add syspref to control if user can choose pickup branch for holds)\n";
4104 SetVersion ($DBversion);
4107 $DBversion = '3.03.00.026';
4108 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.003")) {
4109 $dbh->do("UPDATE `message_attributes` SET message_name='Item Due' WHERE message_attribute_id=1 AND message_name LIKE 'Item DUE'");
4110 print "Upgrade to $DBversion done ( fix capitalization in message type )\n";
4111 SetVersion ($DBversion);
4114 $DBversion = '3.03.00.027';
4115 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4116 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('displayFacetCount', '0', NULL, NULL, 'YesNo')");
4117 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('maxRecordsForFacets', '20', NULL, NULL, 'Integer')");
4118 print "Upgrade to $DBversion done (Preferences for facet count)\n";
4119 SetVersion ($DBversion);
4122 $DBversion = "3.03.00.028";
4123 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4124 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('FacetLabelTruncationLength', 20, 'Truncate facets length to','','free')");
4125 print "Upgrade to $DBversion done (Add FacetLabelTruncationLength syspref to control facets displayed length)\n";
4126 SetVersion ($DBversion);
4129 $DBversion = "3.03.00.029";
4130 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4131 $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')");
4132 print "Upgrade to $DBversion done (Add syspref to control if user can choose branch when making purchase suggestion)\n";
4133 SetVersion ($DBversion);
4136 $DBversion = "3.03.00.030";
4137 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4138 $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')");
4139 $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')");
4140 print "Upgrade to $DBversion done (Add sysprefs to control custom favicons)\n";
4141 SetVersion ($DBversion);
4144 $DBversion = "3.03.00.031";
4145 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4146 $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');");
4147 print "Upgrade to $DBversion done (Add syspref FineNotifyAtCheckin)\n";
4148 SetVersion ($DBversion);
4151 $DBversion = '3.03.00.032';
4152 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4153 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('TraceSubjectSubdivisions', 1, 'Create searches on all subdivisions for subject tracings.','1','YesNo')");
4154 print "Upgrade to $DBversion done ( include subdivisions when generating subject tracing searches )\n";
4158 $DBversion = '3.03.00.033';
4159 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4160 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaffAuthorisedValueImages', '1', '', NULL, 'YesNo')");
4161 print "Upgrade to $DBversion done (System pref StaffAuthorisedValueImages)\n";
4162 SetVersion ($DBversion);
4165 $DBversion = '3.03.00.034';
4166 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4167 $dbh->do("ALTER TABLE `categories` ADD `hidelostitems` tinyint(1) NOT NULL default '0' AFTER `reservefee`");
4168 print "Upgrade to $DBversion done (Add hidelostitems preference to borrower categories)\n";
4169 SetVersion ($DBversion);
4172 $DBversion = '3.03.00.035';
4173 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4174 $dbh->do("ALTER TABLE `issuingrules` ADD hardduedate date default NULL AFTER issuelength");
4175 $dbh->do("ALTER TABLE `issuingrules` ADD hardduedatecompare tinyint NOT NULL default 0 AFTER hardduedate");
4177 if (C4::Context->preference("globalDueDate")) {
4178 $duedate = eval { output_pref( { dt => dt_from_string( C4::Context->preference("globalDueDate") ), dateonly => 1, dateformat => 'iso' } ); };
4179 $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = 0");
4180 } elsif (C4::Context->preference("ceilingDueDate")) {
4181 $duedate = eval { output_pref( { dt => dt_from_string( C4::Context->preference("ceilingDueDate") ), dateonly => 1, dateformat => 'iso' } ); };
4182 $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = -1");
4184 $dbh->do("DELETE FROM `systempreferences` WHERE variable = 'globalDueDate' OR variable = 'ceilingDueDate'");
4185 print "Upgrade to $DBversion done (Move global and ceiling due dates to Circ Rules level)\n";
4186 SetVersion ($DBversion);
4189 $DBversion = '3.03.00.036';
4190 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4191 $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')");
4192 print "Upgrade to $DBversion done ( Make COinS optional in OPAC search results )\n";
4193 SetVersion ($DBversion);
4196 $DBversion = '3.03.00.037';
4197 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4198 $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')");
4199 $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')");
4200 print "Upgrade to $DBversion done (Add 'Display856uAsImage' and 'OPACDisplay856uAsImage' syspref)\n";
4201 SetVersion ($DBversion);
4204 $DBversion = '3.03.00.038';
4205 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4206 $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')");
4207 $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')");
4208 $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')");
4209 print "Upgrade to $DBversion done ( Add Self-checkout by Login system preferences )\n";
4212 $DBversion = "3.03.00.039";
4213 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4214 $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');");
4215 print "Upgrade to $DBversion done (Add syspref ShowReviewer)\n";
4218 $DBversion = "3.03.00.040";
4219 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4220 $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');");
4221 print "Upgrade to $DBversion done (Add syspref UseControlNumber)\n";
4224 $DBversion = "3.03.00.041";
4225 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4226 $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')");
4227 $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')");
4228 print "Upgrade to $DBversion done (Add sysprefs to control alternate holdings information display)\n";
4229 SetVersion ($DBversion);
4232 $DBversion = '3.03.00.042';
4233 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4234 stocknumber_checker();
4235 print "Upgrade to $DBversion done (5860 Index itemstocknumber)\n";
4236 SetVersion ($DBversion);
4239 sub stocknumber_checker { #code reused later on
4241 #drop the obsolete itemSStocknumber idx if it exists
4242 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemsstocknumberidx'");
4243 $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;") if @row;
4245 #check itemstocknumber idx; remove it if it is unique
4246 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx' AND non_unique=0");
4247 $dbh->do("ALTER TABLE `items` DROP INDEX `itemstocknumberidx`;") if @row;
4249 #add itemstocknumber index non-unique IF it still not exists
4250 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx'");
4251 $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);") unless @row;
4254 $DBversion = "3.03.00.043";
4255 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4257 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','0','No','No')");
4258 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','1','Yes','Yes')");
4260 print "Upgrade to $DBversion done ( add generic boolean YES_NO authorised_values pair )\n";
4261 SetVersion ($DBversion);
4264 $DBversion = '3.03.00.044';
4265 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4266 $dbh->do("ALTER TABLE `aqbasketgroups` ADD `freedeliveryplace` TEXT NULL AFTER `deliveryplace`;");
4267 print "Upgrade to $DBversion done (adding freedeliveryplace to basketgroups)\n";
4270 $DBversion = '3.03.00.045';
4271 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4272 #Remove obsolete columns from aqbooksellers if needed
4273 my $a = $dbh->selectall_hashref('SHOW columns from aqbooksellers','Field');
4274 my $sqldrop="ALTER TABLE aqbooksellers DROP COLUMN ";
4275 foreach(qw/deliverydays followupdays followupscancel invoicedisc nocalc specialty/) {
4276 $dbh->do($sqldrop.$_) if exists $a->{$_};
4278 #Remove obsolete column from aqbudgets if needed
4279 #The correct column is budget_notes
4280 $a = $dbh->selectall_hashref('SHOW columns from aqbudgets','Field');
4281 if(exists $a->{budget_description}) {
4282 $dbh->do("ALTER TABLE aqbudgets DROP COLUMN budget_description");
4284 print "Upgrade to $DBversion done (Remove obsolete columns from aqbooksellers and aqbudgets if needed)\n";
4285 SetVersion ($DBversion);
4288 $DBversion = "3.03.00.046";
4289 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4290 $dbh->do("ALTER TABLE overduerules ALTER delay1 SET DEFAULT NULL, ALTER delay2 SET DEFAULT NULL, ALTER delay3 SET DEFAULT NULL");
4291 print "Upgrade to $DBversion done (Setting NULL default value for delayn columns in table overduerules)\n";
4292 SetVersion($DBversion);
4295 $DBversion = '3.03.00.047';
4296 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4297 $dbh->do("ALTER TABLE borrowers ADD `state` mediumtext AFTER city;");
4298 $dbh->do("ALTER TABLE borrowers ADD `B_state` mediumtext AFTER B_city;");
4299 $dbh->do("ALTER TABLE borrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4300 $dbh->do("ALTER TABLE deletedborrowers ADD `state` mediumtext AFTER city;");
4301 $dbh->do("ALTER TABLE deletedborrowers ADD `B_state` mediumtext AFTER B_city;");
4302 $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4303 print "Upgrade to $DBversion done (Add state field to patron's addresses)\n";
4306 $DBversion = '3.03.00.048';
4307 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4308 $dbh->do("ALTER TABLE branches ADD `branchstate` mediumtext AFTER `branchcity`;");
4309 print "Upgrade to $DBversion done (Add state to branch address)\n";
4310 SetVersion ($DBversion);
4313 $DBversion = '3.03.00.049';
4314 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4315 $dbh->do("ALTER TABLE `accountlines` ADD `note` text NULL default NULL");
4316 $dbh->do("ALTER TABLE `accountlines` ADD `manager_id` int( 11 ) NULL ");
4317 print "Upgrade to $DBversion done (adding note and manager_id fields in accountlines table)\n";
4318 SetVersion($DBversion);
4321 $DBversion = "3.03.00.050";
4322 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4324 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');
4326 print "Upgrade to $DBversion done (Adding OpacHiddenItems syspref)\n";
4327 SetVersion($DBversion);
4330 $DBversion = "3.03.00.051";
4331 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4332 print "Upgrade to $DBversion done (Remove spaces and dashes from message_attribute names)\n";
4333 $dbh->do("UPDATE message_attributes SET message_name = 'Item_Due' WHERE message_name='Item Due'");
4334 $dbh->do("UPDATE message_attributes SET message_name = 'Advance_Notice' WHERE message_name='Advance Notice'");
4335 $dbh->do("UPDATE message_attributes SET message_name = 'Hold_Filled' WHERE message_name='Hold Filled'");
4336 $dbh->do("UPDATE message_attributes SET message_name = 'Item_Check_in' WHERE message_name='Item Check-in'");
4337 $dbh->do("UPDATE message_attributes SET message_name = 'Item_Checkout' WHERE message_name='Item Checkout'");
4338 SetVersion ($DBversion);
4341 $DBversion = "3.03.00.052";
4342 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4343 $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');");
4344 print "Upgrade to $DBversion done (Add syspref WaitingNotifyAtCheckin)\n";
4345 SetVersion ($DBversion);
4348 $DBversion = "3.04.00.000";
4349 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4350 print "Upgrade to $DBversion done Koha 3.4.0 release \n";
4351 SetVersion ($DBversion);
4354 $DBversion = "3.05.00.001";
4355 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4357 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');
4359 print "Upgrade to $DBversion done (Adds New System preference numSearchRSSResults)\n";
4360 SetVersion($DBversion);
4363 $DBversion = '3.05.00.002';
4364 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4365 #follow up fix 5860: some installs already past 3.3.0.42
4366 stocknumber_checker();
4367 print "Upgrade to $DBversion done (Fix for stocknumber index)\n";
4368 SetVersion ($DBversion);
4371 $DBversion = "3.05.00.003";
4372 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4374 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');
4376 print "Upgrade to $DBversion done (Adds New System preference OpacRenewalBranch)\n";
4377 SetVersion($DBversion);
4380 $DBversion = "3.05.00.004";
4381 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4382 $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');");
4383 print "Upgrade to $DBversion done (Add syspref ShowReviewerPhoto)\n";
4384 SetVersion($DBversion);
4387 $DBversion = "3.05.00.005";
4388 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4389 $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');");
4390 print "Upgrade to $DBversion done (Adds pref BasketConfirmations)\n";
4391 SetVersion($DBversion);
4394 $DBversion = "3.05.00.006";
4395 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4396 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('MARCAuthorityControlField008', '|| aca||aabn | a|a d', NULL, NULL, 'Textarea')");
4397 print "Upgrade to $DBversion done (Add syspref MARCAuthorityControlField008)\n";
4398 SetVersion ($DBversion);
4401 $DBversion = "3.05.00.007";
4402 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4403 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpenLibraryCovers',0,'If ON Openlibrary book covers will be show',NULL,'YesNo');");
4404 print "Upgrade to $DBversion done (Add syspref OpenLibraryCovers)\n";
4405 SetVersion($DBversion);
4408 $DBversion = "3.05.00.008";
4409 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4410 $dbh->do("ALTER TABLE `cities` ADD `city_state` VARCHAR( 100 ) NULL DEFAULT NULL AFTER `city_name`;");
4411 $dbh->do("ALTER TABLE `cities` ADD `city_country` VARCHAR( 100 ) NULL DEFAULT NULL AFTER `city_zipcode`;");
4412 print "Add state and country to cities table corresponding to new columns in borrowers\n";
4413 SetVersion($DBversion);
4416 $DBversion = "3.05.00.009";
4417 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
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 borrowernumber IS NULL");
4420 $dbh->do("DELETE FROM issues WHERE borrowernumber IS NULL");
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 itemnumber IS NULL");
4424 $dbh->do("DELETE FROM issues WHERE itemnumber IS NULL");
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 borrowers WHERE borrowernumber = issues.borrowernumber)");
4428 $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowernumber = issues.borrowernumber)");
4430 $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4431 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)");
4432 $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM items WHERE itemnumber = issues.itemnumber)");
4434 $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_1`");
4435 $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_2`");
4436 $dbh->do("ALTER TABLE issues ALTER COLUMN borrowernumber DROP DEFAULT");
4437 $dbh->do("ALTER TABLE issues ALTER COLUMN itemnumber DROP DEFAULT");
4438 $dbh->do("ALTER TABLE issues MODIFY COLUMN borrowernumber int(11) NOT NULL");
4439 $dbh->do("ALTER TABLE issues MODIFY COLUMN itemnumber int(11) NOT NULL");
4440 $dbh->do("ALTER TABLE issues DROP KEY `issuesitemidx`");
4441 $dbh->do("ALTER TABLE issues ADD PRIMARY KEY (`itemnumber`)");
4442 $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4443 $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4445 print "Upgrade to $DBversion done (issues referential integrity)\n";
4446 SetVersion ($DBversion);
4449 $DBversion = "3.05.00.010";
4450 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4451 $dbh->do("CREATE INDEX priorityfoundidx ON reserves (priority,found)");
4452 print "Create an index on reserves to speed up holds awaiting pickup report bug 5866\n";
4453 SetVersion($DBversion);
4457 $DBversion = "3.05.00.011";
4458 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4459 $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')");
4460 print "Upgrade to $DBversion done (add OPACResultsSidebar syspref (enh 6165))\n";
4461 SetVersion($DBversion);
4464 $DBversion = "3.05.00.012";
4465 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4466 $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')");
4467 print "Upgrade to $DBversion done (add RecordLocalUseOnReturn syspref (enh 6403))\n";
4468 SetVersion($DBversion);
4471 $DBversion = "3.05.00.013";
4472 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4473 $dbh->do(qq|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OpacKohaUrl','0',"Show 'Powered by Koha' text on OPAC footer.",NULL,NULL)|);
4474 print "Upgrade to $DBversion done (Add syspref 'OpacKohaUrl')\n";
4475 SetVersion($DBversion);
4478 $DBversion = "3.05.00.014";
4479 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4480 $dbh->do("ALTER TABLE `borrowers` MODIFY `userid` VARCHAR(75)");
4481 print "Modified userid column length into 75 in borrowers\n";
4482 SetVersion($DBversion);
4485 $DBversion = "3.05.00.015";
4486 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4487 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectEnabled',0,'Enable Novelist Select content. Requires Novelist Profile and Password',NULL,'YesNo')");
4488 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectProfile',NULL,'Novelist Select user Password',NULL,'free')");
4489 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectPassword',NULL,'Enable Novelist user Profile',NULL,'free')");
4490 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectView','tab','Where to display Novelist Select content','tab|above|below|right','Choice')");
4491 print "Upgrade to $DBversion done (Add support for EBSCO's NoveList Select (enh 6902))\n";
4492 SetVersion($DBversion);
4495 $DBversion = '3.05.00.016';
4496 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4497 $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');");
4498 print "Upgrade to $DBversion done (Add EasyAnalyticalRecords syspref)\n";
4499 SetVersion ($DBversion);
4502 $DBversion = '3.05.00.017';
4503 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4504 if (C4::Context->preference("marcflavour") eq 'MARC21' ||
4505 C4::Context->preference("marcflavour") eq 'NORMARC'){
4506 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('773', '0', 'Host Biblionumber', 'Host Biblionumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
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 ('773', '9', 'Host Itemnumber', 'Host Itemnumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4508 print "Upgrade to $DBversion done (Add 773 subfield 9 and 0 to default framework)\n";
4509 SetVersion ($DBversion);
4510 } elsif (C4::Context->preference("marcflavour") eq 'UNIMARC'){
4511 $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)");
4512 print "Upgrade to $DBversion done (Add 461 subfield 9 to default framework)\n";
4513 SetVersion ($DBversion);
4517 $DBversion = "3.05.00.018";
4518 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4519 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacNavBottom','','Links after OpacNav links','70|10','Textarea')");
4520 print "Upgrade to $DBversion done (add OpacNavBottom syspref (enh 6825): if appropriate, you can split OpacNav into OpacNav and OpacNavBottom)\n";
4521 SetVersion($DBversion);
4524 $DBversion = "3.05.00.019";
4525 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4526 $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4527 $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4528 $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4529 $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4530 print "Upgrade to $DBversion done (remove duplicate VOKAL Book icons, bug 6862)\n";
4531 SetVersion($DBversion);
4534 $DBversion = "3.05.00.020";
4535 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4536 $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')");
4537 print "Upgrade to $DBversion done (Add syspref AcqViewBaskets)\n";
4538 SetVersion($DBversion);
4541 $DBversion = "3.05.00.021";
4542 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4543 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN display_checkout TINYINT(1) NOT NULL DEFAULT '0';");
4544 print "Upgrade to $DBversion done (Added a display_checkout field in borrower_attribute_types table)\n";
4545 SetVersion($DBversion);
4548 $DBversion = "3.05.00.022";
4549 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4550 $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");
4551 print "Upgrade to $DBversion done (6094: Fixing ModAuthority problems, add a need_merge_authorities table)\n";
4552 SetVersion($DBversion);
4555 $DBversion = "3.05.00.023";
4556 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4557 $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');");
4558 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";
4559 SetVersion($DBversion);
4562 $DBversion = "3.06.00.000";
4563 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4564 print "Upgrade to $DBversion done Koha 3.6.0 release \n";
4565 SetVersion ($DBversion);
4568 $DBversion = "3.07.00.001";
4569 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4570 my $borrowers = $dbh->selectcol_arrayref( "SELECT borrowernumber from borrowers where debarred =1;", { Columns => [1] } );
4571 $dbh->do("ALTER TABLE borrowers MODIFY debarred DATE DEFAULT NULL;");
4572 $dbh->do( "UPDATE borrowers set debarred='9999-12-31' where borrowernumber IN (" . join( ",", @$borrowers ) . ");" ) if ($borrowers and scalar(@$borrowers)>0);
4573 $dbh->do("ALTER TABLE borrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4574 $dbh->do("ALTER TABLE deletedborrowers MODIFY debarred DATE DEFAULT NULL;");
4575 $dbh->do("ALTER TABLE deletedborrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4576 print "Upgrade done (Change borrowers.debarred into Date )\n";
4577 SetVersion($DBversion);
4580 $DBversion = "3.07.00.002";
4581 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4582 $dbh->do("UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00';");
4583 print "Setting NULL to debarred where 0000-00-00 is stored (bug 7272)\n";
4584 SetVersion($DBversion);
4587 $DBversion = "3.07.00.003";
4588 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4589 $dbh->do(" UPDATE `message_attributes` SET message_name='Item_Due' WHERE message_name='Item_DUE'");
4590 print "Updating message_name in message_attributes\n";
4591 SetVersion($DBversion);
4594 $DBversion = "3.07.00.004";
4595 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4596 $dbh->do("ALTER TABLE `suggestions` ADD `patronreason` TEXT NULL AFTER `reason`");
4597 print "Upgrade to $DBversion done (Add column to suggestions table to store patrons' reasons for submitting a suggestion. )\n";
4598 SetVersion($DBversion);
4601 $DBversion = "3.07.00.005";
4602 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4603 $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')");
4604 print "Upgrade to $DBversion done (BorrowerUnwantedField syspref)\n";
4605 SetVersion ($DBversion);
4608 $DBversion = "3.07.00.006";
4609 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4610 $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');");
4611 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";
4612 SetVersion($DBversion);
4615 $DBversion = "3.07.00.007";
4616 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4617 $dbh->do("ALTER TABLE items MODIFY materials text;");
4618 print "Upgrade to $DBversion done alter items.material from varchar(10) to text \n";
4619 SetVersion($DBversion);
4622 $DBversion = '3.07.00.008';
4623 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4624 if (C4::Context->preference("marcflavour") eq 'MARC21') {
4625 if (C4::Context->preference("opaclanguages") eq "de") {
4626 $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, '');");
4628 $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, '');");
4631 print "Upgrade to $DBversion done (add MARC21 field 545 to framework)\n";
4632 SetVersion ($DBversion);
4635 $DBversion = "3.07.00.009";
4636 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4637 $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `claims_count` INT(11) DEFAULT 0, ADD COLUMN `claimed_date` DATE DEFAULT NULL AFTER `claims_count`");
4638 print "Upgrade to $DBversion done (Add claims_count and claimed_date fields in aqorders table)\n";
4639 SetVersion($DBversion);
4642 $DBversion = "3.07.00.010";
4643 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4645 q|CREATE TABLE `biblioimages` (
4646 `imagenumber` int(11) NOT NULL AUTO_INCREMENT,
4647 `biblionumber` int(11) NOT NULL,
4648 `mimetype` varchar(15) NOT NULL,
4649 `imagefile` mediumblob NOT NULL,
4650 `thumbnail` mediumblob NOT NULL,
4651 PRIMARY KEY (`imagenumber`),
4652 CONSTRAINT `bibliocoverimage_fk1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
4653 ) ENGINE=InnoDB DEFAULT CHARSET=utf8|
4656 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACLocalCoverImages','0','Display local cover images on OPAC search and details pages.','1','YesNo')|
4659 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('LocalCoverImages','0','Display local cover images on intranet search and details pages.','1','YesNo')|
4662 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')|
4665 q|INSERT INTO permissions (module_bit, code, description) VALUES (13, 'upload_local_cover_images', 'Upload local cover images')|
4667 print "Upgrade to $DBversion done (Added support for local cover images)\n";
4668 SetVersion($DBversion);
4671 $DBversion = "3.07.00.011";
4672 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4673 $dbh->do(<<ENDOFRENEWAL);
4674 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');
4676 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";
4677 SetVersion($DBversion);
4680 $DBversion = "3.07.00.012";
4681 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4682 $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')");
4683 print "Upgrade to $DBversion add 'AllowItemsOnHoldCheckout' syspref \n";
4684 SetVersion ($DBversion);
4687 $DBversion = "3.07.00.013";
4688 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4689 $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');");
4690 print "Upgrade to $DBversion done (Bug 7345: Add system preference OpacExportOptions.)\n";
4691 SetVersion ($DBversion);
4694 $DBversion = "3.07.00.014";
4695 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4696 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";
4697 SetVersion($DBversion);
4700 $DBversion = "3.07.00.015";
4701 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4702 my $sth = $dbh->prepare(q|
4703 SELECT COUNT(*) FROM marc_subfield_structure where kohafield="biblioitems.editionstatement"
4706 my $already_exists = $sth->fetchrow;
4707 if ( not $already_exists ) {
4708 my $field = C4::Context->preference("marcflavour") eq "UNIMARC" ? "205" : "250";
4710 my $sth = $dbh->prepare( q|
4711 UPDATE marc_subfield_structure SET kohafield = "biblioitems.editionstatement"
4712 WHERE tagfield = ? AND tagsubfield = ?
4714 $sth->execute( $field, $subfield );
4715 print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement.)\n";
4717 print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement (already exists, nothing to do).)\n";
4719 SetVersion($DBversion);
4722 $DBversion = "3.07.00.016";
4723 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4724 $dbh->do("ALTER TABLE items ADD KEY `itemcallnumber` (itemcallnumber)");
4725 print "Upgrade to $DBversion done (Added index on items.itemcallnumber)\n";
4726 SetVersion($DBversion);
4729 $DBversion = "3.07.00.017";
4730 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4731 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('TransferWhenCancelAllWaitingHolds','0','Transfer items when cancelling all waiting holds',NULL,'YesNo')");
4732 print "Upgrade to $DBversion done (Add sysprefs to control transfer when cancel all waiting holds)\n";
4733 SetVersion ($DBversion);
4736 $DBversion = "3.07.00.018";
4737 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4738 $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;");
4739 print "Upgrade to $DBversion done ( adding offline operations table )\n";
4740 SetVersion($DBversion);
4743 $DBversion = "3.07.00.019";
4744 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4745 $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");
4746 $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");
4747 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";
4748 SetVersion($DBversion);
4751 $DBversion = "3.07.00.020";
4752 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4753 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACpatronimages',0,'Enable patron images in the OPAC',NULL,'YesNo');");
4754 print "Upgrade to $DBversion done (Bug 3516: Add the option to show patron images in the OPAC.)\n";
4755 SetVersion($DBversion);
4758 $DBversion = "3.07.00.021";
4759 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4761 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerModule','Default','Chooses which linker module to use (see documentation).','Default|FirstMatchLastMatch','Choice');"
4764 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerOptions','','A pipe-separated list of options for the linker.','','free');"
4767 "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');"
4770 "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');"
4773 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AutoCreateAuthorities',0,'Automatically create authorities that do not exist when cataloging records.',NULL,'YesNo');"
4776 "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');"
4778 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";
4779 SetVersion($DBversion);
4782 $DBversion = "3.07.00.022";
4783 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4784 $dbh->do("DELETE FROM reviews WHERE biblionumber NOT IN (SELECT biblionumber from biblio)");
4785 $dbh->do("UPDATE reviews SET borrowernumber = NULL WHERE borrowernumber NOT IN (SELECT borrowernumber FROM borrowers)");
4786 $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_2 FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
4787 $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber ) ON UPDATE CASCADE ON DELETE SET NULL");
4788 print "Upgrade to $DBversion done (Bug 7493 - Add constraint linking OPAC comment biblionumber to biblio, OPAC comment borrowernumber to borrowers.)\n";
4789 SetVersion($DBversion);
4792 $DBversion = "3.07.00.023";
4793 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4794 $dbh->do("ALTER TABLE `message_transports` DROP FOREIGN KEY `message_transports_ibfk_3`");
4795 $dbh->do("ALTER TABLE `letter` DROP PRIMARY KEY");
4796 $dbh->do("ALTER TABLE `letter` ADD `branchcode` varchar(10) default NULL AFTER `code`");
4797 $dbh->do("ALTER TABLE `letter` ADD PRIMARY KEY (`module`,`code`, `branchcode`)");
4798 $dbh->do("ALTER TABLE `message_transports` ADD `branchcode` varchar(10) NOT NULL default ''");
4799 $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");
4800 $dbh->do("ALTER TABLE `letter` ADD `is_html` tinyint(1) default 0 AFTER `name`");
4802 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4803 VALUES ('circulation','ISSUESLIP','Issue Slip','Issue Slip', '<h3><<branches.branchname>></h3>
4804 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4805 (<<borrowers.cardnumber>>) <br />
4809 <h4>Checked Out</h4>
4812 <<biblio.title>> <br />
4813 Barcode: <<items.barcode>><br />
4814 Date due: <<issues.date_due>><br />
4821 <<biblio.title>> <br />
4822 Barcode: <<items.barcode>><br />
4823 Date due: <<issues.date_due>><br />
4829 <h4 style=\"text-align: center; font-style:italic;\">News</h4>
4831 <div class=\"newsitem\">
4832 <h5 style=\"margin-bottom: 1px; margin-top: 1px\"><b><<opac_news.title>></b></h5>
4833 <p style=\"margin-bottom: 1px; margin-top: 1px\"><<opac_news.new>></p>
4834 <p class=\"newsfooter\" style=\"font-size: 8pt; font-style:italic; margin-bottom: 1px; margin-top: 1px\">Posted on <<opac_news.timestamp>></p>
4838 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4839 VALUES ('circulation','ISSUEQSLIP','Issue Quick Slip','Issue Quick Slip', '<h3><<branches.branchname>></h3>
4840 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4841 (<<borrowers.cardnumber>>) <br />
4845 <h4>Checked Out Today</h4>
4848 <<biblio.title>> <br />
4849 Barcode: <<items.barcode>><br />
4850 Date due: <<issues.date_due>><br />
4852 </checkedout>', 1)");
4853 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4854 VALUES ('circulation','RESERVESLIP','Reserve Slip','Reserve Slip', '<h5>Date: <<today>></h5>
4856 <h3> Transfer to/Hold in <<branches.branchname>></h3>
4858 <h3><<borrowers.surname>>, <<borrowers.firstname>></h3>
4861 <li><<borrowers.cardnumber>></li>
4862 <li><<borrowers.phone>></li>
4863 <li> <<borrowers.address>><br />
4864 <<borrowers.address2>><br />
4865 <<borrowers.city >> <<borrowers.zipcode>>
4867 <li><<borrowers.email>></li>
4870 <h3>ITEM ON HOLD</h3>
4871 <h4><<biblio.title>></h4>
4872 <h5><<biblio.author>></h5>
4874 <li><<items.barcode>></li>
4875 <li><<items.itemcallnumber>></li>
4876 <li><<reserves.waitingdate>></li>
4879 <pre><<reserves.reservenotes>></pre>
4881 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4882 VALUES ('circulation','TRANSFERSLIP','Transfer Slip','Transfer Slip', '<h5>Date: <<today>></h5>
4883 <h3>Transfer to <<branches.branchname>></h3>
4886 <h4><<biblio.title>></h4>
4887 <h5><<biblio.author>></h5>
4889 <li><<items.barcode>></li>
4890 <li><<items.itemcallnumber>></li>
4893 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NoticeCSS','','Notices CSS url.',NULL,'free')");
4894 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('SlipCSS','','Slips CSS url.',NULL,'free')");
4896 $dbh->do("UPDATE `letter` SET content = replace(content, '<<title>>', '<<biblio.title>>') WHERE code = 'HOLDPLACED'");
4898 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";
4899 SetVersion($DBversion);
4902 $DBversion = "3.07.00.024";
4903 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4904 $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')");
4905 $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')");
4906 print "Upgrade to $DBversion done (Added system preference ExpireReservesMaxPickUpDelay, system preference ExpireReservesMaxPickUpDelayCharge, add reseves.charge_if_expired)\n";
4909 $DBversion = "3.07.00.025";
4910 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4911 if (TableExists('bibliocoverimage')) {
4912 $dbh->do( q|DROP TABLE bibliocoverimage;| );
4914 q|CREATE TABLE biblioimages (
4915 imagenumber int(11) NOT NULL AUTO_INCREMENT,
4916 biblionumber int(11) NOT NULL,
4917 mimetype varchar(15) NOT NULL,
4918 imagefile mediumblob NOT NULL,
4919 thumbnail mediumblob NOT NULL,
4920 PRIMARY KEY (imagenumber),
4921 CONSTRAINT bibliocoverimage_fk1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
4922 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
4925 print "Upgrade to $DBversion done (Correct table name for local cover images if needed. )\n";
4926 SetVersion($DBversion);
4929 $DBversion = "3.07.00.026";
4930 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4931 $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');");
4932 print "Upgrade to $DBversion done (Add syspref CalendarFirstDayOfWeek used to select the first day of week to use in the calendar. )\n";
4933 SetVersion($DBversion);
4936 $DBversion = "3.07.00.027";
4937 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4938 $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');});
4939 print "Upgrade to $DBversion done (Added system preference RoutingListNote for adding a general note to all routing lists.)\n";
4940 SetVersion($DBversion);
4943 $DBversion = "3.07.00.028";
4944 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4946 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');
4948 print "Upgrade to $DBversion done (Bug 6296 New System preference AllowPKIAuth)\n";
4951 $DBversion = "3.07.00.029";
4952 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4953 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_descriptions`;});
4954 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_mappings`;});
4955 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_biblios`;});
4956 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets`;});
4959 CREATE TABLE `oai_sets` (
4960 `id` int(11) NOT NULL auto_increment,
4961 `spec` varchar(80) NOT NULL UNIQUE,
4962 `name` varchar(80) NOT NULL,
4964 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4968 CREATE TABLE `oai_sets_descriptions` (
4969 `set_id` int(11) NOT NULL,
4970 `description` varchar(255) NOT NULL,
4971 CONSTRAINT `oai_sets_descriptions_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4972 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4976 CREATE TABLE `oai_sets_mappings` (
4977 `set_id` int(11) NOT NULL,
4978 `marcfield` char(3) NOT NULL,
4979 `marcsubfield` char(1) NOT NULL,
4980 `marcvalue` varchar(80) NOT NULL,
4981 CONSTRAINT `oai_sets_mappings_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4982 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4986 CREATE TABLE `oai_sets_biblios` (
4987 `biblionumber` int(11) NOT NULL,
4988 `set_id` int(11) NOT NULL,
4989 PRIMARY KEY (`biblionumber`, `set_id`),
4990 CONSTRAINT `oai_sets_biblios_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
4991 CONSTRAINT `oai_sets_biblios_ibfk_2` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4992 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4996 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');
4999 print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
5000 SetVersion($DBversion);
5003 $DBversion = "3.07.00.030";
5004 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5005 $dbh->do("ALTER TABLE default_circ_rules ADD
5006 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5007 $dbh->do("ALTER TABLE branch_item_rules ADD
5008 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5009 $dbh->do("ALTER TABLE default_branch_circ_rules ADD
5010 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5011 $dbh->do("ALTER TABLE default_branch_item_rules ADD
5012 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5013 # set the default rule to the current value of HomeOrHoldingBranchReturn (default to 'homebranch' if need be)
5014 my $homeorholdingbranchreturn = C4::Context->preference('HomeOrHoldingBranchReturn') || 'homebranch';
5015 $dbh->do("UPDATE default_circ_rules SET returnbranch = '$homeorholdingbranchreturn'");
5016 print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
5017 SetVersion($DBversion);
5020 $DBversion = "3.07.00.031";
5021 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5022 $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')");
5023 print "Upgrade to $DBversion done (Add syspref to tell Koha if ICU indexing is in use for Zebra or not.)\n";
5024 SetVersion ($DBversion);
5027 $DBversion = "3.07.00.032";
5028 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5029 $dbh->do("ALTER TABLE virtualshelves MODIFY COLUMN owner int"); #should have been int already (fk to borrowers)
5030 $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
5031 $dbh->do("DELETE FROM virtualshelves WHERE owner IS NULL and category=1"); #delete private lists without owner (cascades to shelfcontents)
5032 $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");
5033 $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=1");
5034 $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=2");
5035 $dbh->do("UPDATE virtualshelves SET allow_add=1, allow_delete_own=1, allow_delete_other=1 WHERE category=3");
5036 $dbh->do("UPDATE virtualshelves SET category=2 WHERE category=3");
5038 $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");
5039 $dbh->do("UPDATE virtualshelfcontents co LEFT JOIN virtualshelves sh USING (shelfnumber) SET co.borrowernumber=sh.owner");
5041 $dbh->do("CREATE TABLE virtualshelfshares
5042 (id int AUTO_INCREMENT PRIMARY KEY, shelfnumber int NOT NULL,
5043 borrowernumber int, invitekey varchar(10), sharedate datetime,
5044 CONSTRAINT `virtualshelfshares_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
5045 CONSTRAINT `virtualshelfshares_ibfk_2` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5047 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowPublicListCreation',1,'If set, allows opac users to create public lists',NULL,'YesNo');");
5048 $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');");
5050 print "Upgrade to $DBversion done (BZ7310: Improving list permissions)\n";
5051 SetVersion($DBversion);
5054 $DBversion = "3.07.00.033";
5055 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5056 $dbh->do("ALTER TABLE branches ADD opac_info text;");
5057 print "Upgrade to $DBversion done add opac_info to branches \n";
5058 SetVersion($DBversion);
5061 $DBversion = "3.07.00.034";
5062 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5063 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN category_code VARCHAR(10) NULL DEFAULT NULL AFTER `display_checkout`");
5064 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN class VARCHAR(255) NOT NULL DEFAULT '' AFTER `category_code`");
5065 $dbh->do("ALTER TABLE borrower_attribute_types ADD CONSTRAINT category_code_fk FOREIGN KEY (category_code) REFERENCES categories(categorycode)");
5066 print "Upgrade to $DBversion done (New fields category_code and class in borrower_attribute_types table)\n";
5067 SetVersion($DBversion);
5070 $DBversion = "3.07.00.035";
5071 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5072 $dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");
5073 $dbh->do("UPDATE issues SET date_due = CONCAT(SUBSTR(date_due,1,11),'23:59:00')");
5074 $dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");
5075 $dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");
5076 $dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");
5077 $dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");
5078 $dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");
5079 $dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");
5080 $dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");
5081 $dbh->do("UPDATE accountlines SET description = CONCAT(description,' 23:59') WHERE accounttype='F' OR accounttype='FU'"); #BUG-8253
5082 print "Upgrade to $DBversion done (Setting up issues and accountlines tables for hourly loans)\n";
5083 SetVersion($DBversion);
5086 $DBversion = "3.07.00.036";
5087 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5089 ALTER TABLE z3950servers ADD timeout INT( 11 ) NOT NULL DEFAULT '0' AFTER syntax;
5091 print "Upgrade to $DBversion done (New timeout field in z3950servers)\n";
5094 $DBversion = "3.07.00.037";
5095 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5097 ALTER TABLE `marc_subfield_structure` ADD `maxlength` INT( 4 ) NOT NULL DEFAULT '9999';
5100 UPDATE `marc_subfield_structure` SET maxlength=24 WHERE tagfield='000';
5103 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='MARC21','40','9999') WHERE tagfield='008';
5106 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='NORMARC','40','9999') WHERE tagfield='008';
5109 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='UNIMARC','36','9999') WHERE tagfield='100';
5111 print "Upgrade to $DBversion done (Add new field maxlength to marc_subfield_structure)\n";
5112 SetVersion($DBversion);
5115 $DBversion = "3.07.00.038";
5116 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5118 INSERT INTO systempreferences(variable,value,explanation,options,type)
5119 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')
5121 print "Upgrade to $DBversion done (Added system preference 'UniqueItemFields')\n";
5122 SetVersion($DBversion);
5125 $DBversion = "3.07.00.039";
5126 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5127 $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')} );
5128 $dbh->do( qq{CREATE TABLE IF NOT EXISTS social_data
5131 num_critics_pro INT,
5134 score_avg DECIMAL(5,2),
5137 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5139 $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')} );
5140 print "Upgrade to $DBversion done (added syspref and table for babeltheque (Babeltheque_url_js, babeltheque))\n";
5141 SetVersion($DBversion);
5144 $DBversion = "3.07.00.040";
5145 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5146 $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('SocialNetworks','0','Enable/Disable social networks links in opac detail','','YesNo')} );
5147 print "Upgrade to $DBversion done (added syspref SocialNetworks, to display facebook/ggl+ and other buttons)\n";
5148 SetVersion($DBversion);
5153 $DBversion = "3.07.00.041";
5154 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5155 $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')");
5156 print "Upgrade to $DBversion done (Add system preference SubscriptionDuplicateDroppedInput)\n";
5157 SetVersion($DBversion);
5160 $DBversion = "3.07.00.042";
5161 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5162 $dbh->do("ALTER TABLE reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5163 $dbh->do("ALTER TABLE old_reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5165 $dbh->do("ALTER TABLE reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5166 $dbh->do("ALTER TABLE old_reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5168 $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')");
5170 print "Upgrade to $DBversion done (Add suspend fields to reserves table, add syspref AutoResumeSuspendedHolds)\n";
5171 SetVersion ($DBversion);
5174 $DBversion = "3.07.00.043";
5175 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5176 my $countXSLTDetailsDisplay = 0;
5177 my $valueXSLTDetailsDisplay = "";
5178 my $valueXSLTResultsDisplay = "";
5179 my $valueOPACXSLTDetailsDisplay = "";
5180 my $valueOPACXSLTResultsDisplay = "";
5181 #the line below test if database comes from a BibLibre's branch
5182 $countXSLTDetailsDisplay = $dbh->do('SELECT 1 FROM systempreferences WHERE variable="IntranetXSLTDetailsDisplay"');
5183 if ($countXSLTDetailsDisplay > 0)
5185 #the two lines below will only be used to update the databases from the BibLibre's branch. They will not affect the others
5186 $dbh->do(q|UPDATE systempreferences SET variable="XSLTDetailsDisplay" WHERE variable="IntranetXSLTDetailsDisplay"|);
5187 $dbh->do(q|UPDATE systempreferences SET variable="XSLTResultsDisplay" WHERE variable="IntranetXSLTResultsDisplay"|);
5191 $valueXSLTDetailsDisplay = "default" if (C4::Context->preference("XSLTDetailsDisplay"));
5192 $valueXSLTResultsDisplay = "default" if (C4::Context->preference("XSLTResultsDisplay"));
5193 $valueOPACXSLTDetailsDisplay = "default" if (C4::Context->preference("OPACXSLTDetailsDisplay"));
5194 $valueOPACXSLTResultsDisplay = "default" if (C4::Context->preference("OPACXSLTResultsDisplay"));
5195 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTDetailsDisplay\" WHERE variable='XSLTDetailsDisplay'");
5196 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTResultsDisplay\" WHERE variable='XSLTResultsDisplay'");
5197 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTDetailsDisplay\" WHERE variable='OPACXSLTDetailsDisplay'");
5198 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTResultsDisplay\" WHERE variable='OPACXSLTResultsDisplay'");
5200 print "Upgrade to $DBversion done (XSLT systempreference takes a path to file rather than YesNo)\n";
5201 SetVersion($DBversion);
5204 $DBversion = "3.07.00.044";
5205 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5206 $dbh->do("ALTER TABLE aqbooksellers ADD deliverytime INT DEFAULT NULL");
5207 print "Upgrade to $DBversion done (Add deliverytime field in aqbooksellers table)";
5208 SetVersion($DBversion);
5211 $DBversion = "3.07.00.045";
5212 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5213 $dbh->do("ALTER TABLE import_batches MODIFY COLUMN batch_type ENUM('batch','z3950','webservice') NOT NULL default 'batch'");
5214 print "Upgrade to $DBversion done (Add 'webservice' to batch_type enum)\n";
5215 SetVersion ($DBversion);
5218 $DBversion = "3.07.00.046";
5219 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5220 $dbh->do("ALTER TABLE issuingrules ADD COLUMN lengthunit varchar(10) DEFAULT 'days' AFTER issuelength");
5221 print "Upgrade to $DBversion done (Setting up issues tables for hourly loans (lengthunit fix))\n";
5222 SetVersion($DBversion);
5225 $DBversion = "3.07.00.047";
5226 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5227 $dbh->do("CREATE INDEX items_location ON items(location)");
5228 $dbh->do("CREATE INDEX items_ccode ON items(ccode)");
5229 print "Upgrade to $DBversion done (items_location and items_ccode indexes added for ShelfBrowser)\n";
5230 SetVersion($DBversion);
5233 $DBversion = "3.07.00.048";
5234 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5236 q | CREATE TABLE ratings (
5237 borrowernumber int(11) NOT NULL,
5238 biblionumber int(11) NOT NULL,
5239 rating_value tinyint(1) NOT NULL,
5240 timestamp timestamp NOT NULL default CURRENT_TIMESTAMP,
5241 PRIMARY KEY (borrowernumber,biblionumber),
5242 CONSTRAINT ratings_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
5243 CONSTRAINT ratings_ibfk_2 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
5244 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |
5248 q /INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacStarRatings','disable',NULL,'disable|all|details','Choice') /
5252 "Upgrade to $DBversion done (Add 'ratings' table and 'OpacStarRatings' syspref)\n";
5253 SetVersion($DBversion);
5256 $DBversion = "3.07.00.049";
5257 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5258 $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')");
5259 print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5260 SetVersion($DBversion);
5263 $DBversion = "3.08.00.000";
5264 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5265 print "Upgrade to $DBversion done\n";
5266 SetVersion($DBversion);
5269 $DBversion = "3.09.00.001";
5270 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5271 $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 1 ) NULL DEFAULT NULL");
5272 print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table to allow NULL category_code)\n";
5273 SetVersion($DBversion);
5276 $DBversion = "3.09.00.002";
5277 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5278 $dbh->do("ALTER TABLE saved_sql
5280 cache_expiry INT NOT NULL DEFAULT 300,
5281 public BOOLEAN NOT NULL DEFAULT FALSE
5284 print "Upgrade to $DBversion done (Added cache_expiry and public fields in
5285 saved_reports table.)\n";
5286 SetVersion($DBversion);
5289 $DBversion = "3.09.00.003";
5290 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5291 $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');");
5292 print "Upgrade to $DBversion done (Added SvcMaxReportRows syspref)\n";
5293 SetVersion($DBversion);
5296 $DBversion = "3.09.00.004";
5297 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5298 $dbh->do("INSERT IGNORE INTO permissions (module_bit, code, description) VALUES('13', 'edit_patrons', 'Perform batch modifivation of patrons')");
5299 print "Upgrade to $DBversion done (Adds permissions flag for access to the patron modifications tool)\n";
5300 SetVersion($DBversion);
5303 $DBversion = "3.09.00.005";
5304 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5305 unless (TableExists('quotes')) {
5307 CREATE TABLE `quotes` (
5308 `id` int(11) NOT NULL AUTO_INCREMENT,
5309 `source` text DEFAULT NULL,
5310 `text` mediumtext NOT NULL,
5311 `timestamp` datetime NOT NULL,
5313 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5317 INSERT IGNORE INTO permissions VALUES (13, "edit_quotes","Edit quotes for quote-of-the-day feature");
5320 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');
5322 print "Upgrade to $DBversion done (Adding Quote of the Day Option.)\n";
5323 SetVersion($DBversion);
5326 $DBversion = "3.09.00.006";
5327 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5328 $dbh->do("UPDATE systempreferences SET
5329 variable = 'OPACShowHoldQueueDetails',
5330 value = CASE value WHEN '1' THEN 'priority' ELSE 'none' END,
5331 options = 'none|priority|holds|holds_priority',
5332 explanation = 'Show holds details in OPAC',
5334 WHERE variable = 'OPACDisplayRequestPriority'");
5335 print "Upgrade to $DBversion done (Changed system preference OPACDisplayRequestPriority -> OPACShowHoldQueueDetails)\n";
5336 SetVersion($DBversion);
5339 $DBversion = "3.09.00.007";
5340 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5341 unless(C4::Context->preference('ReservesControlBranch')){
5342 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights.','Choice')");
5344 print "Upgrade to $DBversion done (Insert ReservesControlBranch systempreference into systempreferences table )\n";
5345 SetVersion($DBversion);
5348 $DBversion = "3.09.00.008";
5349 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5350 $dbh->do("ALTER TABLE sessions ADD PRIMARY KEY (id);");
5351 $dbh->do("ALTER TABLE sessions DROP INDEX `id`;");
5352 print "Upgrade to $DBversion done (redefine the field id as PRIMARY KEY of sessions)\n";
5353 SetVersion($DBversion);
5356 $DBversion = "3.09.00.009";
5357 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5358 $dbh->do("ALTER TABLE branches ADD PRIMARY KEY (branchcode);");
5359 $dbh->do("ALTER TABLE branches DROP INDEX branchcode;");
5360 print "Upgrade to $DBversion done (redefine the field branchcode as PRIMARY KEY of branches)\n";
5361 SetVersion ($DBversion);
5364 $DBversion = "3.09.00.010";
5365 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5366 $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')");
5367 print "Upgrade to $DBversion done (Add system preference issuelostitem ))\n";
5368 SetVersion($DBversion);
5371 $DBversion = "3.09.00.011";
5372 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5373 $dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5374 $dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) ");
5375 $dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5376 if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
5377 $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'");
5379 print "Upgrade to $DBversion done (Adding ean in biblioitems and deletedbiblioitems)\n";
5380 print "If you have records with ean, please run misc/batchRebuildBiblioTables.pl to populate bibliotems.ean\n" if (C4::Context->preference("marcflavour") eq 'UNIMARC');
5381 SetVersion($DBversion);
5384 $DBversion = "3.09.00.012";
5385 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5386 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsIntranet', '1', NULL , 'Allow holds to be suspended from the intranet.', 'YesNo')");
5387 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsOpac', '1', NULL , 'Allow holds to be suspended from the OPAC.', 'YesNo')");
5388 print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5389 SetVersion($DBversion);
5392 $DBversion ="3.09.00.013";
5393 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5394 $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');");
5395 print "Upgrade to $DBversion done (Add system preference DefaultLanguageField008))\n";
5396 SetVersion($DBversion);
5399 $DBversion ="3.09.00.014";
5400 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5401 # add phone message transport type
5402 $dbh->do("INSERT INTO message_transport_types (message_transport_type) VALUES ('phone')");
5404 # adds HOLD_PHONE and PREDUE_PHONE letters (as placeholders)
5405 $dbh->do("INSERT INTO letter (module, code, name, title, content) VALUES
5406 ('reserves', 'HOLD_PHONE', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup'),
5407 ('circulation', 'PREDUE_PHONE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon'),
5408 ('circulation', 'OVERDUE_PHONE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue')
5411 # add phone notifications to patron message preferences options
5412 $dbh->do("INSERT INTO message_transports
5413 (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES
5414 (4, 'phone', 0, 'reserves', 'HOLD_PHONE'),
5415 (2, 'phone', 0, 'circulation', 'PREDUE_PHONE')
5418 # add TalkingTechItivaPhoneNotification syspref
5419 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('TalkingTechItivaPhoneNotification',0,'If ON, enables Talking Tech I-tiva phone notifications',NULL,'YesNo');");
5421 print "Upgrade done (Support for Talking Tech i-tiva phone notification system)\n";
5422 SetVersion($DBversion);
5425 $DBversion = "3.09.00.015";
5426 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5428 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')
5430 print "Upgrade to $DBversion done (Add System preference StatisticsFields)\n";
5431 SetVersion($DBversion);
5434 $DBversion = "3.09.00.016";
5435 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5436 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowBarcode','0','Show items barcode in holding tab','','YesNo')");
5437 print "Upgrade to $DBversion done (Add syspref OPACShowBarcode)\n";
5438 SetVersion ($DBversion);
5441 $DBversion = "3.09.00.017";
5442 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5443 $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');");
5444 print "Upgrade to $DBversion done (Add customizable OpacNavRight region to the OPAC main page)\n";
5445 SetVersion ($DBversion);
5448 $DBversion = "3.09.00.018";
5449 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5450 $dbh->do("DROP TABLE IF EXISTS aqbudgetborrowers");
5452 CREATE TABLE aqbudgetborrowers (
5453 budget_id int(11) NOT NULL,
5454 borrowernumber int(11) NOT NULL,
5455 PRIMARY KEY (budget_id, borrowernumber),
5456 CONSTRAINT aqbudgetborrowers_ibfk_1 FOREIGN KEY (budget_id)
5457 REFERENCES aqbudgets (budget_id)
5458 ON DELETE CASCADE ON UPDATE CASCADE,
5459 CONSTRAINT aqbudgetborrowers_ibfk_2 FOREIGN KEY (borrowernumber)
5460 REFERENCES borrowers (borrowernumber)
5461 ON DELETE CASCADE ON UPDATE CASCADE
5462 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5465 INSERT INTO permissions (module_bit, code, description)
5466 VALUES (11, 'budget_manage_all', 'Manage all budgets')
5468 print "Upgrade to $DBversion done (Add aqbudgetborrowers table)\n";
5469 SetVersion($DBversion);
5472 $DBversion = "3.09.00.019";
5473 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5474 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACShowUnusedAuthorities','1','','Show authorities that are not being used in the OPAC.','YesNo')");
5475 print "Upgrade to $DBversion done (Add OPACShowUnusedAuthorities system preference)\n";
5476 SetVersion ($DBversion);
5479 $DBversion = "3.09.00.020";
5480 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5481 $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')");
5483 CREATE TABLE IF NOT EXISTS borrower_files (
5484 file_id int(11) NOT NULL AUTO_INCREMENT,
5485 borrowernumber int(11) NOT NULL,
5486 file_name varchar(255) NOT NULL,
5487 file_type varchar(255) NOT NULL,
5488 file_description varchar(255) DEFAULT NULL,
5489 file_content longblob NOT NULL,
5490 date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
5491 PRIMARY KEY (file_id),
5492 KEY borrowernumber (borrowernumber)
5493 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5495 $dbh->do("ALTER TABLE borrower_files ADD CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE");
5497 print "Upgrade to $DBversion done (Added borrow_files table, EnableBorrowerFiles syspref)\n";
5498 SetVersion($DBversion);
5501 $DBversion = "3.09.00.021";
5502 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5503 $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');");
5504 print "Upgrade to $DBversion done (Add syspref UpdateTotalIssuesOnCirc)\n";
5505 SetVersion($DBversion);
5508 $DBversion = "3.09.00.022";
5509 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5510 $dbh->do("ALTER TABLE search_history MODIFY COLUMN query_cgi text NOT NULL");
5511 print "Upgrade to $DBversion done (Change search_history.query_cgi type to text. bug 5981)\n";
5512 SetVersion($DBversion);
5515 $DBversion = "3.09.00.023";
5516 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5517 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
5518 print "Upgrade to $DBversion done (Add system preference SearchEngine )\n";
5519 SetVersion($DBversion);
5522 $DBversion ="3.09.00.024";
5523 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5524 $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')");
5525 print "Upgrade to $DBversion done (Add system preference IntranetSlipPrinterJS))\n";
5526 SetVersion($DBversion);
5529 $DBversion = "3.09.00.025";
5530 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5531 $dbh->do('START TRANSACTION');
5532 $dbh->do('CREATE TABLE tmp_reserves AS SELECT * FROM old_reserves LIMIT 0');
5533 $dbh->do('ALTER TABLE tmp_reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5535 INSERT INTO tmp_reserves (
5536 borrowernumber, reservedate, biblionumber,
5537 constrainttype, branchcode, notificationdate,
5538 reminderdate, cancellationdate, reservenotes,
5539 priority, found, timestamp, itemnumber,
5540 waitingdate, expirationdate, lowestPriority,
5541 suspend, suspend_until
5543 borrowernumber, reservedate, biblionumber,
5544 constrainttype, branchcode, notificationdate,
5545 reminderdate, cancellationdate, reservenotes,
5546 priority, found, timestamp, itemnumber,
5547 waitingdate, expirationdate, lowestPriority,
5548 suspend, suspend_until
5549 FROM old_reserves ORDER BY reservedate
5551 $dbh->do('SET @ai = ( SELECT MAX( reserve_id ) FROM tmp_reserves )');
5552 $dbh->do('TRUNCATE old_reserves');
5553 $dbh->do('ALTER TABLE old_reserves ADD reserve_id INT( 11 ) NOT NULL PRIMARY KEY FIRST');
5554 $dbh->do('INSERT INTO old_reserves SELECT * FROM tmp_reserves WHERE reserve_id <= @ai');
5556 INSERT INTO tmp_reserves (
5557 borrowernumber, reservedate, biblionumber,
5558 constrainttype, branchcode, notificationdate,
5559 reminderdate, cancellationdate, reservenotes,
5560 priority, found, timestamp, itemnumber,
5561 waitingdate, expirationdate, lowestPriority,
5562 suspend, suspend_until
5564 borrowernumber, reservedate, biblionumber,
5565 constrainttype, branchcode, notificationdate,
5566 reminderdate, cancellationdate, reservenotes,
5567 priority, found, timestamp, itemnumber,
5568 waitingdate, expirationdate, lowestPriority,
5569 suspend, suspend_until
5570 FROM reserves ORDER BY reservedate
5572 $dbh->do('TRUNCATE reserves');
5573 $dbh->do('ALTER TABLE reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5574 $dbh->do('INSERT INTO reserves SELECT * FROM tmp_reserves WHERE reserve_id > COALESCE(@ai, 0)');
5575 $dbh->do('DROP TABLE tmp_reserves');
5578 my $sth = $dbh->prepare("
5579 SELECT COUNT( * ) AS count
5580 FROM information_schema.COLUMNS
5581 WHERE COLUMN_NAME = 'reserve_id'
5583 TABLE_NAME LIKE 'reserves'
5585 TABLE_NAME LIKE 'old_reserves'
5589 my $row = $sth->fetchrow_hashref();
5590 die("Failed to add reserve_id to reserves tables, please refresh the page to try again.") unless ( $row->{'count'} );
5592 print "Upgrade to $DBversion done (add reserve_id to reserves & old_reserves tables)\n";
5593 SetVersion($DBversion);
5596 $DBversion = "3.09.00.026";
5597 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5598 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
5599 ( 3, 'parameters_remaining_permissions', 'Remaining system parameters permissions'),
5600 ( 3, 'manage_circ_rules', 'manage circulation rules')");
5601 $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5602 SELECT borrowernumber, 3, 'parameters_remaining_permissions'
5603 FROM borrowers WHERE flags & (1 << 3)");
5604 # Give new subpermissions to all users that have 'parameters' permission flag (bit 3) set
5605 # see userflags table
5606 $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5607 SELECT borrowernumber, 3, 'manage_circ_rules'
5608 FROM borrowers WHERE flags & (1 << 3)");
5609 print "Upgrade to $DBversion done (Added parameters subpermissions)\n";
5610 SetVersion($DBversion);
5613 $DBversion = '3.09.00.027';
5614 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5615 $dbh->do("ALTER TABLE issuingrules ADD overduefinescap decimal(28,6) DEFAULT NULL");
5616 my $maxfine = C4::Context->preference('MaxFine');
5617 if ($maxfine && $maxfine < 900) { # an arbitrary value that tells us it's not "some huge value"
5618 $dbh->do("UPDATE issuingrules SET overduefinescap=?",undef,$maxfine);
5619 $dbh->do("UPDATE systempreferences SET value = NULL WHERE variable = 'MaxFine'");
5621 $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'");
5622 print "Upgrade to $DBversion done (Bug 7420 add overduefinescap to circulation matrix)\n";
5623 SetVersion ($DBversion);
5626 $DBversion = "3.09.00.028";
5627 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5628 unless ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
5629 my %referencetypes = ( '00' => 'PERSO_NAME',
5630 '10' => 'CORPO_NAME',
5631 '11' => 'MEETI_NAME',
5632 '30' => 'UNIF_TITLE',
5633 '48' => 'CHRON_TERM',
5634 '50' => 'TOPIC_TERM',
5635 '51' => 'GEOGR_NAME',
5636 '55' => 'GENRE/FORM'
5638 my $query = q{SELECT DISTINCT authtypecode, tagfield
5639 FROM auth_subfield_structure
5640 WHERE (tagfield BETWEEN '400' AND '455' OR
5641 tagfield BETWEEN '500' and '555') AND tagsubfield='a' AND
5642 frameworkcode = '' AND ROW(authtypecode, tagfield) NOT IN
5643 (SELECT authtypecode, tagfield FROM auth_subfield_structure
5644 WHERE tagsubfield ='9' )};
5645 $sth = $dbh->prepare($query);
5647 my $sth2 = $dbh->prepare(q{INSERT INTO auth_subfield_structure
5648 (authtypecode, tagfield, tagsubfield, liblibrarian, libopac,
5649 repeatable, mandatory, tab, authorised_value, value_builder,
5650 seealso, isurl, hidden, linkid, kohafield, frameworkcode)
5651 VALUES (?, ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, ?, NULL, NULL,
5652 NULL, 0, 1, '', '', '')});
5653 my $sth3 = $dbh->prepare(q{UPDATE auth_subfield_structure SET
5654 frameworkcode = ? WHERE authtypecode = ? AND
5655 tagfield = ? AND tagsubfield = 'a'});
5656 while (my $row = $sth->fetchrow_arrayref()) {
5657 my ($authtypecode, $field) = @$row;
5658 $sth2->execute($authtypecode, $field, substr($field, 0, 1));
5659 my $authtypemarker = substr $field, 1, 2;
5660 if ($authtypemarker && $referencetypes{$authtypemarker}) {
5661 $sth3->execute($referencetypes{$authtypemarker}, $authtypecode, $field);
5666 print "Upgrade to $DBversion done (Add thesaurus links for MARC21/NORMARC)\n";
5667 SetVersion($DBversion);
5670 $DBversion = "3.09.00.029"; # FIXME
5671 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5672 $dbh->do("UPDATE systempreferences SET options=concat(options,'|EAN13') WHERE variable='itemBarcodeInputFilter' AND options NOT LIKE '%EAN13%'");
5673 print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice EAN13)\n";
5675 $dbh->do("UPDATE systempreferences SET options = concat(options,'|EAN13'), explanation = concat(explanation,'; EAN13 - incremental') WHERE variable = 'autoBarcode' AND options NOT LIKE '%EAN13%'");
5676 print "Upgrade to $DBversion done ( Added EAN13 barcode autogeneration sequence )\n";
5677 SetVersion($DBversion);
5680 $DBversion ="3.09.00.030";
5681 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5682 my $query = "SELECT value FROM systempreferences WHERE variable='opacstylesheet'";
5683 my $remote= $dbh->selectrow_arrayref($query);
5684 $dbh->do("DELETE from systempreferences WHERE variable='opacstylesheet'");
5685 if($remote && $remote->[0]) {
5686 $query="UPDATE systempreferences SET value=? WHERE variable='opaclayoutstylesheet'";
5687 $dbh->do($query,undef,$remote->[0]);
5688 print "NOTE: The URL of your remote opac css file has been moved to preference opaclayoutstylesheet.\n";
5690 print "Upgrade to $DBversion done (BZ 8263: Make OPAC stylesheet preferences more consistent)\n";
5691 SetVersion($DBversion);
5694 $DBversion = "3.09.00.031";
5695 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5696 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonReviews'");
5697 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonSimilarItems'");
5698 $dbh->do("DELETE FROM systempreferences WHERE variable='AWSAccessKeyID'");
5699 $dbh->do("DELETE FROM systempreferences WHERE variable='AWSPrivateKey'");
5700 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonReviews'");
5701 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonSimilarItems'");
5702 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonEnabled'");
5703 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonEnabled'");
5704 print "Upgrade to $DBversion done ('Remove preferences controlling broken Amazon features (Bug 8679')\n";
5705 SetVersion ($DBversion);
5708 $DBversion = "3.09.00.032";
5709 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5710 $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'defaultSortField' AND value = 'callnumber'");
5711 $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'");
5712 print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n";
5713 SetVersion ($DBversion);
5717 $DBversion = '3.09.00.033';
5718 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5719 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacSuppressionByIPRange','','Restrict the suppression to IP adresses outside of the IP range','','free');");
5720 print "Upgrade to $DBversion done (Add OpacSuppressionByIPRange syspref)\n";
5721 SetVersion ($DBversion);
5724 $DBversion ="3.09.00.034";
5725 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5726 $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'PERSO_NAME' WHERE frameworkcode = 'PERSO_CODE'");
5727 $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'CORPO_NAME' WHERE frameworkcode = 'ORGO_CODE'");
5728 print "Upgrade to $DBversion done (Bug 8207: correct typo in authority types)\n";
5729 SetVersion ($DBversion);
5732 $DBversion = "3.09.00.035";
5733 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5735 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');
5738 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SubfieldsToUseWhenPrefill','','Define a list of subfields to use when prefilling items (separated by space)','','Free');
5740 print "Upgrade to $DBversion done (Adding PrefillItem and SubfieldsToUseWhenPrefill sysprefs)\n";
5741 SetVersion ($DBversion);
5744 $DBversion = "3.09.00.036";
5745 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5746 # biblioitems changes
5747 $dbh->do("ALTER TABLE biblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5748 $dbh->do("ALTER TABLE deletedbiblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5749 # preferences changes
5750 $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')");
5751 $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')");
5753 print "Upgrade to $DBversion done (Add colum agerestriction to biblioitems and deletedbiblioitems, add system preferences AgeRestrictionMarker and AgeRestrictionOverride)\n";
5754 SetVersion ($DBversion);
5757 $DBversion = "3.09.00.037";
5758 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5759 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTransportCostMatrix',0,'Use Transport Cost Matrix when filling holds','','YesNo')");
5761 $dbh->do("CREATE TABLE `transport_cost` (
5762 `frombranch` varchar(10) NOT NULL,
5763 `tobranch` varchar(10) NOT NULL,
5764 `cost` decimal(6,2) NOT NULL,
5765 `disable_transfer` tinyint(1) NOT NULL DEFAULT 0,
5766 CHECK ( `frombranch` <> `tobranch` ), -- a dud check, mysql does not support that
5767 PRIMARY KEY (`frombranch`, `tobranch`),
5768 CONSTRAINT `transport_cost_ibfk_1` FOREIGN KEY (`frombranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
5769 CONSTRAINT `transport_cost_ibfk_2` FOREIGN KEY (`tobranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
5770 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5772 print "Upgrade to $DBversion done (creating `transport_cost` table; adding UseTransportCostMatrix systempref, in circulation)\n";
5773 SetVersion($DBversion);
5776 $DBversion ="3.09.00.038";
5777 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5778 $dbh->do("ALTER TABLE borrower_attributes CHANGE attribute attribute VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
5779 print "Upgrade to $DBversion done (Increase the maximum size of a borrower attribute value)\n";
5780 SetVersion($DBversion);
5783 $DBversion ="3.09.00.039";
5784 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5785 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('DidYouMeanFromAuthorities','0','Suggest searches based on authority file.','YesNo');");
5786 print "Upgrade to $DBversion done (Add system preference DidYouMeanFromAuthorities)\n";
5787 SetVersion($DBversion);
5790 $DBversion = "3.09.00.040";
5791 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5792 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IncludeSeeFromInSearches','0','','Include see-from references in searches.','YesNo');");
5793 print "Upgrade to $DBversion done (Add IncludeSeeFromInSearches system preference)\n";
5794 SetVersion ($DBversion);
5797 $DBversion = "3.09.00.041";
5798 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5800 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportRemoveFields','','List of fields for non export in circulation.pl (separated by a space)','','');
5802 print "Upgrade to $DBversion done (Add system preference ExportRemoveFields)\n";
5803 SetVersion($DBversion);
5806 $DBversion = "3.09.00.042";
5807 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5809 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportWithCsvProfile','','Set a profile name for CSV export','','');
5811 print "Upgrade to $DBversion done (Adds New System preference ExportWithCsvProfile)\n";
5812 SetVersion($DBversion)
5815 $DBversion = "3.09.00.043";
5816 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5818 ALTER TABLE aqorders
5819 ADD parent_ordernumber int(11) DEFAULT NULL
5823 SET parent_ordernumber = ordernumber;
5825 print "Upgrade to $DBversion done (Adding parent_ordernumber in aqorders)\n";
5826 SetVersion($DBversion);
5829 $DBversion = '3.09.00.044';
5830 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5831 $dbh->do("ALTER TABLE statistics ADD COLUMN ccode VARCHAR ( 10 ) NULL AFTER associatedborrower");
5832 $dbh->do("UPDATE statistics SET statistics.ccode = ( SELECT items.ccode FROM items WHERE statistics.itemnumber = items.itemnumber )");
5833 $dbh->do("UPDATE statistics SET statistics.ccode = (
5834 SELECT deleteditems.ccode FROM deleteditems
5835 WHERE statistics.itemnumber = deleteditems.itemnumber
5836 ) WHERE statistics.ccode IS NULL");
5837 print "Upgrade done ( Added Collection Code to Statistics table. )\n";
5838 SetVersion ($DBversion);
5841 $DBversion = "3.09.00.045";
5842 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5843 $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 10 ) NULL DEFAULT NULL");
5844 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.";
5845 SetVersion($DBversion);
5848 $DBversion = "3.09.00.046";
5849 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5850 $dbh->do("ALTER TABLE `accountlines` ADD `accountlines_id` INT NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST;");
5851 print "Upgrade to $DBversion done (adding accountlines_id field in accountlines table)\n";
5852 SetVersion($DBversion);
5855 $DBversion = "3.09.00.047";
5856 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5857 # to preserve default behaviour as best as possible, set this new preference differently depending on whether IndependantBranches is set or not
5858 my $prefvalue = 'anywhere';
5859 if (C4::Context->preference("IndependantBranches")) { $prefvalue = 'homeorholdingbranch';}
5860 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowReturnToBranch', '$prefvalue', 'Where an item may be returned', 'anywhere|homebranch|holdingbranch|homeorholdingbranch', 'Choice');");
5862 print "Upgrade to $DBversion done: adding AllowReturnToBranch syspref (bug 6151)";
5863 SetVersion($DBversion);
5866 $DBversion = "3.09.00.048";
5867 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5868 $dbh->do("ALTER TABLE authorised_values MODIFY lib varchar(200)");
5869 $dbh->do("ALTER TABLE authorised_values MODIFY lib_opac varchar(200)");
5871 print "Upgrade to $DBversion done (Raise the length of Authorised Values descriptions)\n";
5872 SetVersion($DBversion);
5875 $DBversion ="3.09.00.049";
5876 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5877 $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');");
5878 $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');");
5879 $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');");
5880 $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');");
5881 print "Upgrade to $DBversion done (Add OPACMobileUserCSS, OpacMainUserBlockMobile, OpacShowLibrariesPulldownMobile and OpacShowFiltersPulldownMobile sysprefs)\n";
5882 SetVersion($DBversion);
5885 $DBversion = "3.09.00.050";
5886 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5887 $dbh->do("ALTER TABLE authorised_values MODIFY category varchar(16) NOT NULL DEFAULT '';");
5888 $dbh->do("INSERT INTO authorised_values (category, authorised_value, lib) VALUES
5889 ('REPORT_GROUP', 'CIRC', 'Circulation'),
5890 ('REPORT_GROUP', 'CAT', 'Catalog'),
5891 ('REPORT_GROUP', 'PAT', 'Patrons'),
5892 ('REPORT_GROUP', 'ACQ', 'Acquisitions'),
5893 ('REPORT_GROUP', 'ACC', 'Accounts');");
5895 $dbh->do("ALTER TABLE reports_dictionary ADD report_area varchar(6) DEFAULT NULL;");
5896 $dbh->do("UPDATE reports_dictionary SET report_area = CASE area
5903 $dbh->do("ALTER TABLE reports_dictionary DROP area;");
5904 $dbh->do("ALTER TABLE reports_dictionary ADD KEY dictionary_area_idx (report_area);");
5906 $dbh->do("ALTER TABLE saved_sql ADD report_area varchar(6) DEFAULT NULL;");
5907 $dbh->do("ALTER TABLE saved_sql ADD report_group varchar(80) DEFAULT NULL;");
5908 $dbh->do("ALTER TABLE saved_sql ADD report_subgroup varchar(80) DEFAULT NULL;");
5909 $dbh->do("ALTER TABLE saved_sql ADD KEY sql_area_group_idx (report_group, report_subgroup);");
5911 print "Upgrade to $DBversion done saved_sql new fields report_group and report_area; authorised_values.category 16 char \n";
5912 SetVersion($DBversion);
5915 $DBversion = "3.09.00.051";
5916 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5918 CREATE TABLE aqinvoices (
5919 invoiceid int(11) NOT NULL AUTO_INCREMENT,
5920 invoicenumber mediumtext NOT NULL,
5921 booksellerid int(11) NOT NULL,
5922 shipmentdate date default NULL,
5923 billingdate date default NULL,
5924 closedate date default NULL,
5925 shipmentcost decimal(28,6) default NULL,
5926 shipmentcost_budgetid int(11) default NULL,
5927 PRIMARY KEY (invoiceid),
5928 CONSTRAINT aqinvoices_fk_aqbooksellerid FOREIGN KEY (booksellerid) REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE,
5929 CONSTRAINT aqinvoices_fk_shipmentcost_budgetid FOREIGN KEY (shipmentcost_budgetid) REFERENCES aqbudgets (budget_id) ON DELETE SET NULL ON UPDATE CASCADE
5930 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5933 # Fill this new table with existing invoices
5934 my $sth = $dbh->prepare("
5935 SELECT aqorders.booksellerinvoicenumber AS invoicenumber, aqbasket.booksellerid, aqorders.datereceived
5937 LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
5938 WHERE aqorders.booksellerinvoicenumber IS NOT NULL
5939 AND aqorders.booksellerinvoicenumber != ''
5940 GROUP BY aqorders.booksellerinvoicenumber
5943 my $results = $sth->fetchall_arrayref({});
5944 $sth = $dbh->prepare("
5945 INSERT INTO aqinvoices (invoicenumber, booksellerid, shipmentdate) VALUES (?,?,?)
5947 foreach(@$results) {
5948 $sth->execute($_->{invoicenumber}, $_->{booksellerid}, $_->{datereceived});
5951 # Add the column in aqorders, fill it with correct value
5952 # and then drop booksellerinvoicenumber column
5954 ALTER TABLE aqorders
5955 ADD COLUMN invoiceid int(11) default NULL AFTER booksellerinvoicenumber,
5956 ADD CONSTRAINT aqorders_ibfk_3 FOREIGN KEY (invoiceid) REFERENCES aqinvoices (invoiceid) ON DELETE SET NULL ON UPDATE CASCADE
5960 UPDATE aqorders, aqinvoices
5961 SET aqorders.invoiceid = aqinvoices.invoiceid
5962 WHERE aqorders.booksellerinvoicenumber = aqinvoices.invoicenumber
5966 ALTER TABLE aqorders
5967 DROP COLUMN booksellerinvoicenumber
5970 print "Upgrade to $DBversion done (Add aqinvoices table) \n";
5971 SetVersion ($DBversion);
5974 $DBversion = "3.09.00.052";
5975 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5976 $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');");
5977 $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');");
5978 $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');");
5979 print "Upgrade to $DBversion done (Add systempreferences to decrease loan length on high demand items decreaseLoanHighHolds, decreaseLoanHighHoldsValue and decreaseLoanHighHoldsDuration) \n";
5980 SetVersion ($DBversion);
5983 $DBversion = "3.09.00.053";
5984 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5986 q|CREATE TABLE `import_auths` (
5987 import_record_id int(11) NOT NULL,
5988 matched_authid int(11) default NULL,
5989 control_number varchar(25) default NULL,
5990 authorized_heading varchar(128) default NULL,
5991 original_source varchar(25) default NULL,
5992 CONSTRAINT import_auths_ibfk_1 FOREIGN KEY (import_record_id)
5993 REFERENCES import_records (import_record_id) ON DELETE CASCADE ON UPDATE CASCADE,
5994 KEY matched_authid (matched_authid)
5995 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
5997 $dbh->do("ALTER TABLE import_batches
5998 CHANGE COLUMN num_biblios num_records int(11) NOT NULL default 0,
5999 ADD COLUMN record_type enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio'");
6000 $dbh->do("UPDATE import_batches SET record_type='auth' WHERE import_batch_id IN
6001 (SELECT import_batch_id FROM import_records WHERE record_type='auth')");
6003 print "Upgrade to $DBversion done (Added support for staging authorities)\n";
6004 SetVersion ($DBversion);
6007 $DBversion = "3.09.00.054";
6008 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6009 $dbh->do("ALTER TABLE aqorders CHANGE COLUMN gst gstrate DECIMAL(6,4) DEFAULT NULL");
6010 print "Upgrade to $DBversion done (Change column name in aqorders gst --> gstrate)\n";
6011 SetVersion($DBversion);
6014 $DBversion = "3.09.00.055";
6015 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6016 $dbh->do("ALTER TABLE aqorders ADD discount float(6,4) DEFAULT NULL AFTER gstrate");
6017 print "Upgrade to $DBversion done (Add discount field in aqorders table)\n";
6018 SetVersion($DBversion);
6021 $DBversion ="3.09.00.056";
6022 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6023 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('AuthDisplayHierarchy','0','Display authority hierarchies','','YesNo')");
6024 print "Upgrade to $DBversion done (Add system preference AuthDisplayHierarchy)\n";
6025 SetVersion($DBversion);
6028 $DBversion = "3.09.00.057";
6029 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6030 $dbh->do("ALTER TABLE aqbasket ADD deliveryplace VARCHAR(10) default NULL AFTER basketgroupid;");
6031 $dbh->do("ALTER TABLE aqbasket ADD billingplace VARCHAR(10) default NULL AFTER deliveryplace;");
6032 print "Upgrade to $DBversion done (Bug 5356: Added billingplace, deliveryplace to the aqbasket table)\n";
6033 SetVersion($DBversion);
6036 $DBversion ="3.09.00.058";
6037 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6038 $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');");
6039 $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');");
6040 print "Upgrade to $DBversion done (Add Did You Mean? configuration)\n";
6041 SetVersion($DBversion);
6044 $DBversion ="3.09.00.059";
6045 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6046 $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');");
6047 print "Upgrade to $DBversion done (Add system preference BlockReturnOfWithdrawnItems)\n";
6048 SetVersion($DBversion);
6051 $DBversion = "3.09.00.060";
6052 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6053 $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')");
6054 print "Upgrade to $DBversion done (Added HoldsToPullStartDate syspref)\n";
6055 SetVersion($DBversion);
6058 $DBversion = "3.09.00.061";
6059 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6060 $dbh->do("UPDATE systempreferences set value=0 WHERE variable='OPACItemsResultsDisplay' AND value='statuses'");
6061 $dbh->do("UPDATE systempreferences set value=1 WHERE variable='OPACItemsResultsDisplay' AND value='itemdetails'");
6062 $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'");
6063 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";
6064 SetVersion ($DBversion);
6067 $DBversion = "3.09.00.062";
6068 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6069 $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='NoZebra'");
6070 $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='QueryRemoveStopwords'");
6071 print "Upgrade to $DBversion done (Disable obsolete NoZebra and QueryRemoveStopwords sysprefs)\n";
6072 SetVersion ($DBversion);
6075 $DBversion = "3.09.00.063";
6076 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6077 my $gst_booksellers = $dbh->selectcol_arrayref("SELECT DISTINCT(gstrate) FROM aqbooksellers");
6078 my $gist_syspref = C4::Context->preference("gist");
6079 # remove the undef values and construct and array with the syspref and the supplier values
6080 my @gstrates = map { defined $_ ? $_ : () } @$gst_booksellers;
6081 push @gstrates, split ('\|', $gist_syspref);
6082 # we want to compare integer (or float)
6083 $_ = $_ + 0 for @gstrates;
6084 use List::MoreUtils qw/uniq/;
6085 # remove duplicate values
6086 @gstrates = uniq sort @gstrates;
6087 my $new_syspref_value = join '|', @gstrates;
6088 # update the syspref with the new values
6089 my $sth = $dbh->prepare("UPDATE systempreferences set value=? WHERE variable='gist'");
6090 $sth->execute( $new_syspref_value );
6092 print "Upgrade to $DBversion done (Bug 8832, Set the syspref gist with the existing values)\n";
6093 SetVersion ($DBversion);
6096 $DBversion = "3.09.00.064";
6097 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6098 $dbh->do('ALTER TABLE items ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6099 print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the items table)\n";
6100 SetVersion ($DBversion);
6103 $DBversion = "3.09.00.065";
6104 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6105 $dbh->do('ALTER TABLE deleteditems ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6106 print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the deleteditems table)\n";
6107 SetVersion ($DBversion);
6110 $DBversion = "3.09.00.066";
6111 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6112 $dbh->do("DELETE FROM systempreferences WHERE variable='DidYouMeanFromAuthorities'");
6113 print "Upgrade to $DBversion done (Bug 9107: remove DidYouMeanFromAuthorities syspref)\n";
6114 SetVersion ($DBversion);
6117 $DBversion = "3.09.00.067";
6118 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6119 $dbh->do("ALTER TABLE statistics CHANGE COLUMN ccode ccode varchar(10) NULL");
6120 print "Upgrade to $DBversion done (Bug 9064: statistics.ccode potentially wrongly defined)\n";
6121 SetVersion ($DBversion);
6124 $DBversion = "3.10.00.00";
6125 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6126 print "Upgrade to $DBversion done (release tag)\n";
6127 SetVersion ($DBversion);
6130 $DBversion = "3.11.00.001";
6131 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6132 $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')");
6133 print "Upgrade to $DBversion done (Bug 2832 - Add alphabet syspref)\n";
6136 $DBversion = "3.11.00.002";
6137 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6139 DELETE from aqorders_items where ordernumber NOT IN (SELECT ordernumber FROM aqorders);
6142 ALTER TABLE aqorders_items
6143 ADD CONSTRAINT aqorders_items_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber)
6144 ON DELETE CASCADE ON UPDATE CASCADE;
6146 print "Upgrade to $DBversion done (Bug 9030: Add constraint on aqorders_items.ordernumber)\n";
6147 SetVersion ($DBversion);
6150 $DBversion = "3.11.00.003";
6151 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6152 $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')");
6153 print "Upgrade to $DBversion done (Bug 7189: Add system preference RefundLostItemFeeOnReturn)\n";
6154 SetVersion($DBversion);
6157 $DBversion = "3.11.00.004";
6158 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6160 ALTER TABLE subscription ADD COLUMN closed INT(1) NOT NULL DEFAULT 0 AFTER enddate;
6163 print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n";
6164 SetVersion($DBversion);
6167 $DBversion = "3.11.00.005";
6168 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6169 $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;});
6171 $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;});
6173 $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;});
6175 print "Upgrade to $DBversion done (Bug 7919: Display of values depending on the connexion library)\n";
6176 SetVersion($DBversion);
6179 $DBversion = "3.11.00.006";
6180 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6182 UPDATE virtualshelves SET sortfield="copyrightdate" where sortfield="year";
6184 print "Upgrade to $DBversion done (Bug 9167: Update the virtualshelves.sortfield column with 'copyrightdate' if needed)\n";
6185 SetVersion($DBversion);
6188 $DBversion = "3.11.00.007";
6189 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6190 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ar', 'language', 'de', 'Arabisch')");
6191 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hy', 'language', 'de', 'Armenisch')");
6192 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'bg', 'language', 'de', 'Bulgarisch')");
6193 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'zh', 'language', 'de', 'Chinesisch')");
6194 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'cs', 'language', 'de', 'Tschechisch')");
6195 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'da', 'language', 'de', 'Dänisch')");
6196 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nl', 'language', 'de', 'Niederländisch')");
6197 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'en', 'language', 'de', 'Englisch')");
6198 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fi', 'language', 'de', 'Finnisch')");
6199 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fr', 'language', 'de', 'Französisch')");
6200 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'fr', 'Laotien')");
6201 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'de', 'Laotisch')");
6202 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'el', 'language', 'de', 'Griechisch (Nach 1453)')");
6203 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'he', 'language', 'de', 'Hebräisch')");
6204 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hi', 'language', 'de', 'Hindi')");
6205 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hu', 'language', 'de', 'Ungarisch')");
6206 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'id', 'language', 'de', 'Indonesisch')");
6207 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'it', 'language', 'de', 'Italienisch')");
6208 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ja', 'language', 'de', 'Japanisch')");
6209 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ko', 'language', 'de', 'Koreanisch')");
6210 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'la', 'language', 'de', 'Latein')");
6211 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'fr', 'Galicien')");
6212 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'de', 'Galizisch')");
6213 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nb', 'language', 'de', 'Norwegisch bokmål')");
6214 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nn', 'language', 'de', 'Norwegisch nynorsk')");
6215 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fa', 'language', 'de', 'Persisch')");
6216 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pl', 'language', 'de', 'Polnisch')");
6217 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pt', 'language', 'de', 'Portugiesisch')");
6218 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ro', 'language', 'de', 'Rumänisch')");
6219 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ru', 'language', 'de', 'Russisch')");
6220 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'fr', 'Serbe')");
6221 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'de', 'Serbisch')");
6222 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'es', 'language', 'de', 'Spanisch')");
6223 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sv', 'language', 'de', 'Schwedisch')");
6224 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'fr', 'Tétoum')");
6225 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'de', 'Tetum')");
6226 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'th', 'language', 'de', 'Thailändisch')");
6227 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tr', 'language', 'de', 'Türkisch')");
6228 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'uk', 'language', 'de', 'Ukrainisch')");
6229 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'fr', 'Ourdou')");
6230 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'de', 'Urdu')");
6231 print "Upgrade to $DBversion done (Bug 9056: add German and a couple of French translations to language_descriptions)\n";
6232 SetVersion ($DBversion);
6235 $DBversion = "3.11.00.008";
6236 if (CheckVersion($DBversion)) {
6238 CREATE TABLE IF NOT EXISTS `borrower_modifications` (
6239 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6240 `verification_token` varchar(255) NOT NULL DEFAULT '',
6241 `borrowernumber` int(11) NOT NULL DEFAULT '0',
6242 `cardnumber` varchar(16) DEFAULT NULL,
6243 `surname` mediumtext,
6246 `othernames` mediumtext,
6248 `streetnumber` varchar(10) DEFAULT NULL,
6249 `streettype` varchar(50) DEFAULT NULL,
6250 `address` mediumtext,
6254 `zipcode` varchar(25) DEFAULT NULL,
6258 `mobile` varchar(50) DEFAULT NULL,
6262 `B_streetnumber` varchar(10) DEFAULT NULL,
6263 `B_streettype` varchar(50) DEFAULT NULL,
6264 `B_address` varchar(100) DEFAULT NULL,
6266 `B_city` mediumtext,
6268 `B_zipcode` varchar(25) DEFAULT NULL,
6271 `B_phone` mediumtext,
6272 `dateofbirth` date DEFAULT NULL,
6273 `branchcode` varchar(10) DEFAULT NULL,
6274 `categorycode` varchar(10) DEFAULT NULL,
6275 `dateenrolled` date DEFAULT NULL,
6276 `dateexpiry` date DEFAULT NULL,
6277 `gonenoaddress` tinyint(1) DEFAULT NULL,
6278 `lost` tinyint(1) DEFAULT NULL,
6279 `debarred` date DEFAULT NULL,
6280 `debarredcomment` varchar(255) DEFAULT NULL,
6281 `contactname` mediumtext,
6282 `contactfirstname` text,
6283 `contacttitle` text,
6284 `guarantorid` int(11) DEFAULT NULL,
6285 `borrowernotes` mediumtext,
6286 `relationship` varchar(100) DEFAULT NULL,
6287 `ethnicity` varchar(50) DEFAULT NULL,
6288 `ethnotes` varchar(255) DEFAULT NULL,
6289 `sex` varchar(1) DEFAULT NULL,
6290 `password` varchar(30) DEFAULT NULL,
6291 `flags` int(11) DEFAULT NULL,
6292 `userid` varchar(75) DEFAULT NULL,
6293 `opacnote` mediumtext,
6294 `contactnote` varchar(255) DEFAULT NULL,
6295 `sort1` varchar(80) DEFAULT NULL,
6296 `sort2` varchar(80) DEFAULT NULL,
6297 `altcontactfirstname` varchar(255) DEFAULT NULL,
6298 `altcontactsurname` varchar(255) DEFAULT NULL,
6299 `altcontactaddress1` varchar(255) DEFAULT NULL,
6300 `altcontactaddress2` varchar(255) DEFAULT NULL,
6301 `altcontactaddress3` varchar(255) DEFAULT NULL,
6302 `altcontactstate` text,
6303 `altcontactzipcode` varchar(50) DEFAULT NULL,
6304 `altcontactcountry` text,
6305 `altcontactphone` varchar(50) DEFAULT NULL,
6306 `smsalertnumber` varchar(50) DEFAULT NULL,
6307 `privacy` int(11) DEFAULT NULL,
6308 PRIMARY KEY (`verification_token`,`borrowernumber`),
6309 KEY `verification_token` (`verification_token`),
6310 KEY `borrowernumber` (`borrowernumber`)
6311 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6315 INSERT INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES
6316 ('PatronSelfRegistration', '0', NULL, 'If enabled, patrons will be able to register themselves via the OPAC.', 'YesNo'),
6317 ('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'),
6318 ('PatronSelfRegistrationDefaultCategory', '', '', 'A patron registered via the OPAC will receive a borrower category code set in this system preference.', 'free'),
6319 ('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'),
6320 ('PatronSelfRegistrationBorrowerMandatoryField', 'surname|firstname', NULL , 'Choose the mandatory fields for a patron''s account, when registering via the OPAC.', 'free'),
6321 ('PatronSelfRegistrationBorrowerUnwantedField', '', NULL , 'Name the fields you don''t want to display when registering a new patron via the OPAC.', 'free');
6325 INSERT INTO letter ( `module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content` )
6326 VALUES ( 'members', 'OPAC_REG_VERIFY', '', 'Opac Self-Registration Verification Email', '1', 'Verify Your Account', 'Hello!
6328 Your library account has been created. Please verify your email address by clicking this link to complete the signup process:
6330 http://<<OPACBaseURL>>/cgi-bin/koha/opac-registration-verify.pl?token=<<borrower_modifications.verification_token>>
6332 If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly.'
6335 print "Upgrade to $DBversion done (Bug 7067: Add Patron Self Registration)\n";
6336 SetVersion ($DBversion);
6339 $DBversion = "3.11.00.009";
6340 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6342 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
6343 ('SeparateHoldings', '0', 'Separate current branch holdings from other holdings', NULL, 'YesNo'),
6344 ('SeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings', 'homebranch|holdingbranch', 'Choice'),
6345 ('OpacSeparateHoldings', '0', 'Separate current branch holdings from other holdings (OPAC)', NULL, 'YesNo'),
6346 ('OpacSeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings (OPAC)', 'homebranch|holdingbranch', 'Choice')
6349 print "Upgrade to $DBversion done (Bug 7674: Add systempreferences SeparateHoldings, SeparateHoldingsBranch, OpacSeparateHoldings and OpacSeparateHoldingsBranch) \n";
6350 SetVersion ($DBversion);
6353 $DBversion = "3.11.00.010";
6354 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6355 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('RenewalSendNotice', '0', '', NULL, 'YesNo')");
6357 INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
6358 ('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>>.');
6360 print "Upgrade to $DBversion done (Bug 9151 - Renewal notice according to patron alert preferences)\n";
6361 SetVersion($DBversion);
6364 $DBversion = "3.11.00.011";
6365 if ( CheckVersion($DBversion) ) {
6366 $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');");
6367 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaExtensions','webm|ogg|ogv|oga|vtt','Media file extensions','','free');");
6368 print "Upgrade to $DBversion done (Bug 8377: Add HTML5MediaEnabled and HTML5MediaExtensions sysprefs)\n";
6369 SetVersion ($DBversion);
6372 $DBversion = "3.11.00.012";
6373 if ( CheckVersion($DBversion) ) {
6374 $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')");
6375 print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6376 SetVersion($DBversion);
6379 $DBversion = "3.11.00.013";
6380 if ( CheckVersion($DBversion) ) {
6381 $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')");
6382 print "Upgrade to $DBversion done (Bug 9162 - Add a system preference to set which notes fields appears on title notes/description separator)\n";
6383 SetVersion($DBversion);
6386 $DBversion = "3.11.00.014";
6387 if ( CheckVersion($DBversion) ) {
6388 $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' )");
6389 $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserJS', '', 'Define custom javascript for inclusion in the SCO module', 'free' )");
6390 print "Upgrade to $DBversion done (Bug 9009: Add SCOUserCSS and SCOUserJS sysprefs)\n";
6393 $DBversion = "3.11.00.015";
6394 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6395 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('RentalsInNoissuesCharge', '1', 'Rental charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6396 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ManInvInNoissuesCharge', '1', 'MANUAL_INV charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6397 print "Upgrade to $DBversion done (Add sysprefs RentalsInNoissuesCharge and ManInvInNoissuesCharge.)\n";
6398 SetVersion($DBversion);
6401 $DBversion = "3.11.00.016";
6402 if ( CheckVersion($DBversion) ) {
6404 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";
6407 UPDATE userflags SET flagdesc="Edit Authorities" where flagdesc="Allow to edit authorities";
6410 UPDATE userflags SET flagdesc="Allow access to the reports module" where flagdesc="Allow to access to the reports module";
6413 UPDATE userflags SET flagdesc="Set library management parameters (deprecated)" where flagdesc="Set library management parameters";
6416 UPDATE userflags SET flagdesc="Manage serial subscriptions" where flagdesc="Allow to manage serials subscriptions";
6419 UPDATE userflags SET flagdesc="Manage patrons fines and fees" where flagdesc="Update borrower charges";
6422 UPDATE userflags SET flagdesc="Check out and check in items" where flagdesc="Circulate books";
6425 UPDATE userflags SET flagdesc="Manage Koha system settings (Administration panel)" where flagdesc="Set Koha system parameters";
6428 UPDATE userflags SET flagdesc="Add or modify patrons" where flagdesc="Add or modify borrowers";
6431 UPDATE userflags SET flagdesc="Use all tools (expand for granular tools permissions)" where flagdesc="Use tools (export, import, barcodes)";
6434 UPDATE userflags SET flagdesc="Allow staff members to modify permissions for other staff members" where flagdesc="Set user permissions";
6437 UPDATE permissions SET description="Perform batch modification of patrons" where description="Perform batch modifivation of patrons";
6440 print "Upgrade to $DBversion done (Bug 9382 (updated with bug 9745) - refresh permission descriptions to make more sense)\n";
6441 SetVersion ($DBversion);
6444 $DBversion ="3.11.00.017";
6445 if ( CheckVersion($DBversion) ) {
6446 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');");
6447 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');");
6448 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');");
6449 print "Upgrade to $DBversion done (Add IDreamBooks enhanced content)\n";
6450 SetVersion($DBversion);
6453 $DBversion = "3.11.00.018";
6454 if ( CheckVersion($DBversion) ) {
6455 $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')");
6456 $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')");
6457 print "Upgrade to $DBversion done (Bug 9395: Problem with callnumber and standard number search in OPAC and Staff Client)\n";
6458 SetVersion ($DBversion);
6461 $DBversion = "3.11.00.019";
6462 if ( CheckVersion($DBversion) ) {
6463 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorityField100', 'afrey50 ba0', NULL, NULL, 'Textarea')");
6464 print "Upgrade to $DBversion done (Bug 9145 - Add syspref UNIMARCAuthorityField100)\n";
6465 SetVersion ($DBversion);
6468 $DBversion = "3.11.00.020";
6469 if ( CheckVersion($DBversion) ) {
6470 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UNIMARCField100Language', 'fre','UNIMARC field 100 default language',NULL,'short')");
6471 print "Upgrade to $DBversion done (Bug 8347 - Koha forces UNIMARC 100 field code language to 'fre')\n";
6472 SetVersion($DBversion);
6475 $DBversion ="3.11.00.021";
6476 if ( CheckVersion($DBversion) ) {
6477 $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');");
6478 print "Upgrade to $DBversion done (Bug 5888 - Subject search pop-up for the OPAC)\n";
6479 SetVersion($DBversion);
6482 $DBversion = "3.11.00.022";
6483 if ( CheckVersion($DBversion) ) {
6485 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('Persona',0,'Use Mozilla Persona for login','','YesNo')"
6487 print "Upgrade to $DBversion done (Bug 9587 - Allow login via Persona)\n";
6488 SetVersion($DBversion);
6491 $DBversion = "3.11.00.023";
6492 if ( CheckVersion($DBversion) ) {
6493 $dbh->do("UPDATE z3950servers SET host = 'lx2.loc.gov', port = 210, db = 'LCDB', syntax = 'USMARC', encoding = 'utf8' WHERE name = 'LIBRARY OF CONGRESS'");
6494 print "Upgrade to $DBversion done (Bug 9520 - Update default LOC Z39.50 target)\n";
6495 SetVersion($DBversion);
6498 $DBversion = "3.11.00.024";
6499 if ( CheckVersion($DBversion) ) {
6500 $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');");
6501 print "Upgrade to $DBversion done (Bug 5079: Add OpacItemLocation syspref)\n";
6502 SetVersion ($DBversion);
6505 $DBversion = "3.11.00.025";
6506 if ( CheckVersion($DBversion) ) {
6508 "CREATE TABLE linktracker (
6509 id int(11) NOT NULL AUTO_INCREMENT,
6510 biblionumber int(11) DEFAULT NULL,
6511 itemnumber int(11) DEFAULT NULL,
6512 borrowernumber int(11) DEFAULT NULL,
6514 timeclicked datetime DEFAULT NULL,
6516 KEY bibidx (biblionumber),
6517 KEY itemidx (itemnumber),
6518 KEY borridx (borrowernumber),
6519 KEY dateidx (timeclicked)
6520 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
6523 INSERT INTO systempreferences (variable,value,explanation,options,type)
6524 VALUES('TrackClicks','0','Track links clicked',NULL,'Integer')" );
6526 "Upgrade to $DBversion done (Adds feature Bug 8917, the ability to track links clicked)\n";
6527 SetVersion($DBversion);
6530 $DBversion = "3.11.00.026";
6531 if ( CheckVersion($DBversion) ) {
6533 ALTER TABLE import_records ADD INDEX batch_id_record_type ( import_batch_id, record_type );
6535 print "Upgrade to $DBversion done (Bug 9207: Add new index batch_id_record_type to import_records)\n";
6536 SetVersion($DBversion);
6539 $DBversion = "3.11.00.027";
6540 if ( CheckVersion($DBversion) ) {
6542 INSERT INTO permissions ( module_bit, code, description )
6543 VALUES ( '1', 'overdues_report', 'Execute overdue items report' )
6545 # add new permission for users with all report permissions and circulation remaining permission
6547 INSERT INTO user_permissions (borrowernumber, module_bit, code)
6548 SELECT user_permissions.borrowernumber, 1, 'overdues_report'
6549 FROM user_permissions
6550 LEFT JOIN borrowers USING(borrowernumber)
6551 WHERE borrowers.flags & (1 << 16)
6552 AND user_permissions.code = 'circulate_remaining_permissions'
6554 print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n";
6555 SetVersion($DBversion);
6558 $DBversion = "3.11.00.028";
6559 if ( CheckVersion($DBversion) ) {
6560 $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' );");
6561 print "Upgrade to $DBversion done (Bug 9756 - Patron self registration missing the system preference PatronSelfRegistrationAdditionalInstructions)\n";
6562 SetVersion($DBversion);
6565 $DBversion = "3.11.00.029";
6566 if (CheckVersion($DBversion)) {
6567 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseQueryParser', '0', 'If enabled, try to use QueryParser for queries.', NULL, 'YesNo')");
6568 print "Upgrade to $DBversion done (Bug 9239: Make it possible for Koha to use QueryParser)\n";
6569 SetVersion ($DBversion);
6572 $DBversion = "3.11.00.030";
6573 if ( CheckVersion($DBversion) ) {
6574 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('FinesIncludeGracePeriod','1','If enabled, fines calculations will include the grace period.',NULL,'YesNo');");
6575 print "Upgrade to $DBversion done (Add system preference FinesIncludeGracePeriod)\n";
6576 SetVersion($DBversion);
6579 $DBversion = "3.11.00.100";
6580 if ( CheckVersion($DBversion) ) {
6581 print "Upgrade to $DBversion done (3.12-alpha release)\n";
6582 SetVersion ($DBversion);
6585 $DBversion = "3.11.00.101";
6586 if ( CheckVersion($DBversion) ) {
6587 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorsFacetsSeparator',', ', 'UNIMARC authors facets separator', NULL, 'short')");
6588 print "Upgrade to $DBversion done (Bug 9341: Problem with UNIMARC authors facets)\n";
6589 SetVersion ($DBversion);
6592 $DBversion = "3.11.00.102";
6593 if ( CheckVersion($DBversion) ) {
6595 DELETE FROM systempreferences WHERE variable='NoZebra'
6598 DELETE FROM systempreferences WHERE variable='QueryRemoveStopwords'
6600 print "Upgrade to $DBversion done (Remove deprecated NoZebra and QueryRemoveStopwords sysprefs)\n";
6601 SetVersion($DBversion);
6604 $DBversion = "3.11.00.103";
6605 if ( CheckVersion($DBversion) ) {
6606 $dbh->do("DELETE FROM systempreferences WHERE variable = 'insecure';");
6607 print "Upgrade to $DBversion done (Bug 9827 - Remove 'insecure' system preference)\n";
6608 SetVersion($DBversion);
6611 $DBversion = "3.11.00.104";
6612 if ( CheckVersion($DBversion) ) {
6613 print "Upgrade to $DBversion done (3.12-alpha2 release)\n";
6614 SetVersion ($DBversion);
6617 $DBversion = "3.11.00.105";
6618 if ( CheckVersion($DBversion) ) {
6619 if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
6620 $sth = $dbh->prepare(
6621 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '029'"
6624 my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6626 for my $frameworkcode ( keys %$frameworkcodes ) {
6628 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6629 libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6630 value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6631 ('029', 'a', 'OCLC library identifier', 'OCLC library identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6632 ('029', 'b', 'System control number', 'System control number', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6633 ('029', 'c', 'OAI set name', 'OAI set name', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6634 ('029', 't', 'Content type identifier', 'Content type identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL)
6638 for my $tag ( '863', '864', '865' ) {
6639 $sth = $dbh->prepare(
6640 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '$tag'"
6643 my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6645 for my $frameworkcode ( keys %$frameworkcodes ) {
6647 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6648 libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6649 value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6650 ('$tag', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6651 ('$tag', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6652 ('$tag', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6653 ('$tag', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6654 ('$tag', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6655 ('$tag', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6656 ('$tag', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6657 ('$tag', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6658 ('$tag', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6659 ('$tag', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6660 ('$tag', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6661 ('$tag', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6662 ('$tag', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6663 ('$tag', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6664 ('$tag', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6665 ('$tag', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6666 ('$tag', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6667 ('$tag', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6668 ('$tag', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6669 ('$tag', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6670 ('$tag', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6671 ('$tag', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6672 ('$tag', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6673 ('$tag', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6674 ('$tag', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL)
6679 print "Upgrade to $DBversion done (Bug 9353: Missing subfields on MARC21 frameworks)\n";
6680 SetVersion($DBversion);
6684 $DBversion = "3.11.00.106";
6685 if ( CheckVersion($DBversion) ) {
6686 $dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('19', 'plugins', 'Koha plugins', '0')");
6687 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
6688 ('19', 'manage', 'Manage plugins ( install / uninstall )'),
6689 ('19', 'tool', 'Use tool plugins'),
6690 ('19', 'report', 'Use report plugins'),
6691 ('19', 'configure', 'Configure plugins')
6693 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseKohaPlugins','0','Enable or disable the ability to use Koha Plugins.','','YesNo')");
6696 CREATE TABLE IF NOT EXISTS plugin_data (
6697 plugin_class varchar(255) NOT NULL,
6698 plugin_key varchar(255) NOT NULL,
6700 PRIMARY KEY (plugin_class,plugin_key)
6701 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6704 print "Upgrade to $DBversion done (Bug 7804: Added plugin system.)\n";
6705 SetVersion($DBversion);
6708 $DBversion = "3.11.00.107";
6709 if ( CheckVersion($DBversion) ) {
6710 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('TimeFormat','24hr','12hr|24hr','Defines the global time format for visual output.','Choice')");
6711 print "Upgrade to $DBversion done (Bug 9014: Add syspref TimeFormat)\n";
6712 SetVersion ($DBversion);
6715 $DBversion = "3.11.00.108";
6716 if ( CheckVersion($DBversion) ) {
6717 $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP;");
6718 $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');");
6719 $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP;");
6720 print "Upgrade to $DBversion done (Bug 7241: Fix on circulation logs)\n";
6721 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";
6722 SetVersion($DBversion);
6725 $DBversion = "3.11.00.109";
6726 if ( CheckVersion($DBversion) ) {
6727 $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');");
6728 print "Upgrade to $DBversion done (Bug 9403: Add DisplayIconsXSLT)\n";
6729 SetVersion ($DBversion);
6732 $DBversion = "3.11.00.110";
6733 if ( CheckVersion($DBversion) ) {
6734 $dbh->do("ALTER TABLE pending_offline_operations CHANGE barcode barcode VARCHAR( 20 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
6735 $dbh->do("ALTER TABLE pending_offline_operations ADD amount DECIMAL( 28, 6 ) NULL DEFAULT NULL");
6736 print "Upgrade to $DBversion done (Bug 8220 - Allow koc uploads to go to process queue)\n";
6737 SetVersion ($DBversion);
6740 $DBversion = "3.11.00.111";
6741 if ( CheckVersion($DBversion) ) {
6742 my $sth = $dbh->prepare("
6743 SELECT module, code, branchcode, content
6745 WHERE content LIKE '%<fine>%'
6748 my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?");
6749 while(my $row = $sth->fetchrow_hashref){
6750 $row->{content} =~ s/<fine>\w+<\/fine>/<<items.fine>>/;
6751 $sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode});
6753 print "Upgrade to $DBversion done (use new <<items.fine>> syntax in notices)\n";
6754 SetVersion($DBversion);
6757 $DBversion = "3.11.00.112";
6758 if ( CheckVersion($DBversion) ) {
6760 ALTER TABLE issuingrules ADD COLUMN renewalperiod int(4) DEFAULT NULL AFTER renewalsallowed
6763 UPDATE issuingrules SET renewalperiod = issuelength
6765 print "Upgrade to $DBversion done (Bug 8365: Add colum issuingrules.renewalperiod)\n";
6766 SetVersion ($DBversion);
6769 $DBversion = "3.11.00.113";
6770 if ( CheckVersion($DBversion) ) {
6772 ALTER TABLE branchcategories ADD show_in_pulldown BOOLEAN NOT NULL DEFAULT '0',
6773 ADD INDEX ( show_in_pulldown )
6775 print "Upgrade to $DBversion done (Bug 9257 - Add groups to normal search pulldown)\n";
6776 SetVersion ($DBversion);
6779 $DBversion = "3.11.00.115";
6780 if ( CheckVersion($DBversion) ) {
6781 $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')");
6782 $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')");
6783 print "Upgrade to $DBversion done (Bug 7740: Add syspref HighlightOwnItemsOnOPAC)\n";
6784 SetVersion ($DBversion);
6787 $DBversion = "3.11.00.116";
6788 if ( CheckVersion($DBversion) ) {
6789 $dbh->do(q{ALTER TABLE aqorders DROP COLUMN serialid;});
6790 $dbh->do(q{ALTER TABLE aqorders DROP COLUMN subscription;});
6791 $dbh->do(q{ALTER TABLE aqorders ADD COLUMN subscriptionid INT(11) DEFAULT NULL;});
6792 $dbh->do(q{ALTER TABLE aqorders ADD CONSTRAINT aqorders_subscriptionid FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE;});
6793 $dbh->do(q{ALTER TABLE subscription ADD COLUMN reneweddate DATE DEFAULT NULL;});
6794 print "Upgrade to $DBversion done (Bug 5343: table aqorders: DROP serialid and subscription fields and ADD subscriptionid, table subscription: ADD reneweddate)\n";
6795 SetVersion ($DBversion);
6798 $DBversion = "3.11.00.200";
6799 if ( CheckVersion($DBversion) ) {
6800 print "Upgrade to $DBversion done (3.12-beta1 release)\n";
6801 SetVersion ($DBversion);
6804 $DBversion = "3.11.00.201";
6805 if ( CheckVersion($DBversion) ) {
6806 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS' AND host LIKE 'z3950.bibsys.no'");
6807 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK' AND host LIKE 'z3950.nb.no'");
6808 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK' AND host LIKE 'z3950.nb.no'");
6809 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN' AND host like 'z3950.deich.folkebibl.no'");
6810 print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n";
6811 SetVersion($DBversion);
6814 $DBversion = "3.11.00.202";
6815 if ( CheckVersion($DBversion) ) {
6816 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ca', 'language', 'Catalan','2013-01-12' )");
6817 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ca','cat')");
6818 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'es', 'Catalán')");
6819 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'en', 'Catalan')");
6820 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'fr', 'Catalan')");
6821 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'ca', 'Català')");
6822 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'de', 'Katalanisch')");
6823 print "Upgrade to $DBversion done (Bug 9381: Add Catalan laguage)\n";
6824 SetVersion ($DBversion);
6827 $DBversion = "3.11.00.203";
6828 if ( CheckVersion($DBversion) ) {
6829 $dbh->do(q{ALTER TABLE suggestions CHANGE COLUMN title title VARCHAR(255) DEFAULT NULL;});
6830 print "Upgrade to $DBversion done (Bug 2046 - increasing title column length for suggestions)\n";
6831 SetVersion ($DBversion);
6834 $DBversion = "3.11.00.300";
6835 if ( CheckVersion($DBversion) ) {
6836 print "Upgrade to $DBversion done (3.12-beta3 release)\n";
6837 SetVersion ($DBversion);
6840 $DBversion = "3.11.00.301";
6841 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6844 ALTER TABLE `issues`
6845 ADD KEY `itemnumber_idx` (`itemnumber`),
6846 ADD KEY `branchcode_idx` (`branchcode`),
6847 ADD KEY `issuingbranch_idx` (`issuingbranch`)
6850 ALTER TABLE `old_issues`
6851 ADD KEY `branchcode_idx` (`branchcode`),
6852 ADD KEY `issuingbranch_idx` (`issuingbranch`)
6856 ALTER TABLE `items` ADD KEY `itype_idx` (`itype`)
6859 ALTER TABLE `deleteditems` ADD KEY `itype_idx` (`itype`)
6863 ALTER TABLE `biblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6866 ALTER TABLE `deletedbiblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6870 ALTER TABLE `statistics`
6871 ADD KEY `branch_idx` (`branch`),
6872 ADD KEY `proccode_idx` (`proccode`),
6873 ADD KEY `type_idx` (`type`),
6874 ADD KEY `usercode_idx` (`usercode`),
6875 ADD KEY `itemnumber_idx` (`itemnumber`),
6876 ADD KEY `itemtype_idx` (`itemtype`),
6877 ADD KEY `borrowernumber_idx` (`borrowernumber`),
6878 ADD KEY `associatedborrower_idx` (`associatedborrower`),
6879 ADD KEY `ccode_idx` (`ccode`)
6882 print "Upgrade to $DBversion done (Bug 9681: Add some database indexes)\n";
6883 SetVersion($DBversion);
6886 $DBversion = "3.12.00.000";
6887 if ( CheckVersion($DBversion) ) {
6888 print "Upgrade to $DBversion done (3.12.0 release)\n";
6889 SetVersion ($DBversion);
6892 $DBversion = '3.13.00.000';
6893 if ( CheckVersion($DBversion) ) {
6894 print "Upgrade to $DBversion done (start the journey to Koha Pi)\n";
6895 SetVersion ($DBversion);
6898 $DBversion = "3.13.00.001";
6899 if ( CheckVersion($DBversion) ) {
6900 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('UseCourseReserves', '0', NULL, 'Enable the course reserves feature.', 'YesNo')");
6901 $dbh->do("INSERT INTO userflags (bit,flag,flagdesc,defaulton) VALUES ('18','coursereserves','Course Reserves','0')");
6903 CREATE TABLE `courses` (
6904 `course_id` int(11) NOT NULL AUTO_INCREMENT,
6905 `department` varchar(20) DEFAULT NULL,
6906 `course_number` varchar(255) DEFAULT NULL,
6907 `section` varchar(255) DEFAULT NULL,
6908 `course_name` varchar(255) DEFAULT NULL,
6909 `term` varchar(20) DEFAULT NULL,
6910 `staff_note` mediumtext,
6911 `public_note` mediumtext,
6912 `students_count` varchar(20) DEFAULT NULL,
6913 `enabled` enum('yes','no') NOT NULL DEFAULT 'yes',
6914 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6915 PRIMARY KEY (`course_id`)
6916 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6920 CREATE TABLE `course_instructors` (
6921 `course_id` int(11) NOT NULL,
6922 `borrowernumber` int(11) NOT NULL,
6923 PRIMARY KEY (`course_id`,`borrowernumber`),
6924 KEY `borrowernumber` (`borrowernumber`)
6925 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6929 ALTER TABLE `course_instructors`
6930 ADD CONSTRAINT `course_instructors_ibfk_2` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`),
6931 ADD CONSTRAINT `course_instructors_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6935 CREATE TABLE `course_items` (
6936 `ci_id` int(11) NOT NULL AUTO_INCREMENT,
6937 `itemnumber` int(11) NOT NULL,
6938 `itype` varchar(10) DEFAULT NULL,
6939 `ccode` varchar(10) DEFAULT NULL,
6940 `holdingbranch` varchar(10) DEFAULT NULL,
6941 `location` varchar(80) DEFAULT NULL,
6942 `enabled` enum('yes','no') NOT NULL DEFAULT 'no',
6943 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6944 PRIMARY KEY (`ci_id`),
6945 UNIQUE KEY `itemnumber` (`itemnumber`),
6946 KEY `holdingbranch` (`holdingbranch`)
6947 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6951 ALTER TABLE `course_items`
6952 ADD CONSTRAINT `course_items_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
6953 ADD CONSTRAINT `course_items_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6957 CREATE TABLE `course_reserves` (
6958 `cr_id` int(11) NOT NULL AUTO_INCREMENT,
6959 `course_id` int(11) NOT NULL,
6960 `ci_id` int(11) NOT NULL,
6961 `staff_note` mediumtext,
6962 `public_note` mediumtext,
6963 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6964 PRIMARY KEY (`cr_id`),
6965 UNIQUE KEY `pseudo_key` (`course_id`,`ci_id`),
6966 KEY `course_id` (`course_id`)
6967 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6971 ALTER TABLE `course_reserves`
6972 ADD CONSTRAINT `course_reserves_ibfk_1` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`);
6976 INSERT INTO permissions (module_bit, code, description) VALUES
6977 (18, 'manage_courses', 'Add, edit and delete courses'),
6978 (18, 'add_reserves', 'Add course reserves'),
6979 (18, 'delete_reserves', 'Remove course reserves')
6984 print "Upgrade to $DBversion done (Add Course Reserves ( system preference UseCourseReserves ))\n";
6985 SetVersion($DBversion);
6988 $DBversion = "3.13.00.002";
6989 if ( CheckVersion($DBversion) ) {
6990 $dbh->do("UPDATE systempreferences SET variable = 'IndependentBranches' WHERE variable = 'IndependantBranches'");
6991 print "Upgrade to $DBversion done (Bug 10080 - Change system pref IndependantBranches to IndependentBranches)\n";
6992 SetVersion ($DBversion);
6995 $DBversion = '3.13.00.003';
6996 if ( CheckVersion($DBversion) ) {
6997 $dbh->do("ALTER TABLE serial DROP itemnumber");
6998 print "Upgrade to $DBversion done (Bug 7718 - Remove itemnumber column from serials table)\n";
6999 SetVersion($DBversion);
7002 $DBversion = "3.13.00.004";
7003 if(CheckVersion($DBversion)) {
7005 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowHoldNotes',0,'Show hold notes on OPAC','','YesNo')"
7007 print "Upgrade to $DBversion done (Bug 9722: Allow users to add notes when placing a hold in OPAC)\n";
7008 SetVersion($DBversion);
7011 $DBversion = "3.13.00.005";
7012 if(CheckVersion($DBversion)) {
7013 my $intra= C4::Context->preference("intranetstylesheet");
7014 #if this pref is not blank or starting with http, https or / [root], then
7015 #add an additional / to the front
7016 if($intra && $intra !~ /^(\/|https?)/) {
7017 $dbh->do("UPDATE systempreferences SET value=? WHERE variable=?",
7018 undef,('/'.$intra,"intranetstylesheet"));
7019 print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n";
7021 print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n";
7022 SetVersion ($DBversion);
7025 $DBversion = "3.13.00.006";
7026 if ( CheckVersion($DBversion) ) {
7028 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
7029 VALUES ('CalculateFinesOnReturn','1','Switch to control if overdue fines are calculated on return or not', '', 'YesNo')
7031 print "Upgrade to $DBversion done (Bug 10120: Fines on item return controlled by a systempreference)\n";
7032 SetVersion($DBversion);
7035 $DBversion = "3.13.00.007";
7036 if ( CheckVersion($DBversion) ) {
7037 $dbh->do("UPDATE systempreferences SET variable='OpacHoldNotes' WHERE variable='OpacShowHoldNotes'");
7038 print "Upgrade to $DBversion done (Bug 10343: Rename OpacShowHoldNotes to OpacHoldNotes)\n";
7039 SetVersion($DBversion);
7042 $DBversion = "3.13.00.008";
7043 if ( CheckVersion($DBversion) ) {
7045 CREATE TABLE IF NOT EXISTS borrower_files (
7046 file_id int(11) NOT NULL AUTO_INCREMENT,
7047 borrowernumber int(11) NOT NULL,
7048 file_name varchar(255) NOT NULL,
7049 file_type varchar(255) NOT NULL,
7050 file_description varchar(255) DEFAULT NULL,
7051 file_content longblob NOT NULL,
7052 date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7053 PRIMARY KEY (file_id),
7054 KEY borrowernumber (borrowernumber),
7055 CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7056 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7058 print "Upgrade to $DBversion done (Bug 10443: make sure borrower_files table exists)\n";
7059 SetVersion($DBversion);
7062 $DBversion = "3.13.00.009";
7063 if ( CheckVersion($DBversion) ) {
7064 $dbh->do("ALTER TABLE aqorders DROP COLUMN biblioitemnumber");
7065 print "Upgrade to $DBversion done (Bug 9987 - Drop column aqorders.biblioitemnumber)\n";
7066 SetVersion($DBversion);
7069 $DBversion = "3.13.00.010";
7070 if ( CheckVersion($DBversion) ) {
7073 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AcqWarnOnDuplicateInvoice','0','Warn librarians when they try to create a duplicate invoice', '', 'YesNo');
7077 "Upgrade to $DBversion done (Bug 10366 - Add system preference to enabling warning librarian when invoice is duplicated)\n";
7078 SetVersion($DBversion);
7081 $DBversion = "3.13.00.011";
7082 if ( CheckVersion($DBversion) ) {
7083 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it'");
7084 print "Upgrade to $DBversion done (Bug 9519: Wrong language code for Italian in the advanced search language limitations)\n";
7085 SetVersion($DBversion);
7088 $DBversion = "3.13.00.012";
7089 if ( CheckVersion($DBversion) ) {
7090 $dbh->do("ALTER TABLE issuingrules MODIFY COLUMN overduefinescap decimal(28,6) DEFAULT NULL;");
7091 print "Upgrade to $DBversion done (Bug 10490: Correct datatype for overduefinescap in issuingrules)\n";
7092 SetVersion($DBversion);
7095 $DBversion ="3.13.00.013";
7096 if ( CheckVersion($DBversion) ) {
7097 $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');");
7098 print "Upgrade to $DBversion done (Bug 9576: add AllowTooManyOverride syspref to enable or disable issue limit confirmation)\n";
7099 SetVersion($DBversion);
7102 $DBversion = "3.13.00.014";
7103 if ( CheckVersion($DBversion) ) {
7104 $dbh->do("ALTER TABLE courses MODIFY COLUMN department varchar(80) DEFAULT NULL;");
7105 $dbh->do("ALTER TABLE courses MODIFY COLUMN term varchar(80) DEFAULT NULL;");
7106 print "Upgrade to $DBversion done (Bug 10604: correct width of courses.department and courses.term)\n";
7107 SetVersion($DBversion);
7110 $DBversion = "3.13.00.015";
7111 if ( CheckVersion($DBversion) ) {
7113 "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')"
7115 print "Upgrade to $DBversion done (Bug 7494: Add itemBarcodeFallbackSearch syspref)\n";
7116 SetVersion($DBversion);
7119 $DBversion = "3.13.00.016";
7120 if ( CheckVersion($DBversion) ) {
7122 ALTER TABLE items CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
7126 ALTER TABLE deleteditems CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
7130 UPDATE saved_sql SET savedsql = REPLACE(savedsql, 'wthdrawn', 'withdrawn')
7134 UPDATE marc_subfield_structure SET kohafield = 'items.withdrawn' WHERE kohafield = 'items.wthdrawn'
7137 print "Upgrade to $DBversion done (Bug 10550 - Fix database typo wthdrawn)\n";
7138 SetVersion($DBversion);
7141 $DBversion = "3.13.00.017";
7142 if ( CheckVersion($DBversion) ) {
7144 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientKey','','Client key for OverDrive integration','30','Free')"
7147 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientSecret','','Client key for OverDrive integration','30','YesNo')"
7150 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveLibraryID','','Library ID for OverDrive integration','','Integer')"
7152 print "Upgrade to $DBversion done (Bug 10320 - Show results from library's OverDrive collection in OPAC search)\n";
7153 SetVersion($DBversion);
7156 $DBversion = "3.13.00.018";
7157 if ( CheckVersion($DBversion) ) {
7158 $dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers;});
7160 CREATE TABLE aqorders_transfers (
7161 ordernumber_from int(11) NULL,
7162 ordernumber_to int(11) NULL,
7163 timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7164 UNIQUE KEY ordernumber_from (ordernumber_from),
7165 UNIQUE KEY ordernumber_to (ordernumber_to),
7166 CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
7167 CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
7168 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7170 print "Upgrade to $DBversion done (Bug 5349: Add aqorders_transfers table)\n";
7171 SetVersion($DBversion);
7174 $DBversion = "3.13.00.019";
7175 if ( CheckVersion($DBversion) ) {
7176 $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsg VARCHAR(255) AFTER summary;");
7177 $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsgtype CHAR(16) DEFAULT 'message' NOT NULL AFTER checkinmsg;");
7178 print "Upgrade to $DBversion done (Bug 10513 - Light up a warning/message when returning a chosen item type)\n";
7179 SetVersion($DBversion);
7182 $DBversion = "3.13.00.020";
7183 if ( CheckVersion($DBversion) ) {
7184 $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')");
7185 $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')");
7186 print "Upgrade to $DBversion done (Bug 7639: system preferences to forgive fines on lost items)\n";
7187 SetVersion($DBversion);
7190 $DBversion ="3.13.00.021";
7191 if ( CheckVersion($DBversion) ) {
7192 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ConfirmFutureHolds','0','Number of days for confirming future holds','','Integer');");
7193 print "Upgrade to $DBversion done (Bug 9761: Add ConfirmFutureHolds pref)\n";
7194 SetVersion($DBversion);
7197 $DBversion = "3.13.00.022";
7198 if ( CheckVersion($DBversion) ) {
7199 $dbh->do("DELETE from auth_tag_structure WHERE tagfield IN ('68a','68b')");
7200 $dbh->do("DELETE from auth_subfield_structure WHERE tagfield IN ('68a','68b')");
7201 print "Upgrade to $DBversion done (Bug 10687 - Delete erroneous tags 68a and 68b on default MARC21 auth framework)\n";
7202 SetVersion($DBversion);
7205 $DBversion = "3.13.00.023";
7206 if ( CheckVersion($DBversion) ) {
7207 $dbh->do("ALTER TABLE borrowers CHANGE password password VARCHAR(60);");
7208 print "Upgrade to $DBversion done (Bug 9611 upgrading password storage system)\n";
7209 SetVersion($DBversion);
7212 $DBversion = "3.13.00.024";
7213 if ( CheckVersion($DBversion) ) {
7214 $dbh->do(q{ALTER TABLE z3950servers ADD COLUMN recordtype VARCHAR(45) NOT NULL DEFAULT 'biblio' AFTER description;});
7215 print "Upgrade to $DBversion done (Bug 10096 - Add a Z39.50 interface for authority searching)\n";
7218 $DBversion = "3.13.00.025";
7219 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7220 $dbh->do("ALTER TABLE oai_sets_mappings ADD COLUMN operator varchar(8) NOT NULL default 'equal' AFTER marcsubfield;");
7221 print "Upgrade to $DBversion done (Bug 9295: OAI notequal: add operator column to OAI mappings table)\n";
7222 SetVersion ($DBversion);
7225 $DBversion = "3.13.00.026";
7226 if ( CheckVersion($DBversion) ) {
7228 ALTER TABLE auth_subfield_structure ADD COLUMN defaultvalue TEXT DEFAULT NULL AFTER frameworkcode
7230 print "Upgrade to $DBversion done (Bug 10602: Add the column auth_subfield_structure.defaultvalue)\n";
7231 SetVersion($DBversion);
7234 $DBversion = "3.13.00.027";
7235 if ( CheckVersion($DBversion) ) {
7236 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AllowOfflineCirculation','0','','If on, enables HTML5 offline circulation functionality.','YesNo')");
7237 print "Upgrade to $DBversion done (Bug 10240: Add syspref AllowOfflineCirculation)\n";
7238 SetVersion ($DBversion);
7241 $DBversion = "3.13.00.028";
7242 if ( CheckVersion($DBversion) ) {
7244 ALTER TABLE export_format ADD type VARCHAR(255) DEFAULT 'marc' AFTER encoding
7247 ALTER TABLE export_format CHANGE marcfields content mediumtext NOT NULL
7249 print "Upgrade to $DBversion done (Bug 10853: Add new field export_format.type and rename export_format.marcfields with export_format.content)\n";
7250 SetVersion($DBversion);
7253 $DBversion = "3.13.00.029";
7254 if ( CheckVersion($DBversion) ) {
7256 INSERT IGNORE INTO export_format( profile, description, content, csv_separator, type )
7257 VALUES ( "issues to claim", "Default CSV export for serial issue claims",
7258 "SUPPLIER=aqbooksellers.name|TITLE=subscription.title|ISSUE NUMBER=serial.serialseq|LATE SINCE=serial.planneddate",
7261 print "Upgrade to $DBversion done (Bug 10854: Add the default CSV profile for claiming issues)\n";
7262 SetVersion($DBversion);
7265 $DBversion = "3.13.00.030";
7266 if ( CheckVersion($DBversion) ) {
7268 DELETE FROM patronimage WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowers.cardnumber = patronimage.cardnumber)
7272 ALTER TABLE patronimage ADD borrowernumber INT( 11 ) NULL FIRST
7275 $dbh->{AutoCommit} = 0;
7276 $dbh->{RaiseError} = 1;
7280 UPDATE patronimage LEFT JOIN borrowers USING ( cardnumber ) SET patronimage.borrowernumber = borrowers.borrowernumber
7286 print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber) failed! Transaction aborted because $@\n";
7287 eval { $dbh->rollback };
7291 ALTER TABLE patronimage DROP FOREIGN KEY patronimage_fk1
7294 ALTER TABLE patronimage DROP PRIMARY KEY, ADD PRIMARY KEY( borrowernumber )
7297 ALTER TABLE patronimage DROP cardnumber
7300 ALTER TABLE patronimage ADD FOREIGN KEY ( borrowernumber ) REFERENCES borrowers ( borrowernumber ) ON DELETE CASCADE ON UPDATE CASCADE
7303 print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber)\n";
7304 SetVersion($DBversion);
7307 $dbh->{AutoCommit} = 1;
7308 $dbh->{RaiseError} = 0;
7311 $DBversion = "3.13.00.031";
7312 if ( CheckVersion($DBversion) ) {
7315 CREATE TABLE IF NOT EXISTS `patron_lists` (
7316 patron_list_id int(11) NOT NULL AUTO_INCREMENT,
7317 name varchar(255) CHARACTER SET utf8 NOT NULL,
7318 owner int(11) NOT NULL,
7319 PRIMARY KEY (patron_list_id),
7321 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7325 ALTER TABLE `patron_lists`
7326 ADD CONSTRAINT patron_lists_ibfk_1 FOREIGN KEY (`owner`) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7330 CREATE TABLE patron_list_patrons (
7331 patron_list_patron_id int(11) NOT NULL AUTO_INCREMENT,
7332 patron_list_id int(11) NOT NULL,
7333 borrowernumber int(11) NOT NULL,
7334 PRIMARY KEY (patron_list_patron_id),
7335 KEY patron_list_id (patron_list_id),
7336 KEY borrowernumber (borrowernumber)
7337 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7341 ALTER TABLE `patron_list_patrons`
7342 ADD CONSTRAINT patron_list_patrons_ibfk_1 FOREIGN KEY (patron_list_id) REFERENCES patron_lists (patron_list_id) ON DELETE CASCADE ON UPDATE CASCADE,
7343 ADD CONSTRAINT patron_list_patrons_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7347 INSERT INTO permissions (module_bit, code, description) VALUES
7348 (13, 'manage_patron_lists', 'Add, edit and delete patron lists and their contents')
7351 print "Upgrade to $DBversion done (Bug 10565 - Add a 'Patron List' feature for storing and manipulating collections of patrons)\n";
7352 SetVersion($DBversion);
7355 $DBversion = "3.13.00.032";
7356 if ( CheckVersion($DBversion) ) {
7357 $dbh->do("ALTER TABLE aqorders ADD COLUMN orderstatus varchar(16) DEFAULT 'new' AFTER parent_ordernumber");
7358 $dbh->do("UPDATE aqorders SET orderstatus='ordered' WHERE basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)");
7360 UPDATE aqorders SET orderstatus='partial'
7361 WHERE quantity > quantityreceived
7362 AND quantityreceived > 0
7363 AND ordernumber IN (
7364 SELECT parent_ordernumber
7366 SELECT DISTINCT(parent_ordernumber)
7368 WHERE ordernumber != parent_ordernumber
7371 AND basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)
7373 $dbh->do("UPDATE aqorders SET orderstatus='complete' WHERE quantity=quantityreceived");
7374 $dbh->do("UPDATE aqorders SET orderstatus='cancelled' WHERE datecancellationprinted IS NOT NULL");
7375 print "Upgrade to $DBversion done (Bug 5336: Add the new column aqorders.orderstatus)\n";
7376 SetVersion($DBversion);
7379 $DBversion = "3.13.00.033";
7380 if ( CheckVersion($DBversion) ) {
7382 DROP TABLE IF EXISTS subscription_frequencies
7385 CREATE TABLE subscription_frequencies (
7386 id INTEGER NOT NULL AUTO_INCREMENT,
7387 description TEXT NOT NULL,
7388 displayorder INT DEFAULT NULL,
7389 unit ENUM('day','week','month','year') DEFAULT NULL,
7390 unitsperissue INTEGER NOT NULL DEFAULT '1',
7391 issuesperunit INTEGER NOT NULL DEFAULT '1',
7393 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7397 DROP TABLE IF EXISTS subscription_numberpatterns
7400 CREATE TABLE subscription_numberpatterns (
7401 id INTEGER NOT NULL AUTO_INCREMENT,
7402 label VARCHAR(255) NOT NULL,
7403 displayorder INTEGER DEFAULT NULL,
7404 description TEXT NOT NULL,
7405 numberingmethod VARCHAR(255) NOT NULL,
7406 label1 VARCHAR(255) DEFAULT NULL,
7407 add1 INTEGER DEFAULT NULL,
7408 every1 INTEGER DEFAULT NULL,
7409 whenmorethan1 INTEGER DEFAULT NULL,
7410 setto1 INTEGER DEFAULT NULL,
7411 numbering1 VARCHAR(255) DEFAULT NULL,
7412 label2 VARCHAR(255) DEFAULT NULL,
7413 add2 INTEGER DEFAULT NULL,
7414 every2 INTEGER DEFAULT NULL,
7415 whenmorethan2 INTEGER DEFAULT NULL,
7416 setto2 INTEGER DEFAULT NULL,
7417 numbering2 VARCHAR(255) DEFAULT NULL,
7418 label3 VARCHAR(255) DEFAULT NULL,
7419 add3 INTEGER DEFAULT NULL,
7420 every3 INTEGER DEFAULT NULL,
7421 whenmorethan3 INTEGER DEFAULT NULL,
7422 setto3 INTEGER DEFAULT NULL,
7423 numbering3 VARCHAR(255) DEFAULT NULL,
7425 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7429 INSERT INTO subscription_frequencies (description, unit, unitsperissue, issuesperunit, displayorder)
7431 ('2/day', 'day', 1, 2, 1),
7432 ('1/day', 'day', 1, 1, 2),
7433 ('3/week', 'week', 1, 3, 3),
7434 ('1/week', 'week', 1, 1, 4),
7435 ('1/2 weeks', 'week', 2, 1, 5),
7436 ('1/3 weeks', 'week', 3, 1, 6),
7437 ('1/month', 'month', 1, 1, 7),
7438 ('1/2 months', 'month', 2, 1, 8),
7439 ('1/3 months', 'month', 3, 1, 9),
7440 ('2/year', 'month', 6, 1, 10),
7441 ('1/year', 'year', 1, 1, 11),
7442 ('1/2 year', 'year', 2, 1, 12),
7443 ('Irregular', NULL, 1, 1, 13)
7446 # Used to link existing subscription to newly created frequencies
7447 my $frequencies_mapping = { # keys are old frequency numbers, values are the new ones
7448 1 => 2, # daily (n/week)
7453 6 => 8, # 1/2 months (6/year)
7454 7 => 9, # 1/3 months (1/quarter)
7455 8 => 9, # 1/quarter (seasonal)
7458 11 => 12, # 1/2 years
7460 16 => 13, # Without periodicity
7461 32 => 13, # Irregular
7466 INSERT INTO subscription_numberpatterns
7467 (label, displayorder, description, numberingmethod,
7468 label1, add1, every1, whenmorethan1, setto1, numbering1,
7469 label2, add2, every2, whenmorethan2, setto2, numbering2,
7470 label3, add3, every3, whenmorethan3, setto3, numbering3)
7472 ('Number', 1, 'Simple Numbering method', 'No.{X}',
7473 'Number', 1, 1, 99999, 1, NULL,
7474 NULL, NULL, NULL, NULL, NULL, NULL,
7475 NULL, NULL, NULL, NULL, NULL, NULL),
7477 ('Volume, Number, Issue', 2, 'Volume Number Issue 1', 'Vol.{X}, Number {Y}, Issue {Z}',
7478 'Volume', 1, 48, 99999, 1, NULL,
7479 'Number', 1, 4, 12, 1, NULL,
7480 'Issue', 1, 1, 4, 1, NULL),
7482 ('Volume, Number', 3, 'Volume Number 1', 'Vol {X}, No {Y}',
7483 'Volume', 1, 12, 99999, 1, NULL,
7484 'Number', 1, 1, 12, 1, NULL,
7485 NULL, NULL, NULL, NULL, NULL, NULL),
7487 ('Seasonal', 4, 'Season Year', '{X} {Y}',
7488 'Season', 1, 1, 3, 0, 'season',
7489 'Year', 1, 4, 99999, 1, NULL,
7490 NULL, NULL, NULL, NULL, NULL, NULL)
7494 ALTER TABLE subscription
7495 MODIFY COLUMN numberpattern INTEGER DEFAULT NULL,
7496 MODIFY COLUMN periodicity INTEGER DEFAULT NULL
7499 # Update existing subscriptions
7502 SELECT subscriptionid, periodicity, numberingmethod,
7503 add1, every1, whenmorethan1, setto1,
7504 add2, every2, whenmorethan2, setto2,
7505 add3, every3, whenmorethan3, setto3
7507 ORDER BY subscriptionid
7509 my $sth = $dbh->prepare($query);
7511 my $insert_numberpatterns_sth = $dbh->prepare(qq|
7512 INSERT INTO subscription_numberpatterns
7513 (label, displayorder, description, numberingmethod,
7514 label1, add1, every1, whenmorethan1, setto1, numbering1,
7515 label2, add2, every2, whenmorethan2, setto2, numbering2,
7516 label3, add3, every3, whenmorethan3, setto3, numbering3)
7518 (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
7520 my $check_numberpatterns_sth = $dbh->prepare(qq|
7521 SELECT * FROM subscription_numberpatterns
7522 WHERE (add1 = ? OR (add1 IS NULL AND ? IS NULL)) AND (add2 = ? OR (add2 IS NULL AND ? IS NULL))
7523 AND (add3 = ? OR (add3 IS NULL AND ? IS NULL)) AND (every1 = ? OR (every1 IS NULL AND ? IS NULL))
7524 AND (every2 = ? OR (every2 IS NULL AND ? IS NULL)) AND (every3 = ? OR (every3 IS NULL AND ? IS NULL))
7525 AND (whenmorethan1 = ? OR (whenmorethan1 IS NULL AND ? IS NULL)) AND (whenmorethan2 = ? OR (whenmorethan2 IS NULL AND ? IS NULL))
7526 AND (whenmorethan3 = ? OR (whenmorethan3 IS NULL AND ? IS NULL)) AND (setto1 = ? OR (setto1 IS NULL AND ? IS NULL))
7527 AND (setto2 = ? OR (setto2 IS NULL AND ? IS NULL)) AND (setto3 = ? OR (setto3 IS NULL AND ? IS NULL))
7528 AND (numberingmethod = ? OR (numberingmethod IS NULL AND ? IS NULL))
7531 my $update_subscription_sth = $dbh->prepare(qq|
7533 SET numberpattern = ?,
7535 WHERE subscriptionid = ?
7539 while(my $sub = $sth->fetchrow_hashref) {
7540 $check_numberpatterns_sth->execute(
7541 $sub->{add1}, $sub->{add1}, $sub->{add2}, $sub->{add2}, $sub->{add3}, $sub->{add3},
7542 $sub->{every1}, $sub->{every1}, $sub->{every2}, $sub->{every2}, $sub->{every3}, $sub->{every3},
7543 $sub->{whenmorethan1}, $sub->{whenmorethan1}, $sub->{whenmorethan2}, $sub->{whenmorethan2},
7544 $sub->{whenmorethan3}, $sub->{whenmorethan3}, $sub->{setto1}, $sub->{setto1}, $sub->{setto2},
7545 $sub->{setto2}, $sub->{setto3}, $sub->{setto3}, $sub->{numberingmethod}, $sub->{numberingmethod}
7547 my $p = $check_numberpatterns_sth->fetchrow_hashref;
7549 # Pattern already exists, link to it
7550 $update_subscription_sth->execute($p->{id},
7551 $frequencies_mapping->{$sub->{periodicity}},
7552 $sub->{subscriptionid});
7554 # Create a new numbering pattern for this subscription
7555 my $ok = $insert_numberpatterns_sth->execute(
7556 "Backup pattern $i", 4+$i, "Automatically created pattern by updatedatabase", $sub->{numberingmethod},
7557 "X", $sub->{add1}, $sub->{every1}, $sub->{whenmorethan1}, $sub->{setto1}, undef,
7558 "Y", $sub->{add2}, $sub->{every2}, $sub->{whenmorethan2}, $sub->{setto2}, undef,
7559 "Z", $sub->{add3}, $sub->{every3}, $sub->{whenmorethan3}, $sub->{setto3}, undef
7562 my $id = $dbh->last_insert_id(undef, undef, 'subscription_numberpatterns', undef);
7563 # Link to subscription_numberpatterns and subscription_frequencies
7564 $update_subscription_sth->execute($id,
7565 $frequencies_mapping->{$sub->{periodicity}},
7566 $sub->{subscriptionid});
7572 # Remove now useless columns
7574 ALTER TABLE subscription
7575 DROP COLUMN numberingmethod,
7578 DROP COLUMN whenmorethan1,
7582 DROP COLUMN whenmorethan2,
7586 DROP COLUMN whenmorethan3,
7589 DROP COLUMN issuesatonce,
7590 DROP COLUMN hemisphere,
7591 ADD COLUMN countissuesperunit INTEGER NOT NULL DEFAULT 1 AFTER periodicity,
7592 ADD COLUMN skip_serialseq BOOLEAN NOT NULL DEFAULT 0 AFTER irregularity,
7593 ADD COLUMN locale VARCHAR(80) DEFAULT NULL AFTER numberpattern,
7594 ADD CONSTRAINT subscription_ibfk_1 FOREIGN KEY (periodicity) REFERENCES subscription_frequencies (id) ON DELETE SET NULL ON UPDATE CASCADE,
7595 ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY (numberpattern) REFERENCES subscription_numberpatterns (id) ON DELETE SET NULL ON UPDATE CASCADE
7598 # Set firstacquidate if not already set (firstacquidate is now mandatory)
7599 my $get_first_planneddate_sth = $dbh->prepare(qq|
7602 WHERE subscriptionid = ?
7606 my $update_firstacquidate_sth = $dbh->prepare(qq|
7608 SET firstacquidate = ?
7609 WHERE subscriptionid = ?
7611 my $get_subscriptions_sth = $dbh->prepare(qq|
7612 SELECT subscriptionid, startdate
7614 WHERE firstacquidate IS NULL
7615 OR firstacquidate = '0000-00-00'
7617 $get_subscriptions_sth->execute;
7618 while ( my ($subscriptionid, $startdate) = $get_subscriptions_sth->fetchrow ) {
7619 # Try to get the planned date of the first serial
7620 $get_first_planneddate_sth->execute($subscriptionid);
7621 my ($first_planneddate) = $get_first_planneddate_sth->fetchrow;
7622 if ($first_planneddate and $first_planneddate =~ /^\d{4}-\d{2}-\d{2}$/) {
7623 $update_firstacquidate_sth->execute($first_planneddate, $subscriptionid);
7625 # Defaults to subscription start date
7626 $update_firstacquidate_sth->execute($startdate, $subscriptionid);
7630 print "Upgrade to $DBversion done (Bug 7688: add subscription_frequencies and subscription_numberpatterns tables)\n";
7631 SetVersion($DBversion);
7634 $DBversion = "3.13.00.034";
7635 if ( CheckVersion($DBversion) ) {
7637 ALTER TABLE `import_batches`
7638 CHANGE `item_action` `item_action`
7639 ENUM( 'always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore', 'replace' )
7640 NOT NULL DEFAULT 'always_add'
7642 print "Upgrade to $DBversion done (Bug 7131 - way to overlay items in in marc import)\n";
7643 SetVersion($DBversion);
7646 $DBversion ="3.13.00.035";
7647 if ( CheckVersion($DBversion) ) {
7649 CREATE TABLE borrower_debarments (
7650 borrower_debarment_id int(11) NOT NULL AUTO_INCREMENT,
7651 borrowernumber int(11) NOT NULL,
7652 expiration date DEFAULT NULL,
7653 `type` enum('SUSPENSION','OVERDUES','MANUAL') NOT NULL DEFAULT 'MANUAL',
7655 manager_id int(11) DEFAULT NULL,
7656 created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
7657 updated timestamp NULL DEFAULT NULL,
7658 PRIMARY KEY (borrower_debarment_id),
7659 KEY borrowernumber (borrowernumber) ,
7660 CONSTRAINT `borrower_debarments_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
7661 ON DELETE CASCADE ON UPDATE CASCADE
7662 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7665 # debarments with end date
7667 INSERT INTO borrower_debarments ( borrowernumber, expiration, comment ) SELECT borrowernumber, debarred, debarredcomment FROM borrowers WHERE debarred IS NOT NULL AND debarred <> '9999-12-31'
7669 # debarments with no end date
7671 INSERT INTO borrower_debarments ( borrowernumber, comment ) SELECT borrowernumber, debarredcomment FROM borrowers WHERE debarred = '9999-12-31'
7675 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES
7676 ('AutoRemoveOverduesRestrictions','0','Defines whether an OVERDUES debarment should be lifted automatically if all overdue items are returned by the patron.','YesNo')
7679 print "Upgrade to $DBversion done (Bug 2720 - Overdues which debar automatically should undebar automatically when returned)\n";
7680 SetVersion($DBversion);
7683 $DBversion = "3.13.00.036";
7684 if ( CheckVersion($DBversion) ) {
7686 INSERT INTO systempreferences (variable, value, explanation, options, type)
7687 VALUES ('StaffDetailItemSelection', '1', 'Enable item selection in record detail page', NULL, 'YesNo')
7689 print "Upgrade to $DBversion done (Add system preference StaffDetailItemSelection)\n";
7690 SetVersion($DBversion);
7693 $DBversion = "3.13.00.037";
7694 if ( CheckVersion($DBversion) ) {
7695 #add phone if it is not there already (explains the ignore option)
7697 INSERT IGNORE INTO message_transport_types (message_transport_type) values ('phone');
7699 print "Upgrade to $DBversion done (Bug 10572: Add phone to message_transport_types table for new installs)\n";
7700 SetVersion($DBversion);
7703 $DBversion = "3.13.00.038";
7704 if ( CheckVersion($DBversion) ) {
7705 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES(15, 'superserials', 'Manage subscriptions from any branch (only applies when IndependentBranches is used)')");
7706 print "Upgrade to $DBversion done (Bug 8435: Add superserials permission)\n";
7707 SetVersion($DBversion);
7710 $DBversion = "3.13.00.039";
7711 if ( CheckVersion($DBversion) ) {
7713 ALTER TABLE aqbasket ADD branch varchar(10) default NULL
7716 ALTER TABLE aqbasket
7717 ADD CONSTRAINT aqbasket_ibfk_4 FOREIGN KEY (branch)
7718 REFERENCES branches (branchcode)
7719 ON UPDATE CASCADE ON DELETE SET NULL
7722 DROP TABLE IF EXISTS aqbasketusers
7725 CREATE TABLE aqbasketusers (
7726 basketno int(11) NOT NULL,
7727 borrowernumber int(11) NOT NULL,
7728 PRIMARY KEY (basketno,borrowernumber),
7729 CONSTRAINT aqbasketusers_ibfk_1 FOREIGN KEY (basketno) REFERENCES aqbasket (basketno) ON DELETE CASCADE ON UPDATE CASCADE,
7730 CONSTRAINT aqbasketusers_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7731 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7734 INSERT INTO permissions (module_bit, code, description)
7735 VALUES (11, 'order_manage_all', 'Manage all orders and baskets, regardless of restrictions on them')
7738 print "Upgrade to $DBversion done (Add branch and users list to baskets. "
7739 . "New permission order_manage_all)\n";
7740 SetVersion($DBversion);
7743 $DBversion = "3.13.00.040";
7744 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7745 $dbh->do("CREATE TABLE IF NOT EXISTS marc_modification_templates (
7746 template_id int(11) NOT NULL auto_increment,
7748 PRIMARY KEY (template_id)
7749 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
7753 CREATE TABLE IF NOT EXISTS marc_modification_template_actions (
7754 mmta_id int(11) NOT NULL auto_increment,
7755 template_id int(11) NOT NULL,
7756 ordering int(3) NOT NULL,
7757 action enum('delete_field','update_field','move_field','copy_field') NOT NULL,
7758 field_number smallint(6) NOT NULL default '0',
7759 from_field varchar(3) NOT NULL,
7760 from_subfield varchar(1) NULL,
7761 field_value varchar(100) default NULL,
7762 to_field varchar(3) default NULL,
7763 to_subfield varchar(1) default NULL,
7764 to_regex_search text,
7765 to_regex_replace text,
7766 to_regex_modifiers varchar(8) default '',
7767 conditional enum('if','unless') default NULL,
7768 conditional_field varchar(3) default NULL,
7769 conditional_subfield varchar(1) default NULL,
7770 conditional_comparison enum('exists','not_exists','equals','not_equals') default NULL,
7771 conditional_value text,
7772 conditional_regex tinyint(1) NOT NULL default '0',
7774 PRIMARY KEY (mmta_id),
7775 CONSTRAINT `mmta_ibfk_1` FOREIGN KEY (`template_id`) REFERENCES `marc_modification_templates` (`template_id`) ON DELETE CASCADE ON UPDATE CASCADE
7776 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7779 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('13', 'marc_modification_templates', 'Manage marc modification templates')");
7781 print "Upgrade to $DBversion done ( Bug 8015: Added tables for MARC Modification Framework )\n";
7782 SetVersion($DBversion);
7785 $DBversion = "3.13.00.041";
7786 if(CheckVersion($DBversion)) {
7788 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');
7790 print "Upgrade to $DBversion done (Bug 10986: Added AcqItemSetSubfieldsWhenReceived syspref)\n";
7791 SetVersion($DBversion);
7794 $DBversion = "3.13.00.042";
7795 if(CheckVersion($DBversion)) {
7796 print "Upgrade to $DBversion done (Koha 3.14 beta)\n";
7797 SetVersion($DBversion);
7800 $DBversion = "3.13.00.043";
7801 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
7802 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
7803 print "Upgrade to $DBversion done (Bug 11196: Add system preference SearchEngine if missing )\n";
7804 SetVersion($DBversion);
7807 $DBversion = "3.14.00.000";
7808 if ( CheckVersion($DBversion) ) {
7809 print "Upgrade to $DBversion done (3.14.0 release)\n";
7810 SetVersion ($DBversion);
7813 $DBversion = '3.15.00.000';
7814 if ( CheckVersion($DBversion) ) {
7815 print "Upgrade to $DBversion done (the road goes ever on)\n";
7816 SetVersion ($DBversion);
7819 $DBversion = "3.15.00.001";
7820 if ( CheckVersion($DBversion) ) {
7821 $dbh->do("UPDATE systempreferences SET value='clear' where variable = 'CircAutoPrintQuickSlip' and value = '0'");
7822 $dbh->do("UPDATE systempreferences SET value='qslip' where variable = 'CircAutoPrintQuickSlip' and value = '1'");
7823 $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'");
7824 print "Upgrade to $DBversion done (Bug 11040: Add option to print full slip when checking out a null barcode)\n";
7825 SetVersion($DBversion);
7828 $DBversion = "3.15.00.002";
7829 if(CheckVersion($DBversion)) {
7830 $dbh->do("ALTER TABLE deleteditems MODIFY materials text;");
7831 print "Upgrade to $DBversion done (Bug 11275: alter deleteditems.materials from varchar(10) to text)\n";
7832 SetVersion($DBversion);
7835 $DBversion = "3.15.00.003";
7836 if ( CheckVersion($DBversion) ) {
7839 SET description = ''
7840 WHERE description IN (
7845 ' Account Management fee',
7846 'Payment,thanks', 'Payment,thanks - ',
7850 print "Upgrade to $DBversion done (Bug 2546: Update fine descriptions)\n";
7851 SetVersion($DBversion);
7854 $DBversion = "3.15.00.004";
7855 if ( CheckVersion($DBversion) ) {
7856 if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
7858 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
7859 kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link,
7860 defaultvalue) VALUES
7861 ('015', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7862 ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7863 ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7864 ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7865 ('800', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7866 ('810', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7867 ('811', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7868 ('830', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL);
7871 INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
7872 mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
7873 ('', '020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', ''),
7874 ('', '024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', '');
7877 print "Upgrade to $DBversion done (Bug 10970 - Update MARC21 frameworks to Update Nr. 17 - DB update)\n";
7878 SetVersion($DBversion);
7881 $DBversion = "3.15.00.005";
7882 if ( CheckVersion($DBversion) ) {
7883 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('AcquisitionDetails', '1', '', 'Hide/Show acquisition details on the biblio detail page.', 'YesNo');");
7884 print "Upgrade to $DBversion done (Bug 8230: Add AcquisitionDetails system preference)\n";
7885 SetVersion ($DBversion);
7888 $DBversion = "3.15.00.006";
7889 if(CheckVersion($DBversion)) {
7891 ALTER TABLE `borrowers`
7892 ADD KEY `surname_idx` (`surname`(255)),
7893 ADD KEY `firstname_idx` (`firstname`(255)),
7894 ADD KEY `othernames_idx` (`othernames`(255))
7896 print "Upgrade to $DBversion done (Bug 11249 - Add DB indexes on borrower names)\n";
7897 SetVersion($DBversion);
7900 $DBversion = "3.15.00.007";
7901 if ( CheckVersion($DBversion) ) {
7902 $dbh->do("ALTER TABLE items ADD itemlost_on DATETIME NULL AFTER itemlost");
7903 $dbh->do("ALTER TABLE items ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7904 $dbh->do("ALTER TABLE deleteditems ADD itemlost_on DATETIME NULL AFTER itemlost");
7905 $dbh->do("ALTER TABLE deleteditems ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7906 print "Upgrade to $DBversion done (Bug 9673 - Track when items are marked as lost or withdrawn)\n";
7907 SetVersion ($DBversion);
7910 $DBversion = "3.15.00.008";
7911 if ( CheckVersion($DBversion) ) {
7913 ALTER TABLE collections_tracking CHANGE ctId collections_tracking_id integer(11) NOT NULL auto_increment;
7915 print "Upgrade to $DBversion done (Bug 11384) - change name of collections_tracker.ctId column)\n";
7916 SetVersion ($DBversion);
7919 $DBversion = "3.15.00.009";
7920 if ( CheckVersion($DBversion) ) {
7922 ALTER TABLE suggestions MODIFY suggesteddate DATE NOT NULL
7924 print "Upgrade to $DBversion done (Bug 11391) - drop default value on suggestions.suggesteddate column)\n";
7925 SetVersion ($DBversion);
7928 $DBversion = "3.15.00.010";
7929 if(CheckVersion($DBversion)) {
7930 $dbh->do("ALTER TABLE deleteditems DROP COLUMN marc");
7931 print "Upgrade to $DBversion done (Bug 6331: remove obsolete column in deleteditems.marc)\n";
7932 SetVersion ($DBversion);
7935 $DBversion = "3.15.00.011";
7936 if(CheckVersion($DBversion)) {
7937 $dbh->do("UPDATE marc_subfield_structure SET maxlength=9999 WHERE maxlength IS NULL OR maxlength=0;");
7938 print "Upgrade to $DBversion done (Bug 8018: set 9999 as default max length for subfields)\n";
7939 SetVersion ($DBversion);
7942 $DBversion = "3.15.00.012";
7943 if ( CheckVersion($DBversion) ) {
7945 INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'force_checkout', 'Force checkout if a limitation exists')
7948 INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'manage_restrictions', 'Manage restrictions for accounts')
7951 INSERT INTO user_permissions (borrowernumber, module_bit, code)
7952 SELECT user_permissions.borrowernumber, 1, 'force_checkout'
7953 FROM user_permissions
7954 LEFT JOIN borrowers USING(borrowernumber)
7955 WHERE borrowers.flags & (1 << 1)
7958 INSERT INTO user_permissions (borrowernumber, module_bit, code)
7959 SELECT user_permissions.borrowernumber, 1, 'manage_restrictions'
7960 FROM user_permissions
7961 LEFT JOIN borrowers USING(borrowernumber)
7962 WHERE borrowers.flags & (1 << 1)
7965 print "Upgrade to $DBversion done (Bug 10863 - Add permissions force_checkout and manage_restrictions)\n";
7966 SetVersion($DBversion);
7969 $DBversion = "3.15.00.013";
7970 if(CheckVersion($DBversion)) {
7972 UPDATE systempreferences
7973 SET explanation = 'Upon receiving items, update their subfields if they were created when placing an order (e.g. o=5|a="foo bar")'
7974 WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7978 UPDATE systempreferences
7980 WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7983 print "Upgrade to $DBversion done (Bug 11237: Update explanation and default value for AcqItemSetSubfieldsWhenReceived syspref)\n";
7984 SetVersion($DBversion);
7987 $DBversion = "3.15.00.014";
7988 if (CheckVersion($DBversion)) {
7989 $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');");
7990 print "Upgrade to $DBversion done (Bug 11415: add system preference for automatic self checkout receipt printing)\n";
7991 SetVersion($DBversion);
7994 $DBversion = "3.15.00.015";
7995 if (CheckVersion($DBversion)) {
7996 $dbh->do("INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
7997 ('OpacSuggestionManagedBy',1,'','Show the name of the staff member who managed a suggestion in OPAC','YesNo');");
7998 print "Upgrade to $DBversion done (Bug 10907: Add OpacSuggestionManagedBy system preference)\n";
7999 SetVersion($DBversion);
8002 $DBversion = "3.15.00.016";
8003 if (CheckVersion($DBversion)) {
8004 $dbh->do("ALTER TABLE biblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8005 $dbh->do("ALTER TABLE deletedbiblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8006 print "Upgrade to $DBversion done (Bug 11268 - Biblioitems URL field is too small for some URLs)\n";
8007 SetVersion($DBversion);
8010 $DBversion = "3.15.00.017";
8011 if(CheckVersion($DBversion)) {
8013 UPDATE systempreferences
8014 SET explanation = 'Define the contents of UNIMARC authority control field 100 position 08-35'
8015 WHERE variable = "UNIMARCAuthorityField100"
8018 UPDATE systempreferences
8019 SET explanation = 'Define the contents of MARC21 authority control field 008 position 06-39'
8020 WHERE variable = "MARCAuthorityControlField008"
8023 UPDATE systempreferences
8024 SET explanation = 'Define MARC Organization Code for MARC21 records - http://www.loc.gov/marc/organizations/orgshome.html'
8025 WHERE variable = "MARCOrgCode"
8027 print "Upgrade to $DBversion done (Bug 11611 - fix possible confusion between UNIMARC and MARC21 in some sysprefs)\n";
8028 SetVersion($DBversion);
8031 $DBversion = "3.15.00.018";
8032 if ( CheckVersion($DBversion) ) {
8033 $dbh->{AutoCommit} = 0;
8034 $dbh->{RaiseError} = 1;
8037 $dbh->selectcol_arrayref(q|SELECT COUNT(*) FROM roadtype|);
8040 my $av_added = $dbh->do(q|
8041 INSERT INTO authorised_values(category, authorised_value, lib, lib_opac)
8042 SELECT 'ROADTYPE', roadtypeid, road_type, road_type
8046 my $rt_deleted = $dbh->do(q|
8047 DELETE FROM roadtype
8050 if ( $av_added == $rt_deleted or $rt_deleted eq "0E0" ) {
8052 DROP TABLE roadtype;
8055 print "Upgrade to $DBversion done (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values)\n";
8056 SetVersion($DBversion);
8058 print "Upgrade to $DBversion failed (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values.\nTransaction aborted because $@\n)";
8062 $dbh->{AutoCommit} = 1;
8063 $dbh->{RaiseError} = 0;
8066 $DBversion = "3.15.00.019";
8067 if ( CheckVersion($DBversion) ) {
8068 $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')");
8069 print "Upgrade to $DBversion done (Bug 11256: Add system preference OpacMaxItemsToDisplay)\n";
8070 SetVersion($DBversion);
8073 $DBversion = "3.15.00.020";
8074 if ( CheckVersion($DBversion) ) {
8076 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')
8078 print "Upgrade to $DBversion done (Bug 11343: Add system preference MaxItemsForBatch )\n";
8079 SetVersion($DBversion);
8082 $DBversion = "3.15.00.021";
8083 if(CheckVersion($DBversion)) {
8085 ALTER TABLE `action_logs`
8087 ADD KEY `timestamp_idx` (`timestamp`),
8088 ADD KEY `user_idx` (`user`),
8089 ADD KEY `module_idx` (`module`(255)),
8090 ADD KEY `action_idx` (`action`(255)),
8091 ADD KEY `object_idx` (`object`),
8092 ADD KEY `info_idx` (`info`(255))
8094 print "Upgrade to $DBversion done (Bug 3445: Add indexes to action_logs table)\n";
8095 SetVersion($DBversion);
8098 $DBversion = "3.15.00.022";
8099 if (CheckVersion($DBversion)) {
8101 DELETE FROM systempreferences WHERE variable= "memberofinstitution"
8103 print "Upgrade to $DBversion done (Bug 11751: Remove memberofinstitytion system preference)\n";
8104 SetVersion($DBversion);
8107 $DBversion = "3.15.00.023";
8108 if ( CheckVersion($DBversion) ) {
8110 INSERT INTO systempreferences (variable,value,options,explanation,type)
8111 VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free');
8113 print "Upgrade to $DBversion done (Bug 10861: Add CardnumberLength syspref)\n";
8114 SetVersion ($DBversion);
8117 $DBversion = "3.15.00.024";
8118 if ( CheckVersion($DBversion) ) {
8120 DELETE FROM systempreferences WHERE variable = 'NoZebraIndexes'
8122 print "Upgrade to $DBversion done (Bug 10012 - remove last vestiges of NoZebra)\n";
8123 SetVersion($DBversion);
8126 $DBversion = "3.15.00.025";
8127 if ( CheckVersion($DBversion) ) {
8129 DROP TABLE aqorderdelivery;
8131 print "Upgrade to $DBversion done (Bug 11928 - remove unused table)\n";
8132 SetVersion($DBversion);
8135 $DBversion = "3.15.00.026";
8136 if ( CheckVersion($DBversion) ) {
8138 UPDATE language_descriptions SET description = 'Հայերեն' WHERE subtag = 'hy' AND lang = 'hy';
8140 print "Upgrade to $DBversion done (Bug 11973 - Fix Armenian language description)\n";
8141 SetVersion($DBversion);
8144 $DBversion = "3.15.00.027";
8145 if (CheckVersion($DBversion)) {
8147 ALTER TABLE opac_news ADD branchcode varchar(10) DEFAULT NULL
8149 ADD CONSTRAINT opac_news_branchcode_ibfk
8150 FOREIGN KEY (branchcode)
8151 REFERENCES branches (branchcode)
8152 ON DELETE CASCADE ON UPDATE CASCADE;
8154 print "Upgrade to $DBversion done (Bug 7567: Add branchcode to opac_news)\n";
8155 SetVersion($DBversion);
8158 $DBversion = "3.15.00.028";
8159 if(CheckVersion($DBversion)) {
8161 ALTER TABLE issuingrules ADD norenewalbefore int(4) default NULL AFTER renewalperiod
8163 print "Upgrade to $DBversion done (Bug 7413: Allow OPAC renewal x days before due date)\n";
8164 SetVersion($DBversion);
8167 $DBversion = "3.15.00.029";
8168 if ( CheckVersion($DBversion) ) {
8170 UPDATE borrower_debarments SET expiration = NULL WHERE expiration = '9999-12-31'
8172 print "Upgrade to $DBversion done (Bug 11846 - correct borrower_debarments with expiration 9999-12-31)\n";
8173 SetVersion($DBversion);
8176 $DBversion = "3.15.00.030";
8177 if(CheckVersion($DBversion)) {
8179 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')
8181 print "Upgrade to $DBversion done (Bug 12052: Add OPACMySummaryNote syspref)\n";
8182 SetVersion($DBversion);
8185 $DBversion = "3.15.00.031";
8186 if ( CheckVersion($DBversion) ) {
8187 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'writeoff', 'Write off fines and fees')");
8188 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'remaining_permissions', 'Remaining permissions for managing fines and fees')");
8189 print "Upgrade to $DBversion done (Bug 9448 - Add separate permission for writing off fees)\n";
8190 SetVersion ($DBversion);
8193 $DBversion = "3.15.00.032";
8194 if ( CheckVersion($DBversion) ) {
8195 $dbh->do("ALTER TABLE aqorders CHANGE notes order_internalnote MEDIUMTEXT;");
8196 $dbh->do("ALTER TABLE aqorders ADD COLUMN order_vendornote MEDIUMTEXT AFTER order_internalnote;");
8197 print "Upgrade to $DBversion done (Bug 9416 - In each order, add a new note made for the vendor)\n";
8198 SetVersion ($DBversion);
8201 $DBversion = "3.15.00.033";
8202 if ( CheckVersion($DBversion) ) {
8203 $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')");
8204 print "Upgrade to $DBversion done (Bug 10951: Add NoLoginInstructions pref)\n";
8205 SetVersion($DBversion);
8208 $DBversion = "3.15.00.034";
8209 if ( CheckVersion($DBversion) ) {
8210 $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')");
8211 print "Upgrade to $DBversion done (Bug 10986: system preferences to limit languages in advanced search )\n";
8212 SetVersion ($DBversion);
8215 $DBversion = "3.15.00.035";
8216 if ( CheckVersion($DBversion) ) {
8217 #insert a notice for sharing a list and accepting a share
8219 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8220 VALUES ( 'members', 'SHARE_INVITE', '', 'Invitation for sharing a list', '0', 'Share list <<listname>>', 'Dear patron,
8222 One of our patrons, <<borrowers.firstname>> <<borrowers.surname>>, invites you to share a list <<listname>> in our library catalog.
8224 To access this shared list, please click on the following URL or copy-and-paste it into your browser address bar.
8228 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.
8235 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8236 VALUES ( 'members', 'SHARE_ACCEPT', '', 'Notification about an accepted share', '0', 'Share on list <<listname>> accepted', 'Dear patron,
8238 We want to inform you that <<borrowers.firstname>> <<borrowers.surname>> accepted your invitation to share your list <<listname>> in our library catalog.
8244 print "Upgrade to $DBversion done (Bug 9032: Share a list)\n";
8245 SetVersion($DBversion);
8248 $DBversion = "3.15.00.036";
8249 if ( CheckVersion($DBversion) ) {
8251 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
8252 VALUES('AllowMultipleIssuesOnABiblio',1,'Allow/Don\'t allow patrons to check out multiple items from one biblio','','YesNo')
8255 print "Upgrade to $DBversion done (Bug 10859 - Add system preference AllowMultipleIssuesOnABiblio)\n";
8256 SetVersion($DBversion);
8259 $DBversion = "3.15.00.037";
8260 if(CheckVersion($DBversion)) {
8262 ALTER TABLE itemtypes ADD sip_media_type VARCHAR( 3 ) DEFAULT NULL AFTER checkinmsgtype
8265 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
8266 ('SIP_MEDIA_TYPE', '000', 'Other'),
8267 ('SIP_MEDIA_TYPE', '001', 'Book'),
8268 ('SIP_MEDIA_TYPE', '002', 'Magazine'),
8269 ('SIP_MEDIA_TYPE', '003', 'Bound journal'),
8270 ('SIP_MEDIA_TYPE', '004', 'Audio tape'),
8271 ('SIP_MEDIA_TYPE', '005', 'Video tape'),
8272 ('SIP_MEDIA_TYPE', '006', 'CD/CDROM'),
8273 ('SIP_MEDIA_TYPE', '007', 'Diskette'),
8274 ('SIP_MEDIA_TYPE', '008', 'Book with diskette'),
8275 ('SIP_MEDIA_TYPE', '009', 'Book with CD'),
8276 ('SIP_MEDIA_TYPE', '010', 'Book with audio tape')
8278 print "Upgrade to $DBversion done (Bug 11351 - Add support for SIP2 media type)\n";
8279 SetVersion($DBversion);
8282 $DBversion = '3.15.00.038';
8283 if ( CheckVersion($DBversion) ) {
8285 INSERT INTO systempreferences (
8293 'DisplayLibraryFacets', 'holding', 'home|holding|both', 'Defines which library facets to display.', 'Choice'
8296 print "Upgrade to $DBversion done (Bug 11334 - Add facet for home library)\n";
8297 SetVersion ($DBversion);
8300 $DBversion = "3.15.00.039";
8301 if ( CheckVersion($DBversion) ) {
8304 ALTER TABLE letter ADD COLUMN message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email' AFTER content
8308 ALTER TABLE letter ADD CONSTRAINT message_transport_type_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types(message_transport_type);
8312 ALTER TABLE letter DROP PRIMARY KEY, ADD PRIMARY KEY (`module`,`code`,`branchcode`, message_transport_type);
8316 CREATE TABLE overduerules_transport_types(
8317 id INT(11) NOT NULL AUTO_INCREMENT,
8318 branchcode varchar(10) NOT NULL DEFAULT '',
8319 categorycode VARCHAR(10) NOT NULL DEFAULT '',
8320 letternumber INT(1) NOT NULL DEFAULT 1,
8321 message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email',
8323 CONSTRAINT overduerules_fk FOREIGN KEY (branchcode, categorycode) REFERENCES overduerules (branchcode, categorycode) ON DELETE CASCADE ON UPDATE CASCADE,
8324 CONSTRAINT mtt_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types (message_transport_type) ON DELETE CASCADE ON UPDATE CASCADE
8325 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8328 my $sth = $dbh->prepare( q{
8329 SELECT * FROM overduerules;
8333 my $sth_insert_mtt = $dbh->prepare( q{
8334 INSERT INTO overduerules_transport_types (branchcode, categorycode, letternumber, message_transport_type) VALUES ( ?, ?, ?, ? )
8336 while ( my $row = $sth->fetchrow_hashref ) {
8337 my $branchcode = $row->{branchcode};
8338 my $categorycode = $row->{categorycode};
8339 for my $letternumber ( 1 .. 3 ) {
8340 next unless $row->{"letter$letternumber"};
8341 $sth_insert_mtt->execute(
8342 $branchcode, $categorycode, $letternumber, 'email'
8347 print "Upgrade done (Bug 9016: Adds multi transport types management for notices)\n";
8348 SetVersion($DBversion);
8351 $DBversion = "3.15.00.040";
8352 if ( CheckVersion($DBversion) ) {
8354 UPDATE message_transports SET letter_code='HOLD' WHERE letter_code='HOLD_PHONE' OR letter_code='HOLD_PRINT'
8357 UPDATE letter SET code='HOLD', message_transport_type='print' WHERE code='HOLD_PRINT'
8360 UPDATE letter SET code='HOLD', message_transport_type='phone' WHERE code='HOLD_PHONE'
8362 print "Upgrade to $DBversion done (Bug 10845: Multi transport types for holds)\n";
8363 SetVersion($DBversion);
8366 $DBversion = "3.15.00.041";
8367 if ( CheckVersion($DBversion) ) {
8368 my ( $name ) = $dbh->selectrow_array(q|
8369 SELECT name FROM letter WHERE code="HOLD"
8374 message_transport_type="phone",
8376 WHERE code="HOLD_PHONE"
8379 ( $name ) = $dbh->selectrow_array(q|
8380 SELECT name FROM letter WHERE code="PREDUE"
8385 message_transport_type="phone",
8387 WHERE code="PREDUE_PHONE"
8390 ( $name ) = $dbh->selectrow_array(q|
8391 SELECT name FROM letter WHERE code="OVERDUE"
8396 message_transport_type="phone",
8398 WHERE code="OVERDUE_PHONE"
8401 print "Upgrade to $DBversion done (Bug 11867: Update letters *_PHONE)\n";
8402 SetVersion($DBversion);
8405 $DBversion = "3.15.00.042";
8406 if ( CheckVersion($DBversion) ) {
8408 INSERT INTO systempreferences
8409 (variable,value,explanation,options,type)
8411 ('SpecifyReturnDate',0,'Define whether to display \"Specify Return Date\" form in Circulation','','YesNo')
8413 print "Upgrade to $DBversion done (Bug 10694 - Allow arbitrary backdating of returns)\n";
8414 SetVersion($DBversion);
8417 $DBversion = "3.15.00.043";
8418 if ( CheckVersion($DBversion) ) {
8419 $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')");
8420 print "Upgrade to $DBversion done (Bug 7180: Added MarcFieldsToOrder syspref)\n";
8421 SetVersion ($DBversion);
8424 $DBversion = "3.15.00.044";
8425 if ( CheckVersion($DBversion) ) {
8426 $dbh->do("ALTER TABLE currency ADD isocode VARCHAR(5) default NULL AFTER symbol;");
8427 print "Upgrade to $DBversion done (Added isocode to the currency table)\n";
8428 SetVersion($DBversion);
8431 $DBversion = "3.15.00.045";
8432 if ( CheckVersion($DBversion) ) {
8434 INSERT INTO systempreferences (variable,value,explanation,options,type)
8436 'BlockExpiredPatronOpacActions',
8438 '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',
8443 $dbh->do("ALTER TABLE `categories` ADD COLUMN `BlockExpiredPatronOpacActions` TINYINT(1) DEFAULT -1 NOT NULL AFTER category_type");
8444 print "Upgraded to $DBversion done (Bug 6739 - expired patrons not blocked from opac actions)\n";
8445 SetVersion ($DBversion);
8448 $DBversion = "3.15.00.046";
8449 if ( CheckVersion($DBversion) ) {
8451 ALTER TABLE search_history ADD COLUMN type VARCHAR(16) NOT NULL DEFAULT 'biblio' AFTER query_cgi
8453 print "Upgrade to $DBversion done (Bug 10807 - Add db field search_history.type)\n";
8454 SetVersion($DBversion);
8457 $DBversion = "3.15.00.047";
8458 if ( CheckVersion($DBversion) ) {
8460 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('EnableSearchHistory','0','','Enable or disable search history','YesNo')
8462 print "Upgrade to $DBversion done (Bug 10862: Add EnableSearchHistory syspref)\n";
8463 SetVersion($DBversion);
8466 $DBversion = "3.15.00.048";
8467 if ( CheckVersion($DBversion) ) {
8468 $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')");
8469 $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')");
8470 print "Upgrade to $DBversion done (Bug 10195: Records hidden with OpacSuppression can still be accessed)\n";
8471 SetVersion($DBversion);
8474 $DBversion = "3.15.00.049";
8475 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8476 $dbh->do("ALTER TABLE biblioitems DROP INDEX isbn");
8477 $dbh->do("ALTER TABLE biblioitems DROP INDEX issn");
8478 $dbh->do("ALTER TABLE biblioitems DROP INDEX issn_idx");
8479 $dbh->do("ALTER TABLE biblioitems
8480 CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8481 CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8483 $dbh->do("ALTER TABLE biblioitems
8484 ADD INDEX isbn ( isbn ( 255 ) ),
8485 ADD INDEX issn ( issn ( 255 ) )
8488 $dbh->do("ALTER TABLE deletedbiblioitems DROP INDEX isbn");
8489 $dbh->do("ALTER TABLE deletedbiblioitems
8490 CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8491 CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8493 $dbh->do("ALTER TABLE deletedbiblioitems
8494 ADD INDEX isbn ( isbn ( 255 ) )
8497 print "Upgrade to $DBversion done (Bug 5377 - Biblioitems isbn and issn fields too small for multiple ISBN and ISSN)\n";
8498 SetVersion($DBversion);
8501 $DBversion = "3.15.00.050";
8502 if ( CheckVersion($DBversion) ) {
8504 INSERT INTO systempreferences (
8510 'AggressiveMatchOnISBN',
8512 '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',
8517 print "Upgrade to $DBversion done (Bug 10500 - Improve isbn matching when importing records)\n";
8518 SetVersion($DBversion);
8521 $DBversion = "3.15.00.051";
8522 if ( CheckVersion($DBversion) ) {
8523 print "Upgrade to $DBversion done (Koha 3.16 beta)\n";
8524 SetVersion($DBversion);
8527 $DBversion = "3.15.00.052";
8528 if ( CheckVersion($DBversion) ) {
8529 print "Upgrade to $DBversion done (Koha 3.16 RC)\n";
8530 SetVersion($DBversion);
8533 $DBversion = "3.16.00.000";
8534 if ( CheckVersion($DBversion) ) {
8535 print "Upgrade to $DBversion done (3.16.0 release)\n";
8536 SetVersion ($DBversion);
8539 $DBversion = '3.17.00.000';
8540 if ( CheckVersion($DBversion) ) {
8541 print "Upgrade to $DBversion done (there is no time to rest on our laurels)\n";
8542 SetVersion ($DBversion);
8545 $DBversion = '3.17.00.001';
8546 if ( CheckVersion($DBversion) ) {
8547 $dbh->do("UPDATE systempreferences SET variable = 'AuthoritySeparator' WHERE variable = 'authoritysep'");
8548 print "Upgrade to $DBversion done (Bug 10330 - Rename system preference authoritysep to AuthoritySeparator)\n";
8549 SetVersion ($DBversion);
8552 $DBversion = "3.17.00.002";
8553 if (CheckVersion($DBversion)) {
8554 $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')");
8556 CREATE TABLE IF NOT EXISTS `misc_files` (
8557 `file_id` int(11) NOT NULL AUTO_INCREMENT,
8558 `table_tag` varchar(255) NOT NULL,
8559 `record_id` int(11) NOT NULL,
8560 `file_name` varchar(255) NOT NULL,
8561 `file_type` varchar(255) NOT NULL,
8562 `file_description` varchar(255) DEFAULT NULL,
8563 `file_content` longblob NOT NULL, -- file content
8564 `date_uploaded` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
8565 PRIMARY KEY (`file_id`),
8566 KEY `table_tag` (`table_tag`),
8567 KEY `record_id` (`record_id`)
8568 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8570 print "Upgrade to $DBversion done (Bug 3050 - Add an option to upload scanned invoices)\n";
8571 SetVersion($DBversion);
8574 $DBversion = "3.17.00.003";
8575 if (CheckVersion($DBversion)) {
8576 $dbh->do("UPDATE systempreferences SET type = 'Choice', options = '0|1|force' WHERE variable = 'OPACItemHolds'");
8577 print "Upgrade to $DBversion done (Bug 7825 - Changed OPACItemHolds syspref to Choice)\n";
8578 SetVersion($DBversion);
8581 $DBversion = "3.17.00.004";
8582 if (CheckVersion($DBversion)) {
8583 $dbh->do("ALTER TABLE categories ADD default_privacy ENUM( 'default', 'never', 'forever' ) NOT NULL DEFAULT 'default' AFTER category_type");
8584 print "Upgrade to $DBversion done (Bug 6254 - can't set patron privacy by default)\n";
8585 SetVersion($DBversion);
8588 $DBversion = "3.17.00.005";
8589 if (CheckVersion($DBversion)) {
8591 ALTER TABLE issuingrules
8592 ADD maxsuspensiondays INT(11) DEFAULT NULL AFTER finedays;
8594 print "Upgrade to $DBversion done (Bug 12230: Add new issuing rule maxsuspensiondays)\n";
8595 SetVersion($DBversion);
8598 $DBversion = "3.17.00.006";
8599 if ( CheckVersion($DBversion) ) {
8600 $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')");
8601 $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')");
8602 print "Upgrade to $DBversion done (Bug 7720 - Ambiguity in OPAC Details location.)\n";
8603 SetVersion($DBversion);
8606 $DBversion = "3.17.00.007";
8607 if (CheckVersion($DBversion)) {
8608 $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');");
8609 print "Upgrade to $DBversion done (Bug 11629 - Add ability to update not for loan status on checkin)\n";
8610 SetVersion($DBversion);
8613 $DBversion = "3.17.00.008";
8614 if ( CheckVersion($DBversion) ) {
8616 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('OPACAcquisitionDetails','0', '','Show the acquisition details at the OPAC','YesNo')
8618 print "Upgrade to $DBversion done (Bug 11169 - Add OPACAcquisitionDetails syspref)\n";
8619 SetVersion($DBversion);
8622 $DBversion = "3.17.00.009";
8623 if ( CheckVersion($DBversion) ) {
8625 DELETE FROM systempreferences WHERE variable = 'UseTablesortForCirc'
8628 print "Upgrade to $DBversion done (Bug 11703 - Remove UseTablesortForCirc syspref)\n";
8629 SetVersion($DBversion);
8632 $DBversion = "3.17.00.010";
8633 if ( CheckVersion($DBversion) ) {
8634 $dbh->do("DELETE FROM systempreferences WHERE variable='opacsmallimage'");
8635 print "Upgrade to $DBversion done (Bug 11347 - PROG/CCSR deprecation: Remove opacsmallimage system preference)\n";
8636 SetVersion($DBversion);
8639 $DBversion = "3.17.00.011";
8640 if ( CheckVersion($DBversion) ) {
8641 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'hr', 'language', 'Croatian','2014-07-24' )");
8642 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'hr','hrv')");
8643 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'hr', 'Hrvatski')");
8644 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'en', 'Croatian')");
8645 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'fr', 'Croate')");
8646 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'de', 'Kroatisch')");
8647 print "Upgrade to $DBversion done (Bug 12649: Add Croatian language)\n";
8648 SetVersion ($DBversion);
8651 $DBversion = "3.17.00.012";
8652 if ( CheckVersion($DBversion) ) {
8653 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowFiltersPulldownMobile'");
8654 print "Upgrade to $DBversion done ( Bug 12512 - PROG/CCSR deprecation: Remove OpacShowFiltersPulldownMobile system preference )\n";
8655 SetVersion ($DBversion);
8658 $DBversion = "3.17.00.013";
8659 if ( CheckVersion($DBversion) ) {
8660 $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')");
8661 print "Upgrade to $DBversion done (Re-add system preference maxreserves)\n";
8662 SetVersion ($DBversion);
8665 $DBversion = '3.17.00.014';
8666 if ( CheckVersion($DBversion) ) {
8668 INSERT INTO systempreferences (variable,value,explanation,type) VALUES
8669 ('OverdueNoticeCalendar',0,'Take calendar into consideration when working out sending overdue notices','YesNo')
8671 print "Upgrade to $DBversion done (Bug 12529 - Adding a syspref to allow the overdue notices to consider the calendar when generating notices)\n";
8672 SetVersion($DBversion);
8675 $DBversion = "3.17.00.015";
8676 if ( CheckVersion($DBversion) ) {
8678 CREATE TABLE IF NOT EXISTS columns_settings (
8679 module varchar(255) NOT NULL,
8680 page varchar(255) NOT NULL,
8681 tablename varchar(255) NOT NULL,
8682 columnname varchar(255) NOT NULL,
8683 cannot_be_toggled int(1) NOT NULL DEFAULT 0,
8684 is_hidden int(1) NOT NULL DEFAULT 0,
8685 PRIMARY KEY(module, page, tablename, columnname)
8686 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
8688 print "Upgrade to $DBversion done (Bug 10212 - Create new table columns_settings)\n";
8689 SetVersion ($DBversion);
8692 $DBversion = "3.17.00.016";
8693 if ( CheckVersion($DBversion) ) {
8694 $dbh->do("CREATE TABLE aqcontacts (
8695 id int(11) NOT NULL auto_increment,
8696 name varchar(100) default NULL,
8697 position varchar(100) default NULL,
8698 phone varchar(100) default NULL,
8699 altphone varchar(100) default NULL,
8700 fax varchar(100) default NULL,
8701 email varchar(100) default NULL,
8703 claimacquisition BOOLEAN NOT NULL DEFAULT 0,
8704 claimissues BOOLEAN NOT NULL DEFAULT 0,
8705 acqprimary BOOLEAN NOT NULL DEFAULT 0,
8706 serialsprimary BOOLEAN NOT NULL DEFAULT 0,
8707 booksellerid int(11) not NULL,
8709 CONSTRAINT booksellerid_aqcontacts_fk FOREIGN KEY (booksellerid)
8710 REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE
8711 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1;");
8712 $dbh->do("INSERT INTO aqcontacts (name, position, phone, altphone, fax,
8713 email, notes, booksellerid, claimacquisition, claimissues, acqprimary, serialsprimary)
8714 SELECT contact, contpos, contphone, contaltphone, contfax, contemail,
8715 contnotes, id, 1, 1, 1, 1 FROM aqbooksellers;");
8716 $dbh->do("ALTER TABLE aqbooksellers DROP COLUMN contact,
8717 DROP COLUMN contpos, DROP COLUMN contphone,
8718 DROP COLUMN contaltphone, DROP COLUMN contfax,
8719 DROP COLUMN contemail, DROP COLUMN contnotes;");
8720 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contact>>', '<<aqcontacts.name>>')");
8721 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contpos>>', '<<aqcontacts.position>>')");
8722 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contphone>>', '<<aqcontacts.phone>>')");
8723 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contaltphone>>', '<<aqcontacts.altphone>>')");
8724 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contfax>>', '<<aqcontacts.contfax>>')");
8725 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contemail>>', '<<aqcontacts.contemail>>')");
8726 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contnotes>>', '<<aqcontacts.contnotes>>')");
8727 print "Upgrade to $DBversion done (Bug 10402: Move bookseller contacts to separate table)\n";
8728 SetVersion($DBversion);
8731 $DBversion = "3.17.00.017";
8732 if ( CheckVersion($DBversion) ) {
8733 # Correct invalid recordtypes (should be very exceptional)
8735 UPDATE z3950servers set recordtype='biblio' WHERE recordtype NOT IN ('authority','biblio')
8737 # Correct invalid server types (should also be very exceptional)
8739 UPDATE z3950servers set type='zed' WHERE type <> 'zed'
8743 ALTER TABLE z3950servers
8745 DROP COLUMN description,
8746 DROP COLUMN position,
8747 MODIFY COLUMN id int NOT NULL AUTO_INCREMENT FIRST,
8748 MODIFY COLUMN recordtype enum('authority','biblio') NOT NULL DEFAULT 'biblio',
8749 CHANGE COLUMN name servername mediumtext NOT NULL,
8750 CHANGE COLUMN type servertype enum('zed','sru') NOT NULL DEFAULT 'zed',
8751 ADD COLUMN sru_options varchar(255) default NULL,
8752 ADD COLUMN sru_fields mediumtext default NULL,
8753 ADD COLUMN add_xslt mediumtext default NULL
8755 print "Upgrade to $DBversion done (Bug 6536: Z3950 improvements)\n";
8756 SetVersion ($DBversion);
8759 $DBversion = "3.17.00.018";
8760 if ( CheckVersion($DBversion) ) {
8761 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('HoldsInNoissuesCharge', '0', 'Hold charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
8762 print "Upgrade to $DBversion done (Bug 12205: Add HoldsInNoissuesCharge systempreference)\n";
8763 SetVersion($DBversion);
8766 $DBversion = "3.17.00.019";
8767 if ( CheckVersion($DBversion) ) {
8768 $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')"
8770 print "Upgrade to $DBversion done (Bug 6149: Operator highlighted in search results)\n";
8771 SetVersion($DBversion);
8774 $DBversion = "3.17.00.020";
8775 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8776 $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')");
8777 print "Upgrade to $DBversion done (Bug 8735 - Expire holds waiting only on days the library is open)\n";
8778 SetVersion ($DBversion);
8781 $DBversion = "3.17.00.021";
8782 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
8783 my $pref = C4::Context->preference('HomeOrHoldingBranch');
8784 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
8785 VALUES ('StaffSearchResultsDisplayBranch', ?,'homebranch|holdingbranch','Controls the display of the home or holding branch for staff search results','choice')", undef, $pref);
8786 print "Upgrade to $DBversion done (Bug 12582 - Control of branch displayed in search results linked to HomeOrHoldingBranch)\n";
8787 SetVersion ($DBversion);
8790 $DBversion = '3.17.00.022';
8791 if ( CheckVersion($DBversion) ) {
8792 my @temp= $dbh->selectrow_array(qq|
8794 FROM marc_subfield_structure
8795 WHERE kohafield='permanent_location' OR kohafield='items.permanent_location'
8797 print "Upgrade to $DBversion done (Bug 7817: Check for permanent_location)\n";
8799 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";
8801 SetVersion($DBversion);
8804 $DBversion = "3.17.00.023";
8805 if ( CheckVersion($DBversion) ) {
8807 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')
8809 print "Upgrade to $DBversion done (Bug 11169 - Add AcqItemSetSubfieldsWhenReceiptIsCancelled syspref)\n";
8810 SetVersion($DBversion);
8813 $DBversion = "3.17.00.024";
8814 if(CheckVersion($DBversion)) {
8816 ALTER TABLE issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8819 ALTER TABLE old_issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8822 ALTER TABLE issuingrules ADD auto_renew BOOLEAN default FALSE AFTER norenewalbefore
8824 print "Upgrade to $DBversion done (Bug 11577: [ENH] Automatic renewal feature)\n";
8825 SetVersion($DBversion);
8828 $DBversion = '3.17.00.025';
8829 if ( CheckVersion($DBversion) ) {
8831 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')
8833 print "Upgrade to $DBversion done (Bug 12728: Checked syspref StatisticsFields)\n";
8836 $DBversion = "3.17.00.026";
8837 if ( CheckVersion($DBversion) ) {
8838 if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
8839 $dbh->do("UPDATE marc_subfield_structure SET liblibrarian = 'Encoded bitrate', libopac = 'Encoded bitrate' WHERE tagfield = '347' AND tagsubfield = 'f'");
8840 $dbh->do("UPDATE marc_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','610','611','710','711','810','811') AND tagsubfield = 'c'");
8841 $dbh->do("UPDATE auth_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','410','411','510','511','710','711') AND tagsubfield = 'c'");
8842 print "Upgrade to $DBversion done (Bug 12435 - Update MARC21 frameworks to Update No. 18 (April 2014))\n";
8844 SetVersion($DBversion);
8847 $DBversion = "3.17.00.027";
8848 if ( CheckVersion($DBversion) ) {
8850 DELETE FROM systempreferences WHERE variable = 'SearchEngine'
8852 print "Upgrade to $DBversion done (Bug 12538 - Remove SearchEngine syspref)\n";
8853 SetVersion($DBversion);
8856 $DBversion = "3.17.00.028";
8857 if ( CheckVersion($DBversion) ) {
8859 INSERT INTO systempreferences (variable,value) VALUES('OpacCustomSearch','');
8861 print "Upgrade to $DBversion done (Bug 12296 - search box replaceable with a system preference)\n";
8862 SetVersion($DBversion);
8865 $DBversion = "3.17.00.029";
8866 if ( CheckVersion($DBversion) ) {
8867 $dbh->do("ALTER TABLE `items` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8868 $dbh->do("ALTER TABLE `deleteditems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8869 $dbh->do("ALTER TABLE `biblioitems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8870 $dbh->do("ALTER TABLE `deletedbiblioitems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8871 print "Upgrade to $DBversion done (Bug 12424 - ddc sorting of call numbers truncates long Cutter parts)\n";
8872 SetVersion ($DBversion);
8875 $DBversion = "3.17.00.030";
8876 if ( CheckVersion($DBversion) ) {
8879 INSERT INTO systempreferences (variable, value, options, explanation, type )
8881 ('UsageStatsCountry', '', NULL, 'The country where your library is located, to be shown on the Hea Koha community website', 'YesNo'),
8882 ('UsageStatsID', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8883 ('UsageStatsLastUpdateTime', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8884 ('UsageStatsLibraryName', '', NULL, 'The library name to be shown on Hea Koha community website', 'Free'),
8885 ('UsageStatsLibraryType', 'public', 'public|university', 'The library type to be shown on the Hea Koha community website', 'Choice'),
8886 ('UsageStatsLibraryUrl', '', NULL, 'The library URL to be shown on Hea Koha community website', 'Free'),
8887 ('UsageStats', 0, NULL, 'Share anonymous usage data on the Hea Koha community website.', 'YesNo')
8889 print "Upgrade to $DBversion done (Bug 11926: Add UsageStats systempreferences (HEA))\n";
8890 SetVersion ($DBversion);
8893 $DBversion = "3.17.00.031";
8894 if ( CheckVersion($DBversion) ) {
8895 $dbh->do("ALTER TABLE saved_sql CHANGE report_name report_name VARCHAR( 255 ) NOT NULL DEFAULT '' ");
8896 print "Upgrade to $DBversion done (Bug 2969: Report Name should be mandatory for saved reports)\n";
8897 SetVersion ($DBversion);
8900 $DBversion = "3.17.00.032";
8901 if ( CheckVersion($DBversion) ) {
8903 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReplytoDefault', '', NULL, 'The default email address to be set as replyto.', 'Free')"
8906 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReturnpathDefault', '', NULL, 'The default email address to be set as return-path', 'Free')"
8908 $dbh->do("ALTER TABLE branches ADD branchreplyto mediumtext AFTER branchemail");
8909 $dbh->do("ALTER TABLE branches ADD branchreturnpath mediumtext AFTER branchreplyto");
8910 print "Upgrade to $DBversion done (Bug 9530: Adding replyto and returnpath addresses.)\n";
8911 SetVersion($DBversion);
8914 $DBversion = "3.17.00.033";
8915 if ( CheckVersion($DBversion) ) {
8917 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
8918 VALUES('FacetMaxCount', '20','Specify the max facet count for each category',NULL,'Integer')
8920 print "Upgrade to $DBversion done (Bug 13088 - Allow the user to specify a max amount of facets to show)\n";
8921 SetVersion($DBversion);
8924 $DBversion = "3.17.00.034";
8925 if ( CheckVersion($DBversion) ) {
8927 ALTER TABLE aqorders DROP COLUMN cancelledby;
8930 print "Upgrade to $DBversion done (Bug 11007 - DROP column aqorders.cancelledby)\n";
8931 SetVersion($DBversion);
8934 $DBversion = "3.17.00.035";
8935 if ( CheckVersion($DBversion) ) {
8937 ALTER TABLE serial ADD COLUMN claims_count INT(11) DEFAULT 0 after claimdate
8941 SET claims_count = 1
8942 WHERE claimdate IS NOT NULL
8944 print "Upgrade to $DBversion done (Bug 5342: Add claims_count field in serial table)\n";
8945 SetVersion($DBversion);
8948 $DBversion = "3.17.00.036";
8949 if ( CheckVersion($DBversion) ) {
8950 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowLibrariesPulldownMobile'");
8951 print "Upgrade to $DBversion done ( Bug 12513 - PROG/CCSR deprecation: Remove OpacShowLibrariesPulldownMobile system preference )\n";
8952 SetVersion ($DBversion);
8955 $DBversion = "3.17.00.037";
8956 if ( CheckVersion($DBversion) ) {
8957 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacMainUserBlockMobile'");
8958 print "Upgrade to $DBversion done ( Bug 12246 - PROG/CCSR deprecation: Remove OpacMainUserBlockMobile system preference )\n";
8959 SetVersion ($DBversion);
8962 $DBversion = "3.17.00.038";
8963 if ( CheckVersion($DBversion) ) {
8964 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACMobileUserCSS'");
8965 print "Upgrade to $DBversion done ( Bug 12245 - PROG/CCSR deprecation: Remove OPACMobileUserCSS system preference )\n";
8966 SetVersion ($DBversion);
8969 $DBversion = "3.17.00.039";
8970 if ( CheckVersion($DBversion) ) {
8971 $dbh->do("INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
8972 ('OPACFallback', 'prog', 'bootstrap|prog', 'Define the fallback theme for the OPAC interface.', 'Themes')");
8973 print "Upgrade to $DBversion done (Bug 12539 - PROG/CCSR deprecation: Remove hardcoded theme from C4/Templates.pm)\n";
8974 SetVersion ($DBversion);
8977 $DBversion = "3.17.00.040";
8978 if ( CheckVersion($DBversion) ) {
8979 my $opac_theme = C4::Context->preference( 'opacthemes' );
8980 if ( !defined $opac_theme || $opac_theme eq 'prog' || $opac_theme eq 'ccsr' ) {
8981 $dbh->do("UPDATE systempreferences SET value='bootstrap' WHERE variable='opacthemes'");
8983 print "Upgrade to $DBversion done (Bug 12223: 'prog' and 'ccsr' themes removed)\n";
8984 SetVersion($DBversion);
8987 $DBversion = "3.17.00.041";
8988 if ( CheckVersion($DBversion) ) {
8989 print "Upgrade to $DBversion done (Bug 11346: Deprecate the 'prog' and 'CCSR' themes)\n";
8990 SetVersion($DBversion);
8993 $DBversion = "3.17.00.042";
8994 if ( CheckVersion($DBversion) ) {
8995 $dbh->do("DELETE FROM systempreferences WHERE variable='yuipath'");
8996 print "Upgrade to $DBversion done (Bug 12494: Remove yuipath system preference)\n";
8997 SetVersion ($DBversion);
9000 $DBversion = "3.17.00.043";
9001 if ( CheckVersion($DBversion) ) {
9003 ALTER TABLE aqorders
9004 ADD COLUMN cancellationreason TEXT DEFAULT NULL AFTER datecancellationprinted
9006 print "Upgrade to $DBversion done (Bug 7162: Add aqorders.cancellationreason)\n";
9007 SetVersion ($DBversion);
9010 $DBversion = "3.17.00.044";
9011 if ( CheckVersion($DBversion) ) {
9013 INSERT IGNORE INTO systempreferences
9014 (variable,value,explanation,options,type)
9015 VALUES('OnSiteCheckouts','0','Enable/Disable the on-site checkouts feature','','YesNo');
9018 INSERT IGNORE INTO systempreferences
9019 (variable,value,explanation,options,type)
9020 VALUES('OnSiteCheckoutsForce','0','Enable/Disable the on-site for all cases (Even if a user is debarred, etc.)','','YesNo');
9023 ALTER TABLE issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9026 ALTER TABLE old_issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9028 print "Upgrade to $DBversion done (Bug 10860: Add new system preference OnSiteCheckouts + fields [old_]issues.onsite_checkout)\n";
9029 SetVersion($DBversion);
9032 $DBversion = "3.17.00.045";
9033 if ( CheckVersion($DBversion) ) {
9035 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9036 ('LocalHoldsPriority', '0', NULL, 'Enables the LocalHoldsPriority feature', 'YesNo'),
9037 ('LocalHoldsPriorityItemControl', 'holdingbranch', 'holdingbranch|homebranch', 'decides if the feature operates using the item''s home or holding library.', 'Choice'),
9038 ('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')
9040 print "Upgrade to $DBversion done (Bug 11126 - Make the holds system optionally give precedence to local holds)\n";
9041 SetVersion($DBversion);
9044 $DBversion = "3.17.00.046";
9045 if ( CheckVersion($DBversion) ) {
9047 CREATE TABLE IF NOT EXISTS items_search_fields (
9048 name VARCHAR(255) NOT NULL,
9049 label VARCHAR(255) NOT NULL,
9050 tagfield CHAR(3) NOT NULL,
9051 tagsubfield CHAR(1) NULL DEFAULT NULL,
9052 authorised_values_category VARCHAR(16) NULL DEFAULT NULL,
9054 CONSTRAINT items_search_fields_authorised_values_category
9055 FOREIGN KEY (authorised_values_category) REFERENCES authorised_values (category)
9056 ON DELETE SET NULL ON UPDATE CASCADE
9057 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
9059 print "Upgrade to $DBversion done (Bug 11425: Add items_search_fields table)\n";
9060 SetVersion($DBversion);
9063 $DBversion = "3.17.00.047";
9064 if ( CheckVersion($DBversion) ) {
9066 ALTER TABLE collections
9067 CHANGE colBranchcode colBranchcode VARCHAR( 10 ) NULL DEFAULT NULL,
9068 ADD INDEX ( colBranchcode ),
9069 ADD CONSTRAINT collections_ibfk_1 FOREIGN KEY (colBranchcode) REFERENCES branches (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
9071 print "Upgrade to $DBversion done (Bug 8836 - Resurrect Rotating Collections)\n";
9072 SetVersion($DBversion);
9075 $DBversion = "3.17.00.048";
9076 if ( CheckVersion($DBversion) ) {
9078 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')
9080 print "Upgrade to $DBversion done (Bug 12448 - Add RentalFeesCheckoutConfirmation syspref)\n";
9081 SetVersion($DBversion);
9084 $DBversion = "3.17.00.049";
9085 if ( CheckVersion($DBversion) ) {
9086 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'am', 'language', 'Amharic','2014-10-29')");
9087 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'am','amh')");
9088 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'am', 'አማርኛ')");
9089 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'en', 'Amharic')");
9091 $dbh->do("UPDATE language_descriptions SET description = 'لعربية' WHERE subtag = 'ar' AND type = 'language' AND lang = 'ar'");
9093 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'az', 'language', 'Azerbaijani','2014-10-30')");
9094 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'az','aze')");
9095 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'az', 'Azərbaycan dili')");
9096 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'en', 'Azerbaijani')");
9098 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'be', 'language', 'Byelorussian','2014-10-30')");
9099 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'be','bel')");
9100 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'be', 'Беларуская мова')");
9101 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'en', 'Byelorussian')");
9103 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'bn', 'language', 'Bengali','2014-10-30')");
9104 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'bn','ben')");
9105 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'bn', 'বাংলা')");
9106 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'en', 'Bengali')");
9108 $dbh->do("UPDATE language_descriptions SET description = 'Български' WHERE subtag = 'bg' AND type = 'language' AND lang = 'bg'");
9109 $dbh->do("UPDATE language_descriptions SET description = 'Ceština' WHERE subtag = 'cs' AND type = 'language' AND lang = 'cs'");
9110 $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικά' WHERE subtag = 'el' AND type = 'language' AND lang = 'el'");
9111 $dbh->do("UPDATE language_descriptions SET description = 'Español' WHERE subtag = 'es' AND type = 'language' AND lang = 'es'");
9113 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'eu', 'language', 'Basque','2014-10-30')");
9114 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'eu','eus')");
9115 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'eu', 'Euskera')");
9116 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'en', 'Basque')");
9118 $dbh->do("UPDATE language_descriptions SET description = 'فارسى' WHERE subtag = 'fa' AND type = 'language' AND lang = 'fa'");
9119 $dbh->do("UPDATE language_descriptions SET description = 'Suomi' WHERE subtag = 'fi' AND type = 'language' AND lang = 'fi'");
9121 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'fo', 'language', 'Faroese','2014-10-30')");
9122 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'fo','fao')");
9123 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'fo', 'Føroyskt')");
9124 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'en', 'Faroese')");
9126 $dbh->do("UPDATE language_descriptions SET description = 'Français' WHERE subtag = 'fr' AND type = 'language' AND lang = 'fr'");
9127 $dbh->do("UPDATE language_descriptions SET description = 'עִבְרִית' WHERE subtag = 'he' AND type = 'language' AND lang = 'he'");
9128 $dbh->do("UPDATE language_descriptions SET description = 'हिन्दी' WHERE subtag = 'hi' AND type = 'language' AND lang = 'hi'");
9130 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'is', 'language', 'Icelandic','2014-10-30')");
9131 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'is','ice')");
9132 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'is', 'Íslenska')");
9133 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'en', 'Icelandic')");
9135 $dbh->do("UPDATE language_descriptions SET description = '日本語' WHERE subtag = 'ja' AND type = 'language' AND lang = 'ja'");
9137 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Kannada','2014-10-30')");
9138 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka','kan')");
9139 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ಕನ್ನಡ')");
9140 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Kannada')");
9142 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'km', 'language', 'Khmer','2014-10-30')");
9143 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'km','khm')");
9144 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'km', 'language', 'km', 'ភាសាខ្មែរ')");
9145 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'km', 'language', 'en', 'Khmer')");
9147 $dbh->do("UPDATE language_descriptions SET description = '한국어' WHERE subtag = 'ko' AND type = 'language' AND lang = 'ko'");
9149 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ku', 'language', 'Kurdish','2014-05-13')");
9150 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ku','kur')");
9151 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'ku', 'کوردی')");
9152 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'en', 'Kurdish')");
9153 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'fr', 'Kurde')");
9154 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'de', 'Kurdisch')");
9155 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'es', 'Kurdo')");
9157 $dbh->do("UPDATE language_descriptions SET description = 'ພາສາລາວ' WHERE subtag = 'lo' AND type = 'language' AND lang = 'lo'");
9159 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mi', 'language', 'Maori','2014-10-30')");
9160 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mi','mri')");
9161 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'mi', 'Te Reo Māori')");
9162 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'en', 'Maori')");
9164 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mn', 'language', 'Mongolian','2014-10-30')");
9165 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mn','mon')");
9166 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'mn', 'Mонгол')");
9167 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'en', 'Mongolian')");
9169 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mr', 'language', 'Marathi','2014-10-30')");
9170 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mr','mar')");
9171 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'mr', 'मराठी')");
9172 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'en', 'Marathi')");
9174 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ms', 'language', 'Malay','2014-10-30')");
9175 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ms','may')");
9176 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'ms', 'Bahasa melayu')");
9177 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'en', 'Malay')");
9179 $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'nb'");
9180 $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'en'");
9181 $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'fr'");
9182 $dbh->do("UPDATE language_descriptions SET description = 'Norwegisch bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'de'");
9184 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ne', 'language', 'Nepali','2014-10-30')");
9185 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ne','nep')");
9186 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)VALUES ( 'ne', 'language', 'ne', 'नेपाली')");
9187 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ne', 'language', 'en', 'Nepali')");
9189 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'pbr', 'language', 'Pangwa','2014-10-30')");
9190 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'pbr','pbr')");
9191 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'pbr', 'Ekipangwa')");
9192 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'en', 'Pangwa')");
9194 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'prs', 'language', 'Dari','2014-10-30')");
9195 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'prs','prs')");
9196 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'prs', 'درى')");
9197 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'en', 'Dari')");
9199 $dbh->do("UPDATE language_descriptions SET description = 'Português' WHERE subtag = 'pt' AND type = 'language' AND lang = 'pt'");
9200 $dbh->do("UPDATE language_descriptions SET description = 'Român' WHERE subtag = 'ro' AND type = 'language' AND lang = 'ro'");
9201 $dbh->do("UPDATE language_descriptions SET description = 'Русский' WHERE subtag = 'ru' AND type = 'language' AND lang = 'ru'");
9203 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'rw', 'language', 'Kinyarwanda','2014-10-30')");
9204 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'rw','kin')");
9205 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'rw', 'Ikinyarwanda')");
9206 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'en', 'Kinyarwanda')");
9208 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sd', 'language', 'Sindhi','2014-10-30')");
9209 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sd','snd')");
9210 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'sd', 'سنڌي')");
9211 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'en', 'Sindhi')");
9213 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sk', 'language', 'Slovak','2014-10-30')");
9214 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sk','slk')");
9215 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'sk', 'Slovenčina')");
9216 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'en', 'Slovak')");
9218 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sl', 'language', 'Slovene','2014-10-30')");
9219 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sl','slv')");
9220 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'sl', 'Slovenščina')");
9221 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'en', 'Slovene')");
9223 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sq', 'language', 'Albanian','2014-10-30')");
9224 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sq','sqi')");
9225 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'sq', 'Shqip')");
9226 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'en', 'Albanian')");
9228 $dbh->do("UPDATE language_descriptions SET description = 'Cрпски' WHERE subtag = 'sr' AND type = 'language' AND lang = 'sr'");
9230 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sw', 'language', 'Swahili','2014-10-30')");
9231 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sw','swa')");
9232 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'sw', 'Kiswahili')");
9233 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'en', 'Swahili')");
9235 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ta', 'language', 'Tamil','2014-10-30')");
9236 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ta','tam')");
9237 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'ta', 'தமிழ்')");
9238 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'en', 'Tamil')");
9240 $dbh->do("UPDATE language_descriptions SET description = 'Tetun' WHERE subtag = 'tet' AND type = 'language' AND lang = 'tet'");
9241 $dbh->do("UPDATE language_descriptions SET description = 'ภาษาไทย' WHERE subtag = 'th' AND type = 'language' AND lang = 'th'");
9243 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'tl', 'language', 'Tagalog','2014-10-30')");
9244 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'tl','tgl')");
9245 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'tl', 'Tagalog')");
9246 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'en', 'Tagalog')");
9248 $dbh->do("UPDATE language_descriptions SET description = 'Türkçe' WHERE subtag = 'tr' AND type = 'language' AND lang = 'tr'");
9249 $dbh->do("UPDATE language_descriptions SET description = 'Українська' WHERE subtag = 'uk' AND type = 'language' AND lang = 'uk'");
9250 $dbh->do("UPDATE language_descriptions SET description = 'اردو' WHERE subtag = 'ur' AND type = 'language' AND lang = 'ur'");
9252 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'vi', 'language', 'Vietnamese','2014-10-30')");
9253 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'vi','vie')");
9254 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'vi', '㗂越')");
9255 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'en', 'Vietnamese')");
9257 $dbh->do("UPDATE language_descriptions SET description = '中文' WHERE subtag = 'zh' AND type = 'language' AND lang = 'zh'");
9258 $dbh->do("UPDATE language_descriptions SET description = '' WHERE subtag = 'Arab,script' AND type = 'Arab' AND lang = 'العربية'");
9260 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Armn', 'script', 'Armenian','2014-10-30')");
9261 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Armn', 'script', 'Armn', 'Հայոց այբուբեն')");
9262 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Armn', 'script', 'en', 'Armenian')");
9264 $dbh->do("UPDATE language_descriptions SET description = 'Кирилица' WHERE subtag = 'Cyrl' AND type = 'script' AND lang = 'Cyrl'");
9266 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Ethi', 'script', 'Ethiopic','2014-10-30')");
9267 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Ethi', 'script', 'Ethi', 'ግዕዝ')");
9268 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Ethi', 'script', 'en', 'Ethiopic')");
9270 $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικό αλφάβητο' WHERE subtag = 'Grek' AND type = 'script' AND lang = 'Grek'");
9271 $dbh->do("UPDATE language_descriptions SET description = '简体字' WHERE subtag = 'Hans' AND type = 'script' AND lang = 'Hans'");
9272 $dbh->do("UPDATE language_descriptions SET description = '繁體字' WHERE subtag = 'Hant' AND type = 'script' AND lang = 'Hant'");
9273 $dbh->do("UPDATE language_descriptions SET description = 'אָלֶף־בֵּית עִבְרִי' WHERE subtag = 'Hebr' AND type = 'script' AND lang = 'Hebr'");
9275 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Jpan', 'script', 'Japanese','2014-10-30')");
9276 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Jpan', 'script', 'Jpan', '漢字')");
9277 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Jpan', 'script', 'en', 'Japanese')");
9279 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Knda', 'script', 'Kannada','2014-10-30')");
9280 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Knda', 'script', 'Knda', 'ಕನ್ನಡ ಲಿಪಿ')");
9281 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Knda', 'script', 'en', 'Kannada')");
9283 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Kore', 'script', 'Korean','2014-10-30')");
9284 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Kore', 'script', 'Kore', '한글')");
9285 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Kore', 'script', 'en', 'Korean')");
9287 $dbh->do("UPDATE language_descriptions SET description = 'ອັກສອນລາວ' WHERE subtag = 'Laoo' AND type = 'script' AND lang = 'Laoo'");
9289 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AL', 'region', 'Albania','2014-10-30')");
9290 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'en', 'Albania')");
9291 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'sq', 'Shqipërisë')");
9293 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AZ', 'region', 'Azerbaijan','2014-10-30')");
9294 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'en', 'Azerbaijan')");
9295 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'az', 'Azərbaycan')");
9297 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BE', 'region', 'Belgium','2014-10-30')");
9298 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'en', 'Belgium')");
9299 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'nl', 'België')");
9301 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BR', 'region', 'Brazil','2014-10-30')");
9302 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'en', 'Brazil')");
9303 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'pt', 'Brasil')");
9305 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BY', 'region', 'Belarus','2014-10-30')");
9306 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'en', 'Belarus')");
9307 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'be', 'Беларусь')");
9309 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CA', 'region', 'fr', 'Canada')");
9311 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CH', 'region', 'Switzerland','2014-10-30')");
9312 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'en', 'Switzerland')");
9313 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'de', 'Schweiz')");
9315 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CN', 'region', 'China','2014-10-30')");
9316 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'en', 'China')");
9317 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'zh', '中国')");
9319 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CZ', 'region', 'Czech Republic','2014-10-30')");
9320 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'en', 'Czech Republic')");
9321 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'cs', 'Česká republika')");
9323 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'DE', 'region', 'Germany','2014-10-30')");
9324 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'en', 'Germany')");
9325 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'de', 'Deutschland')");
9327 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DK', 'region', 'en', 'Denmark')");
9329 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ES', 'region', 'Spain','2014-10-30')");
9330 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'en', 'Spain')");
9331 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'es', 'España')");
9333 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FI', 'region', 'Finland','2014-10-30')");
9334 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'en', 'Finland')");
9335 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'fi', 'Suomi')");
9337 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FO', 'region', 'Faroe Islands','2014-10-30')");
9338 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'en', 'Faroe Islands')");
9339 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'fo', 'Føroyar')");
9341 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'GR', 'region', 'Greece','2014-10-30')");
9342 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'en', 'Greece')");
9343 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'el', 'Ελλάδα')");
9345 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HR', 'region', 'Croatia','2014-10-30')");
9346 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'en', 'Croatia')");
9347 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'hr', 'Hrvatska')");
9349 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HU', 'region', 'Hungary','2014-10-30')");
9350 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'en', 'Hungary')");
9351 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'hu', 'Magyarország')");
9353 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ID', 'region', 'Indonesia','2014-10-30')");
9354 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'en', 'Indonesia')");
9355 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'id', 'Indonesia')");
9357 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IS', 'region', 'Iceland','2014-10-30')");
9358 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'en', 'Iceland')");
9359 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'is', 'Ísland')");
9361 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IT', 'region', 'Italy','2014-10-30')");
9362 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'en', 'Italy')");
9363 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'it', 'Italia')");
9365 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'JP', 'region', 'Japan','2014-10-30')");
9366 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'en', 'Japan')");
9367 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'ja', '日本')");
9369 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KE', 'region', 'Kenya','2014-10-30')");
9370 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'en', 'Kenya')");
9371 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'rw', 'Kenya')");
9373 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KH', 'region', 'Cambodia','2014-10-30')");
9374 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'en', 'Cambodia')");
9375 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'km', 'កម្ពុជា')");
9377 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KP', 'region', 'North Korea','2014-10-30')");
9378 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'en', 'North Korea')");
9379 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'ko', '조선민주주의인민공화국')");
9381 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'LK', 'region', 'Sri Lanka','2014-10-30')");
9382 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'en', 'Sri Lanka')");
9383 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'ta', 'இலங்கை')");
9385 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'MY', 'region', 'Malaysia','2014-10-30')");
9386 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'en', 'Malaysia')");
9387 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'ms', 'Malaysia')");
9389 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NE', 'region', 'Niger','2014-10-30')");
9390 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'en', 'Niger')");
9391 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'ne', 'Niger')");
9393 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NL', 'region', 'Netherlands','2014-10-30')");
9394 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'en', 'Netherlands')");
9395 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'nl', 'Nederland')");
9397 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NO', 'region', 'Norway','2014-10-30')");
9398 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'en', 'Norway')");
9399 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'ne', 'Noreg')");
9400 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'nn', 'Noreg')");
9402 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PH', 'region', 'Philippines','2014-10-30')");
9403 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'en', 'Philippines')");
9404 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'tl', 'Pilipinas')");
9406 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PK', 'region', 'Pakistan','2014-10-30')");
9407 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'en', 'Pakistan')");
9408 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'sd', 'پاكستان')");
9410 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PL', 'region', 'Poland','2014-10-30')");
9411 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'en', 'Poland')");
9412 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'pl', 'Polska')");
9414 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PT', 'region', 'Portugal','2014-10-30')");
9415 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'en', 'Portugal')");
9416 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'pt', 'Portugal')");
9418 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RO', 'region', 'Romania','2014-10-30')");
9419 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'en', 'Romania')");
9420 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'ro', 'România')");
9422 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RU', 'region', 'Russia','2014-10-30')");
9423 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'en', 'Russia')");
9424 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'ru', 'Россия')");
9426 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RW', 'region', 'Rwanda','2014-10-30')");
9427 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'en', 'Rwanda')");
9428 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'rw', 'Rwanda')");
9430 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SE', 'region', 'Sweden','2014-10-30')");
9431 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'en', 'Sweden')");
9432 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'sv', 'Sverige')");
9434 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SI', 'region', 'Slovenia','2014-10-30')");
9435 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'en', 'Slovenia')");
9436 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'sl', 'Slovenija')");
9438 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SK', 'region', 'Slovakia','2014-10-30')");
9439 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'en', 'Slovakia')");
9440 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'sk', 'Slovensko')");
9442 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TH', 'region', 'Thailand','2014-10-30')");
9443 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'en', 'Thailand')");
9444 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'th', 'ประเทศไทย')");
9446 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TR', 'region', 'Turkey','2014-10-30')");
9447 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'en', 'Turkey')");
9448 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'tr', 'Türkiye')");
9450 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TW', 'region', 'Taiwan','2014-10-30')");
9451 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'en', 'Taiwan')");
9452 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'zh', '台灣')");
9454 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'UA', 'region', 'Ukraine','2014-10-30')");
9455 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'en', 'Ukraine')");
9456 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'uk', 'Україна')");
9458 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'VN', 'region', 'Vietnam','2014-10-30')");
9459 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'en', 'Vietnam')");
9460 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'vi', 'Việt Nam')");
9462 print "Upgrade to $DBversion done (Bug 12250: Update descriptions for languages, scripts and regions)\n";
9463 SetVersion($DBversion);
9466 $DBversion = "3.17.00.050";
9467 if ( CheckVersion($DBversion) ) {
9469 INSERT INTO permissions (module_bit, code, description) VALUES
9470 (13, 'records_batchdel', 'Perform batch deletion of records (bibliographic or authority)')
9472 print "Upgrade to $DBversion done (Bug 12403: Add permission tools_records_batchdelitem)\n";
9473 SetVersion($DBversion);
9476 $DBversion = "3.17.00.051";
9477 if ( CheckVersion($DBversion) ) {
9478 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('GoogleIndicTransliteration','0','','GoogleIndicTransliteration on the OPAC.','YesNo')");
9479 print "Upgrade to $DBversion done (Bug 13211: Added system preferences GoogleIndicTransliteration on the OPAC)\n";
9480 SetVersion($DBversion);
9483 $DBversion = "3.17.00.052";
9484 if ( CheckVersion($DBversion) ) {
9486 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');
9490 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');
9492 print "Upgrade to $DBversion done (Bug 9043: Add system preference OpacAdvSearchOptions and OpacAdvSearchMoreOptions)\n";
9493 SetVersion ($DBversion);
9496 $DBversion = "3.17.00.053";
9497 if ( CheckVersion($DBversion) ) {
9499 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)');
9503 INSERT INTO permissions (module_bit, code, description) VALUES ('9', 'delete_all_items', 'Delete all items at once');
9507 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)');
9510 # The delete_all_items permission should be added to users having the edit_items permission.
9512 INSERT INTO user_permissions (borrowernumber, module_bit, code) SELECT borrowernumber, module_bit, "delete_all_items" FROM user_permissions WHERE code="edit_items";
9517 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');
9521 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');
9524 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";
9525 SetVersion($DBversion);
9528 $DBversion = "3.17.00.054";
9529 if (CheckVersion($DBversion)) {
9531 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9532 ('AllowRenewalIfOtherItemsAvailable','0',NULL,'If enabled, allow a patron to renew an item with unfilled holds if other available items can fill that hold.','YesNo')
9534 print "Upgrade to $DBversion done (Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds)\n";
9535 SetVersion($DBversion);
9538 $DBversion = "3.17.00.055";
9539 if ( CheckVersion($DBversion) ) {
9540 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEnable', '0', NULL, 'Enable communication with the Norwegian national patron database.', 'YesNo')");
9541 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEndpoint', '', NULL, 'Which NL endpoint to use.', 'Free')");
9542 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBUsername', '', NULL, 'Username for communication with the Norwegian national patron database.', 'Free')");
9543 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBPassword', '', NULL, 'Password for communication with the Norwegian national patron database.', 'Free')");
9544 $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')");
9546 CREATE TABLE borrower_sync (
9547 borrowersyncid int(11) NOT NULL AUTO_INCREMENT,
9548 borrowernumber int(11) NOT NULL,
9549 synctype varchar(32) NOT NULL,
9550 sync tinyint(1) NOT NULL DEFAULT '0',
9551 syncstatus varchar(10) DEFAULT NULL,
9552 lastsync varchar(50) DEFAULT NULL,
9553 hashed_pin varchar(64) DEFAULT NULL,
9554 PRIMARY KEY (borrowersyncid),
9555 KEY borrowernumber (borrowernumber),
9556 CONSTRAINT borrower_sync_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9557 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
9559 print "Upgrade to $DBversion done (Bug 11401 - Add support for Norwegian national library card)\n";
9560 SetVersion($DBversion);
9563 $DBversion = "3.17.00.056";
9564 if ( CheckVersion($DBversion) ) {
9566 UPDATE systempreferences SET value = 'pubdate,itemtype,language,sorting,location' WHERE variable='OpacAdvSearchOptions'
9570 UPDATE systempreferences SET value = 'pubdate,itemtype,language,subtype,sorting,location' WHERE variable='OpacAdvSearchMoreOptions'
9573 print "Upgrade to $DBversion done (Bug 9043 - Update the values for OpacAdvSearchOptions and OpacAdvSearchOptions)\n";
9574 SetVersion($DBversion);
9577 $DBversion = "3.17.00.057";
9578 if ( CheckVersion($DBversion) ) {
9579 print "Upgrade to $DBversion done (Koha 3.18 beta)\n";
9580 SetVersion ($DBversion);
9583 $DBversion = "3.17.00.058";
9584 if( CheckVersion($DBversion) ){
9585 $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')");
9586 $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')");
9587 $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')");
9588 print "Upgrade to $DBversion done (Bug 8337: System preferences for longoverdue cron)\n";
9589 SetVersion($DBversion);
9592 $DBversion = "3.17.00.059";
9593 if ( CheckVersion($DBversion) ) {
9595 UPDATE permissions SET description = "Add and delete budgets (but can't modifiy budgets)" WHERE description = "Add and delete budgets (but cant modify budgets)";
9597 print "Upgrade to $DBversion done (Bug 10749: Fix typo in budget_add_del permission description)\n";
9598 SetVersion ($DBversion);
9601 $DBversion = "3.17.00.060";
9602 if ( CheckVersion($DBversion) ) {
9603 my $count_l = $dbh->selectcol_arrayref(q|
9604 SELECT COUNT(*) FROM letter WHERE message_transport_type='feed'
9606 my $count_mq = $dbh->selectcol_arrayref(q|
9607 SELECT COUNT(*) FROM message_queue WHERE message_transport_type='feed'
9609 my $count_ott = $dbh->selectcol_arrayref(q|
9610 SELECT COUNT(*) FROM overduerules_transport_types WHERE message_transport_type='feed'
9612 my $count_mt = $dbh->selectcol_arrayref(q|
9613 SELECT COUNT(*) FROM message_transports WHERE message_transport_type='feed'
9615 my $count_bmtp = $dbh->selectcol_arrayref(q|
9616 SELECT COUNT(*) FROM borrower_message_transport_preferences WHERE message_transport_type='feed'
9620 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 ) {
9621 $deleted = $dbh->do(q|
9622 DELETE FROM message_transport_types where message_transport_type='feed'
9624 $deleted = $deleted ne '0E0' ? 1 : 0;
9627 print "Upgrade to $DBversion done (Bug 12298: Delete the 'feed' message transport type " . ($deleted ? '(deleted!)' : '(not deleted)') . ")\n";
9628 SetVersion($DBversion);
9631 $DBversion = "3.18.00.000";
9632 if ( CheckVersion($DBversion) ) {
9633 print "Upgrade to $DBversion done (3.18.0 release)\n";
9634 SetVersion($DBversion);
9637 $DBversion = "3.19.00.000";
9638 if ( CheckVersion($DBversion) ) {
9639 print "Upgrade to $DBversion done (there's life after 3.18)\n";
9640 SetVersion ($DBversion);
9643 $DBversion = "3.19.00.001";
9644 if ( CheckVersion($DBversion) ) {
9646 UPDATE systempreferences
9647 SET options = 'public|school|academic|research|private|societyAssociation|corporate|government|religiousOrg|subscription'
9648 WHERE variable = 'UsageStatsLibraryType'
9650 if ( C4::Context->preference("UsageStatsLibraryType") eq "university" ) {
9651 C4::Context->set_preference("UsageStatsLibraryType", "academic")
9653 print "Upgrade to $DBversion done (Bug 13436: Add more options to UsageStatsLibraryType)\n";
9654 SetVersion ($DBversion);
9657 $DBversion = "3.19.00.002";
9658 if ( CheckVersion($DBversion) ) {
9660 UPDATE suggestions SET branchcode="" WHERE branchcode="__ANY__"
9662 print "upgrade to $DBversion done (Bug 10753: replace __ANY__ with empty string in suggestions.branchcode)\n";
9663 SetVersion ($DBversion);
9666 $DBversion = "3.19.00.003";
9667 if ( CheckVersion($DBversion) ) {
9668 my ($count) = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers GROUP BY userid HAVING COUNT(userid) > 1");
9671 print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced) FAILED!\n";
9672 print "Your database has users with duplicate user logins. Please have your administrator deduplicate your user logins.\n";
9673 print "Afterward, your Koha administrator should execute the following database query: ALTER TABLE borrowers DROP INDEX userid, ADD UNIQUE userid (userid)";
9676 ALTER TABLE borrowers
9678 ADD UNIQUE userid (userid)
9680 print "Upgrade to $DBversion done (Bug 1861: Unique patrons logins not (totally) enforced)\n";
9682 SetVersion ($DBversion);
9685 $DBversion = "3.19.00.004";
9686 if ( CheckVersion($DBversion) ) {
9687 my $pref_value = C4::Context->preference('OpacExportOptions');
9688 $pref_value =~ s/\|/,/g; # multiple is separated by ,
9690 UPDATE systempreferences
9693 WHERE variable = 'OpacExportOptions'
9694 }, {}, $pref_value );
9695 print "Upgrade to $DBversion done (Bug 13346: OpacExportOptions is now multiple)\n";
9696 SetVersion ($DBversion);
9699 $DBversion = "3.19.00.005";
9700 if(CheckVersion($DBversion)) {
9702 ALTER TABLE authorised_values MODIFY COLUMN category VARCHAR(32) NOT NULL DEFAULT ''
9706 ALTER TABLE borrower_attribute_types MODIFY COLUMN authorised_value_category VARCHAR(32) DEFAULT NULL
9709 print "Upgrade to $DBversion done (Bug 13379: Modify authorised_values.category to varchar(32))\n";
9710 SetVersion($DBversion);
9713 $DBversion = "3.19.00.006";
9714 if ( CheckVersion($DBversion) ) {
9715 $dbh->do(q|SET foreign_key_checks = 0|);
9716 my $sth = $dbh->table_info( '','','','TABLE' );
9717 my ( $cat, $schema, $name, $type, $remarks );
9718 while ( ( $cat, $schema, $name, $type, $remarks ) = $sth->fetchrow_array ) {
9719 my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE $name|);
9720 $table_sth->execute;
9721 my @table = $table_sth->fetchrow_array;
9722 unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables
9723 if ( $name eq 'marc_subfield_structure' ) {
9725 ALTER TABLE marc_subfield_structure
9726 MODIFY COLUMN tagfield varchar(3) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9727 MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT '',
9728 MODIFY COLUMN liblibrarian varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9729 MODIFY COLUMN libopac varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9730 MODIFY COLUMN kohafield varchar(40) COLLATE utf8_unicode_ci DEFAULT NULL,
9731 MODIFY COLUMN authorised_value varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9732 MODIFY COLUMN authtypecode varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9733 MODIFY COLUMN value_builder varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL,
9734 MODIFY COLUMN frameworkcode varchar(4) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9735 MODIFY COLUMN seealso varchar(1100) COLLATE utf8_unicode_ci DEFAULT NULL,
9736 MODIFY COLUMN link varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL
9738 $dbh->do(qq|ALTER TABLE $name CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
9741 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
9745 $dbh->do(q|SET foreign_key_checks = 1|);;
9747 print "Upgrade to $DBversion done (Bug 11944: Convert DB tables to utf8_unicode_ci)\n";
9748 SetVersion($DBversion);
9751 $DBversion = "3.19.00.007";
9752 if ( CheckVersion($DBversion) ) {
9753 my $orphan_budgets = $dbh->selectall_arrayref(q|
9754 SELECT budget_id, budget_name, budget_code
9756 WHERE budget_parent_id IS NOT NULL
9757 AND budget_parent_id NOT IN (
9758 SELECT DISTINCT budget_id FROM aqbudgets
9760 |, { Slice => {} } );
9762 if ( @$orphan_budgets ) {
9763 for my $b ( @$orphan_budgets ) {
9764 print "Fund $b->{budget_name} (code:$b->{budget_code}, id:$b->{budget_id}) does not have a parent, it may cause problem\n";
9766 print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: FAIL)\n";
9768 print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: OK)\n";
9770 SetVersion ($DBversion);
9773 $DBversion = "3.19.00.008";
9774 if ( CheckVersion($DBversion) ) {
9775 my $number_of_orders_not_linked = $dbh->selectcol_arrayref(q|
9781 WHERE b.budget_id = o.budget_id
9785 if ( $number_of_orders_not_linked->[0] > 0 ) {
9787 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)
9789 my $budget_period_id = $dbh->last_insert_id( undef, undef, 'aqbudgetperiods', undef );
9791 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 );
9793 my $budget_id = $dbh->last_insert_id( undef, undef, 'aqbudgets', undef );
9796 SET budget_id = $budget_id
9800 WHERE b.budget_id = o.budget_id
9806 ALTER TABLE aqorders
9807 ADD CONSTRAINT aqorders_budget_id_fk FOREIGN KEY (budget_id) REFERENCES aqbudgets(budget_id) ON DELETE CASCADE ON UPDATE CASCADE
9810 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";
9811 SetVersion($DBversion);
9814 $DBversion = "3.19.00.009";
9815 if ( CheckVersion($DBversion) ) {
9817 UPDATE suggestions s SET s.budgetid = NULL
9821 WHERE b.budget_id = s.budgetid
9826 ALTER TABLE suggestions
9827 ADD CONSTRAINT suggestions_budget_id_fk FOREIGN KEY (budgetid) REFERENCES aqbudgets(budget_id) ON DELETE SET NULL ON UPDATE CASCADE
9830 print "Upgrade to $DBversion done (Bug 13007: Add new foreign key suggestions.budgetid)\n";
9831 SetVersion($DBversion);
9834 $DBversion = "3.19.00.010";
9835 if ( CheckVersion($DBversion) ) {
9837 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
9838 VALUES('SessionRestrictionByIP','1','Check for Change in Remote IP address for Session Security. Disable when remote ip address changes frequently.','','YesNo')
9840 print "Upgrade to $DBversion done (Bug 5511: SessionRestrictionByIP)\n";
9841 SetVersion ($DBversion);
9844 $DBversion = "3.19.00.011";
9845 if ( CheckVersion($DBversion) ) {
9847 INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES
9848 (20, 'lists', 'Lists', 0)
9851 INSERT INTO permissions (module_bit, code, description) VALUES
9852 (20, 'delete_public_lists', 'Delete public lists')
9854 print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n";
9855 SetVersion ($DBversion);
9858 $DBversion = "3.19.00.012";
9859 if(CheckVersion($DBversion)) {
9861 ALTER TABLE biblioitems MODIFY COLUMN marcxml longtext
9865 ALTER TABLE deletedbiblioitems MODIFY COLUMN marcxml longtext
9868 print "Upgrade to $DBversion done (Bug 13523 Remove NOT NULL restriction on field marcxml due to mysql STRICT_TRANS_TABLES)\n";
9869 SetVersion ($DBversion);
9872 $DBversion = "3.19.00.013";
9873 if ( CheckVersion($DBversion) ) {
9875 INSERT INTO permissions (module_bit, code, description) VALUES
9876 (13, 'records_batchmod', 'Perform batch modification of records (biblios or authorities)')
9878 print "Upgrade to $DBversion done (Bug 11395: Add permission tools_records_batchmod)\n";
9879 SetVersion($DBversion);
9882 $DBversion = "3.19.00.014";
9883 if ( CheckVersion($DBversion) ) {
9885 CREATE TABLE aqorder_users (
9886 ordernumber int(11) NOT NULL,
9887 borrowernumber int(11) NOT NULL,
9888 PRIMARY KEY (ordernumber, borrowernumber),
9889 CONSTRAINT aqorder_users_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber) ON DELETE CASCADE ON UPDATE CASCADE,
9890 CONSTRAINT aqorder_users_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9891 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
9895 INSERT INTO letter(module, code, branchcode, name, title, content, message_transport_type)
9896 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')
9898 print "Upgrade to $DBversion done (Bug 12648: Add letter ACQ_NOTIF_ON_RECEIV )\n";
9899 SetVersion ($DBversion);
9902 $DBversion = "3.19.00.015";
9903 if ( CheckVersion($DBversion) ) {
9905 ALTER TABLE search_history ADD COLUMN id INT(11) NOT NULL AUTO_INCREMENT FIRST, ADD PRIMARY KEY(id);
9907 print "Upgrade to $DBversion done (Bug 11430: Add primary key for search_history)\n";
9908 SetVersion ($DBversion);
9911 $DBversion = "3.19.00.016";
9912 if(CheckVersion($DBversion)) {
9913 my @order_cancellation_reason = $dbh->selectrow_array("SELECT count(*) FROM authorised_values WHERE category='ORDER_CANCELLATION_REASON'");
9914 if ($order_cancellation_reason[0] == 0) {
9916 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9917 ('ORDER_CANCELLATION_REASON', 0, 'No reason provided'),
9918 ('ORDER_CANCELLATION_REASON', 1, 'Out of stock'),
9919 ('ORDER_CANCELLATION_REASON', 2, 'Restocking')
9922 my $already_existing_reasons = $dbh->selectcol_arrayref(q{
9923 SELECT DISTINCT( cancellationreason )
9925 }, { Slice => {} });
9927 my $update_orders_sth = $dbh->prepare(q{
9929 SET cancellationreason = ?
9930 WHERE cancellationreason = ?
9933 my $insert_av_sth = $dbh->prepare(q{
9934 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9935 ('ORDER_CANCELLATION_REASON', ?, ?)
9938 for my $reason ( @$already_existing_reasons ) {
9939 next unless $reason;
9940 $insert_av_sth->execute( $i, $reason );
9941 $update_orders_sth->execute( $i, $reason );
9944 print "Upgrade to $DBversion done (Bug 13380: Add the ORDER_CANCELLATION_REASON authorised value)\n";
9947 print "Upgrade to $DBversion done (Bug 13380: ORDER_CANCELLATION_REASON authorised value already existed from earlier update!)\n";
9950 SetVersion($DBversion);
9953 $DBversion = '3.19.00.017';
9954 if ( CheckVersion($DBversion) ) {
9955 # First create the column
9956 $dbh->do("ALTER TABLE issuingrules ADD onshelfholds tinyint(1) default 0 NOT NULL");
9957 # Now update the column
9958 if (C4::Context->preference("AllowOnShelfHolds")){
9959 # Pref is on, set allow for all rules
9960 $dbh->do("UPDATE issuingrules SET onshelfholds=1");
9962 # If the preference is not set, leave off
9963 $dbh->do("UPDATE issuingrules SET onshelfholds=0");
9965 # Remove from the systempreferences table
9966 $dbh->do("DELETE FROM systempreferences WHERE variable = 'AllowOnShelfHolds'");
9968 # First create the column
9969 $dbh->do("ALTER TABLE issuingrules ADD opacitemholds char(1) DEFAULT 'N' NOT NULL");
9970 # Now update the column
9971 my $opacitemholds = C4::Context->preference("OPACItemHolds") || '';
9972 if (lc ($opacitemholds) eq 'force') {
9973 $opacitemholds = 'F';
9976 $opacitemholds = $opacitemholds ? 'Y' : 'N';
9978 # Set allow for all rules
9979 $dbh->do("UPDATE issuingrules SET opacitemholds='$opacitemholds'");
9981 # Remove from the systempreferences table
9982 $dbh->do("DELETE FROM systempreferences WHERE variable = 'OPACItemHolds'");
9984 print "Upgrade to $DBversion done (Bug 5786: Move AllowOnShelfHolds to circulation matrix; Move OPACItemHolds system preference to circulation matrix)\n";
9985 SetVersion ($DBversion);
9989 $DBversion = "3.19.00.018";
9990 if ( CheckVersion($DBversion) ) {
9992 UPDATE systempreferences set variable="OpacAdditionalStylesheet" WHERE variable="opaccolorstylesheet"
9994 print "Upgrade to $DBversion done (Bug 10328: Rename opaccolorstylesheet to OpacAdditionalStylesheet\n";
9995 SetVersion ($DBversion);
9998 $DBversion = "3.19.00.019";
9999 if ( CheckVersion($DBversion) ) {
10001 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
10002 VALUES('Coce','0', 'If on, enables cover retrieval from the configured Coce server', NULL, 'YesNo')
10005 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
10006 VALUES('CoceHost', NULL, 'Coce server URL', NULL,'Free')
10009 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
10010 VALUES('CoceProviders', NULL, 'Coce providers', 'aws,gb,ol', 'multiple')
10012 print "Upgrade to $DBversion done (Bug 9580: Cover image from Coce, a remote image URL cache)\n";
10013 SetVersion($DBversion);
10016 $DBversion = "3.19.00.020";
10017 if ( CheckVersion($DBversion) ) {
10019 ALTER TABLE aqorders DROP COLUMN supplierreference;
10022 print "Upgrade to $DBversion done (Bug 11008: DROP column aqorders.supplierreference)\n";
10023 SetVersion($DBversion);
10026 $DBversion = "3.19.00.021";
10027 if ( CheckVersion($DBversion) ) {
10029 ALTER TABLE issues DROP COLUMN issuingbranch
10032 ALTER TABLE old_issues DROP COLUMN issuingbranch
10034 print "Upgrade to $DBversion done (Bug 2806: Remove issuingbranch columns)\n";
10035 SetVersion ($DBversion);
10038 $DBversion = '3.19.00.022';
10039 if ( CheckVersion($DBversion) ) {
10041 ALTER TABLE suggestions DROP COLUMN mailoverseeing;
10043 print "Upgrade to $DBversion done (Bug 13006: Drop column suggestion.mailoverseeing)\n";
10044 SetVersion($DBversion);
10047 $DBversion = "3.19.00.023";
10048 if ( CheckVersion($DBversion) ) {
10050 DELETE FROM systempreferences where variable = 'AddPatronLists'
10052 print "Upgrade to $DBversion done (Bug 13497: Remove the AddPatronLists system preferences)\n";
10053 SetVersion ($DBversion);
10056 $DBversion = "3.19.00.024";
10057 if ( CheckVersion($DBversion) ) {
10058 $dbh->do(qq|DROP table patroncards;|);
10059 print "Upgrade to $DBversion done (Bug 13539: Remove table patroncards from database as it's no longer in use)\n";
10060 SetVersion ($DBversion);
10063 $DBversion = "3.19.00.025";
10064 if ( CheckVersion($DBversion) ) {
10066 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
10067 ('SearchWithISBNVariations','0',NULL,'If enabled, search on all variations of the ISBN','YesNo')
10069 print "Upgrade to $DBversion done (Bug 13528: Add the SearchWithISBNVariations syspref)\n";
10070 SetVersion ($DBversion);
10073 $DBversion = "3.19.00.026";
10074 if( CheckVersion($DBversion) ) {
10075 if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
10077 INSERT IGNORE INTO auth_tag_structure (authtypecode, tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value) VALUES
10078 ('', '388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL);
10082 INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10083 mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10084 ('', '388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10085 ('', '388', '2', 'Source of term', 'Source of term', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10086 ('', '388', '3', 'Materials specified', 'Materials specified', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10087 ('', '388', '6', 'Linkage', 'Linkage', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10088 ('', '388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10089 ('', '388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', '');
10093 UPDATE IGNORE auth_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND tagfield IN
10094 ('100','110','111','130','400','410','411','430','500','510','511','530','700','710','730');
10098 INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10099 mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10100 ('', '150', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10101 ('', '151', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10102 ('', '450', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10103 ('', '451', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10104 ('', '550', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10105 ('', '551', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10106 ('', '750', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10107 ('', '751', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10108 ('', '748', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10109 ('', '755', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10110 ('', '780', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10111 ('', '781', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10112 ('', '782', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10113 ('', '785', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10114 ('', '710', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10115 ('', '730', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10116 ('', '748', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10117 ('', '750', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10118 ('', '751', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10119 ('', '755', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10120 ('', '762', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10121 ('', '780', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10122 ('', '781', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10123 ('', '782', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10124 ('', '785', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10125 ('', '788', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', '');
10129 UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship information', libopac = 'Relationship information'
10130 WHERE tagsubfield = 'i' AND tagfield IN ('700','710','730','750','751','762');
10134 UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship code', libopac = 'Relationship code'
10135 WHERE tagsubfield = '4' AND tagfield IN ('700','710');
10139 INSERT IGNORE INTO marc_tag_structure (tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value, frameworkcode) VALUES
10140 ('370', 'ASSOCIATED PLACE', 'ASSOCIATED PLACE', 1, 0, NULL, ''),
10141 ('388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL, '');
10145 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
10146 kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
10147 ('370', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10148 ('370', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10149 ('370', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10150 ('370', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10151 ('370', 'c', 'Associated country', 'Associated country', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10152 ('370', 'f', 'Other associated place', 'Other associated place', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10153 ('370', 'g', 'Place of origin of work', 'Place of origin of work', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10154 ('370', 's', 'Start period', 'Start period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10155 ('370', 't', 'End period', 'End period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10156 ('370', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10157 ('370', 'v', 'Source of information', 'Source of information', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10158 ('377', 'l', 'Language term', 'Language term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10159 ('382', 's', 'Total number of performers', 'Total number of performers', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10160 ('388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10161 ('388', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10162 ('388', '3', ' Materials specified', ' Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10163 ('388', '6', ' Linkage', ' Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10164 ('388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10165 ('388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10166 ('650', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL),
10167 ('651', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL);
10171 UPDATE IGNORE marc_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND
10172 tagfield IN ('100','110','111','130','240','243','246','247','600','610','611','630','700','710','711','730','800','810','811','830');
10176 print "Upgrade to $DBversion done (Bug 13322: Update MARC21 frameworks to Update No. 19 - October 2014)\n";
10177 SetVersion($DBversion);
10180 $DBversion = '3.19.00.027';
10181 if ( CheckVersion($DBversion) ) {
10182 $dbh->do("ALTER TABLE items ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10183 $dbh->do("ALTER TABLE deleteditems ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10184 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";
10185 SetVersion($DBversion);
10188 $DBversion = "3.19.00.028";
10189 if( CheckVersion($DBversion) ) {
10191 local $dbh->{PrintError} = 0;
10193 ALTER TABLE issues DROP PRIMARY KEY
10198 ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10202 ALTER TABLE old_issues CHANGE issue_id issue_id INT( 11 ) NOT NULL
10206 ALTER TABLE issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10210 UPDATE issues SET issue_id = issue_id + ( SELECT COUNT(*) FROM old_issues ) ORDER BY issue_id DESC
10213 my $max_issue_id = $schema->resultset('Issue')->get_column('issue_id')->max();
10214 if ($max_issue_id) {
10217 ALTER TABLE issues AUTO_INCREMENT = $max_issue_id
10221 print "Upgrade to $DBversion done (Bug 13790: Add unique id issue_id to issues and oldissues tables)\n";
10222 SetVersion($DBversion);
10225 $DBversion = "3.19.00.029";
10226 if ( CheckVersion($DBversion) ) {
10228 ALTER TABLE sessions CHANGE COLUMN a_session a_session MEDIUMTEXT
10230 print "Upgrade to $DBversion done (Bug 13606: Upgrade sessions.a_session to MEDIUMTEXT)\n";
10231 SetVersion($DBversion);
10234 $DBversion = "3.19.00.030";
10235 if ( CheckVersion($DBversion) ) {
10237 UPDATE language_subtag_registry SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10240 UPDATE language_rfc4646_to_iso639 SET rfc4646_subtag = 'kn' WHERE rfc4646_subtag = 'ka' AND iso639_2_code = 'kan';
10243 UPDATE language_descriptions SET subtag = 'kn', lang = 'kn' WHERE subtag = 'ka' AND lang = 'ka' AND description = 'ಕನ್ನಡ';
10246 UPDATE language_descriptions SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10249 INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Georgian','2015-04-20');
10252 DELETE FROM language_subtag_registry
10255 (SELECT MIN(id) as id,subtag,type,description,added
10256 FROM language_subtag_registry
10257 GROUP BY subtag,type,description,added)
10261 INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka', 'geo');
10264 DELETE FROM language_rfc4646_to_iso639
10267 (SELECT MIN(id) as id,rfc4646_subtag,iso639_2_code
10268 FROM language_rfc4646_to_iso639
10269 GROUP BY rfc4646_subtag,iso639_2_code)
10273 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ქართული');
10276 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Georgian');
10279 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'fr', 'Géorgien');
10282 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'de', 'Georgisch');
10285 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'es', 'Georgiano');
10288 DELETE FROM language_descriptions
10291 (SELECT MIN(id) as id,subtag,type,lang,description
10292 FROM language_descriptions GROUP BY subtag,type,lang,description)
10295 print "Upgrade to $DBversion done (Bug 14030: Add Georgian language and fix Kannada language code)\n";
10296 SetVersion($DBversion);
10299 $DBversion = "3.19.00.031";
10300 if ( CheckVersion($DBversion) ) {
10302 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10303 VALUES('IdRef','0','Disable/enable the IdRef webservice from the OPAC detail page.',NULL,'YesNo')
10305 print "Upgrade to $DBversion done (Bug 8992: Add system preference IdRef))\n";
10306 SetVersion($DBversion);
10309 $DBversion = "3.19.00.032";
10310 if ( CheckVersion($DBversion) ) {
10312 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10313 VALUES('AddressFormat','us','Choose format to display postal addresses','','Choice')
10315 print "Upgrade to $DBversion done (Bug 4041: Address Format as a I18N/L10N system preference\n";
10316 SetVersion ($DBversion);
10319 $DBversion = "3.19.00.033";
10320 if ( CheckVersion($DBversion) ) {
10322 ALTER TABLE auth_header
10323 CHANGE COLUMN datemodified modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP
10326 ALTER TABLE auth_header
10327 CHANGE COLUMN modification_time modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP
10329 print "Upgrade to $DBversion done (Bug 11165: Update auth_header.datemodified when updated)\n";
10330 SetVersion ($DBversion);
10333 $DBversion = "3.19.00.034";
10334 if ( CheckVersion($DBversion) ) {
10336 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10337 VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free')
10339 print "Upgrade to $DBversion done (Bug 13984: CardnumberLength syspref missing on some setups\n";
10340 SetVersion ($DBversion);
10343 $DBversion = "3.19.00.035";
10344 if ( CheckVersion($DBversion) ) {
10346 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('useDischarge','','Allows librarians to discharge borrowers and borrowers to request a discharge','','YesNo')
10349 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.')
10353 ALTER TABLE borrower_debarments CHANGE type type ENUM('SUSPENSION','OVERDUES','MANUAL','DISCHARGE') NOT NULL DEFAULT 'MANUAL'
10357 CREATE TABLE discharges (
10358 borrower int(11) DEFAULT NULL,
10359 needed timestamp NULL DEFAULT NULL,
10360 validated timestamp NULL DEFAULT NULL,
10361 KEY borrower_discharges_ibfk1 (borrower),
10362 CONSTRAINT borrower_discharges_ibfk1 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
10363 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
10366 print "Upgrade to $DBversion done (Bug 8007: Add System Preferences useDischarge, the discharge notice and the new table discharges)\n";
10367 SetVersion($DBversion);
10370 $DBversion = "3.19.00.036";
10371 if ( CheckVersion($DBversion) ) {
10373 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10374 VALUES ('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo')
10376 print "Upgrade to $DBversion done (Bug 13889: Add cron jobs information to system log)\n";
10377 SetVersion ($DBversion);
10380 $DBversion = "3.19.00.037";
10381 if ( CheckVersion($DBversion) ) {
10383 ALTER TABLE marc_subfield_structure
10384 MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT ''
10386 print "Upgrade to $DBversion done (Bug 13810: Change collate for tagsubfield (utf8_bin))\n";
10387 SetVersion ($DBversion);
10390 $DBversion = "3.19.00.038";
10391 if ( CheckVersion($DBversion) ) {
10393 ALTER TABLE virtualshelves
10394 ADD COLUMN created_on DATETIME NOT NULL AFTER lastmodified
10396 # Set created_on = lastmodified
10397 # I would say it's better than 0000-00-00
10398 # Set modified to the existing value (do not get the current ts!)
10400 UPDATE virtualshelves
10401 SET created_on = lastmodified, lastmodified = lastmodified
10403 print "Upgrade to $DBversion done (Bug 13421: Add DB field virtualshelves.created_on)\n";
10404 SetVersion ($DBversion);
10407 $DBversion = "3.19.00.039";
10408 if ( CheckVersion($DBversion) ) {
10409 print "Upgrade to $DBversion done (Koha 3.20 beta)\n";
10410 SetVersion ($DBversion);
10413 $DBversion = "3.19.00.040";
10414 if ( CheckVersion($DBversion) ) {
10416 ALTER TABLE aqorders DROP COLUMN totalamount
10418 print "Upgrade to $DBversion done (Bug 11006: Drop column aqorders.totalamount)\n";
10419 SetVersion ($DBversion);
10422 $DBversion = "3.19.00.041";
10423 if ( CheckVersion($DBversion) ) {
10424 unless ( index_exists( 'suggestions', 'status' ) ) {
10426 ALTER TABLE suggestions ADD KEY status (STATUS)
10429 unless ( index_exists( 'suggestions', 'biblionumber' ) ) {
10431 ALTER TABLE suggestions ADD KEY biblionumber (biblionumber)
10434 unless ( index_exists( 'suggestions', 'branchcode' ) ) {
10436 ALTER TABLE suggestions ADD KEY branchcode (branchcode)
10439 print "Upgrade to $DBversion done (Bug 14132: suggestions table is missing indexes)\n";
10440 SetVersion ($DBversion);
10443 $DBversion = "3.19.00.042";
10444 if ( CheckVersion($DBversion) ) {
10447 FROM auth_subfield_structure AS ass
10448 LEFT JOIN auth_types USING(authtypecode)
10449 WHERE auth_types.authtypecode IS NULL
10452 unless ( foreign_key_exists( 'auth_subfield_structure', 'auth_subfield_structure_ibfk_1' ) ) {
10454 ALTER TABLE auth_subfield_structure
10455 ADD CONSTRAINT auth_subfield_structure_ibfk_1
10456 FOREIGN KEY (authtypecode) REFERENCES auth_types(authtypecode)
10457 ON DELETE CASCADE ON UPDATE CASCADE
10461 print "Upgrade to $DBversion done (Bug 8480: Add foreign key on auth_subfield_structure.authtypecode)\n";
10462 SetVersion($DBversion);
10465 $DBversion = "3.19.00.043";
10466 if ( CheckVersion($DBversion) ) {
10468 INSERT IGNORE INTO authorised_values (category, authorised_value, lib) VALUES
10469 ('REPORT_GROUP', 'SER', 'Serials')
10472 print "Upgrade to $DBversion done (Bug 5338: Add Serial to the report groups if does not exist)\n";
10473 SetVersion ($DBversion);
10476 $DBversion = "3.20.00.000";
10477 if ( CheckVersion($DBversion) ) {
10478 print "Upgrade to $DBversion done (Koha 3.20)\n";
10479 SetVersion ($DBversion);
10482 $DBversion = "3.21.00.000";
10483 if ( CheckVersion($DBversion) ) {
10484 print "Upgrade to $DBversion done (El tiempo vuela, un nuevo ciclo comienza.)\n";
10485 SetVersion ($DBversion);
10488 $DBversion = "3.21.00.001";
10489 if ( CheckVersion($DBversion) ) {
10491 UPDATE systempreferences SET variable='IntranetUserJS' where variable='intranetuserjs'
10493 print "Upgrade to $DBversion done (Bug 12160: Rename intranetuserjs to IntranetUserJS)\n";
10494 SetVersion ($DBversion);
10497 $DBversion = "3.21.00.002";
10498 if ( CheckVersion($DBversion) ) {
10500 UPDATE systempreferences SET variable='OPACUserJS' where variable='opacuserjs'
10502 print "Upgrade to $DBversion done (Bug 12160: Rename opacuserjs to OPACUserJS)\n";
10503 SetVersion ($DBversion);
10506 $DBversion = "3.21.00.003";
10507 if ( CheckVersion($DBversion) ) {
10509 INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added)
10510 VALUES ( 'IN', 'region', 'India','2015-05-28');
10513 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
10514 VALUES ( 'IN', 'region', 'en', 'India');
10517 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
10518 VALUES ( 'IN', 'region', 'bn', 'ভারত');
10520 print "Upgrade to $DBversion done (Bug 14285: Add new region India)\n";
10521 SetVersion ($DBversion);
10524 $DBversion = '3.21.00.004';
10525 if ( CheckVersion($DBversion) ) {
10526 my $OPACBaseURL = C4::Context->preference('OPACBaseURL');
10527 if (defined($OPACBaseURL) && substr($OPACBaseURL,0,4) ne "http") {
10528 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.};
10529 $OPACBaseURL = 'http://' . $OPACBaseURL;
10530 my $sth_OPACBaseURL = $dbh->prepare( q{
10531 UPDATE systempreferences SET value=?,explanation=?
10532 WHERE variable='OPACBaseURL'; } );
10533 $sth_OPACBaseURL->execute($OPACBaseURL,$explanation);
10535 if (defined($OPACBaseURL)) {
10536 $dbh->do( q{ UPDATE letter
10537 SET content=replace(content,
10538 'http://<<OPACBaseURL>>',
10540 WHERE content LIKE "%http://<<OPACBaseURL>>%"; } );
10543 print "Upgrade to $DBversion done (Bug 5010: Fix OPACBaseURL to include protocol)\n";
10544 SetVersion($DBversion);
10547 $DBversion = "3.21.00.005";
10548 if ( CheckVersion($DBversion) ) {
10550 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10551 VALUES ('ReportsLog','0',NULL,'If ON, log information about reports.','YesNo')
10553 print "Upgrade to $DBversion done (Bug 14024: Add reports to action logs)\n";
10554 SetVersion ($DBversion);
10557 $DBversion = "3.21.00.006";
10558 if ( CheckVersion($DBversion) ) {
10559 # Remove the borrow permission flag (bit 7)
10562 SET flags = flags - ( flags & (1<<7) )
10563 WHERE flags IS NOT NULL
10567 DELETE FROM userflags WHERE bit=7;
10569 print "Upgrade to $DBversion done (Bug 7976: Remove the 'borrow' permission)\n";
10570 SetVersion($DBversion);
10573 $DBversion = "3.21.00.007";
10574 if ( CheckVersion($DBversion) ) {
10575 unless ( index_exists( 'aqbasket', 'authorisedby' ) ) {
10577 ALTER TABLE aqbasket
10578 ADD KEY authorisedby (authorisedby)
10581 unless ( index_exists( 'aqbooksellers', 'name' ) ) {
10583 ALTER TABLE aqbooksellers
10584 ADD KEY name (name(255))
10587 unless ( index_exists( 'aqbudgets', 'budget_parent_id' ) ) {
10589 ALTER TABLE aqbudgets
10590 ADD KEY budget_parent_id (budget_parent_id)|);
10592 unless ( index_exists( 'aqbudgets', 'budget_code' ) ) {
10594 ALTER TABLE aqbudgets
10595 ADD KEY budget_code (budget_code)|);
10597 unless ( index_exists( 'aqbudgets', 'budget_branchcode' ) ) {
10599 ALTER TABLE aqbudgets
10600 ADD KEY budget_branchcode (budget_branchcode)|);
10602 unless ( index_exists( 'aqbudgets', 'budget_period_id' ) ) {
10604 ALTER TABLE aqbudgets
10605 ADD KEY budget_period_id (budget_period_id)|);
10607 unless ( index_exists( 'aqbudgets', 'budget_owner_id' ) ) {
10609 ALTER TABLE aqbudgets
10610 ADD KEY budget_owner_id (budget_owner_id)|);
10612 unless ( index_exists( 'aqbudgets_planning', 'budget_period_id' ) ) {
10614 ALTER TABLE aqbudgets_planning
10615 ADD KEY budget_period_id (budget_period_id)|);
10617 unless ( index_exists( 'aqorders', 'parent_ordernumber' ) ) {
10619 ALTER TABLE aqorders
10620 ADD KEY parent_ordernumber (parent_ordernumber)|);
10622 unless ( index_exists( 'aqorders', 'orderstatus' ) ) {
10624 ALTER TABLE aqorders
10625 ADD KEY orderstatus (orderstatus)|);
10627 print "Upgrade to $DBversion done (Bug 14053: Acquisition db tables are missing indexes)\n";
10628 SetVersion ($DBversion);
10631 $DBversion = "3.21.00.008";
10632 if ( CheckVersion($DBversion) ) {
10634 DELETE IGNORE FROM systempreferences
10635 WHERE variable = 'HomeOrHoldingBranchReturn';
10637 print "Upgrade to $DBversion done (Bug 7981: Transfer message on return. HomeOrHoldingBranchReturn syspref removed in favour of circulation rules.)\n";
10638 SetVersion($DBversion);
10641 $DBversion = "3.21.00.009";
10642 if ( CheckVersion($DBversion) ) {
10644 UPDATE aqorders SET orderstatus='cancelled'
10645 WHERE (datecancellationprinted IS NOT NULL OR
10646 datecancellationprinted<>'0000-00-00');
10648 print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n";
10649 SetVersion($DBversion);
10652 $DBversion = "3.21.00.010";
10653 if ( CheckVersion($DBversion) ) {
10655 ALTER TABLE message_queue
10659 ALTER TABLE message_queue
10660 ADD message_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10662 print "Upgrade to $DBversion done (Bug 7793: redefine the field message_id as PRIMARY KEY of message_queue)\n";
10663 SetVersion ($DBversion);
10666 $DBversion = "3.21.00.011";
10667 if ( CheckVersion($DBversion) ) {
10669 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10670 VALUES ('OpacLangSelectorMode','footer','top|both|footer','Select the location to display the language selector','Choice')
10672 print "Upgrade to $DBversion done (Bug 14252: Make the OPAC language switcher available in the masthead navbar, footer, or both)\n";
10673 SetVersion ($DBversion);
10676 $DBversion = "3.21.00.012";
10677 if ( CheckVersion($DBversion) ) {
10679 INSERT INTO letter (module, code, name, title, content, message_transport_type)
10681 ('suggestions','TO_PROCESS','Notify fund 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')
10683 print "Upgrade to $DBversion done (Bug 13014: Add the TO_PROCESS letter code)\n";
10684 SetVersion($DBversion);
10687 $DBversion = "3.21.00.013";
10688 if ( CheckVersion($DBversion) ) {
10690 if ( C4::Context->preference('OPACPrivacy') ) {
10691 if ( my $anonymous_patron = C4::Context->preference('AnonymousPatron') ) {
10692 my $anonymous_patron_exists = $dbh->selectcol_arrayref(q|
10695 WHERE borrowernumber=?
10696 |, {}, $anonymous_patron);
10697 unless ( $anonymous_patron_exists->[0] ) {
10698 $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not linked to an existing patron";
10702 $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not";
10706 my $patrons_have_required_anonymity = $dbh->selectcol_arrayref(q|
10711 if ( $patrons_have_required_anonymity->[0] ) {
10712 $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.";
10716 $msg //= "Privacy is correctly set";
10717 print "Upgrade to $DBversion done (Bug 9942: $msg)\n";
10718 SetVersion ($DBversion);
10721 $DBversion = "3.21.00.014";
10722 if ( CheckVersion($DBversion) ) {
10724 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10725 VALUES ('OAI-PMH:DeletedRecord','persistent','Koha\'s deletedbiblio table will never be deleted (persistent) or might be deleted (transient)','transient|persistent','Choice')
10728 if ( foreign_key_exists( 'oai_sets_biblios', 'oai_sets_biblios_ibfk_1' ) ) {
10730 ALTER TABLE oai_sets_biblios DROP FOREIGN KEY oai_sets_biblios_ibfk_1
10733 print "Upgrade to $DBversion done (Bug 3206: OAI repository deleted record support)\n";
10734 SetVersion ($DBversion);
10737 $DBversion = "3.21.00.015";
10738 if ( CheckVersion($DBversion) ) {
10740 UPDATE systempreferences SET value='0' WHERE variable='CalendarFirstDayOfWeek' AND value='Sunday';
10743 UPDATE systempreferences SET value='1' WHERE variable='CalendarFirstDayOfWeek' AND value='Monday';
10746 UPDATE systempreferences SET options='0|1|2|3|4|5|6' WHERE variable='CalendarFirstDayOfWeek';
10749 print "Upgrade to $DBversion done (Bug 12137: Extend functionality of CalendarFirstDayOfWeek to be any day)\n";
10750 SetVersion($DBversion);
10753 $DBversion = "3.21.00.016";
10754 if ( CheckVersion($DBversion) ) {
10755 my $rs = $schema->resultset('Systempreference');
10756 $rs->find_or_create(
10758 variable => 'DumpTemplateVarsIntranet',
10760 explanation => 'If enabled, dump all Template Toolkit variable to a comment in the html source for the staff intranet.',
10764 $rs->find_or_create(
10766 variable => 'DumpTemplateVarsOpac',
10768 explanation => 'If enabled, dump all Template Toolkit variable to a comment in the html source for the opac.',
10772 print "Upgrade to $DBversion done (Bug 13948: Add ability to dump template toolkit variables to html comment)\n";
10773 SetVersion($DBversion);
10776 $DBversion = "3.21.00.017";
10777 if ( CheckVersion($DBversion) ) {
10779 CREATE TABLE uploaded_files (
10780 id int(11) NOT NULL AUTO_INCREMENT,
10781 hashvalue CHAR(40) NOT NULL,
10782 filename TEXT NOT NULL,
10785 dtcreated timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
10786 categorycode tinytext,
10789 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10792 print "Upgrade to $DBversion done (Bug 6874: New cataloging plugin upload.pl)\n";
10793 print "This plugin comes with a new config variable (upload_path) and a new table (uploaded_files)\n";
10794 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";
10795 SetVersion($DBversion);
10798 $DBversion = "3.21.00.018";
10799 if ( CheckVersion($DBversion) ) {
10801 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10803 ('RestrictedPageLocalIPs','',NULL,'Beginning of IP addresses considered as local (comma separated ex: \"127.0.0,127.0.2\")','Free'),
10804 ('RestrictedPageContent','',NULL,'HTML content of the restricted page','TextArea'),
10805 ('RestrictedPageTitle','',NULL,'Title of the restricted page (breadcrumb and header)','Free')
10807 print "Upgrade to $DBversion done (Bug 13485: Add a page to display links to restricted sites)\n";
10808 SetVersion ($DBversion);
10811 $DBversion = "3.21.00.019";
10812 if ( CheckVersion($DBversion) ) {
10813 if ( column_exists( 'reserves', 'constrainttype' ) ) {
10815 ALTER TABLE reserves DROP constrainttype
10818 ALTER TABLE old_reserves DROP constrainttype
10822 DROP TABLE IF EXISTS reserveconstraints
10824 print "Upgrade to $DBversion done (Bug 9809: Get rid of reserveconstraints)\n";
10825 SetVersion ($DBversion);
10828 $DBversion = "3.21.00.020";
10829 if ( CheckVersion($DBversion) ) {
10831 INSERT IGNORE INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`)
10832 VALUES ('FeeOnChangePatronCategory','1','','If set, when a patron changes to a category with enrolment fee, a fee is charged','YesNo')
10834 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";
10835 SetVersion($DBversion);
10838 $DBversion = "3.21.00.021";
10839 if ( CheckVersion($DBversion) ) {
10841 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10842 VALUES ('UseWYSIWYGinSystemPreferences','0','','Show WYSIWYG editor when editing certain HTML system preferences.','YesNo')
10844 print "Upgrade to $DBversion done (Bug 11584: Add wysiwyg editor to system preferences dealing with HTML)\n";
10845 SetVersion($DBversion);
10848 $DBversion = "3.21.00.022";
10849 if ( CheckVersion($DBversion) ) {
10852 FROM course_reserves AS cr
10853 LEFT JOIN course_items USING(ci_id)
10854 WHERE course_items.ci_id IS NULL
10857 my ($print_error) = $dbh->{PrintError};
10858 $dbh->{RaiseError} = 0;
10859 $dbh->{PrintError} = 0;
10860 if ( foreign_key_exists('course_reserves', 'course_reserves_ibfk_2') ) {
10861 $dbh->do(q{ALTER TABLE course_reserves DROP FOREIGN KEY course_reserves_ibfk_2});
10862 $dbh->do(q{ALTER TABLE course_reserves DROP INDEX course_reserves_ibfk_2});
10864 $dbh->{PrintError} = $print_error;
10867 ALTER TABLE course_reserves
10868 ADD CONSTRAINT course_reserves_ibfk_2
10869 FOREIGN KEY (ci_id) REFERENCES course_items (ci_id)
10870 ON DELETE CASCADE ON UPDATE CASCADE
10872 print "Upgrade to $DBversion done (Bug 14205: Deleting an Item/Record does not remove link to course reserve)\n";
10873 SetVersion($DBversion);
10876 $DBversion = "3.21.00.023";
10877 if ( CheckVersion($DBversion) ) {
10879 UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00'
10882 UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00'
10885 UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00'
10888 UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00'
10890 print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n";
10891 SetVersion($DBversion);
10894 $DBversion = "3.21.00.024";
10895 if ( CheckVersion($DBversion) ) {
10897 ALTER TABLE marc_modification_template_actions
10898 MODIFY COLUMN action
10899 ENUM('delete_field','update_field','move_field','copy_field','copy_and_replace_field')
10902 print "Upgrade to $DBversion done (Bug 14098: Regression in Marc Modification Templates)\n";
10903 SetVersion($DBversion);
10906 $DBversion = "3.21.00.025";
10907 if ( CheckVersion($DBversion) ) {
10909 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10910 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')
10913 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10914 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')
10916 print "Upgrade to $DBversion done (Bug 12357: Enhancements to RIS and BibTeX exporting)\n";
10917 SetVersion($DBversion);
10920 $DBversion = "3.21.00.026";
10921 if ( CheckVersion($DBversion) ) {
10924 SET search_index='issn'
10925 WHERE matcher_id IN (SELECT matcher_id FROM marc_matchers WHERE code = 'ISSN')
10927 print "Upgrade to $DBversion done (Bug 14472: Wrong ISSN search index in record matching rules)\n";
10928 SetVersion($DBversion);
10931 $DBversion = "3.21.00.027";
10932 if ( CheckVersion($DBversion) ) {
10934 INSERT IGNORE INTO permissions (module_bit, code, description)
10935 VALUES (1, 'self_checkout', 'Perform self checkout at the OPAC. It should be used for the patron matching the AutoSelfCheckID')
10938 my $AutoSelfCheckID = C4::Context->preference('AutoSelfCheckID');
10944 |, undef, $AutoSelfCheckID);
10947 DELETE FROM user_permissions
10948 WHERE borrowernumber=(SELECT borrowernumber FROM borrowers WHERE userid=?)
10949 |, undef, $AutoSelfCheckID);
10952 INSERT INTO user_permissions(borrowernumber, module_bit, code)
10953 SELECT borrowernumber, 1, 'self_checkout' FROM borrowers WHERE userid=?
10954 |, undef, $AutoSelfCheckID);
10955 print "Upgrade to $DBversion done (Bug 14298: AutoSelfCheckID user should only be able to access SCO)\n";
10956 SetVersion($DBversion);
10959 $DBversion = "3.21.00.028";
10960 if ( CheckVersion($DBversion) ) {
10961 unless ( column_exists('uploaded_files', 'public') ) {
10963 ALTER TABLE uploaded_files
10964 ADD COLUMN public tinyint,
10965 ADD COLUMN permanent tinyint
10968 UPDATE uploaded_files SET public=1, permanent=1
10971 ALTER TABLE uploaded_files
10972 CHANGE COLUMN categorycode uploadcategorycode tinytext
10975 print "Upgrade to $DBversion done (Bug 14321: Merge UploadedFile and UploadedFiles into Koha::Upload)\n";
10976 SetVersion($DBversion);
10979 $DBversion = "3.21.00.029";
10980 if ( CheckVersion($DBversion) ) {
10981 unless ( column_exists('discharges', 'discharge_id') ) {
10983 ALTER TABLE discharges
10984 ADD COLUMN discharge_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10987 print "Upgrade to $DBversion done (Bug 14368: Add discharges history)\n";
10988 SetVersion($DBversion);
10991 $DBversion = "3.21.00.030";
10992 if ( CheckVersion($DBversion) ) {
10994 UPDATE marc_subfield_structure
10995 SET value_builder='marc21_leader.pl'
10996 WHERE value_builder='marc21_leader_book.pl'
10999 UPDATE marc_subfield_structure
11000 SET value_builder='marc21_leader.pl'
11001 WHERE value_builder='marc21_leader_computerfile.pl'
11004 UPDATE marc_subfield_structure
11005 SET value_builder='marc21_leader.pl'
11006 WHERE value_builder='marc21_leader_video.pl'
11008 print "Upgrade to $DBversion done (Bug 14201: Remove unused code or template from some MARC21 leader plugins )\n";
11009 SetVersion($DBversion);
11012 $DBversion = "3.21.00.031";
11013 if ( CheckVersion($DBversion) ) {
11015 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
11017 ('SMSSendPassword', '', '', 'Password used to send SMS messages', 'free'),
11018 ('SMSSendUsername', '', '', 'Username/Login used to send SMS messages', 'free')
11020 print "Upgrade to $DBversion done (Bug 14820: SMSSendUsername and SMSSendPassword are not listed in the system preferences)\n";
11021 SetVersion($DBversion);
11024 $DBversion = "3.21.00.032";
11025 if ( CheckVersion($DBversion) ) {
11027 CREATE TABLE additional_fields (
11028 id int(11) NOT NULL AUTO_INCREMENT,
11029 tablename varchar(255) NOT NULL DEFAULT '',
11030 name varchar(255) NOT NULL DEFAULT '',
11031 authorised_value_category varchar(16) NOT NULL DEFAULT '',
11032 marcfield varchar(16) NOT NULL DEFAULT '',
11033 searchable tinyint(1) NOT NULL DEFAULT '0',
11035 UNIQUE KEY fields_uniq (tablename,name)
11036 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
11039 CREATE TABLE additional_field_values (
11040 id int(11) NOT NULL AUTO_INCREMENT,
11041 field_id int(11) NOT NULL,
11042 record_id int(11) NOT NULL,
11043 value varchar(255) NOT NULL DEFAULT '',
11045 UNIQUE KEY field_record (field_id,record_id),
11046 CONSTRAINT afv_fk FOREIGN KEY (field_id) REFERENCES additional_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
11047 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
11049 print "Upgrade to $DBversion done (Bug 10855: Additional fields for subscriptions)\n";
11050 SetVersion($DBversion);
11053 $DBversion = "3.21.00.033";
11054 if ( CheckVersion($DBversion) ) {
11057 my $count_ethnicity = $dbh->selectrow_arrayref(q|
11058 SELECT COUNT(*) FROM ethnicity
11060 my $count_borrower_modifications = $dbh->selectrow_arrayref(q|
11062 FROM borrower_modifications
11063 WHERE ethnicity IS NOT NULL
11064 OR ethnotes IS NOT NULL
11066 my $count_borrowers = $dbh->selectrow_arrayref(q|
11069 WHERE ethnicity IS NOT NULL
11070 OR ethnotes IS NOT NULL
11072 # We don't care about the ethnicity of the deleted borrowers, right?
11073 if ( $count_ethnicity->[0] == 0
11074 and $count_borrower_modifications->[0] == 0
11075 and $count_borrowers->[0] == 0
11078 DROP TABLE ethnicity
11081 ALTER TABLE borrower_modifications
11082 DROP COLUMN ethnicity,
11083 DROP COLUMN ethnotes
11086 ALTER TABLE borrowers
11087 DROP COLUMN ethnicity,
11088 DROP COLUMN ethnotes
11091 ALTER TABLE deletedborrowers
11092 DROP COLUMN ethnicity,
11093 DROP COLUMN ethnotes
11098 print "Upgrade to $DBversion done (Bug 10020: Drop table ethnicity and columns ethnicity and ethnotes)\n";
11101 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";
11104 SetVersion ($DBversion);
11107 $DBversion = "3.21.00.034";
11108 if ( CheckVersion($DBversion) ) {
11110 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11111 VALUES('MembershipExpiryDaysNotice',NULL,'Send an account expiration notice that a patron''s card is about to expire after',NULL,'Integer')
11114 INSERT IGNORE INTO letter (module, code, branchcode, name, title, content, message_transport_type)
11115 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')
11117 print "Upgrade to $DBversion done (Bug 6810: Send membership expiry reminder notices)\n";
11118 SetVersion($DBversion);
11121 $DBversion = "3.21.00.035";
11122 if ( CheckVersion($DBversion) ) {
11124 ALTER TABLE branch_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11127 UPDATE branch_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11130 ALTER TABLE default_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11133 UPDATE default_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11136 ALTER TABLE default_branch_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11139 UPDATE default_branch_circ_rules SET maxonsiteissueqty = maxissueqty;
11142 ALTER TABLE default_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11145 UPDATE default_circ_rules SET maxonsiteissueqty = maxissueqty;
11148 ALTER TABLE issuingrules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11151 UPDATE issuingrules SET maxonsiteissueqty = maxissueqty;
11154 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11155 VALUES ('ConsiderOnSiteCheckoutsAsNormalCheckouts','1',NULL,'Consider on-site checkouts as normal checkouts','YesNo');
11158 print "Upgrade to $DBversion done (Bug 14045: Add DB fields maxonsiteissueqty and pref ConsiderOnSiteCheckoutsAsNormalCheckouts)\n";
11159 SetVersion ($DBversion);
11162 $DBversion = "3.21.00.036";
11163 if ( CheckVersion($DBversion) ) {
11165 ALTER TABLE authorised_values_branches
11166 DROP FOREIGN KEY authorised_values_branches_ibfk_1,
11167 DROP FOREIGN KEY authorised_values_branches_ibfk_2
11170 ALTER TABLE authorised_values_branches
11171 MODIFY av_id INT( 11 ) NOT NULL,
11172 MODIFY branchcode VARCHAR( 10 ) NOT NULL,
11173 ADD FOREIGN KEY (`av_id`) REFERENCES `authorised_values` (`id`) ON DELETE CASCADE,
11174 ADD FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE
11176 print "Upgrade to $DBversion done (Bug 10363: There is no package for authorised values)\n";
11177 SetVersion($DBversion);
11180 $DBversion = "3.21.00.037";
11181 if ( CheckVersion($DBversion) ) {
11183 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11184 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')
11187 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11188 VALUES ('RestrictionBlockRenewing','0','If patron is restricted, should renewal be allowed or blocked',NULL,'YesNo')
11190 print "Upgrade to $DBversion done (Bug 8236: Prevent renewing if overdue or restriction)\n";
11191 SetVersion($DBversion);
11194 $DBversion = "3.21.00.038";
11195 if ( CheckVersion($DBversion) ) {
11197 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11198 VALUES ('BatchCheckouts','0','','Enable or disable batch checkouts','YesNo')
11201 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11202 VALUES ('BatchCheckoutsValidCategories','',NULL,'Patron categories allowed to checkout in a batch','Free')
11204 print "Upgrade to $DBversion done (Bug 11759: Add the batch checkout feature)\n";
11205 SetVersion($DBversion);
11208 $DBversion = "3.21.00.039";
11209 if ( CheckVersion($DBversion) ) {
11211 ALTER TABLE creator_layouts ADD COLUMN oblique_title INT(1) NULL DEFAULT 1 AFTER guidebox
11213 print "Upgrade to $DBversion done (Bug 12194: Add column oblique_title to layouts)\n";
11214 SetVersion($DBversion);
11217 $DBversion = "3.21.00.040";
11218 if ( CheckVersion($DBversion) ) {
11220 ALTER TABLE itemtypes
11221 ADD hideinopac TINYINT(1) NOT NULL DEFAULT 0
11222 AFTER sip_media_type,
11223 ADD searchcategory VARCHAR(80) DEFAULT NULL
11226 print "Upgrade to $DBversion done (Bug 10937: Option to hide and group itemtypes from advanced search)\n";
11227 SetVersion($DBversion);
11230 $DBversion = "3.21.00.041";
11231 if ( CheckVersion($DBversion) ) {
11233 ALTER TABLE issuingrules
11234 ADD chargeperiod_charge_at BOOLEAN NOT NULL DEFAULT '0' AFTER chargeperiod
11236 print "Upgrade to $DBversion done (Bug 13590: Add ability to charge fines at start of charge period)\n";
11237 SetVersion($DBversion);
11240 $DBversion = "3.21.00.042";
11241 if ( CheckVersion($DBversion) ) {
11243 ALTER TABLE items_search_fields
11244 MODIFY COLUMN authorised_values_category VARCHAR(32) DEFAULT NULL
11246 print "Upgrade to $DBversion done (Bug 15069: items_search_fields.authorised_values_category is still a varchar(32))\n";
11247 SetVersion($DBversion);
11250 $DBversion = "3.21.00.043";
11251 if ( CheckVersion($DBversion) ) {
11253 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11254 VALUES ('EnableAdvancedCatalogingEditor','0','','Enable the Rancor advanced cataloging editor','YesNo')
11256 print "Upgrade to $DBversion done (Bug 11559: Professional cataloger's interface)\n";
11257 SetVersion($DBversion);
11260 $DBversion = "3.21.00.044";
11261 if ( CheckVersion($DBversion) ) {
11263 CREATE TABLE localization (
11264 localization_id int(11) NOT NULL AUTO_INCREMENT,
11265 entity varchar(16) COLLATE utf8_unicode_ci NOT NULL,
11266 code varchar(64) COLLATE utf8_unicode_ci NOT NULL,
11267 lang varchar(25) COLLATE utf8_unicode_ci NOT NULL,
11268 translation text COLLATE utf8_unicode_ci,
11269 PRIMARY KEY (localization_id),
11270 UNIQUE KEY entity_code_lang (entity,code,lang)
11271 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
11273 print "Upgrade to $DBversion done (Bug 14100: Generic solution for language overlay)\n";
11274 SetVersion($DBversion);
11277 $DBversion = "3.21.00.045";
11278 if ( CheckVersion($DBversion) ) {
11280 ALTER TABLE opac_news
11281 ADD borrowernumber int(11) default NULL
11285 ALTER TABLE opac_news
11286 ADD CONSTRAINT borrowernumber_fk
11287 FOREIGN KEY (borrowernumber)
11288 REFERENCES borrowers (borrowernumber)
11289 ON DELETE SET NULL ON UPDATE CASCADE
11291 print "Upgrade to $DBversion done (Bug 14246: (newsauthor) Add borrowernumber to koha_news)\n";
11292 SetVersion($DBversion);
11295 $DBversion = "3.21.00.046";
11296 if ( CheckVersion($DBversion) ) {
11298 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11299 VALUES ('NewsAuthorDisplay','none','none|opac|staff|both','Display the author name for news items.','Choice')
11301 print "Upgrade to $DBversion done (Bug 14247: (newsauthor) System preference for news author display)\n";
11302 SetVersion($DBversion);
11305 $DBversion = "3.21.00.047";
11306 if(CheckVersion($DBversion)) {
11308 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11309 VALUES ('IndependentBranchesPatronModifications','0','Show only modification request for the logged in branch','','YesNo')
11311 print "Upgrade to $DBversion done (Bug 10904: Limit patron update request management by branch)\n";
11312 SetVersion($DBversion);
11315 $DBversion = '3.21.00.048';
11316 if ( CheckVersion($DBversion) ) {
11317 my $create_table_issues = @{ $dbh->selectall_arrayref(q|SHOW CREATE TABLE issues|) }[0]->[1];
11318 if ($create_table_issues !~ m|UNIQUE KEY.*itemnumber| ) {
11319 $dbh->do(q|ALTER TABLE issues ADD CONSTRAINT UNIQUE KEY (itemnumber)|);
11321 print "Upgrade to $DBversion done (Bug 14978: Make sure issues.itemnumber is a unique key)\n";
11322 SetVersion($DBversion);
11325 $DBversion = "3.21.00.049";
11326 if ( CheckVersion($DBversion) ) {
11327 $dbh->do(q{UPDATE systempreferences SET variable = 'AudioAlerts' WHERE variable = 'soundon'});
11330 CREATE TABLE audio_alerts (
11331 id int(11) NOT NULL AUTO_INCREMENT,
11332 precedence smallint(5) unsigned NOT NULL,
11333 selector varchar(255) NOT NULL,
11334 sound varchar(255) NOT NULL,
11336 KEY precedence (precedence)
11337 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
11341 INSERT IGNORE INTO audio_alerts VALUES
11342 (1, 1, '.audio-alert-action', 'opening.ogg'),
11343 (2, 2, '.audio-alert-warning', 'critical.ogg'),
11344 (3, 3, '.audio-alert-success', 'beep.ogg');
11347 print "Upgrade to $DBversion done (Bug 11431: Add additional sound options for warnings)\n";
11348 SetVersion($DBversion);
11351 $DBversion = "3.21.00.050";
11352 if(CheckVersion($DBversion)) {
11354 INSERT INTO letter ( module, code, branchcode, name, is_html, title, content, message_transport_type )
11355 VALUES ( 'circulation', 'OVERDUES_SLIP', '', 'Overdues Slip', '0', 'OVERDUES_SLIP', 'The following item(s) is/are currently overdue:
11357 <item>"<<biblio.title>>" by <<biblio.author>>, <<items.itemcallnumber>>, Barcode: <<items.barcode>> Fine: <<items.fine>></item>
11360 print "Upgrade to $DBversion done (Bug 12933: Add ability to print overdue slip from staff intranet)\n";
11361 SetVersion($DBversion);
11364 $DBversion = "3.21.00.051";
11365 if ( CheckVersion($DBversion) ) {
11367 ALTER TABLE virtualshelves
11368 CHANGE COLUMN sortfield sortfield VARCHAR(16) DEFAULT 'title'
11371 UPDATE virtualshelves
11372 SET sortfield='title'
11373 WHERE sortfield IS NULL;
11375 print "Upgrade to $DBversion done (Bug 14544: Move the list related code to Koha::Virtualshelves)\n";
11376 SetVersion($DBversion);
11379 $DBversion = "3.21.00.052";
11380 if ( CheckVersion($DBversion) ) {
11383 ADD COLUMN publisheddatetext VARCHAR(100) DEFAULT NULL AFTER publisheddate
11385 print "Upgrade to $DBversion done (Bug 8296: Add descriptive (text) published date field for serials)\n";
11386 SetVersion($DBversion);
11389 $DBversion = "3.21.00.053";
11390 if ( CheckVersion($DBversion) ) {
11391 my $query = q{ SELECT * FROM itemtypes ORDER BY description };
11392 my $sth = C4::Context->dbh->prepare($query);
11394 my $suggestion_formats = $sth->fetchall_arrayref( {} );
11396 foreach my $format (@$suggestion_formats) {
11399 INSERT IGNORE INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl)
11400 VALUES (?, ?, ?, ?, ?)
11402 'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description},
11403 $format->{imageurl}
11406 print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n";
11407 SetVersion($DBversion);
11410 $DBversion = "3.21.00.054";
11411 if(CheckVersion($DBversion)) {
11413 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11414 VALUES('MergeReportFields','','Displayed fields for deleted MARC records after merge',NULL,'Free')
11416 print "Upgrade to $DBversion done (Bug 8064: Merge several biblio records)\n";
11417 SetVersion($DBversion);
11420 $DBversion = "3.21.00.055";
11421 if ( CheckVersion($DBversion) ) {
11422 print "Upgrade to $DBversion done (Koha 3.22 beta)\n";
11423 SetVersion($DBversion);
11426 $DBversion = "3.21.00.056";
11427 if(CheckVersion($DBversion)) {
11429 UPDATE systempreferences
11431 options='metric|us|iso|dmydot',
11432 explanation='Define global date format (us mm/dd/yyyy, metric dd/mm/yyy, ISO yyyy-mm-dd, DMY separated by dots dd.mm.yyyy)'
11433 WHERE variable='dateformat'
11435 print "Upgrade to $DBversion done (Bug 12072: New dateformat dd.mm.yyyy)\n";
11436 SetVersion($DBversion);
11439 $DBversion = "3.22.00.000";
11440 if ( CheckVersion($DBversion) ) {
11441 print "Upgrade to $DBversion done (Koha 3.22)\n";
11442 SetVersion($DBversion);
11445 $DBversion = "3.23.00.000";
11446 if ( CheckVersion($DBversion) ) {
11447 print "Upgrade to $DBversion done (The year of the monkey will be here soon.)\n";
11448 SetVersion ($DBversion);
11451 $DBversion = "3.23.00.001";
11452 if(CheckVersion($DBversion)) {
11454 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11456 'DefaultToLoggedInLibraryCircRules', '0', NULL , 'If enabled, circ rules editor will default to the logged in library''s rules, rather than the ''all libraries'' rules.', 'YesNo'
11458 'DefaultToLoggedInLibraryNoticesSlips', '0', NULL , 'If enabled,slips and notices editor will default to the logged in library''s rules, rather than the ''all libraries'' rules.', 'YesNo'
11462 print "Upgrade to $DBversion done (Bug 11625 - Add pref DefaultToLoggedInLibraryCircRules and DefaultToLoggedInLibraryNoticesSlips)\n";
11463 SetVersion($DBversion);
11466 $DBversion = "3.23.00.002";
11467 if(CheckVersion($DBversion)) {
11469 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
11470 VALUES ('DefaultToLoggedInLibraryOverdueTriggers', '0', NULL, 'If enabled, overdue status triggers editor will default to the logged in library''s rules, rather than the ''default'' rules.', 'YesNo')
11473 print "Upgrade to $DBversion done (Bug 11747 - add pref DefaultToLoggedInLibraryOverdueTriggers)\n";
11474 SetVersion($DBversion);
11477 $DBversion = "3.23.00.003";
11478 if(CheckVersion($DBversion)) {
11480 UPDATE letter SET name = "Hold Slip" WHERE name = "Reserve Slip"
11483 UPDATE letter SET title = "Hold Slip" WHERE title = "Reserve Slip";
11486 print "Upgrade to $DBversion done (Bug 8085 - Rename 'Reserve slip' to 'Hold slip')\n";
11487 SetVersion($DBversion);
11490 $DBversion = "3.23.00.004";
11491 if ( CheckVersion($DBversion) ) {
11493 DROP TABLE IF EXISTS `stopwords`;
11495 print "Upgrade to $DBversion done (Bug 9819 - stopwords related code should be removed)\n";
11496 SetVersion($DBversion);
11499 $DBversion = "3.23.00.005";
11500 if ( CheckVersion($DBversion) ) {
11502 UPDATE permissions SET description = 'Manage circulation rules' WHERE description = 'manage circulation rules'
11505 UPDATE permissions SET description = 'Manage staged MARC records, including completing and reversing imports' WHERE description = 'Managed staged MARC records, including completing and reversing imports'
11507 print "Upgrade to $DBversion done (Bug 11569 - Typo in userpermissions.sql)\n";
11508 SetVersion($DBversion);
11510 $DBversion = "3.23.00.006";
11511 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
11514 ADD serialseq_x VARCHAR( 100 ) NULL DEFAULT NULL AFTER serialseq,
11515 ADD serialseq_y VARCHAR( 100 ) NULL DEFAULT NULL AFTER serialseq_x,
11516 ADD serialseq_z VARCHAR( 100 ) NULL DEFAULT NULL AFTER serialseq_y
11519 my $sth = $dbh->prepare("SELECT * FROM subscription");
11522 my $sth2 = $dbh->prepare("SELECT * FROM subscription_numberpatterns WHERE id = ?");
11524 my $sth3 = $dbh->prepare("UPDATE serial SET serialseq_x = ?, serialseq_y = ?, serialseq_z = ? WHERE serialid = ?");
11526 foreach my $subscription ( $sth->fetchrow_hashref() ) {
11527 next if !defined($subscription);
11528 $sth2->execute( $subscription->{numberpattern} );
11529 my $number_pattern = $sth2->fetchrow_hashref();
11531 my $numbering_method = $number_pattern->{numberingmethod};
11532 # Get all the data between the enumeration values, we need
11533 # to split each enumeration string based on these values.
11534 my @splits = split( /\{[XYZ]\}/, $numbering_method );
11535 # Get the order in which the X Y and Z values are used
11537 foreach my $i (qw(X Y Z)) {
11538 $indexes{$i} = index( $numbering_method, "{$i}" );
11539 delete $indexes{$i} if $indexes{$i} == -1;
11541 my @indexes = sort { $indexes{$a} <=> $indexes{$b} } keys(%indexes);
11544 $dbh->selectall_arrayref(
11545 "SELECT * FROM serial WHERE subscriptionid = $subscription->{subscriptionid}",
11550 foreach my $serial (@serials) {
11551 my $serialseq = $serial->{serialseq};
11552 my %enumeration_data;
11554 ## We cannot split on multiple values at once,
11555 ## so let's replace each of those values with __SPLIT__
11557 for my $split_item (@splits) {
11558 my $quoted_split = quotemeta($split_item);
11559 $serialseq =~ s/$quoted_split/__SPLIT__/;
11563 $enumeration_data{ $indexes[0] // q{} },
11564 $enumeration_data{ $indexes[1] // q{} },
11565 $enumeration_data{ $indexes[2] // q{} }
11566 ) = split( /__SPLIT__/, $serialseq );
11569 { ## Nothing to split on means the only thing in serialseq is a single placeholder e.g. {X}
11570 $enumeration_data{ $indexes[0] } = $serialseq;
11574 $enumeration_data{'X'},
11575 $enumeration_data{'Y'},
11576 $enumeration_data{'Z'},
11577 $serial->{serialid},
11582 print "Upgrade to $DBversion done ( Bug 8956 - Split serials enumeration data into separate fields )\n";
11583 SetVersion($DBversion);
11586 $DBversion = "3.23.00.007";
11587 if ( CheckVersion($DBversion) ) {
11588 $dbh->do("SET FOREIGN_KEY_CHECKS=0");
11589 $dbh->do("ALTER TABLE overduerules RENAME old_overduerules");
11590 $dbh->do("CREATE TABLE overduerules (
11591 `overduerules_id` int(11) NOT NULL AUTO_INCREMENT,
11592 `branchcode` varchar(10) NOT NULL DEFAULT '',
11593 `categorycode` varchar(10) NOT NULL DEFAULT '',
11594 `delay1` int(4) DEFAULT NULL,
11595 `letter1` varchar(20) DEFAULT NULL,
11596 `debarred1` varchar(1) DEFAULT '0',
11597 `delay2` int(4) DEFAULT NULL,
11598 `debarred2` varchar(1) DEFAULT '0',
11599 `letter2` varchar(20) DEFAULT NULL,
11600 `delay3` int(4) DEFAULT NULL,
11601 `letter3` varchar(20) DEFAULT NULL,
11602 `debarred3` int(1) DEFAULT '0',
11603 PRIMARY KEY (`overduerules_id`),
11604 UNIQUE KEY `overduerules_branch_cat` (`branchcode`,`categorycode`)
11605 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
11606 $dbh->do("INSERT INTO overduerules(branchcode, categorycode, delay1, letter1, debarred1, delay2, debarred2, letter2, delay3, letter3, debarred3) SELECT * FROM old_overduerules");
11607 $dbh->do("DROP TABLE old_overduerules");
11608 $dbh->do("ALTER TABLE overduerules_transport_types
11609 ADD COLUMN overduerules_id int(11) NOT NULL");
11610 my $mtts = $dbh->selectall_arrayref("SELECT * FROM overduerules_transport_types", { Slice => {} });
11611 $dbh->do("DELETE FROM overduerules_transport_types");
11612 $dbh->do("ALTER TABLE overduerules_transport_types
11613 DROP FOREIGN KEY overduerules_fk,
11614 ADD FOREIGN KEY overduerules_transport_types_fk (overduerules_id) REFERENCES overduerules (overduerules_id) ON DELETE CASCADE ON UPDATE CASCADE,
11615 DROP COLUMN branchcode,
11616 DROP COLUMN categorycode");
11617 my $s = $dbh->prepare("INSERT INTO overduerules_transport_types (overduerules_id, id, letternumber, message_transport_type) "
11618 ." VALUES((SELECT overduerules_id FROM overduerules WHERE branchcode = ? AND categorycode = ?),?,?,?)");
11619 foreach my $mtt(@$mtts){
11620 $s->execute($mtt->{branchcode}, $mtt->{categorycode}, $mtt->{id}, $mtt->{letternumber}, $mtt->{message_transport_type} );
11622 $dbh->do("SET FOREIGN_KEY_CHECKS=1");
11624 print "Upgrade to $DBversion done (Bug 13624 - Remove columns branchcode, categorytype from table overduerules_transport_types)\n";
11625 SetVersion($DBversion);
11628 $DBversion = "3.23.00.008";
11629 if ( CheckVersion($DBversion) ) {
11631 $dbh->do(q{ALTER TABLE borrowers ADD privacy_guarantor_checkouts BOOLEAN NOT NULL DEFAULT '0' AFTER privacy});
11633 $dbh->do(q{ALTER TABLE deletedborrowers ADD privacy_guarantor_checkouts BOOLEAN NOT NULL DEFAULT '0' AFTER privacy});
11636 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type )
11638 'AllowStaffToSetCheckoutsVisibilityForGuarantor', '0', NULL,
11639 'If enabled, library staff can set a patron''s checkouts to be visible to linked patrons from the opac.', 'YesNo'
11641 'AllowPatronToSetCheckoutsVisibilityForGuarantor', '0', NULL,
11642 'If enabled, the patron can set checkouts to be visible to his or her guarantor', 'YesNo'
11646 print "Upgrade to $DBversion done (Bug 9303 - relative's checkouts in the opac)\n";
11647 SetVersion($DBversion);
11650 $DBversion = "3.23.00.009";
11651 if ( CheckVersion($DBversion) ) {
11653 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type ) VALUES
11654 ( 'EnablePayPalOpacPayments', '0', NULL , 'Enables the ability to pay fees and fines from the OPAC via PayPal', 'YesNo' ),
11655 ( 'PayPalChargeDescription', 'Koha fee payment', NULL , 'This preference defines what the user will see the charge listed as in PayPal', 'Free' ),
11656 ( 'PayPalPwd', '', NULL , 'Your PayPal API password', 'Free' ),
11657 ( 'PayPalSandboxMode', '1', NULL , 'If enabled, the system will use PayPal''s sandbox server for testing, rather than the production server.', 'YesNo' ),
11658 ( 'PayPalSignature', '', NULL , 'Your PayPal API signature', 'Free' ),
11659 ( 'PayPalUser', '', NULL , 'Your PayPal API username ( email address )', 'Free' )
11662 print "Upgrade to $DBversion done (Bug 11622 - Add ability to pay fees and fines from OPAC via PayPal)\n";
11663 SetVersion($DBversion);
11666 $DBversion = "3.23.00.010";
11667 if ( CheckVersion($DBversion) ) {
11669 ALTER TABLE issuingrules ADD cap_fine_to_replacement_price BOOLEAN NOT NULL DEFAULT '0' AFTER overduefinescap
11672 print "Upgrade to $DBversion done (Bug 9129 - Add the ability to set the maximum fine for an item to its replacement price)\n";
11673 SetVersion($DBversion);
11676 $DBversion = "3.23.00.011";
11677 if ( CheckVersion($DBversion) ) {
11679 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('HoldFeeMode','not_always','always|not_always','Set the hold fee mode','Choice')
11682 print "Upgrade to $DBversion done (Bug 13592 - Hold fee not being applied on placing a hold)\n";
11683 SetVersion($DBversion);
11686 $DBversion = "3.23.00.012";
11687 if ( CheckVersion($DBversion) ) {
11689 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `explanation`, `options`, `type` ) VALUES('MaxSearchResultsItemsPerRecordStatusCheck','20','Max number of items per record for which to check transit and hold status','','Integer')
11692 print "Upgrade to $DBversion done (Bug 15380 - Move the authority types related code to Koha::Authority::Type[s] - part 1)\n";
11693 SetVersion($DBversion);
11696 $DBversion = "3.23.00.013";
11697 if ( CheckVersion($DBversion) ) {
11699 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('StoreLastBorrower','0','','If ON, the last borrower to return an item will be stored in items.last_returned_by','YesNo')
11702 CREATE TABLE IF NOT EXISTS `items_last_borrower` (
11703 `id` int(11) NOT NULL AUTO_INCREMENT,
11704 `itemnumber` int(11) NOT NULL,
11705 `borrowernumber` int(11) NOT NULL,
11706 `created_on` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
11707 PRIMARY KEY (`id`),
11708 UNIQUE KEY `itemnumber` (`itemnumber`),
11709 KEY `borrowernumber` (`borrowernumber`),
11710 CONSTRAINT `items_last_borrower_ibfk_2` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
11711 CONSTRAINT `items_last_borrower_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE
11712 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
11715 print "Upgrade to $DBversion done (Bug 14945 - Add the ability to store the last patron to return an item)\n";
11716 SetVersion($DBversion);
11720 $DBversion = "3.23.00.014";
11721 if ( CheckVersion($DBversion) ) {
11723 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
11724 VALUES ('ClaimsBccCopy','0','','Bcc the ClaimAcquisition and ClaimIssues alerts','YesNo')
11727 print "Upgrade to $DBversion done (Bug 10076 - Add Bcc syspref for claimacquisition and clamissues)\n";
11728 SetVersion($DBversion);
11731 $DBversion = "3.23.00.015";
11732 if ( CheckVersion($DBversion) ) {
11734 UPDATE letter SET code = "HOLD_SLIP" WHERE code = "RESERVESLIP";
11737 print "Upgrade to $DBversion done (Bug 15443 - Re-code RESERVESLIP as HOLD_SLIP)\n";
11738 SetVersion($DBversion);
11741 $DBversion = "3.23.00.016";
11742 if ( CheckVersion($DBversion) ) {
11744 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
11745 VALUES ('OpacResetPassword', '0','','Shows the ''Forgot your password?'' link in the OPAC','YesNo');
11748 CREATE TABLE IF NOT EXISTS borrower_password_recovery (
11749 borrowernumber int(11) NOT NULL,
11750 uuid varchar(128) NOT NULL,
11751 valid_until timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
11752 PRIMARY KEY (borrowernumber),
11753 KEY borrowernumber (borrowernumber)
11754 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
11757 INSERT IGNORE INTO `letter` (module, code, branchcode, name, is_html, title, content, message_transport_type)
11758 VALUES ('members','PASSWORD_RESET','','Online password reset',1,'Koha password recovery','<html>\r\n<p>This email has been sent in response to your password recovery request for the account <strong><<user>></strong>.\r\n</p>\r\n<p>\r\nYou can now create your new password using the following link:\r\n<br/><a href=\"<<passwordreseturl>>\"><<passwordreseturl>></a>\r\n</p>\r\n<p>This link will be valid for 2 days from this email\'s reception, then you must reapply if you do not change your password.</p>\r\n<p>Thank you.</p>\r\n</html>\r\n','email');
11762 print "Upgrade to $DBversion done (Bug 8753 - Add forgot password link to OPAC)\n";
11763 SetVersion($DBversion);
11766 $DBversion = "3.23.00.017";
11767 if ( CheckVersion($DBversion) ) {
11770 DELETE FROM uploaded_files
11771 WHERE COALESCE(permanent,0)=0 AND dir='koha_upload'
11774 my $tmp = C4::Context->temporary_directory . '/koha_upload';
11775 remove_tree( $tmp ) if -d $tmp;
11777 print "Upgrade to $DBversion done (Bug 14893 - Separate temporary storage per instance in Upload.pm)\n";
11778 SetVersion($DBversion);
11782 $DBversion = "3.23.00.018";
11783 if ( CheckVersion($DBversion) ) {
11785 UPDATE systempreferences SET value="0" where type="YesNo" and value="";
11788 print "Upgrade to $DBversion done (Bug 15446 - Fix systempreferences rows where type=YesNo and value='')\n";
11789 SetVersion($DBversion);
11792 $DBversion = "3.23.00.019";
11793 if ( CheckVersion($DBversion) ) {
11795 UPDATE `authorised_values` SET `lib`='Non-fiction' WHERE `lib`='Non Fiction';
11798 print "Upgrade to $DBversion done (Bug 15411 - Change Non Fiction to Non-fiction in authorised_values)\n";
11799 SetVersion($DBversion);
11802 $DBversion = "3.23.00.020";
11803 if ( CheckVersion($DBversion) ) {
11805 CREATE TABLE sms_providers (
11806 id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY ,
11807 name VARCHAR( 255 ) NOT NULL ,
11808 domain VARCHAR( 255 ) NOT NULL ,
11812 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
11816 ALTER TABLE borrowers ADD sms_provider_id INT( 11 ) NULL DEFAULT NULL AFTER smsalertnumber;
11819 ALTER TABLE borrowers ADD FOREIGN KEY ( sms_provider_id ) REFERENCES sms_providers ( id ) ON UPDATE CASCADE ON DELETE SET NULL;
11822 ALTER TABLE deletedborrowers ADD sms_provider_id INT( 11 ) NULL DEFAULT NULL AFTER smsalertnumber;
11825 print "Upgrade to $DBversion done (Bug 9021 - Add SMS via email as an alternative to SMS services via SMS::Send drivers)\n";
11826 SetVersion($DBversion);
11829 $DBversion = "3.23.00.021";
11830 if ( CheckVersion($DBversion) ) {
11832 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('ShowAllCheckins', '0', '', 'Show all checkins', 'YesNo');
11835 print "Upgrade to $DBversion done (Bug 15736 - Add a preference to control whether all items should be shown in checked-in items list)\n";
11836 SetVersion($DBversion);
11839 $DBversion = "3.23.00.022";
11840 if ( CheckVersion($DBversion) ) {
11841 $dbh->do(q{ ALTER TABLE tags_all MODIFY COLUMN borrowernumber INT(11) });
11842 $dbh->do(q{ ALTER TABLE tags_all drop FOREIGN KEY tags_borrowers_fk_1 });
11843 $dbh->do(q{ ALTER TABLE tags_all ADD CONSTRAINT `tags_borrowers_fk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE });
11844 $dbh->do(q{ ALTER TABLE tags_approval DROP FOREIGN KEY tags_approval_borrowers_fk_1 });
11845 $dbh->do(q{ ALTER TABLE tags_approval ADD CONSTRAINT `tags_approval_borrowers_fk_1` FOREIGN KEY (`approved_by`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE });
11847 print "Upgrade to $DBversion done (Bug 13534 - Deleting staff patron will delete tags approved by this patron)\n";
11848 SetVersion($DBversion);
11851 $DBversion = "3.23.00.023";
11852 if ( CheckVersion($DBversion) ) {
11854 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11855 VALUES('OpenLibrarySearch','0','If Yes Open Library search results will show in OPAC',NULL,'YesNo');
11858 print "Upgrade to $DBversion done (Bug 6624 - Allow Koha to use the new read API from OpenLibrary)\n";
11859 SetVersion($DBversion);
11862 $DBversion = "3.23.00.024";
11863 if ( CheckVersion($DBversion) ) {
11865 ALTER TABLE deletedborrowers MODIFY COLUMN userid VARCHAR(75) DEFAULT NULL;
11869 ALTER TABLE deletedborrowers MODIFY COLUMN password VARCHAR(60) DEFAULT NULL;
11872 print "Upgrade to $DBversion done (Bug 15517 - Tables borrowers and deletedborrowers differ again)\n";
11873 SetVersion($DBversion);
11876 $DBversion = "3.23.00.025";
11877 if ( CheckVersion($DBversion) ) {
11879 DROP TABLE IF EXISTS nozebra;
11882 print "Upgrade to $DBversion done (Bug 15526 - Drop nozebra database table)\n";
11883 SetVersion($DBversion);
11886 $DBversion = "3.23.00.026";
11887 if ( CheckVersion($DBversion) ) {
11889 UPDATE systempreferences SET value = CONCAT_WS('|', IF(value='', NULL, value), "password") WHERE variable="PatronSelfRegistrationBorrowerUnwantedField" AND value NOT LIKE "%password%";
11892 print "Upgrade to $DBversion done (Bug 15343 - Allow patrons to choose their own password on self registration)\n";
11893 SetVersion($DBversion);
11896 $DBversion = "3.23.00.027";
11897 if ( CheckVersion($DBversion) ) {
11898 my ( $db_value ) = $dbh->selectrow_array(q|SELECT count(*) FROM branches|);
11899 my $pref_value = C4::Context->preference("singleBranchMode") || 0;
11900 if ( $db_value > 1 and $pref_value == 1 ) {
11901 warn "WARNING: You have more than 1 libraries in your branches tables but the singleBranchMode system preference is on.\n";
11902 warn "This configuration does not make sense. The system preference is going to be deleted,\n";
11903 warn "and this parameter will be based on the number of libraries defined.\n";
11905 $dbh->do(q|DELETE FROM systempreferences WHERE variable="singleBranchMode"|);
11907 print "Upgrade to $DBversion done (Bug 4941 - Can't set branch in staff client when singleBranchMode is enabled)\n";
11908 SetVersion($DBversion);
11911 $DBversion = "3.23.00.028";
11912 if ( CheckVersion($DBversion) ) {
11914 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) SELECT 'PatronSelfModificationBorrowerUnwantedField',value,NULL,'Name the fields you don\'t want to display when a patron is editing their information via the OPAC.','free' FROM systempreferences WHERE variable = 'PatronSelfRegistrationBorrowerUnwantedField';
11917 print "Upgrade to $DBversion done (Bug 14658 - Split PatronSelfRegistrationBorrowerUnwantedField into two preferences for creating and editing)\n";
11918 SetVersion($DBversion);
11921 $DBversion = "3.23.00.029";
11922 if ( CheckVersion($DBversion) ) {
11924 # move marc21_field_003.pl 040c and 040d to marc21_orgcode.pl
11926 update marc_subfield_structure set value_builder='marc21_orgcode.pl' where value_builder IN ( 'marc21_field_003.pl', 'marc21_field_040c.pl', 'marc21_field_040d.pl' );
11929 update auth_subfield_structure set value_builder='marc21_orgcode.pl' where value_builder IN ( 'marc21_field_003.pl', 'marc21_field_040c.pl', 'marc21_field_040d.pl' );
11932 print "Upgrade to $DBversion done (Bug 14199 - Unify all organization code plugins)\n";
11933 SetVersion($DBversion);
11936 $DBversion = "3.23.00.030";
11937 if(CheckVersion($DBversion)) {
11939 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
11940 VALUES ('OpacMaintenanceNotice','','','A user-defined block of HTML to appear on screen when OpacMaintenace is enabled','Textarea')
11943 print "Upgrade to $DBversion done (Bug 15311: Let libraries set text to display when OpacMaintenance = on)\n";
11944 SetVersion($DBversion);
11947 $DBversion = "3.23.00.031";
11948 if(CheckVersion($DBversion)) {
11950 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11951 VALUES ('NoRenewalBeforePrecision', 'date', 'Calculate "No renewal before" based on date or exact time. Only relevant for loans calculated in days, hourly loans are not affected.', 'date|exact_time', 'Choice')
11954 print "Upgrade to $DBversion done (Bug 14395 - Two different ways to calculate 'No renewal before')\n";
11955 SetVersion($DBversion);
11958 $DBversion = "3.23.00.032";
11959 if ( CheckVersion($DBversion) ) {
11961 -- Add issue_id to accountlines table
11962 ALTER TABLE accountlines ADD issue_id INT(11) NULL DEFAULT NULL AFTER accountlines_id;
11965 ## Close out any accruing fines with no current issue
11967 UPDATE accountlines LEFT JOIN issues USING ( itemnumber, borrowernumber ) SET accounttype = 'F' WHERE accounttype = 'FU' and issues.issue_id IS NULL;
11970 ## Close out any extra not really accruing fines, keep only the latest accring fine
11972 UPDATE accountlines a1
11973 LEFT JOIN (SELECT MAX(accountlines_id) AS keeper,
11977 WHERE accounttype = 'FU'
11978 GROUP BY borrowernumber, itemnumber
11979 ) a2 USING ( borrowernumber, itemnumber )
11980 SET a1.accounttype = 'F'
11981 WHERE a1.accounttype = 'FU'
11982 AND a1.accountlines_id != a2.keeper;
11985 ## Update the unclosed fines to add the current issue_id to them
11987 UPDATE accountlines LEFT JOIN issues USING ( itemnumber ) SET accountlines.issue_id = issues.issue_id WHERE accounttype = 'FU';
11990 print "Upgrade to $DBversion done (Bug 15675 - Add issue_id column to accountlines and use it for updating fines)\n";
11991 SetVersion($DBversion);
11994 $DBversion = "3.23.00.033";
11995 if ( CheckVersion($DBversion) ) {
11997 UPDATE systempreferences SET value = CONCAT_WS('|', IF(value = '', NULL, value), 'cardnumber') WHERE variable = 'PatronSelfRegistrationBorrowerUnwantedField' AND value NOT LIKE '%cardnumber%';
12001 UPDATE systempreferences SET value = CONCAT_WS('|', IF(value = '', NULL, value), 'categorycode') WHERE variable = 'PatronSelfRegistrationBorrowerUnwantedField' AND value NOT LIKE '%categorycode%';
12004 print "Upgrade to $DBversion done (Bug 14659 - Allow patrons to enter card number and patron category on OPAC registration page)\n";
12005 SetVersion($DBversion);
12008 $DBversion = "3.23.00.034";
12009 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12011 ALTER TABLE `items` ADD `new` VARCHAR(32) NULL AFTER `stocknumber`;
12014 ALTER TABLE `deleteditems` ADD `new` VARCHAR(32) NULL AFTER `stocknumber`;
12016 print "Upgrade to $DBversion done (Bug 11023: Adds field 'new' in items and deleteditems tables)\n";
12017 SetVersion($DBversion);
12020 $DBversion = "3.23.00.035";
12021 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12023 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('HTML5MediaYouTube',0,'Embed|Don\'t embed','YouTube links as videos','YesNo');
12025 print "Upgrade to $DBversion done (Bug 14168 - enhance streaming cataloging to include youtube)\n";
12027 SetVersion($DBversion);
12030 $DBversion = "3.23.00.036";
12031 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12033 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES ('HoldsQueueSkipClosed', '0', 'If enabled, any libraries that are closed when the holds queue is built will be ignored for the purpose of filling holds.', 'YesNo');
12035 print "Upgrade to $DBversion done (Bug 12803 - Add ability to skip closed libraries when generating the holds queue)\n";
12036 SetVersion($DBversion);
12039 $DBversion = "3.23.00.037";
12040 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12041 ## Add the new currency.archived column
12043 ALTER TABLE currency ADD column archived tinyint(1) DEFAULT 0;
12045 ## Set currency=NULL if empty (just in case)
12047 UPDATE aqorders SET currency=NULL WHERE currency="";
12049 ## Insert the missing currency and mark them as archived before adding the FK
12051 INSERT INTO currency(currency, archived) SELECT distinct currency, 1 FROM aqorders WHERE currency NOT IN (SELECT currency FROM currency);
12053 ## Correct the field length in aqorders before adding FK too
12054 $dbh->do(q{ ALTER TABLE aqorders MODIFY COLUMN currency varchar(10) default NULL; });
12055 ## And finally add the FK
12057 ALTER TABLE aqorders ADD FOREIGN KEY (currency) REFERENCES currency(currency) ON DELETE SET NULL ON UPDATE SET null;
12060 print "Upgrade to $DBversion done (Bug 15084 - Move the currency related code to Koha::Acquisition::Currenc[y|ies])\n";
12061 SetVersion($DBversion);
12064 $DBversion = "3.23.00.038";
12065 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12067 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('decreaseLoanHighHoldsControl', 'static', 'static|dynamic', "Chooses between static and dynamic high holds checking", 'Choice'), ('decreaseLoanHighHoldsIgnoreStatuses', '', 'damaged|itemlost|notforloan|withdrawn', "Ignore items with these statuses for dynamic high holds checking", 'Choice');
12069 print "Upgrade to $DBversion done (Bug 14694 - Make decreaseloanHighHolds more flexible)\n";
12070 SetVersion($DBversion);
12073 $DBversion = "3.23.00.039";
12074 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12077 ALTER TABLE suggestions
12078 MODIFY COLUMN currency varchar(10) default NULL;
12081 ALTER TABLE aqbooksellers
12082 MODIFY COLUMN currency varchar(10) default NULL;
12084 print "Upgrade to $DBversion done (Bug 15084 - Move the currency related code to Koha::Acquisition::Currenc[y|ies])\n";
12085 SetVersion($DBversion);
12089 $DBversion = "3.23.00.040";
12090 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12092 my $c = $dbh->selectrow_array('SELECT COUNT(*) FROM systempreferences WHERE variable="intranetcolorstylesheet" AND value="blue.css"');
12095 print "WARNING: You are using a stylesheeet which has been removed from the Koha codebase.\n";
12096 print "Update your intranetcolorstylesheet.\n";
12098 print "Upgrade to $DBversion done (Bug 16019 - Check intranetcolorstylesheet for blue.css)\n";
12099 SetVersion($DBversion);
12102 $DBversion = "3.23.00.041";
12103 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12105 my $dbh = C4::Context->dbh;
12106 my ($print_error) = $dbh->{PrintError};
12107 $dbh->{RaiseError} = 0;
12108 $dbh->{PrintError} = 0;
12109 $dbh->do("ALTER TABLE overduerules_transport_types ADD COLUMN letternumber INT(1) NOT NULL DEFAULT 1 AFTER id");
12110 $dbh->{PrintError} = $print_error;
12112 print "Upgrade to $DBversion done (Bug 16007: Make sure overduerules_transport_types.letternumber exists)\n";
12113 SetVersion($DBversion);
12116 $DBversion = "3.23.00.042";
12117 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12120 ALTER TABLE items CHANGE new new_status VARCHAR(32) NULL;
12123 ALTER TABLE deleteditems CHANGE new new_status VARCHAR(32) NULL;
12126 UPDATE systempreferences SET value=REPLACE(value, '"items.new"', '"items.new_status"') WHERE variable="automatic_item_modification_by_age_configuration";
12129 print "Upgrade to $DBversion done (Bug 16004 - Replace items.new with items.new_status)\n";
12130 SetVersion($DBversion);
12133 $DBversion = "3.23.00.043";
12134 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12136 UPDATE systempreferences SET value="" WHERE value IS NULL;
12139 print "Upgrade to $DBversion done (Bug 16070 - Empty (undef) system preferences may cause some issues in combination with memcache)\n";
12140 SetVersion($DBversion);
12143 $DBversion = "3.23.00.044";
12144 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12146 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
12147 ('GoogleOpenIDConnect', '0', NULL, 'if ON, allows the use of Google OpenID Connect for login', 'YesNo'),
12148 ('GoogleOAuth2ClientID', '', NULL, 'Client ID for the web app registered with Google', 'Free'),
12149 ('GoogleOAuth2ClientSecret', '', NULL, 'Client Secret for the web app registered with Google', 'Free'),
12150 ('GoogleOpenIDConnectDomain', '', NULL, 'Restrict OpenID Connect to this domain (or subdomains of this domain). Leave blank for all Google domains', 'Free');
12153 print "Upgrade to $DBversion done (Bug 10988 - Allow login via Google OAuth2 (OpenID Connect))\n";
12154 SetVersion($DBversion);
12157 $DBversion = "3.23.00.045";
12158 if ( CheckVersion($DBversion) ) {
12159 ## Holds details for vendors supplying goods by EDI
12161 CREATE TABLE IF NOT EXISTS vendor_edi_accounts (
12162 id INT(11) NOT NULL auto_increment,
12163 description TEXT NOT NULL,
12165 username VARCHAR(40),
12166 password VARCHAR(40),
12167 last_activity DATE,
12168 vendor_id INT(11) REFERENCES aqbooksellers( id ),
12169 download_directory TEXT,
12170 upload_directory TEXT,
12172 id_code_qualifier VARCHAR(3) default '14',
12173 transport VARCHAR(6) default 'FTP',
12174 quotes_enabled TINYINT(1) not null default 0,
12175 invoices_enabled TINYINT(1) not null default 0,
12176 orders_enabled TINYINT(1) not null default 0,
12177 responses_enabled TINYINT(1) not null default 0,
12178 auto_orders TINYINT(1) not null default 0,
12179 shipment_budget INTEGER(11) REFERENCES aqbudgets( budget_id ),
12181 KEY vendorid (vendor_id),
12182 KEY shipmentbudget (shipment_budget),
12183 CONSTRAINT vfk_vendor_id FOREIGN KEY ( vendor_id ) REFERENCES aqbooksellers ( id ),
12184 CONSTRAINT vfk_shipment_budget FOREIGN KEY ( shipment_budget ) REFERENCES aqbudgets ( budget_id )
12185 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
12188 ## Hold the actual edifact messages with links to associated baskets
12190 CREATE TABLE IF NOT EXISTS edifact_messages (
12191 id INT(11) NOT NULL auto_increment,
12192 message_type VARCHAR(10) NOT NULL,
12193 transfer_date DATE,
12194 vendor_id INT(11) REFERENCES aqbooksellers( id ),
12195 edi_acct INTEGER REFERENCES vendor_edi_accounts( id ),
12197 basketno INT(11) REFERENCES aqbasket( basketno),
12198 raw_msg MEDIUMTEXT,
12200 deleted BOOLEAN NOT NULL DEFAULT 0,
12202 KEY vendorid ( vendor_id),
12203 KEY ediacct (edi_acct),
12204 KEY basketno ( basketno),
12205 CONSTRAINT emfk_vendor FOREIGN KEY ( vendor_id ) REFERENCES aqbooksellers ( id ),
12206 CONSTRAINT emfk_edi_acct FOREIGN KEY ( edi_acct ) REFERENCES vendor_edi_accounts ( id ),
12207 CONSTRAINT emfk_basketno FOREIGN KEY ( basketno ) REFERENCES aqbasket ( basketno )
12208 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
12211 ## invoices link back to the edifact message it was generated from
12213 ALTER TABLE aqinvoices ADD COLUMN message_id INT(11) REFERENCES edifact_messages( id );
12216 ## clean up link on deletes
12218 ALTER TABLE aqinvoices ADD CONSTRAINT edifact_msg_fk FOREIGN KEY ( message_id ) REFERENCES edifact_messages ( id ) ON DELETE SET NULL;
12221 ## Hold the supplier ids from quotes for ordering
12222 ## although this is an EAN-13 article number the standard says 35 characters ???
12224 ALTER TABLE aqorders ADD COLUMN line_item_id VARCHAR(35);
12227 ## The suppliers unique reference usually a quotation line number ('QLI')
12228 ## Otherwise Suppliers unique orderline reference ('SLI')
12230 ALTER TABLE aqorders ADD COLUMN suppliers_reference_number VARCHAR(35);
12233 ALTER TABLE aqorders ADD COLUMN suppliers_reference_qualifier VARCHAR(3);
12236 ALTER TABLE aqorders ADD COLUMN suppliers_report text;
12239 ## hold the EAN/SAN used in ordering
12241 CREATE TABLE IF NOT EXISTS edifact_ean (
12242 ee_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY,
12243 description VARCHAR(128) NULL DEFAULT NULL,
12244 branchcode VARCHAR(10) NOT NULL REFERENCES branches (branchcode),
12245 ean VARCHAR(15) NOT NULL,
12246 id_code_qualifier VARCHAR(3) NOT NULL DEFAULT '14',
12247 CONSTRAINT efk_branchcode FOREIGN KEY ( branchcode ) REFERENCES branches ( branchcode )
12248 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
12251 ## Add a permission for managing EDI
12253 INSERT INTO permissions (module_bit, code, description) values (11, 'edi_manage', 'Manage EDIFACT transmissions');
12256 print "Upgrade to $DBversion done (Bug 7736 - Edifact QUOTE and ORDER functionality))\n";
12257 SetVersion($DBversion);
12260 $DBversion = "3.23.00.046";
12261 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12264 ALTER TABLE vendor_edi_accounts ADD COLUMN plugin VARCHAR(256) NOT NULL DEFAULT "";
12267 print "Upgrade to $DBversion done (Bug 15630 - Make Edifact module pluggable))\n";
12268 SetVersion($DBversion);
12271 $DBversion = "3.23.00.047";
12272 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12275 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('IntranetReportsHomeHTML', '', 'Show the following HTML in a div on the bottom of the reports home page', NULL, 'Free');
12278 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('IntranetCirculationHomeHTML', '', 'Show the following HTML in a div on the bottom of the reports home page', NULL, 'Free');
12281 print "Upgrade to $DBversion done (Bug 15008 - Add custom HTML areas to circulation and reports home pages)\n";
12282 SetVersion($DBversion);
12285 $DBversion = "3.23.00.048";
12286 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12288 INSERT IGNORE INTO `systempreferences` (variable,value,options,explanation,type) SELECT 'OPACISBD', value, '70|10', 'Allows to define ISBD view in OPAC', 'Textarea' FROM `systempreferences` WHERE variable = 'ISBD';
12291 print "Upgrade to $DBversion done (Bug 5979 - Add separate OPACISBD system preference)\n";
12292 SetVersion($DBversion);
12297 $DBversion = "3.23.00.049";
12298 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
12299 my $dbh = C4::Context->dbh;
12300 my ( $column_has_been_used ) = $dbh->selectrow_array(q|
12302 FROM borrower_attributes
12303 WHERE password IS NOT NULL
12306 if ( $column_has_been_used ) {
12307 print q|WARNING: The columns borrower_attribute_types.password_allowed and borrower_attributes.password have been removed from the Koha codebase. They were not used. However your installation has at least one borrower_attributes.password defined. In order not to alter your data, the columns have been kept, please save the information elsewhere and remove these columns manually.|;
12310 ALTER TABLE borrower_attribute_types DROP column password_allowed
12313 ALTER TABLE borrower_attributes DROP column password;
12316 print "Upgrade to $DBversion done (Bug 12267 - Allow password option in Patron Attribute non functional)\n";
12317 SetVersion($DBversion);
12321 $DBversion = "3.23.00.050";
12322 if ( CheckVersion($DBversion) ) {
12323 use Koha::SearchMarcMaps;
12324 use Koha::SearchFields;
12325 use Koha::SearchEngine::Elasticsearch;
12327 $dbh->do(q|INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
12328 VALUES('SearchEngine','Zebra','Choose Search Engine','','Choice')|);
12331 $dbh->do(q|DROP TABLE IF EXISTS search_marc_to_field|);
12332 $dbh->do(q|DROP TABLE IF EXISTS search_marc_map|);
12333 $dbh->do(q|DROP TABLE IF EXISTS search_field|);
12335 # This specifies the fields that will be stored in the search engine.
12337 CREATE TABLE `search_field` (
12338 `id` int(11) NOT NULL AUTO_INCREMENT,
12339 `name` varchar(255) NOT NULL COMMENT 'the name of the field as it will be stored in the search engine',
12340 `label` varchar(255) NOT NULL COMMENT 'the human readable name of the field, for display',
12341 `type` ENUM('', 'string', 'date', 'number', 'boolean', 'sum') NOT NULL COMMENT 'what type of data this holds, relevant when storing it in the search engine',
12342 PRIMARY KEY (`id`),
12343 UNIQUE KEY (`name`)
12344 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
12346 # This contains a MARC field specifier for a given index, marc type, and marc
12349 CREATE TABLE `search_marc_map` (
12350 id int(11) NOT NULL AUTO_INCREMENT,
12351 index_name ENUM('biblios','authorities') NOT NULL COMMENT 'what storage index this map is for',
12352 marc_type ENUM('marc21', 'unimarc', 'normarc') NOT NULL COMMENT 'what MARC type this map is for',
12353 marc_field VARCHAR(255) NOT NULL COMMENT 'the MARC specifier for this field',
12355 unique key( index_name, marc_field, marc_type),
12356 INDEX (`index_name`)
12357 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
12360 # This joins the two search tables together. We can have any combination:
12361 # one marc field could have many search fields (maybe you want one value
12362 # to go to 'author' and 'corporate-author) and many marc fields could go
12363 # to one search field (e.g. all the various author fields going into
12366 # a note about the sort field:
12367 # * if all the entries for a mapping are 'null', nothing special is done with that mapping.
12368 # * if any of the entries are not null, then a __sort field is created in ES for this mapping. In this case:
12369 # * any mapping with sort == false WILL NOT get copied into a __sort field
12370 # * any mapping with sort == true or is null WILL get copied into a __sort field
12371 # * any sorts on the field name will be applied to $fieldname.'__sort' instead.
12372 # this means that we can have search for author that includes 1xx, 245$c, and 7xx, but the sort only applies to 1xx.
12375 CREATE TABLE `search_marc_to_field` (
12376 search_marc_map_id int(11) NOT NULL,
12377 search_field_id int(11) NOT NULL,
12378 facet boolean DEFAULT FALSE COMMENT 'true if a facet field should be generated for this',
12379 suggestible boolean DEFAULT FALSE COMMENT 'true if this field can be used to generate suggestions for browse',
12380 sort boolean DEFAULT NULL COMMENT 'true/false creates special sort handling, null doesn''t',
12381 PRIMARY KEY(search_marc_map_id, search_field_id),
12382 FOREIGN KEY(search_marc_map_id) REFERENCES search_marc_map(id) ON DELETE CASCADE ON UPDATE CASCADE,
12383 FOREIGN KEY(search_field_id) REFERENCES search_field(id) ON DELETE CASCADE ON UPDATE CASCADE
12384 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
12387 # Insert default mappings
12388 Koha::SearchEngine::Elasticsearch->reset_elasticsearch_mappings;
12390 print "Upgrade to $DBversion done (Bug 12478 - Elasticsearch support for Koha)\n";
12391 SetVersion($DBversion);
12395 $DBversion = "3.23.00.051";
12396 if ( CheckVersion($DBversion) ) {
12398 ALTER TABLE edifact_messages
12399 DROP FOREIGN KEY emfk_vendor,
12400 DROP FOREIGN KEY emfk_edi_acct,
12401 DROP FOREIGN KEY emfk_basketno;
12405 ALTER TABLE edifact_messages
12406 ADD CONSTRAINT emfk_vendor FOREIGN KEY ( vendor_id ) REFERENCES aqbooksellers ( id ) ON DELETE CASCADE ON UPDATE CASCADE,
12407 ADD CONSTRAINT emfk_edi_acct FOREIGN KEY ( edi_acct ) REFERENCES vendor_edi_accounts ( id ) ON DELETE CASCADE ON UPDATE CASCADE,
12408 ADD CONSTRAINT emfk_basketno FOREIGN KEY ( basketno ) REFERENCES aqbasket ( basketno ) ON DELETE CASCADE ON UPDATE CASCADE;
12411 print "Upgrade to $DBversion done (Bug 16354 - Fix FK constraints for edifact_messages table)\n";
12412 SetVersion($DBversion);
12416 $DBversion = "3.23.00.052";
12417 if ( CheckVersion($DBversion) ) {
12418 ## Insert permission
12421 INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
12422 (13, 'upload_general_files', 'Upload any file'),
12423 (13, 'upload_manage', 'Manage uploaded files');
12425 ## Update user_permissions for current users (check count in uploaded_files)
12426 ## Note 9 == edit_catalogue and 13 == tools
12427 ## We do not insert if someone is superlibrarian, does not have edit_catalogue,
12428 ## or already has all tools
12431 INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code)
12432 SELECT borrowernumber, 13, 'upload_general_files'
12434 WHERE flags<>1 AND flags & POW(2,13) = 0 AND
12435 ( flags & POW(2,9) > 0 OR
12436 (SELECT COUNT(*) FROM user_permissions
12437 WHERE borrowernumber=bo.borrowernumber AND module_bit=9 ) > 0 )
12438 AND ( SELECT COUNT(*) FROM uploaded_files ) > 0
12441 print "Upgrade to $DBversion done (Bug 14686 - New menu option and permission for file uploading)\n";
12442 SetVersion($DBversion);
12445 $DBversion = "3.23.00.053";
12446 if ( CheckVersion($DBversion) ) {
12447 my $letters = $dbh->selectall_arrayref(
12451 WHERE message_transport_type="email"
12454 for my $letter (@$letters) {
12460 AND message_transport_type <> "email"
12461 |, undef, $letter->{name}, $letter->{code}
12465 print "Upgrade to $DBversion done (Bug 16217 - Notice' names may have diverged)\n";
12466 SetVersion($DBversion);
12469 $DBversion = "3.23.00.054";
12470 if ( CheckVersion($DBversion) ) {
12472 ALTER TABLE branch_item_rules ADD COLUMN hold_fulfillment_policy ENUM('any', 'homebranch', 'holdingbranch') NOT NULL DEFAULT 'any' AFTER holdallowed;
12475 ALTER TABLE default_branch_circ_rules ADD COLUMN hold_fulfillment_policy ENUM('any', 'homebranch', 'holdingbranch') NOT NULL DEFAULT 'any' AFTER holdallowed;
12478 ALTER TABLE default_branch_item_rules ADD COLUMN hold_fulfillment_policy ENUM('any', 'homebranch', 'holdingbranch') NOT NULL DEFAULT 'any' AFTER holdallowed;
12481 ALTER TABLE default_circ_rules ADD COLUMN hold_fulfillment_policy ENUM('any', 'homebranch', 'holdingbranch') NOT NULL DEFAULT 'any' AFTER holdallowed;
12484 print "Upgrade to $DBversion done (Bug 15532 - Add ability to allow only items whose home/holding branch matches the hold's pickup branch to fill a given hold)\n";
12485 SetVersion($DBversion);
12488 $DBversion = "3.23.00.055";
12489 if ( CheckVersion($DBversion) ) {
12491 ALTER TABLE reserves ADD COLUMN itemtype VARCHAR(10) NULL DEFAULT NULL AFTER suspend_until;
12494 ALTER TABLE reserves ADD KEY `itemtype` (`itemtype`);
12497 ALTER TABLE reserves ADD CONSTRAINT `reserves_ibfk_5` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE;
12500 ALTER TABLE old_reserves ADD COLUMN itemtype VARCHAR(10) NULL DEFAULT NULL AFTER suspend_until;
12503 ALTER TABLE old_reserves ADD KEY `itemtype` (`itemtype`);
12506 ALTER TABLE old_reserves ADD CONSTRAINT `old_reserves_ibfk_4` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE;
12510 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
12511 ('AllowHoldItemTypeSelection','0','','If enabled, patrons and staff will be able to select the itemtype when placing a hold','YesNo');
12514 print "Upgrade to $DBversion done (Bug 15533 - Allow patrons and librarians to select itemtype when placing hold)\n";
12515 SetVersion($DBversion);
12518 $DBversion = "3.23.00.056";
12519 if ( CheckVersion($DBversion) ) {
12521 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
12522 ('NoIssuesChargeGuarantees','','','Define maximum amount withstanding before check outs are blocked','Integer');
12525 print "Upgrade to $DBversion done (Bug 14577 - Allow restriction of checkouts based on fines of guarantor/guarantee)\n";
12526 SetVersion($DBversion);
12529 $DBversion = "3.23.00.057";
12530 if ( CheckVersion($DBversion) ) {
12532 ALTER TABLE aqbasket ADD COLUMN is_standing TINYINT(1) NOT NULL DEFAULT 0 AFTER branch;
12535 print "Upgrade to $DBversion done (Bug 15531 - Add support for standing orders)\n";
12536 SetVersion($DBversion);
12539 $DBversion = "3.23.00.058";
12540 if ( CheckVersion($DBversion) ) {
12542 my ($count_imageurl) = $dbh->selectrow_array(q|
12544 FROM authorised_values
12545 WHERE imageurl IS NOT NULL
12549 unless ($count_imageurl) {
12550 if ( C4::Context->preference('AuthorisedValueImages')
12551 or C4::Context->preference('StaffAuthorisedValueImages') )
12554 UPDATE systempreferences
12556 WHERE variable = "AuthorisedValueImages"
12557 or variable = "StaffAuthorisedValueImages"
12559 warn "The system preferences AuthorisedValueImages and StaffAuthorisedValueImages have been turned off\n";
12560 warn "authorised_values.imageurl is not populated, that means you are not using this feature\n";
12564 warn "At least one authorised value has an icon defined (imageurl)\n";
12565 warn "The system preference AuthorisedValueImages or StaffAuthorisedValueImages could be turned off if you are not aware of this feature\n";
12568 print "Upgrade to $DBversion done (Bug 16041 - StaffAuthorisedValueImages & AuthorisedValueImages preferences - impact on search performance)\n";
12569 SetVersion($DBversion);
12572 $DBversion = "3.23.00.059";
12573 if ( CheckVersion($DBversion) ) {
12575 DELETE FROM systempreferences WHERE variable="AuthorisedValueImages" OR variable="StaffAuthorisedValueImages";
12578 print "Upgrade to $DBversion done (Bug 16167 - Remove prefs to drive authorised value images)\n";
12579 SetVersion($DBversion);
12582 $DBversion = "3.23.00.060";
12583 if ( CheckVersion($DBversion) ) {
12585 INSERT IGNORE INTO systempreferences ( value, variable, options, explanation,type )
12586 SELECT value ,'EnhancedMessagingPreferencesOPAC', NULL, 'If ON, allows patrons to select to receive additional messages about items due or nearly due.', 'YesNo' FROM systempreferences WHERE variable = 'EnhancedMessagingPreferences';
12589 print "Upgrade to $DBversion done (Bug 12528 - Enable staff to deny message setting access to patrons on the OPAC)\n";
12590 SetVersion($DBversion);
12593 $DBversion = "3.23.00.061";
12594 if ( CheckVersion($DBversion) ) {
12595 my ( $cnt ) = $dbh->selectrow_array( q|
12596 SELECT COUNT(*) FROM items it
12597 LEFT JOIN biblio bi ON bi.biblionumber=it.biblionumber
12598 LEFT JOIN biblioitems bii USING (biblioitemnumber)
12599 WHERE bi.biblionumber IS NULL
12602 print "WARNING: You have corrupted data in your items table!! The table contains $cnt references to biblio records that do not exist.\nPlease correct your data IMMEDIATELY after this upgrade and manually add the foreign key constraint for biblionumber in the items table.\n";
12607 ADD FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
12609 print "Upgrade to $DBversion done (Bug 16170 - Add FK for biblionumber in items)\n";
12611 SetVersion($DBversion);
12614 $DBversion = "3.23.00.062";
12615 if ( CheckVersion($DBversion) ) {
12617 ALTER TABLE aqorders DROP COLUMN budgetgroup_id;
12619 print "Upgrade to $DBversion done (Bug 16414 - aqorders.budgetgroup_id has never been used and can be removed)\n";
12620 SetVersion($DBversion);
12623 $DBversion = "3.23.00.063";
12624 if ( CheckVersion($DBversion) ) {
12626 UPDATE letter SET branchcode='' WHERE branchcode IS NULL;
12629 ALTER TABLE letter MODIFY COLUMN branchcode varchar(10) NOT NULL DEFAULT ''
12632 ALTER TABLE permissions MODIFY COLUMN code varchar(64) NOT NULL DEFAULT '';
12634 print "Upgrade to $DBversion done (Bug 16402: Fix DB structure to work on MySQL 5.7)\n";
12635 SetVersion($DBversion);
12638 $DBversion = "3.23.00.064";
12639 if ( CheckVersion($DBversion) ) {
12641 ALTER TABLE creator_layouts MODIFY layout_name char(25) NOT NULL DEFAULT 'DEFAULT';
12643 print "Upgrade to $DBversion done (Bug 15086 - Creators layout and template sql has warnings)\n";
12644 SetVersion($DBversion);
12647 $DBversion = "16.05.00.000";
12648 if ( CheckVersion($DBversion) ) {
12649 print "Upgrade to $DBversion done (Koha 16.05)\n";
12650 SetVersion($DBversion);
12653 $DBversion = "16.06.00.000";
12654 if ( CheckVersion($DBversion) ) {
12655 print "Upgrade to $DBversion done (Koha 16.06 - starting a new dev line at KohaCon16 in Thessaloniki, Greece! Koha is great!)\n";
12656 SetVersion($DBversion);
12659 $DBversion = "16.06.00.001";
12660 if ( CheckVersion($DBversion) ) {
12662 UPDATE accountlines SET accounttype='HE', description=itemnumber WHERE (description REGEXP '^Hold waiting too long [0-9]+') AND accounttype='F';
12665 print "Upgrade to $DBversion done (Bug 16200 - 'Hold waiting too long' fee has a translation problem)\n";
12666 SetVersion($DBversion);
12669 $DBversion = "16.06.00.002";
12670 if ( CheckVersion($DBversion) ) {
12671 unless ( column_exists('borrowers', 'updated_on') ) {
12673 ALTER TABLE borrowers
12674 ADD COLUMN updated_on timestamp NULL DEFAULT CURRENT_TIMESTAMP
12675 ON UPDATE CURRENT_TIMESTAMP
12676 AFTER privacy_guarantor_checkouts;
12679 ALTER TABLE deletedborrowers
12680 ADD COLUMN updated_on timestamp NULL DEFAULT CURRENT_TIMESTAMP
12681 ON UPDATE CURRENT_TIMESTAMP
12682 AFTER privacy_guarantor_checkouts;
12686 print "Upgrade to $DBversion done (Bug 10459 - borrowers should have a timestamp)\n";
12687 SetVersion($DBversion);
12690 $DBversion = "16.06.00.003";
12691 if ( CheckVersion($DBversion) ) {
12693 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
12694 SELECT 'MaxItemsToProcessForBatchMod', value, NULL, 'Process up to a given number of items in a single item modification batch.', 'Integer' FROM systempreferences WHERE variable='MaxItemsForBatch';
12697 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
12698 SELECT 'MaxItemsToDisplayForBatchDel', value, NULL, 'Display up to a given number of items in a single item deletionbatch.', 'Integer' FROM systempreferences WHERE variable='MaxItemsForBatch';
12701 DELETE FROM systempreferences WHERE variable="MaxItemsForBatch";
12704 print "Upgrade to $DBversion done (Bug 11490 - MaxItemsForBatch should be split into two new prefs)\n";
12705 SetVersion($DBversion);
12708 $DBversion = '16.06.00.004';
12709 if ( CheckVersion($DBversion) ) {
12711 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
12712 SELECT 'OPACXSLTListsDisplay', COALESCE(value,''), '', 'Enable XSLT stylesheet control over lists pages display on OPAC', 'Free'
12713 FROM systempreferences WHERE variable='OPACXSLTResultsDisplay';
12717 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
12718 SELECT 'XSLTListsDisplay', COALESCE(value,''), '', 'Enable XSLT stylesheet control over lists pages display on intranet', 'Free'
12719 FROM systempreferences WHERE variable='XSLTResultsDisplay';
12722 print "Upgrade to $DBversion done (Bug 15485: Allow choosing different XSLTs for lists)\n";
12723 SetVersion($DBversion);
12726 $DBversion = '16.06.00.005';
12727 if ( CheckVersion($DBversion) ) {
12729 UPDATE `systempreferences` set options = 'US|FR|CH' where variable = 'CurrencyFormat';
12732 print "Upgrade to $DBversion done (Bug 16768 - Add official number format for Switzerland: 1'234'567.89)\n";
12733 SetVersion($DBversion);
12736 $DBversion = "16.06.00.006";
12737 if ( CheckVersion($DBversion) ) {
12739 CREATE TABLE `refund_lost_item_fee_rules` (
12740 `branchcode` varchar(10) NOT NULL default '',
12741 `refund` tinyint(1) NOT NULL default 0,
12742 PRIMARY KEY (`branchcode`)
12743 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
12746 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
12747 VALUES( 'RefundLostOnReturnControl',
12749 'If a lost item is returned, choose which branch to pick rules for refunding.',
12750 'CheckinLibrary|PatronLibrary|ItemHomeBranch|ItemHoldingbranch',
12753 # Pick the old syspref as the default rule
12755 INSERT INTO refund_lost_item_fee_rules (branchcode,refund)
12756 SELECT '*', COALESCE(value,'1') FROM systempreferences WHERE variable='RefundLostItemFeeOnReturn'
12758 # Delete the old syspref
12760 DELETE IGNORE FROM systempreferences
12761 WHERE variable='RefundLostItemFeeOnReturn'
12764 print "Upgrade to $DBversion done (Bug 14048: Change RefundLostItemFeeOnReturn to be branch specific)\n";
12765 SetVersion($DBversion);
12768 $DBversion = '16.06.00.007';
12769 if ( CheckVersion($DBversion) ) {
12771 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
12772 VALUES ('PatronQuickAddFields', '', 'A list of fields separated by "|" to be displayed along with mandatory fields in the patron quick add form if chosen at patron entry', NULL, 'Free');
12775 print "Upgrade to $DBversion done (Bug 3534 - Patron quick add form)\n";
12776 SetVersion($DBversion);
12779 $DBversion = '16.06.00.008';
12780 if ( CheckVersion($DBversion) ) {
12782 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
12783 VALUES('CheckPrevCheckout','hardno','hardyes|softyes|softno|hardno','By default, for every item checked out, should we warn if the patron has checked out that item in the past?','Choice');
12786 ALTER TABLE categories
12787 ADD COLUMN `checkprevcheckout` varchar(7) NOT NULL default 'inherit'
12788 AFTER `default_privacy`;
12791 ALTER TABLE borrowers
12792 ADD COLUMN `checkprevcheckout` varchar(7) NOT NULL default 'inherit'
12793 AFTER `privacy_guarantor_checkouts`;
12796 ALTER TABLE deletedborrowers
12797 ADD COLUMN `checkprevcheckout` varchar(7) NOT NULL default 'inherit'
12798 AFTER `privacy_guarantor_checkouts`;
12801 print "Upgrade to $DBversion done (Bug 6906 - show 'Borrower has previously issued \$ITEM' alert on checkout)\n";
12802 SetVersion($DBversion);
12805 $DBversion = '16.06.00.009';
12806 if ( CheckVersion($DBversion) ) {
12808 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
12809 VALUES ('IntranetCatalogSearchPulldown','0',NULL,'Show a search field pulldown for \"Search the catalog\" boxes. ','YesNo');
12812 print "Upgrade to $DBversion done (Bug 14902 - Add qualifier menu to staff side 'Search the Catalog')\n";
12813 SetVersion($DBversion);
12816 $DBversion = '16.06.00.010';
12817 if ( CheckVersion($DBversion) ) {
12819 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
12820 VALUES ('MaxOpenSuggestions','',NULL,'Limit the number of open suggestions a patron can have at once, unlimited if blank','Integer')
12823 print "Upgrade to $DBversion done (Bug 15128 - Add ability to limit the number of open purchase suggestions a patron can make)\n";
12824 SetVersion($DBversion);
12827 $DBversion = '16.06.00.011';
12828 if ( CheckVersion($DBversion) ) {
12830 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES
12831 ('NovelistSelectStaffEnabled','0',NULL,'Enable Novelist Select content to the Staff Interface (requires that you have entered in a user profile and password, which can be seen in image links)','YesNo'),
12832 ('NovelistSelectStaffView','tab','tab|above|below','Where to display Novelist Select content','Choice');
12835 print "Upgrade to $DBversion done (Bug 11606 - Novelist Select in Staff Client)\n";
12836 SetVersion($DBversion);
12839 $DBversion = '16.06.00.012';
12840 if ( CheckVersion($DBversion) ) {
12842 ALTER TABLE virtualshelves MODIFY COLUMN created_on DATETIME not NULL;
12845 print "Upgrade to $DBversion done (Bug 16573 - Web installer fails to load structure and sample data on MySQL 5.7)\n";
12846 SetVersion($DBversion);
12849 $DBversion = '16.06.00.013';
12850 if ( CheckVersion($DBversion) ) {
12852 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
12853 ('OPACResultsLibrary', 'homebranch', 'homebranch|holdingbranch', 'Defines whether the OPAC displays the holding or home branch in search results when using XSLT', 'Choice');
12856 print "Upgrade to $DBversion done (Bug 7441 - Search results showing wrong branch)\n";
12857 SetVersion($DBversion);
12860 $DBversion = "16.06.00.014";
12861 if ( CheckVersion($DBversion) ) {
12863 ALTER TABLE `action_logs` ADD COLUMN `interface` VARCHAR(30) DEFAULT NULL AFTER `info`;
12867 ALTER TABLE `action_logs` ADD KEY `interface` (`interface`);
12870 print "Upgrade to $DBversion done (Bug 16829: action_logs should have an 'interface' column)\n";
12871 SetVersion($DBversion);
12874 $DBversion = "16.06.00.015";
12875 if ( CheckVersion($DBversion) ) {
12877 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type ) VALUES
12878 ('HoldsLog','0',NULL,'If ON, log create/cancel/suspend/resume actions on holds.','YesNo');
12881 print "Upgrade to $DBversion done (Bug 14642: Add logging of hold modifications)\n";
12882 SetVersion($DBversion);
12885 $DBversion = "16.06.00.016";
12886 if ( CheckVersion($DBversion) ) {
12888 update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'YYYY', '<<YYYY>>') where defaultvalue like "%YYYY%" and defaultvalue not like "%<<YYYY>>%";
12891 update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'MM', '<<MM>>') where defaultvalue like "%MM%" and defaultvalue not like "%<<MM>>%";
12894 update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'DD', '<<DD>>') where defaultvalue like "%DD%" and defaultvalue not like "%<<DD>>%";
12897 update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'user', '<<USER>>') where defaultvalue like "%user%" and defaultvalue not like "%<<USER>>%";
12900 print "Upgrade to $DBversion done (Bug 7045 - Default-value substitution inconsistent)\n";
12901 SetVersion($DBversion);
12904 $DBversion = "16.06.00.017";
12905 if ( CheckVersion($DBversion) ) {
12907 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('OPACSuggestionMandatoryFields','title','','Define the mandatory fields for a patron purchase suggestions made via OPAC.','multiple');
12910 print "Upgrade to $DBversion done (Bug 10848 - Allow configuration of mandatory/required fields on the suggestion form in OPAC)\n";
12911 SetVersion($DBversion);
12914 $DBversion = "16.06.00.018";
12915 if ( CheckVersion($DBversion) ) {
12917 ALTER TABLE issuingrules ADD COLUMN holds_per_record SMALLINT(6) NOT NULL DEFAULT 1 AFTER reservesallowed;
12920 print "Upgrade to $DBversion done (Bug 14695 - Add ability to place multiple item holds on a given record per patron)\n";
12921 SetVersion($DBversion);
12924 $DBversion = "16.06.00.019";
12925 if ( CheckVersion($DBversion) ) {
12927 ALTER TABLE reviews CHANGE COLUMN approved approved tinyint(4) DEFAULT 0;
12930 UPDATE reviews SET approved=0 WHERE approved IS NULL;
12933 print "Upgrade to $DBversion done (Bug 15839 - Move the reviews related code to Koha::Reviews)\n";
12934 SetVersion($DBversion);
12937 $DBversion = "16.06.00.020";
12938 if ( CheckVersion($DBversion) ) {
12940 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('SwitchOnSiteCheckouts', '0', 'Automatically switch an on-site checkout to a normal checkout', NULL, 'YesNo');
12943 print "Upgrade to $DBversion done (Bug 16272 - Transform checkout from on-site checkout to regular checkout)\n";
12944 SetVersion($DBversion);
12947 $DBversion = "16.06.00.021";
12948 if ( CheckVersion($DBversion) ) {
12950 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('PatronSelfRegistrationEmailMustBeUnique', '0', 'If set, the field borrowers.email will be considered as a unique field on self registering', NULL, 'YesNo');
12953 print "Upgrade to $DBversion done (Bug 16275 - Prevent patron self registration if the email already filled in borrowers.email)\n";
12954 SetVersion($DBversion);
12957 $DBversion = "16.06.00.022";
12958 if ( CheckVersion($DBversion) ) {
12960 INSERT IGNORE INTO `permissions`
12961 (module_bit, code, description) VALUES
12962 (16, 'delete_reports', 'Delete SQL reports');
12965 INSERT IGNORE INTO user_permissions
12966 (borrowernumber, module_bit,code)
12967 SELECT borrowernumber,module_bit,'delete_reports'
12968 FROM user_permissions
12969 WHERE module_bit=16 AND code='create_reports';
12972 print "Upgrade to $DBversion done (Bug 16978 - Add delete reports user permission)\n";
12973 SetVersion($DBversion);
12976 $DBversion = "16.06.00.023";
12977 if ( CheckVersion($DBversion) ) {
12978 my $pref = C4::Context->preference('timeout');
12979 if( !$pref || $pref eq '12000000' ) {
12980 # update if pref is null or equals old default value
12982 UPDATE systempreferences SET value = '1d', type = 'Free'
12983 WHERE variable = 'timeout'
12985 print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has been adjusted.\n";
12987 # only update pref type
12989 UPDATE systempreferences SET type = 'Free'
12990 WHERE variable = 'timeout'
12992 print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has not been adjusted.\n";
12994 SetVersion($DBversion);
12997 $DBversion = "16.06.00.024";
12998 if ( CheckVersion($DBversion) ) {
13000 UPDATE language_descriptions SET description = 'Română' WHERE subtag = 'ro' AND type = 'language' AND lang = 'ro';
13003 print "Upgrade to $DBversion done (Bug 16311 - Advanced search language limit typo for Romanian)\n";
13004 SetVersion($DBversion);
13007 $DBversion = "16.06.00.025";
13008 if ( CheckVersion($DBversion) ) {
13010 ALTER TABLE `subscription` ADD `itemtype` VARCHAR( 10 ) NULL AFTER reneweddate, ADD `previousitemtype` VARCHAR( 10 ) NULL AFTER itemtype;
13013 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
13014 ('makePreviousSerialAvailable','0','make previous serial automatically available when collecting a new serial. Please note that the item-level_itypes syspref must be set to specific item.','','YesNo');
13017 print "Upgrade to $DBversion done (Bug 7677 - Subscriptions: Ability to define default itemtype and automatically change itemtype of older issues on receive of next issue)\n";
13018 SetVersion($DBversion);
13021 $DBversion = "16.06.00.026";
13022 if ( CheckVersion($DBversion) ) {
13024 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('PatronSelfRegistrationLibraryList', '', 'Only display libraries listed. If empty, all libraries are displayed.', NULL, 'Free');
13027 print "Upgrade to $DBversion done (Bug 16274 - Make the selfregistration branchcode selection configurable)\n";
13028 SetVersion($DBversion);
13031 $DBversion = "16.06.00.027";
13032 if ( CheckVersion($DBversion) ) {
13033 unless ( column_exists('borrowers', 'lastseen') ) {
13035 ALTER TABLE borrowers ADD COLUMN lastseen datetime default NULL AFTER updated_on;
13038 ALTER TABLE deletedborrowers ADD COLUMN lastseen datetime default NULL AFTER updated_on;
13042 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('TrackLastPatronActivity', '0', 'If set, the field borrowers.lastseen will be updated everytime a patron is seen', NULL, 'YesNo');
13045 print "Upgrade to $DBversion done (Bug 16274 - Make the selfregistration branchcode selection configurable)\n";
13046 SetVersion($DBversion);
13049 $DBversion = '16.06.00.028';
13050 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
13052 print "Attempting upgrade to $DBversion (Bug 17135) ...\n";
13053 my $maintenance_script = C4::Context->config("intranetdir") . "/installer/data/mysql/fix_unclosed_nonaccruing_fines_bug17135.pl";
13054 system("perl $maintenance_script --confirm");
13056 print "Upgrade to $DBversion done (Bug 17135 - Fine for the previous overdue may get overwritten by the next one)\n";
13058 unless ($original_version < TransformToNum("3.23.00.032")) { ## Bug 15675
13059 print "WARNING: There is a possibility (= just a possibility, it's configuration dependent etc.) that - due to regression introduced by Bug 15675 - some old fine records for overdued items (items which got renewed 1+ time while being overdue) may have been overwritten in your production 16.05+ database. See Bugzilla reports for Bug 14390 and Bug 17135 for more details.\n";
13060 print "WARNING: Please note that this upgrade does not try to recover such overwitten old fine records (if any) - it's just an follow-up for Bug 14390, its sole purpose is preventing eventual further-on overwrites from happening in the future. Optional recovery of the overwritten fines (again, if any) is like, totally outside of the scope of this particular upgrade!\n";
13062 SetVersion ($DBversion);
13066 $DBversion = "16.06.00.029";
13067 if ( CheckVersion($DBversion) ) {
13069 UPDATE systempreferences SET type="Choice" WHERE variable="UsageStatsLibraryType";
13072 UPDATE systempreferences SET value="Canada" WHERE variable="UsageStatsCountry" AND value="CANADA";
13075 UPDATE systempreferences SET value="Czech Republic" WHERE variable="UsageStatsCountry" AND value="CZ";
13078 UPDATE systempreferences SET value="United Kingdom" WHERE variable="UsageStatsCountry" AND (value="England" OR value="UK");
13081 UPDATE systempreferences SET value="Spain" WHERE variable="UsageStatsCountry" AND value="España";
13084 UPDATE systempreferences SET value="Greece" WHERE variable="UsageStatsCountry" AND value="GR";
13087 UPDATE systempreferences SET value="Ireland" WHERE variable="UsageStatsCountry" AND value="Irelanbd";
13090 UPDATE systempreferences SET value="Mexico" WHERE variable="UsageStatsCountry" AND value="México";
13093 UPDATE systempreferences SET value="Peru" WHERE variable="UsageStatsCountry" AND value="Perú";
13096 UPDATE systempreferences SET value="Dominican Rep." WHERE variable="UsageStatsCountry" AND value="República Dominicana";
13099 UPDATE systempreferences SET value="Trinidad & Tob." WHERE variable="UsageStatsCountry" AND value="Trinidad";
13102 UPDATE systempreferences SET value="Turkey" WHERE variable="UsageStatsCountry" AND value="Türkiye";
13105 UPDATE systempreferences SET value="USA" WHERE variable="UsageStatsCountry" AND (value="United States" OR value="United States of America" OR value="US");
13108 UPDATE systempreferences SET value="Zimbabwe" WHERE variable="UsageStatsCountry" AND value="Zimbabbwe";
13111 print "Upgrade to $DBversion done (Bug 14707 - Change UsageStatsCountry from free text to a dropdown list)\n";
13112 SetVersion($DBversion);
13115 $DBversion = "16.06.00.030";
13116 if ( CheckVersion($DBversion) ) {
13118 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
13119 ('OPACHoldingsDefaultSortField','first_column','first_column|homebranch|holdingbranch','Default sort field for the holdings table at the OPAC','choice');
13122 print "Upgrade to $DBversion done (Bug 16552 - Add the ability to change the default holdings sort)\n";
13123 SetVersion($DBversion);
13126 $DBversion = "16.06.00.031";
13127 if ( CheckVersion($DBversion) ) {
13129 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('PatronSelfRegistrationPrefillForm', '1', 'Display password and prefill login form after a patron has self registered', NULL, 'YesNo');
13132 print "Upgrade to $DBversion done (Bug 16273 - Prevent selfregistration from printing the borrower password and filling the logging form)\n";
13133 SetVersion($DBversion);
13136 $DBversion = "16.06.00.032";
13137 if ( CheckVersion($DBversion) ) {
13139 UPDATE marc_subfield_structure SET authorised_value="WITHDRAWN" WHERE authorised_value="WTHDRAWN";
13142 print "Upgrade to $DBversion done (Bug 17357 - WTHDRAWN is still used in installer files)\n";
13143 SetVersion($DBversion);
13147 $DBversion = "16.06.00.033";
13148 if ( CheckVersion($DBversion) ) {
13150 CREATE TABLE authorised_value_categories (
13151 category_name VARCHAR(32) NOT NULL,
13152 primary key (category_name)
13153 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
13155 ## Add authorised value categories
13157 INSERT INTO authorised_value_categories (category_name )
13158 SELECT DISTINCT category FROM authorised_values;
13161 ## Add special categories
13163 INSERT IGNORE INTO authorised_value_categories( category_name )
13173 ('REPORT_SUBGROUP'),
13176 ('SUGGEST_STATUS'),
13180 ## Add very special categories
13182 INSERT IGNORE INTO authorised_value_categories( category_name )
13190 INSERT IGNORE INTO authorised_value_categories( category_name )
13202 ALTER TABLE items_search_fields
13203 DROP FOREIGN KEY items_search_fields_authorised_values_category;
13207 ALTER TABLE items_search_fields
13208 ADD CONSTRAINT `items_search_fields_authorised_values_category` FOREIGN KEY (`authorised_values_category`) REFERENCES `authorised_value_categories` (`category_name`) ON DELETE SET NULL ON UPDATE CASCADE;
13212 ALTER TABLE authorised_values
13213 ADD CONSTRAINT `authorised_values_authorised_values_category` FOREIGN KEY (`category`) REFERENCES `authorised_value_categories` (`category_name`) ON DELETE CASCADE ON UPDATE CASCADE;
13217 INSERT IGNORE INTO authorised_value_categories( category_name ) SELECT DISTINCT(authorised_value) FROM marc_subfield_structure;
13221 UPDATE marc_subfield_structure SET authorised_value = NULL WHERE authorised_value = '';
13224 # If the DB has been created before 3.19.00.006, the default collate for marc_subfield_structure if not set to utf8_unicode_ci and the new FK will not be create (MariaDB or MySQL will raise err 150)
13225 my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE marc_subfield_structure|);
13226 $table_sth->execute;
13227 my @table = $table_sth->fetchrow_array;
13228 if ( $table[1] !~ /COLLATE=utf8_unicode_ci/ and $table[1] !~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables
13229 $dbh->do(qq|ALTER TABLE marc_subfield_structure CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
13232 ALTER TABLE marc_subfield_structure
13233 MODIFY COLUMN authorised_value VARCHAR(32) DEFAULT NULL,
13234 ADD CONSTRAINT marc_subfield_structure_ibfk_1 FOREIGN KEY (authorised_value) REFERENCES authorised_value_categories (category_name) ON UPDATE CASCADE ON DELETE SET NULL;
13237 print "Upgrade to $DBversion done (Bug 17216 - Add a new table to store authorized value categories)\n";
13238 SetVersion($DBversion);
13241 $DBversion = "16.06.00.034";
13242 if ( CheckVersion($DBversion) ) {
13244 ALTER TABLE biblioitems DROP COLUMN marc;
13247 ALTER TABLE deletedbiblioitems DROP COLUMN marc;
13250 print "Upgrade to $DBversion done (Bug 10455 - remove redundant 'biblioitems.marc' field)\n";
13251 SetVersion($DBversion);
13254 $DBversion = '16.06.00.035';
13255 if ( CheckVersion($DBversion) ) {
13257 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
13258 SELECT 'AllowItemsOnHoldCheckoutSCO',COALESCE(value,0),'','Do not generate RESERVE_WAITING and RESERVED warning in the SCO module when checking out items reserved to someone else. This allows self checkouts for those items.','YesNo'
13259 FROM systempreferences WHERE variable='AllowItemsOnHoldCheckout';
13262 print "Upgrade to $DBversion done (Bug 15131: Give SCO separate control for AllowItemsOnHoldCheckout)\n";
13263 SetVersion($DBversion);
13266 $DBversion = '16.06.00.036';
13267 if ( CheckVersion($DBversion) ) {
13269 CREATE TABLE IF NOT EXISTS `housebound_profile` (
13270 `borrowernumber` int(11) NOT NULL, -- Number of the borrower associated with this profile.
13271 `day` text NOT NULL, -- The preferred day of the week for delivery.
13272 `frequency` text NOT NULL, -- The Authorised_Value definining the pattern for delivery.
13273 `fav_itemtypes` text default NULL, -- Free text describing preferred itemtypes.
13274 `fav_subjects` text default NULL, -- Free text describing preferred subjects.
13275 `fav_authors` text default NULL, -- Free text describing preferred authors.
13276 `referral` text default NULL, -- Free text indicating how the borrower was added to the service.
13277 `notes` text default NULL, -- Free text for additional notes.
13278 PRIMARY KEY (`borrowernumber`),
13279 CONSTRAINT `housebound_profile_bnfk`
13280 FOREIGN KEY (`borrowernumber`)
13281 REFERENCES `borrowers` (`borrowernumber`)
13282 ON UPDATE CASCADE ON DELETE CASCADE
13283 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
13286 CREATE TABLE IF NOT EXISTS `housebound_visit` (
13287 `id` int(11) NOT NULL auto_increment, -- ID of the visit.
13288 `borrowernumber` int(11) NOT NULL, -- Number of the borrower, & the profile, linked to this visit.
13289 `appointment_date` date default NULL, -- Date of visit.
13290 `day_segment` varchar(10), -- Rough time frame: 'morning', 'afternoon' 'evening'
13291 `chooser_brwnumber` int(11) default NULL, -- Number of the borrower to choose items for delivery.
13292 `deliverer_brwnumber` int(11) default NULL, -- Number of the borrower to deliver items.
13293 PRIMARY KEY (`id`),
13294 CONSTRAINT `houseboundvisit_bnfk`
13295 FOREIGN KEY (`borrowernumber`)
13296 REFERENCES `housebound_profile` (`borrowernumber`)
13297 ON UPDATE CASCADE ON DELETE CASCADE,
13298 CONSTRAINT `houseboundvisit_bnfk_1`
13299 FOREIGN KEY (`chooser_brwnumber`)
13300 REFERENCES `borrowers` (`borrowernumber`)
13301 ON UPDATE CASCADE ON DELETE CASCADE,
13302 CONSTRAINT `houseboundvisit_bnfk_2`
13303 FOREIGN KEY (`deliverer_brwnumber`)
13304 REFERENCES `borrowers` (`borrowernumber`)
13305 ON UPDATE CASCADE ON DELETE CASCADE
13306 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
13309 CREATE TABLE IF NOT EXISTS `housebound_role` (
13310 `borrowernumber_id` int(11) NOT NULL, -- borrowernumber link
13311 `housebound_chooser` tinyint(1) NOT NULL DEFAULT 0, -- set to 1 to indicate this patron is a housebound chooser volunteer
13312 `housebound_deliverer` tinyint(1) NOT NULL DEFAULT 0, -- set to 1 to indicate this patron is a housebound deliverer volunteer
13313 PRIMARY KEY (`borrowernumber_id`),
13314 CONSTRAINT `houseboundrole_bnfk`
13315 FOREIGN KEY (`borrowernumber_id`)
13316 REFERENCES `borrowers` (`borrowernumber`)
13317 ON UPDATE CASCADE ON DELETE CASCADE
13318 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
13321 INSERT IGNORE INTO systempreferences
13322 (variable,value,options,explanation,type) VALUES
13323 ('HouseboundModule',0,'',
13324 'If ON, enable housebound module functionality.','YesNo');
13327 INSERT IGNORE INTO authorised_value_categories( category_name ) VALUES
13331 INSERT IGNORE INTO authorised_values (category, authorised_value, lib) VALUES
13332 ('HSBND_FREQ','EW','Every week');
13335 print "Upgrade to $DBversion done (Bug 5670 - Housebound Readers Module)\n";
13336 SetVersion($DBversion);
13339 $DBversion = "16.06.00.037";
13340 if ( CheckVersion($DBversion) ) {
13342 ALTER TABLE `issuingrules` ADD `article_requests` ENUM( 'no', 'yes', 'bib_only', 'item_only' ) NOT NULL DEFAULT 'no' AFTER `opacitemholds`;
13345 INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES
13346 ('ArticleRequests', '0', NULL, 'Enables the article request feature', 'YesNo'),
13347 ('ArticleRequestsMandatoryFields', '', NULL, 'Comma delimited list of required fields for bibs where article requests rule = ''yes''', 'multiple'),
13348 ('ArticleRequestsMandatoryFieldsItemsOnly', '', NULL, 'Comma delimited list of required fields for bibs where article requests rule = ''item_only''', 'multiple'),
13349 ('ArticleRequestsMandatoryFieldsRecordOnly', '', NULL, 'Comma delimited list of required fields for bibs where article requests rule = ''bib_only''', 'multiple');
13352 CREATE TABLE IF NOT EXISTS `article_requests` (
13353 `id` int(11) NOT NULL AUTO_INCREMENT,
13354 `borrowernumber` int(11) NOT NULL,
13355 `biblionumber` int(11) NOT NULL,
13356 `itemnumber` int(11) DEFAULT NULL,
13357 `branchcode` varchar(10) CHARACTER SET utf8 COLLATE utf8_unicode_ci DEFAULT NULL,
13365 `patron_notes` text,
13366 `status` enum('PENDING','PROCESSING','COMPLETED','CANCELED') NOT NULL DEFAULT 'PENDING',
13368 `created_on` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
13369 `updated_on` timestamp NULL DEFAULT NULL,
13370 PRIMARY KEY (`id`),
13371 KEY `borrowernumber` (`borrowernumber`),
13372 KEY `biblionumber` (`biblionumber`),
13373 KEY `itemnumber` (`itemnumber`),
13374 KEY `branchcode` (`branchcode`),
13375 CONSTRAINT `article_requests_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
13376 CONSTRAINT `article_requests_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
13377 CONSTRAINT `article_requests_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE SET NULL ON UPDATE CASCADE,
13378 CONSTRAINT `article_requests_ibfk_4` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE SET NULL ON UPDATE CASCADE
13379 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
13382 INSERT INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content`, `message_transport_type`) VALUES
13383 ('circulation', 'AR_CANCELED', '', 'Article Request - Email - Canceled', 0, 'Article Request Canceled', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nYour request for an article from <<biblio.title>> (<<items.barcode>>) has been canceled for the following reason:\r\n\r\n<<article_requests.notes>>\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n', 'email'),
13384 ('circulation', 'AR_COMPLETED', '', 'Article Request - Email - Completed', 0, 'Article Request Completed', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nWe are have completed your request for an article from <<biblio.title>> (<<items.barcode>>).\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n\r\nYou may pick your article up at <<branches.branchname>>.\r\n\r\nThank you!', 'email'),
13385 ('circulation', 'AR_PENDING', '', 'Article Request - Email - Open', 0, 'Article Request Received', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nWe have received your request for an article from <<biblio.title>> (<<items.barcode>>).\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n\r\n\r\nThank you!', 'email'),
13386 ('circulation', 'AR_SLIP', '', 'Article Request - Print Slip', 0, 'Test', 'Article Request:\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nTitle: <<biblio.title>>\r\nBarcode: <<items.barcode>>\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n', 'print'),
13387 ('circulation', 'AR_PROCESSING', '', 'Article Request - Email - Processing', 0, 'Article Request Processing', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nWe are now processing your request for an article from <<biblio.title>> (<<items.barcode>>).\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n\r\nThank you!', 'email');
13390 print "Upgrade to $DBversion done (Bug 14610 - Add ability to place article requests in Koha)\n";
13391 SetVersion($DBversion);
13394 $DBversion = '16.06.00.038';
13395 if ( CheckVersion($DBversion) ) {
13397 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('DefaultPatronSearchFields','surname,firstname,othernames,cardnumber,userid',NULL,'Comma separated list defining the default fields to be used during a patron search','free');
13400 print "Upgrade to $DBversion done (Bug 14874 - Add ability to search for patrons by date of birth from checkout and patron quick searches)\n";
13401 SetVersion($DBversion);
13404 $DBversion = "16.06.00.039";
13405 if ( CheckVersion($DBversion) ) {
13407 my $sth = $dbh->prepare(q{
13408 SELECT s.itemnumber, i.itype, b.itemtype
13410 ( SELECT DISTINCT itemnumber
13412 WHERE ( type = "return" OR type = "localuse" ) AND
13416 ( SELECT itemnumber,biblionumber, itype
13419 SELECT itemnumber,biblionumber, itype
13422 ON (s.itemnumber=i.itemnumber)
13424 ( SELECT biblionumber, itemtype
13427 SELECT biblionumber, itemtype
13428 FROM deletedbiblioitems
13430 ON (i.biblionumber=b.biblionumber);
13434 my $update_sth = $dbh->prepare(q{
13437 WHERE itemnumber=? AND itemtype IS NULL
13439 my $ilevel_itypes = C4::Context->preference('item-level_itypes');
13441 while ( my ($itemnumber,$item_itype,$biblio_itype) = $sth->fetchrow_array ) {
13443 my $effective_itemtype = $ilevel_itypes
13444 ? $item_itype // $biblio_itype
13446 warn "item-level_itypes set but no itype defined for item ($itemnumber)"
13447 if $ilevel_itypes and !defined $item_itype;
13448 $update_sth->execute( $effective_itemtype, $itemnumber );
13451 print "Upgrade to $DBversion done (Bug 14598: itemtype is not set on statistics by C4::Circulation::AddReturn)\n";
13452 SetVersion($DBversion);
13455 $DBversion = '16.06.00.040';
13456 if ( CheckVersion($DBversion) ) {
13458 ALTER TABLE `aqcontacts` ADD `orderacquisition` BOOLEAN NOT NULL DEFAULT 0 AFTER `notes`;
13461 INSERT IGNORE INTO `letter` (module, code, name, title, content, message_transport_type) VALUES
13462 ('orderacquisition','ACQORDER','Acquisition order','Order','<<aqbooksellers.name>>\r\n<<aqbooksellers.address1>>\r\n<<aqbooksellers.address2>>\r\n<<aqbooksellers.address3>>\r\n<<aqbooksellers.address4>>\r\n<<aqbooksellers.phone>>\r\n\r\nPlease order for the library:\r\n\r\n<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (quantity: <<aqorders.quantity>>) ($<<aqorders.listprice>> each).</order>\r\n\r\nThank you,\n\n<<branches.branchname>>', 'email');
13465 print "Upgrade to $DBversion done (Bug 5260 - Add option to send an order by e-mail to the acquisition module)\n";
13466 SetVersion($DBversion);
13469 $DBversion = '16.06.00.041';
13470 if ( CheckVersion($DBversion) ) {
13472 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('AggressiveMatchOnISSN','0','If enabled, attempt to match aggressively by trying all variations of the ISSNs in the imported record as a phrase in the ISSN fields of already cataloged records when matching on ISSN with the record import tool','','YesNo')
13475 print "Upgrade to $DBversion done (Bug 14629 - Add aggressive ISSN matching feature equivalent to the aggressive ISBN matcher)\n";
13476 SetVersion($DBversion);
13479 $DBversion = '16.06.00.042';
13480 if ( CheckVersion($DBversion) ) {
13482 ALTER TABLE aqorders
13483 ADD COLUMN unitprice_tax_excluded decimal(28,6) default NULL AFTER unitprice,
13484 ADD COLUMN unitprice_tax_included decimal(28,6) default NULL AFTER unitprice_tax_excluded,
13485 ADD COLUMN rrp_tax_excluded decimal(28,6) default NULL AFTER rrp,
13486 ADD COLUMN rrp_tax_included decimal(28,6) default NULL AFTER rrp_tax_excluded,
13487 ADD COLUMN ecost_tax_excluded decimal(28,6) default NULL AFTER ecost,
13488 ADD COLUMN ecost_tax_included decimal(28,6) default NULL AFTER ecost_tax_excluded,
13489 ADD COLUMN tax_value decimal(6,4) default NULL AFTER gstrate
13492 # rename gstrate with tax_rate
13493 $dbh->do(q|ALTER TABLE aqorders CHANGE COLUMN gstrate tax_rate decimal(6,4) DEFAULT NULL|);
13494 $dbh->do(q|ALTER TABLE aqbooksellers CHANGE COLUMN gstrate tax_rate decimal(6,4) DEFAULT NULL|);
13496 # Fill the new columns
13497 my $orders = $dbh->selectall_arrayref(q|
13498 SELECT * FROM aqorders
13499 |, { Slice => {} } );
13501 my $sth_update_order = $dbh->prepare(q|
13503 SET unitprice_tax_excluded = ?,
13504 unitprice_tax_included = ?,
13505 rrp_tax_excluded = ?,
13506 rrp_tax_included = ?,
13507 ecost_tax_excluded = ?,
13508 ecost_tax_included = ?,
13510 WHERE ordernumber = ?
13513 my $sth_get_bookseller = $dbh->prepare(q|
13514 SELECT aqbooksellers.*
13516 LEFT JOIN aqbasket ON aqbasket.booksellerid = aqbooksellers.id
13517 LEFT JOIN aqorders ON aqorders.basketno = aqbasket.basketno
13518 WHERE ordernumber = ?
13521 require Number::Format;
13522 my $format = Number::Format->new;
13524 for my $order ( @$orders ) {
13525 $sth_get_bookseller->execute( $order->{ordernumber} );
13526 my ( $bookseller ) = $sth_get_bookseller->fetchrow_hashref;
13527 $order->{rrp} = $format->round( $order->{rrp}, $precision );
13528 $order->{ecost} = $format->round( $order->{ecost}, $precision );
13529 $order->{tax_rate} ||= 0 ; # tax_rate can be NULL in DB
13531 if ( $bookseller->{listincgst} ) {
13532 $order->{rrp_tax_included} = $order->{rrp};
13533 $order->{rrp_tax_excluded} = $format->round(
13534 $order->{rrp_tax_included} / ( 1 + $order->{tax_rate} ), $precision );
13535 $order->{ecost_tax_included} = $order->{ecost};
13536 $order->{ecost_tax_excluded} = $format->round(
13537 $order->{ecost} / ( 1 + $order->{tax_rate} ), $precision );
13540 $order->{rrp_tax_excluded} = $order->{rrp};
13541 $order->{rrp_tax_included} = $format->round(
13542 $order->{rrp} * ( 1 + $order->{tax_rate} ), $precision );
13543 $order->{ecost_tax_excluded} = $order->{ecost};
13544 $order->{ecost_tax_included} = $format->round(
13545 $order->{ecost} * ( 1 + $order->{tax_rate} ), $precision );
13549 if ( $bookseller->{listincgst} ) {
13550 $order->{unitprice_tax_included} = $format->round( $order->{unitprice}, $precision );
13551 $order->{unitprice_tax_excluded} = $format->round(
13552 $order->{unitprice_tax_included} / ( 1 + $order->{tax_rate} ), $precision );
13555 $order->{unitprice_tax_excluded} = $format->round( $order->{unitprice}, $precision );
13556 $order->{unitprice_tax_included} = $format->round(
13557 $order->{unitprice_tax_excluded} * ( 1 + $order->{tax_rate} ), $precision );
13560 # If the order is received, the tax is calculated from the unit price
13561 if ( $order->{orderstatus} eq 'complete' ) {
13562 $order->{tax_value} = $format->round(
13563 ( $order->{unitprice_tax_included} - $order->{unitprice_tax_excluded} )
13564 * $order->{quantity}, $precision );
13566 # otherwise the ecost is used
13567 $order->{tax_value} = $format->round(
13568 ( $order->{ecost_tax_included} - $order->{ecost_tax_excluded} ) *
13569 $order->{quantity}, $precision );
13572 $sth_update_order->execute(
13573 $order->{unitprice_tax_excluded},
13574 $order->{unitprice_tax_included},
13575 $order->{rrp_tax_excluded},
13576 $order->{rrp_tax_included},
13577 $order->{ecost_tax_excluded},
13578 $order->{ecost_tax_included},
13579 $order->{tax_value},
13580 $order->{ordernumber},
13584 print "Upgrade to $DBversion done (Bug 13321 - Tax and prices calculation need to be fixed)\n";
13585 SetVersion($DBversion);
13588 $DBversion = '16.06.00.043';
13589 if ( CheckVersion($DBversion) ) {
13590 # Add the new columns
13592 ALTER TABLE aqorders
13593 ADD COLUMN tax_rate_on_ordering decimal(6,4) default NULL AFTER tax_rate,
13594 ADD COLUMN tax_rate_on_receiving decimal(6,4) default NULL AFTER tax_rate_on_ordering,
13595 ADD COLUMN tax_value_on_ordering decimal(28,6) default NULL AFTER tax_value,
13596 ADD COLUMN tax_value_on_receiving decimal(28,6) default NULL AFTER tax_value_on_ordering
13599 my $orders = $dbh->selectall_arrayref(q|
13600 SELECT * FROM aqorders
13601 |, { Slice => {} } );
13603 my $sth_update_order = $dbh->prepare(q|
13605 SET tax_rate_on_ordering = tax_rate,
13606 tax_rate_on_receiving = tax_rate,
13607 tax_value_on_ordering = ?,
13608 tax_value_on_receiving = ?
13609 WHERE ordernumber = ?
13612 for my $order (@$orders) {
13613 my $tax_value_on_ordering =
13614 $order->{quantity} *
13615 $order->{ecost_tax_excluded} *
13616 $order->{tax_rate};
13618 my $tax_value_on_receiving =
13619 ( defined $order->{unitprice_tax_excluded} )
13620 ? $order->{quantity} * $order->{unitprice_tax_excluded} * $order->{tax_rate}
13623 $sth_update_order->execute( $tax_value_on_ordering,
13624 $tax_value_on_receiving, $order->{ordernumber} );
13627 # Remove the old columns
13629 ALTER TABLE aqorders
13630 CHANGE COLUMN tax_value tax_value_bak decimal(28,6) default NULL,
13631 CHANGE COLUMN tax_rate tax_rate_bak decimal(6,4) default NULL
13634 print "Upgrade to $DBversion done (Bug 13323 - Change the tax rate on receiving)\n";
13635 SetVersion($DBversion);
13638 $DBversion = '16.06.00.044';
13639 if ( CheckVersion($DBversion) ) {
13641 ALTER TABLE `messages`
13642 ADD `manager_id` int(11) NULL,
13643 ADD FOREIGN KEY (`manager_id`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL;
13646 print "Upgrade to $DBversion done (Bug 17397 - Show name of librarian who created circulation message)\n";
13647 SetVersion($DBversion);
13650 $DBversion = '16.06.00.045';
13651 if ( CheckVersion($DBversion) ) {
13653 UPDATE systempreferences SET options = "now|dateexpiry|combination", explanation = "Set whether the borrower renewal date should be counted from the dateexpiry, from the current date or by combination: if the dateexpiry is in future use dateexpiry, else use current date " WHERE variable = "BorrowerRenewalPeriodBase";
13656 print "Upgrade to $DBversion done (Bug 17443 - Make possible to renew patron by later of expiry and current date)\n";
13657 SetVersion($DBversion);
13660 $DBversion = '16.06.00.046';
13661 if ( CheckVersion($DBversion) ) {
13663 ALTER TABLE issuingrules ADD COLUMN no_auto_renewal_after INT(4) DEFAULT NULL AFTER auto_renew;
13666 print "Upgrade to $DBversion done (Bug 15581 - Add a circ rule to not allow auto-renewals after defined loan period)\n";
13667 SetVersion($DBversion);
13670 $DBversion = '16.06.00.047';
13671 if ( CheckVersion($DBversion) ) {
13673 UPDATE language_descriptions SET description = 'Čeština' WHERE subtag = 'cs' AND type = 'language' AND lang = 'cs'
13676 print "Upgrade to $DBversion done (Bug 17518: Displayed language name for Czech is wrong)\n";
13677 SetVersion($DBversion);
13680 $DBversion = '16.06.00.048';
13681 if( CheckVersion( $DBversion ) ) {
13683 INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
13684 (13, 'upload_general_files', 'Upload any file'),
13685 (13, 'upload_manage', 'Manage uploaded files');
13688 # Update user_permissions for current users (check count in uploaded_files)
13689 # Note 9 == edit_catalogue and 13 == tools
13690 # We do not insert if someone is superlibrarian, does not have edit_catalogue,
13691 # or already has all tools
13693 INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code)
13694 SELECT borrowernumber, 13, 'upload_general_files'
13696 WHERE flags<>1 AND flags & POW(2,13) = 0 AND
13697 ( flags & POW(2,9) > 0 OR (
13698 SELECT COUNT(*) FROM user_permissions
13699 WHERE borrowernumber=bo.borrowernumber AND module_bit=9 ) > 0 )
13700 AND ( SELECT COUNT(*) FROM uploaded_files ) > 0;
13703 SetVersion( $DBversion );
13704 print "Upgrade to $DBversion done (Bug 17663 - Forgotten userpermissions)\n";
13707 $DBversion = '16.06.00.049';
13708 if( CheckVersion( $DBversion ) ) {
13710 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
13711 VALUES ('ReplytoDefault', '', NULL, 'The default email address to be set as replyto.', 'Free');
13715 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
13716 VALUES ('ReturnpathDefault', '', NULL, 'The default email address to be set as return-path', 'Free');
13719 SetVersion( $DBversion );
13720 print "Upgrade to $DBversion done (Bug 17391 - ReturnpathDefault and ReplyToDefault missing from syspref.sql)\n";
13723 $DBversion = "16.06.00.050";
13724 if ( CheckVersion($DBversion) ) {
13726 # If index issn_idx still exists, we assume that dbrev 3.15.00.049 failed,
13727 # and we repeat it (partially).
13728 # Note: the db rev only pertains to biblioitems and is not needed for
13729 # deletedbiblioitems.
13731 my $temp = $dbh->selectall_arrayref( "SHOW INDEXES FROM biblioitems WHERE key_name = 'issn_idx'" );
13734 $dbh->do( "ALTER TABLE biblioitems DROP INDEX isbn" );
13735 $dbh->do( "ALTER TABLE biblioitems DROP INDEX issn" );
13736 $dbh->do( "ALTER TABLE biblioitems DROP INDEX issn_idx" );
13737 $dbh->do( "ALTER TABLE biblioitems CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL, CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL" );
13738 $dbh->do( "ALTER TABLE biblioitems ADD INDEX isbn ( isbn ( 255 ) ), ADD INDEX issn ( issn ( 255 ) )" );
13739 print "Upgrade to $DBversion done (Bug 8835). Removed issn_idx.\n";
13741 print "Upgrade to $DBversion done (Bug 8835). Everything is fine.\n";
13744 SetVersion($DBversion);
13747 $DBversion = "16.11.00.000";
13748 if ( CheckVersion($DBversion) ) {
13749 print "Upgrade to $DBversion done (Koha 16.11)\n";
13750 SetVersion($DBversion);
13753 $DBversion = "16.12.00.000";
13754 if ( CheckVersion($DBversion) ) {
13755 print "Upgrade to $DBversion done (Koha 16.12 - Our battered suitcases were piled on the sidewalk again; we had longer ways to go. But no matter, the road is life.)\n";
13756 SetVersion($DBversion);
13759 $DBversion = "16.12.00.001";
13760 if ( CheckVersion($DBversion) ) {
13762 ALTER TABLE borrower_modifications
13763 ADD COLUMN extended_attributes text DEFAULT NULL
13767 print "Upgrade to $DBversion done (Bug 17767 - Let Koha::Patron::Modification handle extended attributes)\n";
13768 SetVersion($DBversion);
13771 $DBversion = '16.12.00.002';
13772 if ( CheckVersion($DBversion) ) {
13773 unless (column_exists( 'branchtransfers', 'branchtransfer_id' )
13774 and index_exists( 'branchtransfers', 'PRIMARY' ) )
13777 "ALTER TABLE branchtransfers
13778 ADD COLUMN branchtransfer_id int(12) NOT NULL auto_increment FIRST, ADD CONSTRAINT PRIMARY KEY (branchtransfer_id);"
13782 SetVersion($DBversion);
13783 print "Upgrade to $DBversion done (Bug 14187 - branchtransfer needs a primary key (id) for DBIx and common sense.)\n";
13786 $DBversion = '16.12.00.003';
13787 if ( CheckVersion($DBversion) ) {
13788 $dbh->do(q{DELETE FROM systempreferences WHERE variable="Persona"});
13789 SetVersion($DBversion);
13790 print "Upgrade to $DBversion done (Bug 17486 - Remove 'Mozilla Persona' as an authentication method)\n";
13793 $DBversion = '16.12.00.004';
13794 if ( CheckVersion($DBversion) ) {
13796 CREATE TABLE biblio_metadata (
13797 `id` INT(11) NOT NULL AUTO_INCREMENT,
13798 `biblionumber` INT(11) NOT NULL,
13799 `format` VARCHAR(16) NOT NULL,
13800 `marcflavour` VARCHAR(16) NOT NULL,
13801 `metadata` LONGTEXT NOT NULL,
13803 UNIQUE KEY `biblio_metadata_uniq_key` (`biblionumber`,`format`,`marcflavour`),
13804 CONSTRAINT `biblio_metadata_fk_1` FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
13805 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
13808 CREATE TABLE deletedbiblio_metadata (
13809 `id` INT(11) NOT NULL AUTO_INCREMENT,
13810 `biblionumber` INT(11) NOT NULL,
13811 `format` VARCHAR(16) NOT NULL,
13812 `marcflavour` VARCHAR(16) NOT NULL,
13813 `metadata` LONGTEXT NOT NULL,
13815 UNIQUE KEY `deletedbiblio_metadata_uniq_key` (`biblionumber`,`format`,`marcflavour`),
13816 CONSTRAINT `deletedbiblio_metadata_fk_1` FOREIGN KEY (biblionumber) REFERENCES deletedbiblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
13817 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
13820 INSERT INTO biblio_metadata ( biblionumber, format, marcflavour, metadata ) SELECT biblionumber, 'marcxml', 'CHANGEME', marcxml FROM biblioitems;
13823 INSERT INTO deletedbiblio_metadata ( biblionumber, format, marcflavour, metadata ) SELECT biblionumber, 'marcxml', 'CHANGEME', marcxml FROM deletedbiblioitems;
13826 UPDATE biblio_metadata SET marcflavour = (SELECT value FROM systempreferences WHERE variable="marcflavour");
13829 UPDATE deletedbiblio_metadata SET marcflavour = (SELECT value FROM systempreferences WHERE variable="marcflavour");
13832 ALTER TABLE biblioitems DROP COLUMN marcxml;
13835 ALTER TABLE deletedbiblioitems DROP COLUMN marcxml;
13837 SetVersion($DBversion);
13838 print "Upgrade to $DBversion done (Bug 17196 - Move marcxml out of the biblioitems table)\n";
13841 $DBversion = '16.12.00.005';
13842 if( CheckVersion( $DBversion ) ) {
13843 $dbh->do( "INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('AuthorityMergeMode','loose','loose|strict','Authority merge mode','Choice')");
13845 SetVersion( $DBversion );
13846 print "Upgrade to $DBversion done (Bug 17913 - AuthorityMergeMode)\n";
13849 $DBversion = "16.12.00.006";
13850 if ( CheckVersion($DBversion) ) {
13851 unless ( column_exists( 'borrower_attributes', 'id' )
13852 and index_exists( 'borrower_attributes', 'PRIMARY' ) )
13855 ALTER TABLE `borrower_attributes`
13856 ADD `id` int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
13860 print "Upgrade to $DBversion done (Bug 17813: Table borrower_attributes needs a primary key\n";
13861 SetVersion($DBversion);
13864 $DBversion = "16.12.00.007";
13865 if( CheckVersion( $DBversion ) ) {
13867 if ( column_exists('opac_news', 'new' ) ) {
13868 $dbh->do(q|ALTER TABLE opac_news CHANGE COLUMN new content text NOT NULL|);
13872 UPDATE letter SET content = REPLACE(content, "<<opac_news.new>>", "<<opac_news.content>>") WHERE content LIKE "%<<opac_news.new>>%"
13875 SetVersion( $DBversion );
13876 print "Upgrade to $DBversion done (Bug 17960 - Rename opac_news with opac_news.content (template notices have been updated!))\n";
13879 $DBversion = "16.12.00.008";
13880 if( CheckVersion( $DBversion ) ) {
13882 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
13883 ('MarcItemFieldsToOrder','','Set the mapping values for new item records created from a MARC record in a staged file. In a YAML format.', NULL, 'textarea');
13886 SetVersion( $DBversion );
13887 print "Upgrade to $DBversion done (Bug 15503 - Grab Item Information from Order Files)\n";
13890 $DBversion = "16.12.00.009";
13891 if( CheckVersion( $DBversion ) ) {
13893 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
13894 ('OPACHoldsIfAvailableAtPickup','1','','Allow to pickup up holds at libraries where the item is available','YesNo');
13898 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
13899 ('OPACHoldsIfAvailableAtPickupExceptions','','','List the patron categories not affected by OPACHoldsIfAvailableAtPickup if off','Free');
13902 SetVersion( $DBversion );
13903 print "Upgrade to $DBversion done (Bug 17453 - Inter-site holds improvement)\n";
13906 $DBversion = "16.12.00.010";
13907 if( CheckVersion( $DBversion ) ) {
13909 ALTER TABLE borrowers ADD overdrive_auth_token text default NULL AFTER lastseen;
13913 ALTER TABLE deletedborrowers ADD overdrive_auth_token text default NULL AFTER lastseen;
13917 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
13918 VALUES ('OverDriveCirculation','0','Enable client to see their OverDrive account','','YesNo');
13921 SetVersion( $DBversion );
13922 print "Upgrade to $DBversion done (Bug 16034 - Integration with OverDrive Patron API)\n";
13925 $DBversion = "16.12.00.011";
13926 if( CheckVersion( $DBversion ) ) {
13928 ALTER TABLE search_field CHANGE COLUMN type type ENUM('', 'string', 'date', 'number', 'boolean', 'sum') NOT NULL
13929 COMMENT 'what type of data this holds, relevant when storing it in the search engine';
13932 SetVersion( $DBversion );
13933 print "Upgrade to $DBversion done (Bug 17260 - updatedatabase.pl fails on invalid entries in ENUM and BOOLEAN columns)\n";
13936 $DBversion = "16.12.00.012";
13937 if( CheckVersion( $DBversion ) ) {
13939 INSERT IGNORE INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`)
13940 VALUES ('OpacNewsLibrarySelect', '0', '', 'Show selector for branches on OPAC news page', 'YesNo');
13943 SetVersion( $DBversion );
13944 print "Upgrade to $DBversion done (Bug 14764 - Add OPAC News branch selector)\n";
13947 $DBversion = "16.12.00.013";
13948 if( CheckVersion( $DBversion ) ) {
13950 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)
13951 VALUES ('CircSidebar','0','','Activate or deactivate the navigation sidebar on all Circulation pages','YesNo');
13954 SetVersion( $DBversion );
13955 print "Upgrade to $DBversion done (Bug 16530 - Add a circ sidebar navigation menu)\n";
13958 $DBversion = "16.12.00.014";
13959 if( CheckVersion( $DBversion ) ) {
13961 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
13962 ('LoadSearchHistoryToTheFirstLoggedUser', '1', NULL, 'If ON, the next user will automatically get the last searches in his history', 'YesNo');
13964 SetVersion( $DBversion );
13965 print "Upgrade to $DBversion done (Bug 8010 - Search history can be added to the wrong patron)\n";
13968 $DBversion = "16.12.00.015";
13969 if( CheckVersion( $DBversion ) ) {
13970 unless( column_exists( 'branches', 'geolocation' ) ) {
13972 ALTER TABLE branches ADD COLUMN geolocation VARCHAR(255) DEFAULT NULL after opac_info
13977 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type ) VALUES ('UsageStatsGeolocation', '', NULL, 'Geolocation of the main library', 'Free');
13980 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type ) VALUES ('UsageStatsLibrariesInfo', '', NULL, 'Share libraries information', 'YesNo');
13983 INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type ) VALUES ('UsageStatsPublicID', '', NULL, 'Public ID for Hea website', 'Free');
13986 SetVersion( $DBversion );
13987 print "Upgrade to $DBversion done (Bug 18066 - Hea version 2)\n";
13990 $DBversion = "16.12.00.016";
13991 if ( CheckVersion($DBversion) ) {
13992 unless ( column_exists( 'borrower_attribute_types', 'opac_editable' ) )
13995 ALTER TABLE borrower_attribute_types
13996 ADD COLUMN `opac_editable` tinyint(1) NOT NULL default 0 AFTER `opac_display`
14000 print "Upgrade to $DBversion done (Bug 13757: Make patron attributes editable in the opac if set to 'editable in OPAC)'\n";
14001 SetVersion($DBversion);
14004 $DBversion = "16.12.00.017";
14005 if ( CheckVersion($DBversion) ) {
14007 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
14008 VALUES ('CumulativeRestrictionPeriods', 0, NULL, 'Cumulate the restriction periods instead of keeping the highest', 'YesNo')
14011 print "Upgrade to $DBversion done (Bug 14146 - Additional days are not added to restriction period when checking-in several overdues for same patron)'\n";
14012 SetVersion($DBversion);
14015 $DBversion = "16.12.00.018";
14016 if ( CheckVersion($DBversion) ) {
14018 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
14019 SELECT 'ExportCircHistory', COUNT(*), NULL, "Display the export circulation options", 'YesNo'
14020 FROM systempreferences
14021 WHERE ( variable = 'ExportRemoveFields' AND value != "" AND value IS NOT NULL )
14022 OR ( variable = 'ExportWithCsvProfile' AND value != "" AND value IS NOT NULL );
14026 DELETE FROM systempreferences WHERE variable="ExportWithCsvProfile";
14029 print "Upgrade to $DBversion done (Bug 15498 - Replace ExportWithCsvProfile with ExportCircHistory)'\n";
14030 SetVersion($DBversion);
14033 $DBversion = "16.12.00.019";
14034 if( CheckVersion( $DBversion ) ) {
14035 if ( column_exists( 'issues', 'return' ) ) {
14036 $dbh->do(q|ALTER TABLE issues DROP column `return`|);
14039 if ( column_exists( 'old_issues', 'return' ) ) {
14040 $dbh->do(q|ALTER TABLE old_issues DROP column `return`|);
14043 SetVersion( $DBversion );
14044 print "Upgrade to $DBversion done (Bug 18173 - Remove issues.return DB field)\n";
14047 $DBversion = "16.12.00.020";
14048 if( CheckVersion( $DBversion ) ) {
14050 UPDATE systempreferences SET options="any_time_is_placed|not_always|any_time_is_collected" WHERE variable="HoldFeeMode";
14054 UPDATE systempreferences SET value="any_time_is_placed" WHERE variable="HoldFeeMode" AND value="always";
14057 SetVersion( $DBversion );
14058 print "Upgrade to $DBversion done (Bug 17560 - Hold fee placement at point of checkout)\n";
14061 $DBversion = "16.12.00.021";
14062 if( CheckVersion( $DBversion ) ) {
14064 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
14065 ('RenewalLog','0','','If ON, log information about renewals','YesNo');
14068 SetVersion( $DBversion );
14069 print "Upgrade to $DBversion done (Bug 17708 - Renewal log seems empty)\n";
14072 $DBversion = "16.12.00.022";
14073 if( CheckVersion( $DBversion ) ) {
14074 print "NOTE: The sender for claim notifications has been corrected. The email address of the staff member is no longer used. We will use the branch email address or KohaAdminEmailAddress, as is done for other notices.\n";
14075 SetVersion( $DBversion );
14076 print "Upgrade to $DBversion done (Bug 17866 - Change sender for serial claim notifications)\n";
14079 $DBversion = '16.12.00.023';
14080 if( CheckVersion( $DBversion ) ) {
14081 my $oldval = C4::Context->preference('dontmerge');
14082 my $newval = $oldval ? 0 : 50;
14084 # Remove dontmerge, add AuthorityMergeLimit
14086 DELETE FROM systempreferences WHERE variable = 'dontmerge';
14089 INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type ) VALUES ('AuthorityMergeLimit','$newval',NULL,'Maximum number of biblio records updated immediately when an authority record has been modified.','integer');
14093 ALTER TABLE need_merge_authorities
14094 ADD COLUMN authid_new BIGINT AFTER authid,
14095 ADD COLUMN reportxml text AFTER authid_new,
14096 ADD COLUMN timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP;
14100 UPDATE need_merge_authorities SET authid_new=authid WHERE done <> 1
14103 SetVersion( $DBversion );
14104 if( $newval == 0 ) {
14105 print "NOTE: Since dontmerge was enabled, we have initialized AuthorityMergeLimit to 0 records. Please consider raising this value. This will allow for performing smaller merges directly and only postponing larger merges.\n";
14107 print "IMPORTANT NOTE: If you are not using a Debian package install, please verify that you no longer use misc/migration_tools/merge_authority.pl in your cron files AND add misc/cronjobs/merge_authorities.pl to cron now. This job is no longer optional! You need it to perform larger authority merges.\n";
14108 print "Upgrade to $DBversion done (Bug 9988 - Add AuthorityMergeLimit)\n";
14111 $DBversion = '16.12.00.024';
14112 if( CheckVersion( $DBversion ) ) {
14114 UPDATE systempreferences SET variable="NoticeBcc" WHERE variable="OverdueNoticeBcc";
14117 SetVersion( $DBversion );
14118 print "Upgrade to $DBversion done (Bug 14537 - The system preference 'OverdueNoticeBcc' is mis-named.)\n";
14121 $DBversion = '16.12.00.025';
14122 if( CheckVersion( $DBversion ) ) {
14124 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
14125 VALUES ('UploadPurgeTemporaryFilesDays','',NULL,'If not empty, number of days used when automatically deleting temporary uploads','integer');
14128 my ( $cnt ) = $dbh->selectrow_array( "SELECT COUNT(*) FROM uploaded_files WHERE permanent IS NULL or permanent=0" );
14130 print "NOTE: You have $cnt temporary uploads. You could benefit from setting pref UploadPurgeTemporaryFilesDays now to automatically delete them.\n";
14133 SetVersion( $DBversion );
14134 print "Upgrade to $DBversion done (Bug 17669 - Introduce preference for deleting temporary uploads)\n";
14137 $DBversion = '16.12.00.026';
14138 if( CheckVersion( $DBversion ) ) {
14140 # In order to be overcomplete, we check if the situation is what we expect
14141 if( !index_exists( 'serialitems', 'PRIMARY' ) ) {
14142 if( index_exists( 'serialitems', 'serialitemsidx' ) ) {
14144 ALTER TABLE serialitems ADD PRIMARY KEY (itemnumber), DROP INDEX serialitemsidx;
14147 $dbh->do(q|ALTER TABLE serialitems ADD PRIMARY KEY (itemnumber)|);
14151 SetVersion( $DBversion );
14152 print "Upgrade to $DBversion done (Bug 18427 - Add a primary key to serialitems)\n";
14155 $DBversion = '16.12.00.027';
14156 if( CheckVersion( $DBversion ) ) {
14159 CREATE TABLE IF NOT EXISTS club_templates (
14160 id int(11) NOT NULL AUTO_INCREMENT,
14161 `name` tinytext NOT NULL,
14163 is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
14164 is_email_required tinyint(1) NOT NULL DEFAULT '0',
14165 branchcode varchar(10) NULL DEFAULT NULL,
14166 date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
14167 date_updated timestamp NULL DEFAULT NULL,
14168 is_deletable tinyint(1) NOT NULL DEFAULT '1',
14170 KEY ct_branchcode (branchcode),
14171 CONSTRAINT `club_templates_ibfk_1` FOREIGN KEY (branchcode) REFERENCES `branches` (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
14172 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14176 CREATE TABLE IF NOT EXISTS clubs (
14177 id int(11) NOT NULL AUTO_INCREMENT,
14178 club_template_id int(11) NOT NULL,
14179 `name` tinytext NOT NULL,
14181 date_start date DEFAULT NULL,
14182 date_end date DEFAULT NULL,
14183 branchcode varchar(10) NULL DEFAULT NULL,
14184 date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
14185 date_updated timestamp NULL DEFAULT NULL,
14187 KEY club_template_id (club_template_id),
14188 KEY branchcode (branchcode),
14189 CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
14190 CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branchcode) REFERENCES branches (branchcode)
14191 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14195 CREATE TABLE IF NOT EXISTS club_enrollments (
14196 id int(11) NOT NULL AUTO_INCREMENT,
14197 club_id int(11) NOT NULL,
14198 borrowernumber int(11) NOT NULL,
14199 date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
14200 date_canceled timestamp NULL DEFAULT NULL,
14201 date_created timestamp NULL DEFAULT NULL,
14202 date_updated timestamp NULL DEFAULT NULL,
14203 branchcode varchar(10) NULL DEFAULT NULL,
14205 KEY club_id (club_id),
14206 KEY borrowernumber (borrowernumber),
14207 KEY branchcode (branchcode),
14208 CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
14209 CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
14210 CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branchcode) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE
14211 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14215 CREATE TABLE IF NOT EXISTS club_template_enrollment_fields (
14216 id int(11) NOT NULL AUTO_INCREMENT,
14217 club_template_id int(11) NOT NULL,
14218 `name` tinytext NOT NULL,
14220 authorised_value_category varchar(16) DEFAULT NULL,
14222 KEY club_template_id (club_template_id),
14223 CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
14224 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14228 CREATE TABLE IF NOT EXISTS club_enrollment_fields (
14229 id int(11) NOT NULL AUTO_INCREMENT,
14230 club_enrollment_id int(11) NOT NULL,
14231 club_template_enrollment_field_id int(11) NOT NULL,
14232 `value` text NOT NULL,
14234 KEY club_enrollment_id (club_enrollment_id),
14235 KEY club_template_enrollment_field_id (club_template_enrollment_field_id),
14236 CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment_id) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
14237 CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field_id) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
14238 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14242 CREATE TABLE IF NOT EXISTS club_template_fields (
14243 id int(11) NOT NULL AUTO_INCREMENT,
14244 club_template_id int(11) NOT NULL,
14245 `name` tinytext NOT NULL,
14247 authorised_value_category varchar(16) DEFAULT NULL,
14249 KEY club_template_id (club_template_id),
14250 CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
14251 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14255 CREATE TABLE IF NOT EXISTS club_fields (
14256 id int(11) NOT NULL AUTO_INCREMENT,
14257 club_template_field_id int(11) NOT NULL,
14258 club_id int(11) NOT NULL,
14261 KEY club_template_field_id (club_template_field_id),
14262 KEY club_id (club_id),
14263 CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field_id) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
14264 CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE
14265 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14269 INSERT IGNORE INTO userflags (bit, flag, flagdesc, defaulton) VALUES (21, 'clubs', 'Patron clubs', '0');
14273 INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
14274 (21, 'edit_templates', 'Create and update club templates'),
14275 (21, 'edit_clubs', 'Create and update clubs'),
14276 (21, 'enroll', 'Enroll patrons in clubs')
14280 SetVersion( $DBversion );
14281 print "Upgrade to $DBversion done (Bug 12461 - Add patron clubs feature)\n";
14284 $DBversion = '16.12.00.028';
14285 if( CheckVersion( $DBversion ) ) {
14287 UPDATE systempreferences SET options = 'us|de|fr' WHERE variable = 'AddressFormat';
14290 SetVersion( $DBversion );
14291 print "Upgrade to $DBversion done (Bug 18110 - Adds FR to the syspref AddressFormat)\n";
14294 $DBversion = '16.12.00.029';
14295 if( CheckVersion( $DBversion ) ) {
14296 unless( column_exists( 'issues', 'note' ) ) {
14297 $dbh->do(q|ALTER TABLE issues ADD note mediumtext default NULL AFTER onsite_checkout|);
14299 unless( column_exists( 'issues', 'notedate' ) ) {
14300 $dbh->do(q|ALTER TABLE issues ADD notedate datetime default NULL AFTER note|);
14302 unless( column_exists( 'old_issues', 'note' ) ) {
14303 $dbh->do(q|ALTER TABLE old_issues ADD note mediumtext default NULL AFTER onsite_checkout|);
14305 unless( column_exists( 'old_issues', 'notedate' ) ) {
14306 $dbh->do(q|ALTER TABLE old_issues ADD notedate datetime default NULL AFTER note|);
14310 INSERT IGNORE INTO letter (`module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content`, `message_transport_type`)
14311 VALUES ('circulation', 'CHECKOUT_NOTE', '', 'Checkout note on item set by patron', '0', 'Checkout note', '<<borrowers.firstname>> <<borrowers.surname>> has added a note to the item <<biblio.title>> - <<biblio.author>> (<<biblio.biblionumber>>).','email');
14315 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`,`type`)
14316 VALUES ('AllowCheckoutNotes', '0', NULL, 'Allow patrons to submit notes about checked out items.','YesNo');
14319 SetVersion( $DBversion );
14320 print "Upgrade to $DBversion done (Bug 14224: Add column issues.note and issues.notedate)\n";
14323 $DBversion = '16.12.00.030';
14324 if( CheckVersion( $DBversion ) ) {
14325 unless( column_exists( 'issuingrules', 'no_auto_renewal_after_hard_limit' ) ) {
14327 ALTER TABLE issuingrules ADD COLUMN no_auto_renewal_after_hard_limit DATE DEFAULT NULL AFTER no_auto_renewal_after;
14331 SetVersion( $DBversion );
14332 print "Upgrade to $DBversion done (Bug 16344 - Add a circ rule to limit the auto renewals given a specific date)\n";
14335 $DBversion = '16.12.00.031';
14336 if( CheckVersion( $DBversion ) ) {
14337 if ( !index_exists( 'biblioitems', 'timestamp' ) ) {
14338 $dbh->do("ALTER TABLE biblioitems ADD KEY `timestamp` (`timestamp`);");
14340 if ( !index_exists( 'deletedbiblioitems', 'timestamp' ) ) {
14341 $dbh->do("ALTER TABLE deletedbiblioitems ADD KEY `timestamp` (`timestamp`);");
14343 if ( !index_exists( 'items', 'timestamp' ) ) {
14344 $dbh->do("ALTER TABLE items ADD KEY `timestamp` (`timestamp`);");
14346 if ( !index_exists( 'deleteditems', 'timestamp' ) ) {
14347 $dbh->do("ALTER TABLE deleteditems ADD KEY `timestamp` (`timestamp`);");
14350 SetVersion( $DBversion );
14351 print "Upgrade to $DBversion done (Bug 15108: OAI-PMH provider improvements)\n";
14354 $DBversion = '16.12.00.032';
14355 if( CheckVersion( $DBversion ) ) {
14356 require Koha::Calendar;
14357 require Koha::Holds;
14360 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
14361 VALUES ('ExcludeHolidaysFromMaxPickUpDelay', '0', 'If ON, reserves max pickup delay takes into account the closed days.', NULL, 'Integer');
14364 my $waiting_holds = Koha::Holds->search({ found => 'W', priority => 0 });
14365 my $max_pickup_delay = C4::Context->preference("ReservesMaxPickUpDelay");
14366 while ( my $hold = $waiting_holds->next ) {
14368 my $requested_expiration;
14369 if ($hold->expirationdate) {
14370 $requested_expiration = dt_from_string($hold->expirationdate);
14373 my $expirationdate = dt_from_string($hold->waitingdate);
14374 if ( C4::Context->preference("ExcludeHolidaysFromMaxPickUpDelay") ) {
14375 my $calendar = Koha::Calendar->new( branchcode => $hold->branchcode );
14376 $expirationdate = $calendar->days_forward( $expirationdate, $max_pickup_delay );
14378 $expirationdate->add( days => $max_pickup_delay );
14381 my $cmp = $requested_expiration ? DateTime->compare($requested_expiration, $expirationdate) : 0;
14382 $hold->expirationdate($cmp == -1 ? $requested_expiration->ymd : $expirationdate->ymd)->store;
14385 SetVersion( $DBversion );
14386 print "Upgrade to $DBversion done (Bug 12063 - Update reserves.expirationdate)\n";
14389 $DBversion = '16.12.00.033';
14390 if( CheckVersion( $DBversion ) ) {
14392 if( !column_exists( 'letter', 'lang' ) ) {
14393 $dbh->do( "ALTER TABLE letter ADD COLUMN lang VARCHAR(25) NOT NULL DEFAULT 'default' AFTER message_transport_type" );
14396 if( !column_exists( 'borrowers', 'lang' ) ) {
14397 $dbh->do( "ALTER TABLE borrowers ADD COLUMN lang VARCHAR(25) NOT NULL DEFAULT 'default' AFTER lastseen" );
14398 $dbh->do( "ALTER TABLE deletedborrowers ADD COLUMN lang VARCHAR(25) NOT NULL DEFAULT 'default' AFTER lastseen" );
14401 # Add test on existene of this key
14402 $dbh->do( "ALTER TABLE message_transports DROP FOREIGN KEY message_transports_ibfk_3 ");
14403 $dbh->do( "ALTER TABLE letter DROP PRIMARY KEY ");
14404 $dbh->do( "ALTER TABLE letter ADD PRIMARY KEY (`module`, `code`, `branchcode`, `message_transport_type`, `lang`) ");
14406 $dbh->do( "INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
14407 VALUES ('TranslateNotices', '0', NULL, 'Allow notices to be translated', 'YesNo') ");
14409 SetVersion( $DBversion );
14410 print "Upgrade to $DBversion done (Bug 17762 - Add columns letter.lang and borrowers.lang to allow translation of notices)\n";
14413 $DBversion = '16.12.00.034';
14414 if( CheckVersion( $DBversion ) ) {
14416 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
14417 VALUES ('OPACFineNoRenewalsBlockAutoRenew','0','','Block/Allow auto renewals if the patron owe more than OPACFineNoRenewals','YesNo')
14420 SetVersion( $DBversion );
14421 print "Upgrade to $DBversion done (Bug 15582 - Ability to block auto renewals if the OPACFineNoRenewals amount is reached)\n";
14424 $DBversion = '16.12.00.035';
14425 if( CheckVersion( $DBversion ) ) {
14426 if( !column_exists( 'issues', 'auto_renew_error' ) ) {
14428 ALTER TABLE issues ADD COLUMN auto_renew_error VARCHAR(32) DEFAULT NULL AFTER auto_renew;
14432 if( !column_exists( 'old_issues', 'auto_renew_error' ) ) {
14434 ALTER TABLE old_issues ADD COLUMN auto_renew_error VARCHAR(32) DEFAULT NULL AFTER auto_renew;
14439 INSERT INTO letter (module, code, name, title, content, message_transport_type) VALUES ('circulation', 'AUTO_RENEWALS', 'notification on auto renewing', 'Auto renewals',
14440 "Dear [% borrower.firstname %] [% borrower.surname %],
14441 [% IF checkout.auto_renew_error %]
14442 The following item [% biblio.title %] has not been correctly renewed
14443 [% IF checkout.auto_renew_error == 'too_many' %]
14444 You have reach the maximum of checkouts possible.
14445 [% ELSIF checkout.auto_renew_error == 'on_reserve' %]
14446 This item is on hold for another patron.
14447 [% ELSIF checkout.auto_renew_error == 'restriction' %]
14448 You are currently restricted.
14449 [% ELSIF checkout.auto_renew_error == 'overdue' %]
14451 [% ELSIF checkout.auto_renew_error == 'auto_too_late' %]
14452 It\'s too late to renew this checkout.
14453 [% ELSIF checkout.auto_renew_error == 'auto_too_much_oweing' %]
14454 You have too much unpaid fines.
14457 The following item [% biblio.title %] has correctly been renewed and is now due [% checkout.date_due %]
14458 [% END %]", 'email');
14461 SetVersion( $DBversion );
14462 print "Upgrade to $DBversion done (Bug 15705 - Notify the user on auto renewing)\n";
14465 $DBversion = '16.12.00.036';
14466 if( CheckVersion( $DBversion ) ) {
14468 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)
14469 VALUES ('NumSavedReports', '20', NULL, 'By default, show this number of saved reports.', 'Integer');
14472 SetVersion( $DBversion );
14473 print "Upgrade to $DBversion done (Bug 17465 - Add a System Preference to control number of Saved Reports displayed)\n";
14476 $DBversion = '16.12.00.037';
14477 if( CheckVersion( $DBversion ) ) {
14479 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)
14480 VALUES ('FailedLoginAttempts','','','Number of login attempts before lockout the patron account','Integer');
14483 unless( column_exists( 'borrowers', 'login_attempts' ) ) {
14485 ALTER TABLE borrowers ADD COLUMN login_attempts INT(4) DEFAULT 0 AFTER lastseen
14488 ALTER TABLE deletedborrowers ADD COLUMN login_attempts INT(4) DEFAULT 0 AFTER lastseen
14492 SetVersion( $DBversion );
14493 print "Upgrade to $DBversion done (Bug 18314 - Add FailedLoginAttempts and borrowers.login_attempts)\n";
14496 $DBversion = '16.12.00.038';
14497 if( CheckVersion( $DBversion ) ) {
14499 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
14500 ('ExportRemoveFields','',NULL,'List of fields for non export in circulation.pl (separated by a space)','Free');
14503 SetVersion( $DBversion );
14504 print "Upgrade to $DBversion done (Bug 18663 - Missing db update for ExportRemoveFields)\n";
14507 $DBversion = '16.12.00.039';
14508 if( CheckVersion( $DBversion ) ) {
14510 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
14511 ('TalkingTechItivaPhoneNotification','0',NULL,'If ON, enables Talking Tech I-tiva phone notifications','YesNo');
14514 SetVersion( $DBversion );
14515 print "Upgrade to $DBversion done (Bug 18600 - Missing db update for TalkingTechItivaPhoneNotification)\n";
14518 $DBversion = '17.05.00.000';
14519 if( CheckVersion( $DBversion ) ) {
14521 SetVersion( $DBversion );
14522 print "Upgrade to $DBversion done (Koha 17.05)\n";
14525 $DBversion = '17.06.00.000';
14526 if( CheckVersion( $DBversion ) ) {
14527 SetVersion( $DBversion );
14528 print "Upgrade to $DBversion done (He pai ake te iti i te kore)\n";
14531 $DBversion = '17.06.00.001';
14532 if( CheckVersion( $DBversion ) ) {
14534 unless ( column_exists( 'export_format', 'used_for' ) ) {
14535 $dbh->do(q|ALTER TABLE export_format ADD used_for varchar(255) DEFAULT 'export_records' AFTER type|);
14537 $dbh->do(q|UPDATE export_format SET used_for = 'late_issues' WHERE type = 'sql'|);
14538 $dbh->do(q|UPDATE export_format SET used_for = 'export_records' WHERE type = 'marc'|);
14540 SetVersion( $DBversion );
14541 print "Upgrade to $DBversion done (Bug 8612 - Add new column export_format.used_for)\n";
14544 $DBversion = '17.06.00.002';
14545 if ( CheckVersion($DBversion) ) {
14547 unless ( column_exists('virtualshelves', 'allow_change_from_owner' ) ) {
14549 ALTER TABLE virtualshelves
14550 ADD COLUMN allow_change_from_owner tinyint(1) default 1,
14551 ADD COLUMN allow_change_from_others tinyint(1) default 0
14555 # Since we had no readonly lists, change_from_owner is set to true.
14556 # When adding or delete_other was granted, change_from_others is true.
14557 # Note: In my opinion the best choice; there is no exact match.
14559 UPDATE virtualshelves
14560 SET allow_change_from_owner = 1,
14561 allow_change_from_others = CASE WHEN allow_add=1 OR allow_delete_other=1 THEN 1 ELSE 0 END
14564 # Remove the old columns
14566 ALTER TABLE virtualshelves
14567 DROP COLUMN allow_add,
14568 DROP COLUMN allow_delete_own,
14569 DROP COLUMN allow_delete_other
14573 SetVersion($DBversion);
14574 print "Upgrade to $DBversion done (Bug 18228 - Alter table virtualshelves to simplify permissions)\n";
14577 $DBversion = '17.06.00.003';
14578 if ( CheckVersion($DBversion) ) {
14580 # Fetch all auth types
14581 my $authtypes = $dbh->selectcol_arrayref(q|SELECT authtypecode FROM auth_types|);
14583 if ( grep { $_ eq 'Default' } @$authtypes ) {
14585 # If this exists as an authtypecode, we don't do anything
14588 # Replace the incorrect Default by empty string
14590 UPDATE auth_header SET authtypecode='' WHERE authtypecode='Default'
14594 SetVersion($DBversion);
14595 print "Upgrade to $DBversion done (Bug 18801 - Update incorrect Default auth type codes)\n";
14598 $DBversion = '17.06.00.004';
14599 if( CheckVersion( $DBversion ) ) {
14601 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
14602 ('GoogleOpenIDConnectAutoRegister', '0',NULL,' Google OpenID Connect logins to auto-register patrons.','YesNo'),
14603 ('GoogleOpenIDConnectDefaultCategory','','','This category code will be used to create Google OpenID Connect patrons.','Textarea'),
14604 ('GoogleOpenIDConnectDefaultBranch', '','','This branch code will be used to create Google OpenID Connect patrons.','Textarea');
14607 SetVersion( $DBversion );
14608 print "Upgrade to $DBversion done (Bug 16892: Add automatic patron registration via OAuth2 login)\n";
14611 $DBversion = '17.06.00.005';
14612 if( CheckVersion( $DBversion ) ) {
14614 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('StaffLangSelectorMode','footer','top|both|footer','Select the location to display the language selector in staff client','Choice')
14617 SetVersion( $DBversion );
14618 print "Upgrade to $DBversion done (Bug 18718 - Language selector in staff header menu similar to OPAC )\n";
14621 $DBversion = '17.06.00.006';
14622 if( CheckVersion( $DBversion ) ) {
14623 print q{WARNING: Bug 18811 fixed an inconsistency in the visibility settings for authority frameworks. It is recommended that you run script misc/maintenance/auth_show_hidden_data.pl to check if you have data in hidden fields and adjust your frameworks accordingly to prevent data loss when editing such records.};
14626 SetVersion( $DBversion );
14627 print "Upgrade to $DBversion done (Bug 18811 - Visibility settings inconsistent between framework and authority editor)\n";
14630 $DBversion = '17.06.00.007';
14631 if( CheckVersion( $DBversion ) ) {
14632 if( !column_exists( 'branches', 'marcorgcode' ) ) {
14633 $dbh->do( "ALTER TABLE branches ADD COLUMN marcorgcode VARCHAR(16) default NULL AFTER geolocation" );
14636 SetVersion( $DBversion );
14637 print "Upgrade to $DBversion done (Bug 10132 - MARCOrgCode on branch level (branches.marcorgcode))\n";
14640 $DBversion = '17.06.00.008';
14641 if( CheckVersion( $DBversion ) ) {
14642 unless ( column_exists( 'borrowers', 'date_renewed' ) ) {
14644 ALTER TABLE borrowers ADD COLUMN date_renewed DATE NULL DEFAULT NULL AFTER dateexpiry;
14648 unless ( column_exists( 'deletedborrowers', 'date_renewed' ) ) {
14650 ALTER TABLE deletedborrowers ADD COLUMN date_renewed DATE NULL DEFAULT NULL AFTER dateexpiry;
14654 unless ( column_exists( 'borrower_modifications', 'date_renewed' ) ) {
14656 ALTER TABLE borrower_modifications ADD COLUMN date_renewed DATE NULL DEFAULT NULL AFTER dateexpiry;
14660 SetVersion( $DBversion );
14661 print "Upgrade to $DBversion done (Bug 6758 - Capture membership renewal date for reporting purposes (borrowers.date_renewed))\n";
14664 $DBversion = '17.06.00.009';
14665 if( CheckVersion( $DBversion ) ) {
14667 ALTER TABLE borrowers MODIFY COLUMN login_attempts int(4) AFTER lang;
14670 ALTER TABLE deletedborrowers MODIFY COLUMN login_attempts int(4) AFTER lang;
14673 SetVersion( $DBversion );
14674 print "Upgrade to $DBversion done (Bug 19344 - Reorder lang and login_attempts in the [deleted]borrowers tables)\n";
14677 $DBversion = '17.06.00.010';
14678 if ( CheckVersion($DBversion) ) {
14680 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
14682 'DefaultCountryField008','','',
14683 'Fill in the default country code for field 008 Range 15-17 of MARC21 - Place of publication, production, or execution. See <a href=\"http://www.loc.gov/marc/countries/countries_code.html\">MARC Code List for Countries</a>','Free')
14685 SetVersion($DBversion);
14686 print "Upgrade to $DBversion done (Bug 13912 - System preference for default place of publication (country code) for field 008, range 15-17)\n";
14689 $DBversion = '17.06.00.011';
14690 if ( CheckVersion($DBversion) ) {
14691 # Drop index that might exist because of bug 5337
14692 if( index_exists('biblioitems', 'ean')) {
14693 $dbh->do(q{ ALTER TABLE biblioitems DROP INDEX ean });
14695 if( index_exists('deletedbiblioitems', 'ean')) {
14696 $dbh->do(q{ ALTER TABLE deletedbiblioitems DROP INDEX ean });
14699 # Change data type of column
14700 $dbh->do(q{ ALTER TABLE biblioitems MODIFY COLUMN ean MEDIUMTEXT default NULL });
14701 $dbh->do(q{ ALTER TABLE deletedbiblioitems MODIFY COLUMN ean MEDIUMTEXT default NULL });
14704 $dbh->do(q{ ALTER TABLE biblioitems ADD INDEX ean ( ean(255) )});
14705 $dbh->do(q{ ALTER TABLE deletedbiblioitems ADD INDEX ean ( ean(255 ) )});
14707 SetVersion($DBversion);
14708 print "Upgrade to $DBversion done (Bug 13766 - Make ean mediumtext and add ean indexes)\n";
14711 $DBversion = '17.06.00.012';
14712 if( CheckVersion( $DBversion ) ) {
14713 my $where = q|host='clio-db.cc.columbia.edu' AND port=7090|;
14714 my $sql = "SELECT COUNT(*) FROM z3950servers WHERE $where";
14715 my ( $cnt ) = $dbh->selectrow_array( $sql );
14717 $dbh->do( "DELETE FROM z3950servers WHERE $where" );
14718 print "Removed $cnt Z39.50 target(s) for Columbia University\n";
14721 SetVersion( $DBversion );
14722 print "Upgrade to $DBversion done (Bug 19043 - Z39.50 target for Columbia University is no longer publicly available.)\n";
14725 $DBversion = '17.06.00.013';
14726 if( CheckVersion( $DBversion ) ) {
14727 $dbh->do( "UPDATE systempreferences SET value = CONCAT('http://', value) WHERE variable = 'staffClientBaseURL' AND value <> '' AND value NOT LIKE 'http%'" );
14729 my ( $staffClientBaseURL_used_in_notices ) = $dbh->selectrow_array(q|
14730 SELECT COUNT(*) FROM letter where content like "%staffClientBaseURL%"
14732 if ( $staffClientBaseURL_used_in_notices ) {
14733 warn "\tYou may need to update one or more notice templates if they contain 'staffClientBaseURL'\n";
14736 SetVersion( $DBversion );
14737 print "Upgrade to $DBversion done (Bug 16401 - fix potentialy bad set staffClientBaseURL preference)\n";
14740 $DBversion = '17.06.00.014';
14741 if( CheckVersion( $DBversion ) ) {
14742 unless( column_exists('aqbasket','create_items') ){
14744 ALTER TABLE aqbasket
14745 ADD COLUMN create_items ENUM('ordering', 'receiving', 'cataloguing') default NULL AFTER is_standing
14749 SetVersion( $DBversion );
14750 print "Upgrade to $DBversion done (Bug 15685 - Allow creation of items (AcqCreateItem) to be customizable per-basket)\n";
14753 $DBversion = '17.06.00.015';
14754 if( CheckVersion( $DBversion ) ) {
14756 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES
14757 ('SelfCheckoutByLogin','0',NULL,'Have patrons login into the web-based self checkout system with their username/password or their cardnumber','YesNo')
14760 SetVersion( $DBversion );
14761 print "Upgrade to $DBversion done (Bug 19186 - Insert system preference SelfCheckoutByLogin if missing)\n";
14764 $DBversion = '17.06.00.016';
14765 if( CheckVersion( $DBversion ) ) {
14767 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)
14768 VALUES ('RequireStrongPassword','0','','Require a strong login password for staff and patrons','YesNo');
14771 SetVersion( $DBversion );
14772 print "Upgrade to $DBversion done (Bug 18298 - Allow enforcing password complexity (system preference RequireStrongPassword))\n";
14775 $DBversion = '17.06.00.017';
14776 if( CheckVersion( $DBversion ) ) {
14777 unless (TableExists('account_offsets')) {
14779 DROP TABLE IF EXISTS `accountoffsets`;
14783 CREATE TABLE IF NOT EXISTS `account_offset_types` (
14784 `type` varchar(16) NOT NULL, -- The type of offset this is
14785 PRIMARY KEY (`type`)
14786 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14790 CREATE TABLE IF NOT EXISTS `account_offsets` (
14791 `id` int(11) NOT NULL auto_increment, -- unique identifier for each offset
14792 `credit_id` int(11) NULL DEFAULT NULL, -- The id of the accountline the increased the patron's balance
14793 `debit_id` int(11) NULL DEFAULT NULL, -- The id of the accountline that decreased the patron's balance
14794 `type` varchar(16) NOT NULL, -- The type of offset this is
14795 `amount` decimal(26,6) NOT NULL, -- The amount of the change
14796 `created_on` timestamp NOT NULL default CURRENT_TIMESTAMP,
14797 PRIMARY KEY (`id`),
14798 CONSTRAINT `account_offsets_ibfk_p` FOREIGN KEY (`credit_id`) REFERENCES `accountlines` (`accountlines_id`) ON DELETE CASCADE ON UPDATE CASCADE,
14799 CONSTRAINT `account_offsets_ibfk_f` FOREIGN KEY (`debit_id`) REFERENCES `accountlines` (`accountlines_id`) ON DELETE CASCADE ON UPDATE CASCADE,
14800 CONSTRAINT `account_offsets_ibfk_t` FOREIGN KEY (`type`) REFERENCES `account_offset_types` (`type`) ON DELETE CASCADE ON UPDATE CASCADE
14801 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
14805 INSERT IGNORE INTO account_offset_types ( type ) VALUES
14809 ('Processing Fee'),
14811 ('Reverse Payment'),
14820 SetVersion( $DBversion );
14821 print "Upgrade to $DBversion done (Bug 14826 - Resurrect account offsets table (Add new tables account_offsets and account_offset_types))\n";
14824 $DBversion = '17.06.00.018';
14825 if( CheckVersion( $DBversion ) ) {
14827 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES ('useDefaultReplacementCost',0,'default replacement cost defined in item type','YesNo');
14830 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES ('ProcessingFeeNote','','Set the text to be recorded in the column note, table accountlines when the processing fee (defined in item type) is applied','textarea');
14833 ALTER TABLE `itemtypes` MODIFY COLUMN `rentalcharge` DECIMAL(28,6) NULL DEFAULT NULL;
14835 unless ( column_exists( 'itemtypes', 'defaultreplacecost' ) ) {
14837 ALTER TABLE `itemtypes` ADD `defaultreplacecost` DECIMAL(28,6) NULL DEFAULT NULL AFTER `rentalcharge`;
14840 unless ( column_exists( 'itemtypes', 'processfee' ) ) {
14842 ALTER TABLE `itemtypes` ADD `processfee` DECIMAL(28,6) NULL DEFAULT NULL AFTER `defaultreplacecost`;
14846 SetVersion( $DBversion );
14847 print "Upgrade to $DBversion done (Bug 12768 - Insert system preferences useDefaultReplacementCost and ProcessingFeeNote + Add new columns defaultreplacecost and processfee to the itemtypes table)\n";
14850 $DBversion = '17.06.00.019';
14851 if( CheckVersion( $DBversion ) ) {
14853 INSERT IGNORE INTO account_offset_types ( type ) VALUES ( 'Processing Fee' );
14856 SetVersion( $DBversion );
14857 print "Upgrade to $DBversion done (Bug 12768 - Add 'Processing Fee' to the account_offset_types table if missing)\n";
14860 $DBversion = '17.06.00.020';
14861 if( CheckVersion( $DBversion ) ) {
14863 UPDATE systempreferences
14865 variable='OpacLocationOnDetail',
14866 options='holding|home|both|column',
14867 explanation='In the OPAC detail, display the shelving location on its own column or under a library columns.'
14869 variable='OpacLocationBranchToDisplayShelving'
14872 SetVersion( $DBversion );
14873 print "Upgrade to $DBversion done (Bug 19028: Add 'shelving location' to holdings table in detail page (Rename syspref OpacLocationBranchToDisplayShelving with OpacLocationOnDetail))\n";
14876 $DBversion = '17.06.00.021';
14877 if( CheckVersion( $DBversion ) ) {
14879 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type` ) VALUES ('SCOMainUserBlock','','70|10','Add a block of HTML that will display on the self checkout screen','Textarea')
14882 SetVersion( $DBversion );
14883 print "Upgrade to $DBversion done (Bug 17381 - Add system preference SCOMainUserBlock)\n";
14886 $DBversion = '17.06.00.022';
14887 if( CheckVersion( $DBversion ) ) {
14888 my $hide_barcode = C4::Context->preference('OPACShowBarcode') ? 0 : 1;
14890 DELETE FROM systempreferences
14892 variable='OPACShowBarcode'
14895 # Configure column visibility if it isn't
14897 INSERT IGNORE INTO columns_settings
14898 (module,page,tablename,columnname,cannot_be_toggled,is_hidden)
14900 ('opac','biblio-detail','holdingst','item_barcode',0,?)
14901 }, undef, $hide_barcode);
14903 SetVersion( $DBversion );
14904 print "Upgrade to $DBversion done (Bug 19038: Remove OPACShowBarcode syspref)\n";
14907 $DBversion = '17.06.00.023';
14908 if( CheckVersion( $DBversion ) ) {
14910 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
14911 ('MarkLostItemsAsReturned','1','','Mark items as returned when flagged as lost','YesNo');
14914 SetVersion( $DBversion );
14915 print "Upgrade to $DBversion done (Bug 12363 - Add system preference MarkLostItemsAsReturned)\n";
14918 $DBversion = '17.06.00.024';
14919 if( CheckVersion( $DBversion ) ) {
14921 INSERT IGNORE INTO systempreferences (`variable`,`value`,`options`,`explanation`,`type`) VALUES
14922 ('OPACUserSummary', 1, NULL, "Show the summary of a logged in user's checkouts, overdues, holds and fines on the mainpage", 'YesNo');
14925 SetVersion( $DBversion );
14926 print "Upgrade to $DBversion done (Bug 2093 - Add system preference OPACUserSummary)\n";
14929 $DBversion = '17.06.00.025';
14930 if( CheckVersion( $DBversion ) ) {
14932 ALTER TABLE borrowers MODIFY cardnumber varchar(32);
14935 ALTER TABLE borrower_modifications MODIFY cardnumber varchar(32);
14938 ALTER TABLE deletedborrowers MODIFY cardnumber varchar(32);
14941 ALTER TABLE pending_offline_operations MODIFY cardnumber varchar(32);
14944 ALTER TABLE tmp_holdsqueue MODIFY cardnumber varchar(32);
14947 SetVersion( $DBversion );
14948 print "Upgrade to $DBversion done (Bug 13178 - Increase cardnumber fields to VARCHAR(32))\n";
14951 $DBversion = '17.06.00.026';
14952 if( CheckVersion( $DBversion ) ) {
14954 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
14955 ('BlockReturnOfLostItems','0','0','If enabled, items that are marked as lost cannot be returned.','YesNo');
14958 SetVersion( $DBversion );
14959 print "Upgrade to $DBversion done (Bug 10748 - Add system preference BlockReturnOfLostItems)\n";
14962 $DBversion = '17.06.00.027';
14963 if( CheckVersion( $DBversion ) ) {
14964 if ( !column_exists( 'statistics', 'location' ) ) {
14965 $dbh->do('ALTER TABLE statistics ADD COLUMN location VARCHAR(80) default NULL AFTER itemtype');
14968 SetVersion($DBversion);
14969 print "Upgrade to $DBversion done (Bug 18882 - Add location code to statistics table for checkouts and renewals)\n";
14972 $DBversion = '17.06.00.028';
14973 if( CheckVersion( $DBversion ) ) {
14974 if ( !TableExists( 'illrequests' ) ) {
14976 CREATE TABLE illrequests (
14977 illrequest_id serial PRIMARY KEY, -- ILL request number
14978 borrowernumber integer DEFAULT NULL, -- Patron associated with request
14979 biblio_id integer DEFAULT NULL, -- Potential bib linked to request
14980 branchcode varchar(50) NOT NULL, -- The branch associated with the request
14981 status varchar(50) DEFAULT NULL, -- Current Koha status of request
14982 placed date DEFAULT NULL, -- Date the request was placed
14983 replied date DEFAULT NULL, -- Last API response
14984 updated timestamp DEFAULT CURRENT_TIMESTAMP -- Last modification to request
14985 ON UPDATE CURRENT_TIMESTAMP,
14986 completed date DEFAULT NULL, -- Date the request was completed
14987 medium varchar(30) DEFAULT NULL, -- The Koha request type
14988 accessurl varchar(500) DEFAULT NULL, -- Potential URL for accessing item
14989 cost varchar(20) DEFAULT NULL, -- Cost of request
14990 notesopac text DEFAULT NULL, -- Patron notes attached to request
14991 notesstaff text DEFAULT NULL, -- Staff notes attached to request
14992 orderid varchar(50) DEFAULT NULL, -- Backend id attached to request
14993 backend varchar(20) DEFAULT NULL, -- The backend used to create request
14994 CONSTRAINT `illrequests_bnfk`
14995 FOREIGN KEY (`borrowernumber`)
14996 REFERENCES `borrowers` (`borrowernumber`)
14997 ON UPDATE CASCADE ON DELETE CASCADE,
14998 CONSTRAINT `illrequests_bcfk_2`
14999 FOREIGN KEY (`branchcode`)
15000 REFERENCES `branches` (`branchcode`)
15001 ON UPDATE CASCADE ON DELETE CASCADE
15002 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
15006 if ( !TableExists( 'illrequestattributes' ) ) {
15008 CREATE TABLE illrequestattributes (
15009 illrequest_id bigint(20) unsigned NOT NULL, -- ILL request number
15010 type varchar(200) NOT NULL, -- API ILL property name
15011 value text NOT NULL, -- API ILL property value
15012 PRIMARY KEY (`illrequest_id`,`type`),
15013 CONSTRAINT `illrequestattributes_ifk`
15014 FOREIGN KEY (illrequest_id)
15015 REFERENCES `illrequests` (`illrequest_id`)
15016 ON UPDATE CASCADE ON DELETE CASCADE
15017 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
15021 # System preferences
15023 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
15024 ('ILLModule','0','If ON, enables the interlibrary loans module.','','YesNo');
15028 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
15029 ('ILLModuleCopyrightClearance','','70|10','Enter text to enable the copyright clearance stage of request creation. Text will be displayed','Textarea');
15033 INSERT IGNORE INTO userflags (bit,flag,flagdesc,defaulton) VALUES
15034 (22,'ill','The Interlibrary Loans Module',0);
15037 SetVersion( $DBversion );
15038 print "Upgrade to $DBversion done (Bug 7317 - Add an Interlibrary Loan Module to Circulation and OPAC)\n";
15041 $DBversion = '17.11.00.000';
15042 if( CheckVersion( $DBversion ) ) {
15043 SetVersion( $DBversion );
15044 print "Upgrade to $DBversion done (Koha 17.11)\n";
15047 $DBversion = '17.12.00.000';
15048 if( CheckVersion( $DBversion ) ) {
15049 SetVersion( $DBversion );
15050 print "Upgrade to $DBversion done (Tē tōia, tē haumatia)\n";
15053 $DBversion = '17.12.00.001';
15054 if( CheckVersion( $DBversion ) ) {
15055 foreach my $table (qw(biblio_metadata deletedbiblio_metadata)) {
15056 if (!column_exists($table, 'timestamp')) {
15058 ALTER TABLE `$table`
15059 ADD COLUMN `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP AFTER `metadata`,
15060 ADD KEY `timestamp` (`timestamp`)
15063 UPDATE $table metadata
15064 LEFT JOIN biblioitems ON (biblioitems.biblionumber = metadata.biblionumber)
15065 LEFT JOIN biblio ON (biblio.biblionumber = metadata.biblionumber)
15066 SET metadata.timestamp = GREATEST(biblioitems.timestamp, biblio.timestamp);
15071 SetVersion( $DBversion );
15072 print "Upgrade to $DBversion done (Bug 19724 - Add [deleted]biblio_metadata.timestamp)\n";
15075 $DBversion = '17.12.00.002';
15076 if( CheckVersion( $DBversion ) ) {
15078 my $msss = $dbh->selectall_arrayref(q|
15079 SELECT kohafield, tagfield, tagsubfield, frameworkcode
15080 FROM marc_subfield_structure
15081 WHERE frameworkcode != ''
15082 |, { Slice => {} });
15085 my $sth = $dbh->prepare(q|
15087 FROM marc_subfield_structure
15088 WHERE frameworkcode = ''
15090 AND tagsubfield = ?
15094 for my $mss ( @$msss ) {
15095 $sth->execute($mss->{tagfield}, $mss->{tagsubfield} );
15096 my ( $default_kohafield ) = $sth->fetchrow_array();
15097 if( $mss->{kohafield} ) {
15098 push @exceptions, { frameworkcode => $mss->{frameworkcode}, tagfield => $mss->{tagfield}, tagsubfield => $mss->{tagsubfield}, kohafield => $mss->{kohafield} } if not $default_kohafield or $default_kohafield ne $mss->{kohafield};
15100 push @exceptions, { frameworkcode => $mss->{frameworkcode}, tagfield => $mss->{tagfield}, tagsubfield => $mss->{tagsubfield}, kohafield => q{} } if $default_kohafield;
15105 print "WARNING: The Default framework is now considered as authoritative for Koha to MARC mappings. We have found that your additional frameworks contained "
15106 . scalar(@exceptions)
15107 . " mapping(s) that deviate from the standard mappings. Please look at the following list and consider if you need to add them again in Default (possibly as a second mapping).\n";
15108 for my $exception (@exceptions) {
15110 . $exception->{tagfield} . '$'
15111 . $exception->{tagsubfield}
15113 . $exception->{frameworkcode} . ': ';
15114 if ( $exception->{kohafield} ) {
15115 print "Mapping to "
15116 . $exception->{kohafield}
15117 . " has been adjusted.\n";
15120 print "Mapping has been reset.\n";
15126 # Clear the destination frameworks first
15128 UPDATE marc_subfield_structure
15129 SET kohafield = NULL
15130 WHERE frameworkcode > ''
15134 # Now copy from Default
15135 my $msss = $dbh->selectall_arrayref(q|
15136 SELECT kohafield, tagfield, tagsubfield
15137 FROM marc_subfield_structure
15138 WHERE frameworkcode = ''
15140 |, { Slice => {} });
15141 my $sth = $dbh->prepare(q|
15142 UPDATE marc_subfield_structure
15144 WHERE frameworkcode > ''
15146 AND tagsubfield = ?
15148 for my $mss (@$msss) {
15149 $sth->execute( $mss->{kohafield}, $mss->{tagfield},
15150 $mss->{tagsubfield} );
15154 my @frameworkcodes = $dbh->selectall_arrayref(q|
15155 SELECT frameworkcode FROM biblio_framework WHERE frameworkcode > ''
15157 for my $frameworkcode (@frameworkcodes) {
15158 Koha::Caches->get_instance->clear_from_cache("MarcSubfieldStructure-$frameworkcode");
15160 Koha::Caches->get_instance->clear_from_cache("default_value_for_mod_marc-");
15163 SetVersion( $DBversion );
15164 print "Upgrade to $DBversion done (Bug 19096 - Make Default authoritative for Koha to MARC mappings)\n";
15167 $DBversion = '17.12.00.003';
15168 if( CheckVersion( $DBversion ) ) {
15169 $dbh->do(q|DROP TABLE IF EXISTS notifys|);
15171 if( column_exists( 'accountlines', 'notify_id' ) ) {
15172 $dbh->do(q|ALTER TABLE accountlines DROP COLUMN notify_id|);
15173 $dbh->do(q|ALTER TABLE accountlines DROP COLUMN notify_level|);
15176 SetVersion( $DBversion );
15177 print "Upgrade to $DBversion done (Bug 10021 - Drop notifys-related table and columns)\n";
15180 $DBversion = '17.12.00.004';
15181 if( CheckVersion( $DBversion ) ) {
15183 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
15185 ('RESTdefaultPageSize','20','','Set the default number of results returned by the REST API endpoints','Integer')
15188 SetVersion( $DBversion );
15189 print "Upgrade to $DBversion done (Bug 19278 - Add a configurable default page size for REST endpoints)\n";
15192 $DBversion = '17.12.00.005';
15193 if( CheckVersion( $DBversion ) ) {
15194 # For installations having the note already
15197 SET code = 'CHECKOUT_NOTE',
15198 name = 'Checkout note on item set by patron',
15199 title = 'Checkout note',
15200 content = REPLACE(content, "<<biblio.item>>", "<<biblio.title>>")
15201 WHERE code = 'PATRON_NOTE'
15203 # For installations coming from 17.11
15205 INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content`, `message_transport_type`)
15206 VALUES ('circulation', 'CHECKOUT_NOTE', '', 'Checkout note on item set by patron', '0', 'Checkout note', '<<borrowers.firstname>> <<borrowers.surname>> has added a note to the item <<biblio.title>> - <<biblio.author>> (<<biblio.biblionumber>>).','email')
15209 SetVersion( $DBversion );
15210 print "Upgrade to $DBversion done (Bug 18915 - Correct CHECKOUT_NOTE notice template)\n";
15213 $DBversion = '17.12.00.006';
15214 if( CheckVersion( $DBversion ) ) {
15216 UPDATE systempreferences SET value=replace(value, "http://www.scholar", "https://scholar") WHERE variable='OPACSearchForTitleIn';
15219 SetVersion( $DBversion );
15220 print "Upgrade to $DBversion done (Bug 17682 - Update URL for Google Scholar in OPACSearchForTitleIn)\n";
15223 $DBversion = '17.12.00.007';
15224 if( CheckVersion( $DBversion ) ) {
15226 unless ( TableExists( 'library_groups' ) ) {
15228 CREATE TABLE library_groups (
15229 id INT(11) NOT NULL auto_increment, -- unique id for each group
15230 parent_id INT(11) NULL DEFAULT NULL, -- if this is a child group, the id of the parent group
15231 branchcode VARCHAR(10) NULL DEFAULT NULL, -- The branchcode of a branch belonging to the parent group
15232 title VARCHAR(100) NULL DEFAULT NULL, -- Short description of the goup
15233 description TEXT NULL DEFAULT NULL, -- Longer explanation of the group, if necessary
15234 created_on TIMESTAMP NULL, -- Date and time of creation
15235 updated_on TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, -- Date and time of last
15236 PRIMARY KEY id ( id ),
15237 FOREIGN KEY (parent_id) REFERENCES library_groups(id) ON UPDATE CASCADE ON DELETE CASCADE,
15238 FOREIGN KEY (branchcode) REFERENCES branches(branchcode) ON UPDATE CASCADE ON DELETE CASCADE,
15239 UNIQUE KEY title ( title )
15240 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
15244 SetVersion( $DBversion );
15245 print "Upgrade to $DBversion done (Bug 15707 - Add new table library_groups)\n";
15248 $DBversion = '17.12.00.008';
15249 if ( CheckVersion($DBversion) ) {
15251 if ( TableExists( 'branchcategories' ) and TableExists('branchrelations' )) {
15253 INSERT INTO library_groups ( title, description, created_on ) VALUES ( '__SEARCH_GROUPS__', 'Library search groups', NOW() )
15255 my $search_groups_root_id = $dbh->last_insert_id(undef, undef, 'library_groups', undef);
15257 my $sth = $dbh->prepare("SELECT * FROM branchcategories");
15259 my $sth2 = $dbh->prepare("INSERT INTO library_groups ( parent_id, title, description, created_on ) VALUES ( ?, ?, ?, NOW() )");
15261 my $sth3 = $dbh->prepare("SELECT * FROM branchrelations WHERE categorycode = ?");
15263 my $sth4 = $dbh->prepare("INSERT INTO library_groups ( parent_id, branchcode, created_on ) VALUES ( ?, ?, NOW() )");
15266 while ( my $lc = $sth->fetchrow_hashref ) {
15267 my $description = $lc->{categorycode};
15268 $description .= " - " . $lc->{codedescription} if $lc->{codedescription};
15270 $sth2->execute($search_groups_root_id, $lc->{categoryname}, $description);
15272 my $subgroup_id = $dbh->last_insert_id(undef, undef, 'library_groups', undef);
15274 $sth3->execute( $lc->{categorycode} );
15276 while ( my $l = $sth3->fetchrow_hashref ) {
15277 $sth4->execute( $subgroup_id, $l->{branchcode} );
15281 $dbh->do("DROP TABLE branchrelations");
15282 $dbh->do("DROP TABLE branchcategories");
15285 print "Upgrade to $DBversion done (Bug 16735 - Migrate library search groups into the new hierarchical groups)\n";
15286 SetVersion($DBversion);
15289 $DBversion = '17.12.00.009';
15290 if ( CheckVersion($DBversion) ) {
15292 INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
15293 (4, 'edit_borrowers', 'Add, modify and view patron information'),
15294 (4, 'view_borrower_infos_from_any_libraries', 'View patron infos from any libraries');
15297 # We are lucky here, there is nothing else to do: flags 4-borrowers did not contain sub permissions
15299 SetVersion( $DBversion );
15300 print "Upgrade to $DBversion done (Bug 18403 - Add the view_borrower_infos_from_any_libraries permission )\n";
15303 $DBversion = '17.12.00.010';
15304 if( CheckVersion( $DBversion ) ) {
15306 if( !column_exists( 'library_groups', 'ft_hide_patron_info' ) ) {
15307 $dbh->do( "ALTER TABLE library_groups ADD COLUMN ft_hide_patron_info tinyint(1) NOT NULL DEFAULT 0 AFTER description" );
15310 SetVersion( $DBversion );
15311 print "Upgrade to $DBversion done (Bug 20133 - Add library_groups.ft_hide_patron_info)\n";
15314 $DBversion = '17.12.00.011';
15315 if( CheckVersion( $DBversion ) ) {
15317 if( !column_exists( 'library_groups', 'ft_search_groups_opac' ) ) {
15318 $dbh->do( "ALTER TABLE library_groups ADD COLUMN ft_search_groups_opac tinyint(1) NOT NULL DEFAULT 0 AFTER ft_hide_patron_info" );
15319 $dbh->do( "ALTER TABLE library_groups ADD COLUMN ft_search_groups_staff tinyint(1) NOT NULL DEFAULT 0 AFTER ft_search_groups_opac" );
15320 $dbh->do( "UPDATE library_groups SET ft_search_groups_staff = 1 AND ft_search_groups_opac = 1 WHERE title = '__SEARCH_GROUPS__'" );
15323 SetVersion( $DBversion );
15324 print "Upgrade to $DBversion done (Bug 20157 - Use group 'features' to decide which groups to use for group searching functionality)\n";
15327 $DBversion = '17.12.00.012';
15328 if( CheckVersion( $DBversion ) ) {
15331 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
15332 VALUES ('AutoSwitchPatron', '0', '', 'Auto switch to patron', 'YesNo');
15335 SetVersion( $DBversion );
15336 print "Upgrade to $DBversion done (Bug 15752 - Add system preference AutoSwitchPatron)\n";
15339 $DBversion = '17.12.00.013';
15340 if( CheckVersion( $DBversion ) ) {
15343 ALTER TABLE club_enrollments MODIFY date_created timestamp NULL DEFAULT NULL;
15346 SetVersion( $DBversion );
15347 print "Upgrade to $DBversion done (Bug 20175 - Set DEFAULT NULL value for club_enrollments.date_created)\n";
15350 $DBversion = '17.12.00.014';
15351 if( CheckVersion( $DBversion ) ) {
15352 $dbh->do( "UPDATE marc_subfield_structure SET kohafield=NULL where kohafield='additionalauthors.author'" );
15353 SetVersion( $DBversion );
15354 print "Upgrade to $DBversion done (Bug 19790 - Remove additionalauthors.author from installer files)\n";
15357 $DBversion = '17.12.00.015';
15358 if( CheckVersion( $DBversion ) ) {
15360 ALTER TABLE borrowers
15361 MODIFY surname MEDIUMTEXT,
15362 MODIFY address MEDIUMTEXT,
15363 MODIFY city MEDIUMTEXT
15366 ALTER TABLE deletedborrowers
15367 MODIFY surname MEDIUMTEXT,
15368 MODIFY address MEDIUMTEXT,
15369 MODIFY city MEDIUMTEXT
15373 ALTER TABLE export_format
15374 MODIFY csv_separator VARCHAR(2) NOT NULL DEFAULT ',',
15375 MODIFY field_separator VARCHAR(2),
15376 MODIFY subfield_separator VARCHAR(2)
15379 ALTER TABLE export_format MODIFY encoding VARCHAR(255) NOT NULL DEFAULT 'utf8'
15383 ALTER TABLE reserves MODIFY lowestPriority tinyint(1) NOT NULL DEFAULT 0
15386 ALTER TABLE old_reserves MODIFY lowestPriority tinyint(1) NOT NULL DEFAULT 0
15389 SetVersion( $DBversion );
15390 print "Upgrade to $DBversion done (Bug 20144 - Adapt DB structure to work with new SQL modes)\n";
15393 $DBversion = '17.12.00.016';
15394 if( CheckVersion( $DBversion ) ) {
15395 $dbh->do(q|SET foreign_key_checks = 0|);
15396 my $sth = $dbh->table_info( '','','','TABLE' );
15398 while ( my ( $cat, $schema, $name, $type, $remarks ) = $sth->fetchrow_array ) {
15399 my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE $name|);
15400 $table_sth->execute;
15401 my @table = $table_sth->fetchrow_array;
15402 unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) {
15403 # Some users might have done the upgrade to utf8mb4 on their own
15404 # to support supplemental chars (japanese, chinese, etc)
15405 if ( $name eq 'additional_fields' ) {
15408 DROP KEY `fields_uniq`,
15409 ADD UNIQUE KEY `fields_uniq` (`tablename` (191), `name` (191))
15411 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15413 elsif ( $name eq 'authorised_values' ) {
15417 ADD KEY `lib` (`lib` (191))
15419 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15421 elsif ( $name eq 'borrower_modifications' ) {
15425 DROP KEY `verification_token`,
15426 ADD PRIMARY KEY (`verification_token` (191),`borrowernumber`),
15427 ADD KEY `verification_token` (`verification_token` (191))
15429 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15431 elsif ( $name eq 'columns_settings' ) {
15435 ADD PRIMARY KEY (`module` (191), `page` (191), `tablename` (191), `columnname` (191))
15437 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15439 elsif ( $name eq 'illrequestattributes' ) {
15443 ADD PRIMARY KEY (`illrequest_id`, `type` (191))
15445 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15447 elsif ( $name eq 'items_search_fields' ) {
15451 ADD PRIMARY KEY (`name` (191))
15453 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15455 elsif ( $name eq 'marc_subfield_structure' ) {
15456 # In this case we convert each column explicitly
15457 # to preserve 'tagsubield' collation (utf8mb4_bin)
15460 MODIFY COLUMN tagfield
15461 VARCHAR(3) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '',
15462 MODIFY COLUMN tagsubfield
15463 VARCHAR(1) COLLATE utf8mb4_bin NOT NULL DEFAULT '',
15464 MODIFY COLUMN liblibrarian
15465 VARCHAR(255) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '',
15466 MODIFY COLUMN libopac
15467 VARCHAR(255) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '',
15468 MODIFY COLUMN kohafield
15469 VARCHAR(40) COLLATE utf8mb4_unicode_ci DEFAULT NULL,
15470 MODIFY COLUMN authorised_value
15471 VARCHAR(32) COLLATE utf8mb4_unicode_ci DEFAULT NULL,
15472 MODIFY COLUMN authtypecode
15473 VARCHAR(20) COLLATE utf8mb4_unicode_ci DEFAULT NULL,
15474 MODIFY COLUMN value_builder
15475 VARCHAR(80) COLLATE utf8mb4_unicode_ci DEFAULT NULL,
15476 MODIFY COLUMN frameworkcode
15477 VARCHAR(4) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '',
15478 MODIFY COLUMN seealso
15479 VARCHAR(1100) COLLATE utf8mb4_unicode_ci DEFAULT NULL,
15481 VARCHAR(80) COLLATE utf8mb4_unicode_ci DEFAULT NULL,
15482 MODIFY COLUMN defaultvalue
15483 MEDIUMTEXT COLLATE utf8mb4_unicode_ci default NULL
15485 $dbh->do(qq|ALTER TABLE $name CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15487 elsif ( $name eq 'plugin_data' ) {
15491 ADD PRIMARY KEY (`plugin_class` (191), `plugin_key` (191))
15493 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15495 elsif ( $name eq 'search_field' ) {
15499 ADD UNIQUE KEY `name` (`name` (191))
15501 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15503 elsif ( $name eq 'search_marc_map' ) {
15506 DROP KEY `index_name`,
15507 ADD UNIQUE KEY `index_name` (`index_name`, `marc_field` (191), `marc_type`)
15509 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15511 elsif ( $name eq 'sms_providers' ) {
15515 ADD UNIQUE KEY `name` (`name` (191))
15517 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15519 elsif ( $name eq 'tags' ) {
15523 ADD PRIMARY KEY (`entry` (191))
15525 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15527 elsif ( $name eq 'tags_approval' ) {
15530 MODIFY COLUMN `term` VARCHAR(191) NOT NULL
15532 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15534 elsif ( $name eq 'tags_index' ) {
15537 MODIFY COLUMN `term` VARCHAR(191) NOT NULL
15539 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15542 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci|);
15546 $dbh->do(q|SET foreign_key_checks = 1|);
15548 print "Upgrade to $DBversion done (Bug 18336 - Convert DB tables to utf8mb4 🎁)\n";
15549 SetVersion($DBversion);
15553 $DBversion = '17.12.00.017';
15554 if( CheckVersion( $DBversion ) ) {
15556 if( !column_exists( 'items', 'damaged_on' ) ) {
15557 $dbh->do( "ALTER TABLE items ADD COLUMN damaged_on DATETIME NULL AFTER damaged");
15559 if( !column_exists( 'deleteditems', 'damaged_on' ) ) {
15560 $dbh->do( "ALTER TABLE deleteditems ADD COLUMN damaged_on DATETIME NULL AFTER damaged");
15563 SetVersion( $DBversion );
15564 print "Upgrade to $DBversion done (Bug 17672 - Add damaged_on to items and deleteditems tables)\n";
15567 $DBversion = '17.12.00.018';
15568 if( CheckVersion( $DBversion ) ) {
15571 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('BrowseResultSelection','0',NULL,'Enable/Disable browsing search results fromt the bibliographic record detail page in staff client','YesNo')
15574 SetVersion( $DBversion );
15575 print "Upgrade to $DBversion done (Bug 19290 - Add system preference BrowseResultSelection)\n";
15578 $DBversion = '17.12.00.019';
15579 if( CheckVersion( $DBversion ) ) {
15581 $dbh->do(q|UPDATE auth_subfield_structure SET hidden=1 WHERE hidden<>0|);
15583 SetVersion( $DBversion );
15584 print "Upgrade to $DBversion done (Bug 20074 - Auth_subfield_structure changes hidden attribute)\n";
15587 $DBversion = '17.12.00.020';
15588 if( CheckVersion( $DBversion ) ) {
15591 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
15592 VALUES ('vi', 'language', 'de', 'Vietnamesisch')
15596 UPDATE language_descriptions SET description = 'Tiếng Việt'
15597 WHERE subtag = 'vi' and type = 'language' and lang = 'vi'
15600 SetVersion( $DBversion );
15601 print "Upgrade to $DBversion done (Bug 20082 - Update descriptions of Vietnamese language)\n";
15604 $DBversion = '17.12.00.021';
15605 if( CheckVersion( $DBversion ) ) {
15608 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
15609 ('PurgeSuggestionsOlderThan', '', NULL, 'Default value for cronjob purge_suggestions.pl', 'Integer');
15612 SetVersion( $DBversion );
15613 print "Upgrade to $DBversion done (Bug 13287 - Add system preference PurgeSuggestionsOlderThan)\n";
15616 $DBversion = '17.12.00.022';
15617 if( CheckVersion( $DBversion ) ) {
15619 if( !column_exists( 'currency', 'p_sep_by_space' ) ) {
15621 ALTER TABLE currency ADD COLUMN p_sep_by_space tinyint(1) default 0 after archived
15625 SetVersion( $DBversion );
15626 print "Upgrade to $DBversion done (Bug 4078 - Add column currency.p_sep_by_space)\n";
15629 $DBversion = '17.12.00.023';
15630 if( CheckVersion( $DBversion ) ) {
15632 DELETE FROM systempreferences
15633 WHERE variable='checkdigit'
15636 SetVersion( $DBversion );
15637 print "Upgrade to $DBversion done (Bug 20264 - Remove system preference 'checkdigit')\n";
15640 $DBversion = '17.12.00.024';
15641 if( CheckVersion( $DBversion ) ) {
15644 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
15645 VALUES ('SelfCheckInMainUserBlock', '', '70|10', 'Add a block of HTML that will display on the self check-in screen.', 'Textarea');
15649 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
15650 VALUES ('SelfCheckInModule', 0, NULL, 'Enable the standalone self-checkin module.', 'YesNo');
15654 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
15655 VALUES ('SelfCheckInModuleUserID', NULL, NULL, 'Patron ID (borrowernumber) to be allowed on the self-checkin module.', 'Integer');
15659 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
15660 VALUES ('SelfCheckInTimeout', 120, NULL, 'Define the number of seconds before the self check-in module times out.', 'Integer');
15664 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
15665 VALUES ('SelfCheckInUserCSS', '', NULL, 'Add CSS to be included in the self check-in module in an embedded <style> tag.', 'free');
15669 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
15670 VALUES ('SelfCheckInUserJS', '', NULL, 'Define custom javascript for inclusion in the self check-in module.', 'free');
15673 # Add new userflag for self check
15675 INSERT IGNORE INTO userflags (bit,flag,flagdesc,defaulton) VALUES
15676 (23,'self_check','Self check modules',0);
15679 # Add self check-in module subpermission
15681 INSERT IGNORE INTO permissions (module_bit,code,description)
15682 VALUES (23, 'self_checkin_module', 'Log into the self check-in module');
15685 # Add self check-in module subpermission
15687 INSERT IGNORE INTO permissions (module_bit,code,description)
15688 VALUES (23, 'self_checkout_module', 'Perform self checkout at the OPAC. It should be used for the patron matching the AutoSelfCheckID');
15691 # Update patrons with self_checkout permission
15692 # IMPORTANT: Needs to happen before removing the old subpermission
15694 UPDATE user_permissions
15695 SET module_bit = 23,
15696 code = 'self_checkout_module'
15697 WHERE module_bit = 1 AND code = 'self_checkout';
15700 # Remove old self_checkout permission
15702 DELETE IGNORE FROM permissions
15703 WHERE code='self_checkout';
15706 SetVersion( $DBversion );
15707 print "Upgrade to $DBversion done (Bug 15492 - Add a standalone self-checkin module)\n";
15710 $DBversion = '17.12.00.025';
15711 if( CheckVersion( $DBversion ) ) {
15713 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
15714 VALUES ('StaffLoginInstructions','','HTML to go into the login box for the staff client',NULL,'Free')
15717 UPDATE systempreferences
15718 SET variable = 'OpacLoginInstructions'
15719 WHERE variable = 'NoLoginInstructions'
15722 SetVersion( $DBversion );
15723 print "Upgrade to $DBversion done (Bug 20291 - Add StaffLoginInstructions system preference and rename NoLoginInstructions with OpacLoginInstructions)\n";
15726 $DBversion = '17.12.00.026';
15727 if( CheckVersion( $DBversion ) ) {
15728 if( !column_exists( 'issuingrules', 'suspension_chargeperiod' ) ) {
15730 ALTER TABLE issuingrules ADD COLUMN suspension_chargeperiod int(11) DEFAULT '1' AFTER maxsuspensiondays;
15734 SetVersion( $DBversion );
15735 print "Upgrade to $DBversion done (Bug 19804 - Add issuingrules.suspension_chargeperiod)\n";
15738 $DBversion = '17.12.00.027';
15739 if( CheckVersion( $DBversion ) ) {
15741 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)
15742 VALUES ('UseACQFrameworkForBiblioRecords','0','','Use the ACQ framework for the catalog details','YesNo')
15745 SetVersion( $DBversion );
15746 print "Upgrade to $DBversion done (Bug 19289 - Add system preference UseACQFrameworkForBiblioRecords)\n";
15749 $DBversion = '17.12.00.028';
15750 if( CheckVersion( $DBversion ) ) {
15751 if( !column_exists( 'marc_tag_structure', 'ind1_defaultvalue' ) ) {
15753 ALTER TABLE marc_tag_structure
15754 ADD COLUMN ind2_defaultvalue VARCHAR(1) NOT NULL DEFAULT '' AFTER authorised_value,
15755 ADD COLUMN ind1_defaultvalue VARCHAR(1) NOT NULL DEFAULT '' AFTER authorised_value;
15759 SetVersion( $DBversion );
15760 print "Upgrade to $DBversion done (Bug 9701 - Add default indicators (marc_tag_structure.indX_defaultvalue))\n";
15763 $DBversion = '17.12.00.029';
15764 if( CheckVersion( $DBversion ) ) {
15766 q|# PERSO_NAME 100 600 696 700 796 800 896
15767 marc21, 100, ind1:auth1
15768 marc21, 600, ind1:auth1, ind2:thesaurus
15769 marc21, 696, ind1:auth1
15770 marc21, 700, ind1:auth1
15771 marc21, 796, ind1:auth1
15772 marc21, 800, ind1:auth1
15773 marc21, 896, ind1:auth1
15774 # CORPO_NAME 110 610 697 710 797 810 897
15775 marc21, 110, ind1:auth1
15776 marc21, 610, ind1:auth1, ind2:thesaurus
15777 marc21, 697, ind1:auth1
15778 marc21, 710, ind1:auth1
15779 marc21, 797, ind1:auth1
15780 marc21, 810, ind1:auth1
15781 marc21, 897, ind1:auth1
15782 # MEETI_NAME 111 611 698 711 798 811 898
15783 marc21, 111, ind1:auth1
15784 marc21, 611, ind1:auth1, ind2:thesaurus
15785 marc21, 698, ind1:auth1
15786 marc21, 711, ind1:auth1
15787 marc21, 798, ind1:auth1
15788 marc21, 811, ind1:auth1
15789 marc21, 898, ind1:auth1
15790 # UNIF_TITLE 130 440 630 699 730 799 830 899 / 240
15791 marc21, 130, ind1:auth2
15792 marc21, 240, , ind2:auth2
15793 marc21, 440, , ind2:auth2
15794 marc21, 630, ind1:auth2, ind2:thesaurus
15795 marc21, 699, ind1:auth2
15796 marc21, 730, ind1:auth2
15797 marc21, 799, ind1:auth2
15798 marc21, 830, , ind2:auth2
15799 marc21, 899, ind1:auth2
15801 marc21, 648, , ind2:thesaurus
15802 # TOPIC_TERM 650 654 656 657 658 690
15803 marc21, 650, , ind2:thesaurus
15804 # GEOGR_NAME 651 662 691 / 751
15805 marc21, 651, , ind2:thesaurus
15807 marc21, 655, , ind2:thesaurus
15809 # UNIMARC: Always copy the indicators from the authority
15810 unimarc, *, ind1:auth1, ind2:auth2|;
15813 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
15814 VALUES ( 'AuthorityControlledIndicators', ?, 'Authority controlled indicators per biblio field', NULL, 'Free' );
15817 SetVersion( $DBversion );
15818 print "Upgrade to $DBversion done (Bug 14769 - Authorities merge: Set correct indicators in biblio field (new system preference AuthorityControlledIndicators))\n";
15821 $DBversion = '17.12.00.030';
15822 if( CheckVersion( $DBversion ) ) {
15824 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
15825 VALUES ('NovelistSelectStaffProfile',NULL,'Novelist staff client user Profile',NULL,'free')
15828 SetVersion( $DBversion );
15829 print "Upgrade to $DBversion done (Bug 19882 - Add system preference NovelistSelectStaffProfile)\n";
15832 $DBversion = '17.12.00.031';
15833 if( CheckVersion( $DBversion ) ) {
15835 INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)
15836 VALUES ('MarcFieldDocURL', NULL, NULL, 'URL used for MARC field documentation. Following substitutions are available: {MARC} = marc flavour, eg. \"MARC21\" or \"UNIMARC\". {FIELD} = field number, eg. \"000\" or \"048\". {LANG} = user language, eg. \"en\" or \"fi-FI\"', 'free')
15839 SetVersion( $DBversion );
15840 print "Upgrade to $DBversion done (Bug 11674 - Add system preference MarcFieldDocURL)\n";
15843 $DBversion = '17.12.00.032';
15844 if( CheckVersion( $DBversion ) ) {
15846 UPDATE letter SET code = "SERIAL_ALERT" WHERE code = "RLIST";
15849 UPDATE letter SET name = "New serial issue" WHERE name = "Routing List";
15852 UPDATE subscription SET letter = "SERIAL_ALERT" WHERE letter = "RLIST";
15855 SetVersion( $DBversion );
15856 print "Upgrade to $DBversion done (Bug 19794 - Rename RLIST notice to SERIAL_ALERT)\n";
15859 $DBversion = '17.12.00.033';
15860 if( CheckVersion( $DBversion ) ) {
15861 if ( !column_exists( 'accountlines', 'payment_type' ) ) {
15863 ALTER TABLE accountlines ADD payment_type varchar(80) default NULL AFTER accounttype
15868 INSERT IGNORE INTO authorised_value_categories( category_name ) VALUES ('PAYMENT_TYPE')
15871 SetVersion( $DBversion );
15872 print "Upgrade to $DBversion done (Bug 18786 - Add ability to create custom payment types)\n";
15875 $DBversion = '17.12.00.034';
15876 if( CheckVersion( $DBversion ) ) {
15879 INSERT IGNORE INTO account_offset_types ( type ) VALUES ('Void Payment')
15882 SetVersion( $DBversion );
15883 print "Upgrade to $DBversion done (Bug 18790 - Add ability to void payment)\n";
15886 $DBversion = '17.12.00.035';
15887 if( CheckVersion( $DBversion ) ) {
15888 my ( $original_value ) = $dbh->selectrow_array(q|
15889 SELECT value FROM systempreferences WHERE variable="MarkLostItemsAsReturned"
15891 if ( $original_value and $original_value eq '1' ) {
15893 UPDATE systempreferences
15894 SET type="multiple",
15895 options="batchmod|moredetail|cronjob|additem",
15896 value="batchmod,moredetail,cronjob,additem"
15897 WHERE variable="MarkLostItemsAsReturned"
15901 UPDATE systempreferences
15902 SET type="multiple",
15903 options="batchmod|moredetail|cronjob|additem",
15905 WHERE variable="MarkLostItemsAsReturned"
15909 SetVersion( $DBversion );
15910 print "Upgrade to $DBversion done (Bug 19974 - Make MarkLostItemsAsReturned multiple)\n";
15913 $DBversion = '17.12.00.036';
15914 if( CheckVersion( $DBversion ) ) {
15917 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('CanMarkHoldsToPullAsLost','do_not_allow','do_not_allow|allow|allow_and_notify','Add a button to the "Holds to pull" screen to mark an item as lost and notify the patron.','Choice');
15920 INSERT IGNORE INTO letter(module, code, branchcode, name, is_html, title, content, message_transport_type, lang) VALUES ('reserves', 'CANCEL_HOLD_ON_LOST', '', 'Hold has been cancelled', 0, "Hold has been cancelled", "Dear [% borrower.firstname %] [% borrower.surname %],\n\nWe regret to inform you, that the following item can not be provided due to it being missing. Your hold was cancelled.\n\nTitle: [% biblio.title %]\nAuthor: [% biblio.author %]\nCopy: [% item.copynumber %]\nLocation: [% branch.branchname %]", 'email', 'default');
15923 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('UpdateItemWhenLostFromHoldList','',NULL,'This is a list of values to update an item when it is marked as lost from the holds to pull screen','Free');
15926 UPDATE systempreferences SET options="batchmod|moredetail|cronjob|additem|pendingreserves", value="batchmod|moredetail|cronjob|additem|pendingreserves" WHERE variable="MarkLostItemsAsReturned";
15929 SetVersion( $DBversion );
15930 print "Upgrade to $DBversion done (Bug 19287 - Add ability to mark an item 'Lost' from 'Holds to pull' list (CanMarkHoldsToPullAsLost, UpdateItemWhenLostFromHoldList and CANCEL_HOLD_ON_LOST))\n";
15933 $DBversion = '17.12.00.037';
15934 if( CheckVersion( $DBversion ) ) {
15936 SetVersion( $DBversion );
15937 print "Upgrade to $DBversion done (This change has been reverted, nothing done!)\n";
15940 $DBversion = '17.12.00.038';
15941 if( CheckVersion( $DBversion ) ) {
15944 UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'slo' WHERE iso639_2_code = 'slk' AND rfc4646_subtag = 'sk';
15947 SetVersion( $DBversion );
15948 print "Upgrade to $DBversion done (Bug 20245 - Use Bibliographic code value for Slovak language)\n";
15951 $DBversion = '17.12.00.039';
15952 if( CheckVersion( $DBversion ) ) {
15955 UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'baq' WHERE iso639_2_code = 'eus' AND rfc4646_subtag = 'eu';
15958 UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'mao' WHERE iso639_2_code = 'mri' AND rfc4646_subtag = 'mi';
15961 UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'alb' WHERE iso639_2_code = 'sqi' AND rfc4646_subtag = 'sq';
15964 SetVersion( $DBversion );
15965 print "Upgrade to $DBversion done (Bug 20482 - Use Bibliographic code value for Basque, Maori and Albanian languages)\n";
15968 $DBversion = '17.12.00.040';
15969 if( CheckVersion( $DBversion ) ) {
15972 INSERT IGNORE INTO systempreferences ( value, variable, options, explanation, type )
15973 VALUES ( '0', 'ProtectSuperlibrarianPrivileges', NULL, 'If enabled, non-superlibrarians cannot set superlibrarian privileges', 'YesNo' )
15976 SetVersion( $DBversion );
15977 print "Upgrade to $DBversion done (Bug 20100 - Add new system preference ProtectSuperlibrarianPrivileges)\n";
15980 $DBversion = '17.12.00.041';
15981 if( CheckVersion( $DBversion ) ) {
15984 INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (13, 'access_files', 'Access to the files stored on the server');
15987 SetVersion( $DBversion );
15988 print "Upgrade to $DBversion done (Bug 11317 - Add a new permission to access files stored on the server)\n";
15991 $DBversion = '17.12.00.042';
15992 if( CheckVersion( $DBversion ) ) {
15994 if (!TableExists('oauth_access_tokens')) {
15996 CREATE TABLE oauth_access_tokens (
15997 `access_token` VARCHAR(191) NOT NULL,
15998 `client_id` VARCHAR(191) NOT NULL,
15999 `expires` INT NOT NULL,
16000 PRIMARY KEY (`access_token`)
16001 ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci
16005 SetVersion( $DBversion );
16006 print "Upgrade to $DBversion done (Bug 20402 - Implement OAuth2 authentication for REST API)\n";
16009 $DBversion = '17.12.00.043';
16010 if(CheckVersion($DBversion)) {
16012 if (!TableExists('api_keys')) {
16014 CREATE TABLE `api_keys` (
16015 `client_id` VARCHAR(191) NOT NULL,
16016 `secret` VARCHAR(191) NOT NULL,
16017 `description` VARCHAR(255) NOT NULL,
16018 `patron_id` INT(11) NOT NULL,
16019 `active` TINYINT(1) DEFAULT 1 NOT NULL,
16020 PRIMARY KEY `client_id` (`client_id`),
16021 UNIQUE KEY `secret` (`secret`),
16022 KEY `patron_id` (`patron_id`),
16023 CONSTRAINT `api_keys_fk_patron_id`
16024 FOREIGN KEY (`patron_id`)
16025 REFERENCES `borrowers` (`borrowernumber`)
16026 ON DELETE CASCADE ON UPDATE CASCADE
16027 ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
16031 print "Upgrade to $DBversion done (Bug 20568 - Add API key management interface for patrons)\n";
16032 SetVersion($DBversion);
16035 $DBversion = '17.12.00.044';
16036 if(CheckVersion($DBversion)) {
16039 INSERT IGNORE INTO systempreferences (`variable`,`value`,`options`,`explanation`,`type`)
16041 ('RESTOAuth2ClientCredentials','0',NULL,'If enabled, the OAuth2 client credentials flow is enabled for the REST API.','YesNo');
16044 print "Upgrade to $DBversion done (Bug 20624 - Disable OAuth2 client credentials grant by default)\n";
16045 SetVersion($DBversion);
16048 $DBversion = '18.05.00.000';
16049 if( CheckVersion( $DBversion ) ) {
16050 SetVersion( $DBversion );
16051 print "Upgrade to $DBversion done (Koha 18.05)\n";
16054 $DBversion = '18.06.00.000';
16055 if( CheckVersion( $DBversion ) ) {
16056 SetVersion( $DBversion );
16057 print "Upgrade to $DBversion done (Koha 18.06 - It's Adventure time!)\n";
16060 $DBversion = '18.06.00.001';
16061 if( CheckVersion( $DBversion ) ) {
16062 $dbh->do(q{UPDATE permissions SET description = 'Manage budgets' WHERE code = 'period_manage';});
16063 $dbh->do(q{UPDATE permissions SET description = 'Manage funds' WHERE code = 'budget_manage';});
16064 $dbh->do(q{UPDATE permissions SET description = 'Modify funds (can''t create lines, but can modify existing ones)' WHERE code = 'budget_modify';});
16065 $dbh->do(q{UPDATE permissions SET description = 'Manage baskets and order lines' WHERE code = 'order_manage';});
16066 $dbh->do(q{UPDATE permissions SET description = 'Manage all baskets and order lines, regardless of restrictions on them' WHERE code = 'order_manage_all';});
16067 $dbh->do(q{UPDATE permissions SET description = 'Manage basket groups' WHERE code = 'group_manage';});
16068 $dbh->do(q{UPDATE permissions SET description = 'Receive orders and manage shipments' WHERE code = 'order_receive';});
16069 $dbh->do(q{UPDATE permissions SET description = 'Add and delete funds (but can''t modify funds)' WHERE code = 'budget_add_del';});
16070 $dbh->do(q{UPDATE permissions SET description = 'Manage all funds' WHERE code = 'budget_manage_all';});
16071 SetVersion( $DBversion );
16072 print "Upgrade to $DBversion done (Bug 3849- Improve descriptions of granular acquisition permissions)\n";
16075 $DBversion = '18.06.00.002';
16076 if( CheckVersion( $DBversion ) ) {
16077 $dbh->do(q{DELETE FROM userflags WHERE bit = 12 AND flag = 'management';});
16078 $dbh->do(q{UPDATE borrowers SET flags = flags - ( flags & (1<<12) ) WHERE flags & (1 << 12);});
16079 SetVersion( $DBversion );
16080 print "Upgrade to $DBversion done (Bug 2426 - Remove deprecated management permission)\n";
16083 $DBversion = '18.06.00.003';
16084 if( CheckVersion( $DBversion ) ) {
16085 $dbh->do( "ALTER TABLE search_field CHANGE COLUMN type type ENUM('', 'string', 'date', 'number', 'boolean', 'sum', 'isbn', 'stdno') NOT NULL COMMENT 'what type of data this holds, relevant when storing it in the search engine'" );
16086 SetVersion( $DBversion );
16087 print "Upgrade to $DBversion done (Bug 20073 - Add new types for Elasticsearch fields)\n";
16090 $DBversion = '18.06.00.004';
16091 if( CheckVersion( $DBversion ) ) {
16093 # Add 'Manual Credit' offset type
16095 INSERT IGNORE INTO `account_offset_types` (`type`) VALUES ('Manual Credit');
16098 # Fix wrong account offsets / Manual credits
16100 UPDATE account_offsets
16101 SET credit_id=debit_id,
16103 type='Manual Credit'
16104 WHERE amount < 0 AND
16105 type='Manual Debit' AND
16107 (SELECT accountlines_id AS debit_id
16109 WHERE accounttype='C');
16112 # Fix wrong account offsets / Manually forgiven amounts
16114 UPDATE account_offsets
16115 SET credit_id=debit_id,
16118 WHERE amount < 0 AND
16119 type='Manual Debit' AND
16121 (SELECT accountlines_id AS debit_id
16123 WHERE accounttype='FOR');
16126 SetVersion( $DBversion );
16127 print "Upgrade to $DBversion done (Bug 20980 - Manual credit offsets are stored as debits)\n";
16131 # if there is anything in the atomicupdate, read and execute it.
16133 my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
16134 opendir( my $dirh, $update_dir );
16135 foreach my $file ( sort readdir $dirh ) {
16136 next if $file !~ /\.(sql|perl)$/; #skip other files
16137 next if $file eq 'skeleton.perl'; # skip the skeleton file
16138 print "DEV atomic update: $file\n";
16139 if ( $file =~ /\.sql$/ ) {
16140 my $installer = C4::Installer->new();
16141 my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
16142 } elsif ( $file =~ /\.perl$/ ) {
16143 my $code = read_file( $update_dir . $file );
16145 say "Atomic update generated errors: $@" if $@;
16151 =head2 TableExists($table)
16158 local $dbh->{PrintError} = 0;
16159 local $dbh->{RaiseError} = 1;
16160 $dbh->do(qq{SELECT * FROM $table WHERE 1 = 0 });
16162 return 1 unless $@;
16166 =head2 DropAllForeignKeys($table)
16168 Drop all foreign keys of the table $table
16172 sub DropAllForeignKeys {
16174 # get the table description
16175 my $sth = $dbh->prepare("SHOW CREATE TABLE $table");
16177 my $vsc_structure = $sth->fetchrow;
16178 # split on CONSTRAINT keyword
16179 my @fks = split /CONSTRAINT /,$vsc_structure;
16182 # isolate what is before FOREIGN KEY, if there is something, it's a foreign key to drop
16183 $_ = /(.*) FOREIGN KEY.*/;
16186 # we have found 1 foreign, drop it
16187 $dbh->do("ALTER TABLE $table DROP FOREIGN KEY $id");
16194 =head2 TransformToNum
16196 Transform the Koha version from a 4 parts string
16197 to a number, with just 1 .
16201 sub TransformToNum {
16202 my $version = shift;
16203 # remove the 3 last . to have a Perl number
16204 $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
16205 # three X's at the end indicate that you are testing patch with dbrev
16206 # change it into 999
16207 # prevents error on a < comparison between strings (should be: lt)
16208 $version =~ s/XXX$/999/;
16214 set the DBversion in the systempreferences
16219 return if $_[0]=~ /XXX$/;
16220 #you are testing a patch with a db revision; do not change version
16221 my $kohaversion = TransformToNum($_[0]);
16222 if (C4::Context->preference('Version')) {
16223 my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
16224 $finish->execute($kohaversion);
16226 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')");
16227 $finish->execute($kohaversion);
16229 C4::Context::clear_syspref_cache(); # invalidate cached preferences
16232 =head2 CheckVersion
16234 Check whether a given update should be run when passed the proposed version
16235 number. The update will always be run if the proposed version is greater
16236 than the current database version and less than or equal to the version in
16237 kohaversion.pl. The update is also run if the version contains XXX, though
16238 this behavior will be changed following the adoption of non-linear updates
16239 as implemented in bug 7167.
16244 my ($proposed_version) = @_;
16245 my $version_number = TransformToNum($proposed_version);
16247 # The following line should be deleted when bug 7167 is pushed
16248 return 1 if ( $proposed_version =~ m/XXX/ );
16250 if ( C4::Context->preference("Version") < $version_number
16251 && $version_number <= TransformToNum( $Koha::VERSION ) )