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!
45 use MARC::File::XML ( BinaryEncoding => 'utf8' );
47 # FIXME - The user might be installing a new database, so can't rely
48 # on /etc/koha.conf anyway.
55 %existingtables, # tables already in database
59 $type, $null, $key, $default, $extra,
60 $prefitem, # preference item in systempreferences table
63 my $schema = Koha::Database->new()->schema();
69 my $dbh = C4::Context->dbh;
70 $|=1; # flushes output
72 local $dbh->{RaiseError} = 0;
74 # Record the version we are coming from
76 my $original_version = C4::Context->preference("Version");
78 # Deal with virtualshelves
79 my $DBversion = "3.00.00.001";
80 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
81 # update virtualshelves table to
83 $dbh->do("ALTER TABLE `bookshelf` RENAME `virtualshelves`");
84 $dbh->do("ALTER TABLE `shelfcontents` RENAME `virtualshelfcontents`");
85 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD `biblionumber` INT( 11 ) NOT NULL default '0' AFTER shelfnumber");
86 $dbh->do("UPDATE `virtualshelfcontents` SET biblionumber=(SELECT biblionumber FROM items WHERE items.itemnumber=virtualshelfcontents.itemnumber)");
87 # drop all foreign keys : otherwise, we can't drop itemnumber field.
88 DropAllForeignKeys('virtualshelfcontents');
89 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD KEY biblionumber (biblionumber)");
90 # create the new foreign keys (on biblionumber)
91 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `virtualshelfcontents_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE");
92 # re-create the foreign key on virtualshelf
93 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `shelfcontents_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
94 $dbh->do("ALTER TABLE `virtualshelfcontents` DROP `itemnumber`");
95 print "Upgrade to $DBversion done (virtualshelves)\n";
96 SetVersion ($DBversion);
100 $DBversion = "3.00.00.002";
101 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
102 $dbh->do("DROP TABLE sessions");
103 $dbh->do("CREATE TABLE `sessions` (
104 `id` varchar(32) NOT NULL,
105 `a_session` text NOT NULL,
106 UNIQUE KEY `id` (`id`)
107 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
108 print "Upgrade to $DBversion done (sessions uses CGI::session, new table structure for sessions)\n";
109 SetVersion ($DBversion);
113 $DBversion = "3.00.00.003";
114 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
115 if (C4::Context->preference("opaclanguages") eq "fr") {
116 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ReservesNeedReturns','0','Si ce paramètre est mis à 1, une réservation posée sur un exemplaire présent sur le site devra être passée en retour pour être disponible. Sinon, elle sera automatiquement disponible, Koha considère que le bibliothécaire place la réservation en ayant le document en mains','','YesNo')");
118 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ReservesNeedReturns','0','If set, a reserve done on an item available in this branch need a check-in, otherwise, a reserve on a specific item, that is on the branch & available is considered as available','','YesNo')");
120 print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
121 SetVersion ($DBversion);
125 $DBversion = "3.00.00.004";
126 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
127 $dbh->do("INSERT INTO `systempreferences` VALUES ('DebugLevel','2','set the level of error info sent to the browser. 0=none, 1=some, 2=most','0|1|2','Choice')");
128 print "Upgrade to $DBversion done (adding DebugLevel systempref, in 'Admin' tab)\n";
129 SetVersion ($DBversion);
132 $DBversion = "3.00.00.005";
133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
134 $dbh->do("CREATE TABLE `tags` (
135 `entry` varchar(255) NOT NULL default '',
136 `weight` bigint(20) NOT NULL default 0,
137 PRIMARY KEY (`entry`)
138 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
140 $dbh->do("CREATE TABLE `nozebra` (
141 `server` varchar(20) NOT NULL,
142 `indexname` varchar(40) NOT NULL,
143 `value` varchar(250) NOT NULL,
144 `biblionumbers` longtext NOT NULL,
145 KEY `indexname` (`server`,`indexname`),
146 KEY `value` (`server`,`value`))
147 ENGINE=InnoDB DEFAULT CHARSET=utf8;
149 print "Upgrade to $DBversion done (adding tags and nozebra tables )\n";
150 SetVersion ($DBversion);
153 $DBversion = "3.00.00.006";
154 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
155 $dbh->do("UPDATE issues SET issuedate=timestamp WHERE issuedate='0000-00-00'");
156 print "Upgrade to $DBversion done (filled issues.issuedate with timestamp)\n";
157 SetVersion ($DBversion);
160 $DBversion = "3.00.00.007";
161 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
162 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SessionStorage','mysql','Use mysql or a temporary file for storing session data','mysql|tmp','Choice')");
163 print "Upgrade to $DBversion done (set SessionStorage variable)\n";
164 SetVersion ($DBversion);
167 $DBversion = "3.00.00.008";
168 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
169 $dbh->do("ALTER TABLE `biblio` ADD `datecreated` DATE NOT NULL AFTER `timestamp` ;");
170 $dbh->do("UPDATE biblio SET datecreated=timestamp");
171 print "Upgrade to $DBversion done (biblio creation date)\n";
172 SetVersion ($DBversion);
175 $DBversion = "3.00.00.009";
176 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
178 # Create backups of call number columns
179 # in case default migration needs to be customized
181 # UPGRADE NOTE: temp_upg_biblioitems_call_num should be dropped
182 # after call numbers have been transformed to the new structure
184 # Not bothering to do the same with deletedbiblioitems -- assume
185 # default is good enough.
186 $dbh->do("CREATE TABLE `temp_upg_biblioitems_call_num` AS
187 SELECT `biblioitemnumber`, `biblionumber`,
188 `classification`, `dewey`, `subclass`,
190 FROM `biblioitems`");
192 # biblioitems changes
193 $dbh->do("ALTER TABLE `biblioitems` CHANGE COLUMN `volumeddesc` `volumedesc` TEXT,
194 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
195 ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
196 ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
197 ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
198 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
199 ADD `totalissues` INT(10) AFTER `cn_sort`");
201 # default mapping of call number columns:
202 # cn_class = concatentation of classification + dewey,
203 # trimmed to fit -- assumes that most users do not
204 # populate both classification and dewey in a single record
206 # cn_source = left null
209 # After upgrade, cn_sort will have to be set based on whatever
210 # default call number scheme user sets as a preference. Misc
211 # script will be added at some point to do that.
213 $dbh->do("UPDATE `biblioitems`
214 SET cn_class = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
219 # Now drop the old call number columns
220 $dbh->do("ALTER TABLE `biblioitems` DROP COLUMN `classification`,
222 DROP COLUMN `subclass`,
223 DROP COLUMN `lcsort`,
224 DROP COLUMN `ccode`");
226 # deletedbiblio changes
227 $dbh->do("ALTER TABLE `deletedbiblio` ALTER COLUMN `frameworkcode` SET DEFAULT '',
229 ADD `datecreated` DATE NOT NULL AFTER `timestamp`");
230 $dbh->do("UPDATE deletedbiblio SET datecreated = timestamp");
232 # deletedbiblioitems changes
233 $dbh->do("ALTER TABLE `deletedbiblioitems`
234 MODIFY `publicationyear` TEXT,
235 CHANGE `volumeddesc` `volumedesc` TEXT,
236 MODIFY `collectiontitle` MEDIUMTEXT DEFAULT NULL AFTER `volumedesc`,
237 MODIFY `collectionissn` TEXT DEFAULT NULL AFTER `collectiontitle`,
238 MODIFY `collectionvolume` MEDIUMTEXT DEFAULT NULL AFTER `collectionissn`,
239 MODIFY `editionstatement` TEXT DEFAULT NULL AFTER `collectionvolume`,
240 MODIFY `editionresponsibility` TEXT DEFAULT NULL AFTER `editionstatement`,
241 MODIFY `place` VARCHAR(255) DEFAULT NULL AFTER `size`,
242 MODIFY `marc` LONGBLOB,
243 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `url`,
244 ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
245 ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
246 ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
247 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
248 ADD `totalissues` INT(10) AFTER `cn_sort`,
249 ADD `marcxml` LONGTEXT NOT NULL AFTER `totalissues`,
250 ADD KEY `isbn` (`isbn`),
251 ADD KEY `publishercode` (`publishercode`)
254 $dbh->do("UPDATE `deletedbiblioitems`
255 SET `cn_class` = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
256 `cn_item` = `subclass`,
259 $dbh->do("ALTER TABLE `deletedbiblioitems`
260 DROP COLUMN `classification`,
262 DROP COLUMN `subclass`,
263 DROP COLUMN `lcsort`,
267 # deleteditems changes
268 $dbh->do("ALTER TABLE `deleteditems`
269 MODIFY `barcode` VARCHAR(20) DEFAULT NULL,
270 MODIFY `price` DECIMAL(8,2) DEFAULT NULL,
271 MODIFY `replacementprice` DECIMAL(8,2) DEFAULT NULL,
273 MODIFY `itemcallnumber` VARCHAR(30) DEFAULT NULL AFTER `wthdrawn`,
274 MODIFY `holdingbranch` VARCHAR(10) DEFAULT NULL,
276 MODIFY `timestamp` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER `paidfor`,
278 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
279 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
280 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
281 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
282 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`,
283 MODIFY `marc` LONGBLOB AFTER `uri`,
285 DROP KEY `itembarcodeidx`,
286 DROP KEY `itembinoidx`,
287 DROP KEY `itembibnoidx`,
288 ADD UNIQUE KEY `delitembarcodeidx` (`barcode`),
289 ADD KEY `delitembinoidx` (`biblioitemnumber`),
290 ADD KEY `delitembibnoidx` (`biblionumber`),
291 ADD KEY `delhomebranch` (`homebranch`),
292 ADD KEY `delholdingbranch` (`holdingbranch`)");
293 $dbh->do("UPDATE deleteditems SET `ccode` = `itype`");
294 $dbh->do("ALTER TABLE deleteditems DROP `itype`");
295 $dbh->do("UPDATE `deleteditems` SET `cn_sort` = `itemcallnumber`");
298 $dbh->do("ALTER TABLE `items` ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
299 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
300 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
301 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
302 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`
304 $dbh->do("ALTER TABLE `items`
305 DROP KEY `itembarcodeidx`,
306 ADD UNIQUE KEY `itembarcodeidx` (`barcode`)");
308 # map items.itype to items.ccode and
309 # set cn_sort to itemcallnumber -- as with biblioitems.cn_sort,
310 # will have to be subsequently updated per user's default
311 # classification scheme
312 $dbh->do("UPDATE `items` SET `cn_sort` = `itemcallnumber`,
315 $dbh->do("ALTER TABLE `items` DROP `cutterextra`,
318 print "Upgrade to $DBversion done (major changes to biblio, biblioitems, items, and deleted* versions of same\n";
319 SetVersion ($DBversion);
322 $DBversion = "3.00.00.010";
323 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
324 $dbh->do("CREATE INDEX `userid` ON borrowers (`userid`) ");
325 print "Upgrade to $DBversion done (userid index added)\n";
326 SetVersion ($DBversion);
329 $DBversion = "3.00.00.011";
330 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
331 $dbh->do("ALTER TABLE `branchcategories` CHANGE `categorycode` `categorycode` varchar(10) ");
332 $dbh->do("ALTER TABLE `branchcategories` CHANGE `categoryname` `categoryname` varchar(32) ");
333 $dbh->do("ALTER TABLE `branchcategories` ADD COLUMN `categorytype` varchar(16) ");
334 $dbh->do("UPDATE `branchcategories` SET `categorytype` = 'properties'");
335 $dbh->do("ALTER TABLE `branchrelations` CHANGE `categorycode` `categorycode` varchar(10) ");
336 print "Upgrade to $DBversion done (added branchcategory type)\n";
337 SetVersion ($DBversion);
340 $DBversion = "3.00.00.012";
341 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
342 $dbh->do("CREATE TABLE `class_sort_rules` (
343 `class_sort_rule` varchar(10) NOT NULL default '',
344 `description` mediumtext,
345 `sort_routine` varchar(30) NOT NULL default '',
346 PRIMARY KEY (`class_sort_rule`),
347 UNIQUE KEY `class_sort_rule_idx` (`class_sort_rule`)
348 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
349 $dbh->do("CREATE TABLE `class_sources` (
350 `cn_source` varchar(10) NOT NULL default '',
351 `description` mediumtext,
352 `used` tinyint(4) NOT NULL default 0,
353 `class_sort_rule` varchar(10) NOT NULL default '',
354 PRIMARY KEY (`cn_source`),
355 UNIQUE KEY `cn_source_idx` (`cn_source`),
356 KEY `used_idx` (`used`),
357 CONSTRAINT `class_source_ibfk_1` FOREIGN KEY (`class_sort_rule`)
358 REFERENCES `class_sort_rules` (`class_sort_rule`)
359 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
360 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type)
361 VALUES('DefaultClassificationSource','ddc',
362 'Default classification scheme used by the collection. E.g., Dewey, LCC, etc.', NULL,'free')");
363 $dbh->do("INSERT INTO `class_sort_rules` (`class_sort_rule`, `description`, `sort_routine`) VALUES
364 ('dewey', 'Default filing rules for DDC', 'Dewey'),
365 ('lcc', 'Default filing rules for LCC', 'LCC'),
366 ('generic', 'Generic call number filing rules', 'Generic')");
367 $dbh->do("INSERT INTO `class_sources` (`cn_source`, `description`, `used`, `class_sort_rule`) VALUES
368 ('ddc', 'Dewey Decimal Classification', 1, 'dewey'),
369 ('lcc', 'Library of Congress Classification', 1, 'lcc'),
370 ('udc', 'Universal Decimal Classification', 0, 'generic'),
371 ('sudocs', 'SuDoc Classification (U.S. GPO)', 0, 'generic'),
372 ('z', 'Other/Generic Classification Scheme', 0, 'generic')");
373 print "Upgrade to $DBversion done (classification sources added)\n";
374 SetVersion ($DBversion);
377 $DBversion = "3.00.00.013";
378 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
379 $dbh->do("CREATE TABLE `import_batches` (
380 `import_batch_id` int(11) NOT NULL auto_increment,
381 `template_id` int(11) default NULL,
382 `branchcode` varchar(10) default NULL,
383 `num_biblios` int(11) NOT NULL default 0,
384 `num_items` int(11) NOT NULL default 0,
385 `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
386 `overlay_action` enum('replace', 'create_new', 'use_template') NOT NULL default 'create_new',
387 `import_status` enum('staging', 'staged', 'importing', 'imported', 'reverting', 'reverted', 'cleaned') NOT NULL default 'staging',
388 `batch_type` enum('batch', 'z3950') NOT NULL default 'batch',
389 `file_name` varchar(100),
390 `comments` mediumtext,
391 PRIMARY KEY (`import_batch_id`),
392 KEY `branchcode` (`branchcode`)
393 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
394 $dbh->do("CREATE TABLE `import_records` (
395 `import_record_id` int(11) NOT NULL auto_increment,
396 `import_batch_id` int(11) NOT NULL,
397 `branchcode` varchar(10) default NULL,
398 `record_sequence` int(11) NOT NULL default 0,
399 `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
400 `import_date` DATE default NULL,
401 `marc` longblob NOT NULL,
402 `marcxml` longtext NOT NULL,
403 `marcxml_old` longtext NOT NULL,
404 `record_type` enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio',
405 `overlay_status` enum('no_match', 'auto_match', 'manual_match', 'match_applied') NOT NULL default 'no_match',
406 `status` enum('error', 'staged', 'imported', 'reverted', 'items_reverted') NOT NULL default 'staged',
407 `import_error` mediumtext,
408 `encoding` varchar(40) NOT NULL default '',
409 `z3950random` varchar(40) default NULL,
410 PRIMARY KEY (`import_record_id`),
411 CONSTRAINT `import_records_ifbk_1` FOREIGN KEY (`import_batch_id`)
412 REFERENCES `import_batches` (`import_batch_id`) ON DELETE CASCADE ON UPDATE CASCADE,
413 KEY `branchcode` (`branchcode`),
414 KEY `batch_sequence` (`import_batch_id`, `record_sequence`)
415 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
416 $dbh->do("CREATE TABLE `import_record_matches` (
417 `import_record_id` int(11) NOT NULL,
418 `candidate_match_id` int(11) NOT NULL,
419 `score` int(11) NOT NULL default 0,
420 CONSTRAINT `import_record_matches_ibfk_1` FOREIGN KEY (`import_record_id`)
421 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
422 KEY `record_score` (`import_record_id`, `score`)
423 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
424 $dbh->do("CREATE TABLE `import_biblios` (
425 `import_record_id` int(11) NOT NULL,
426 `matched_biblionumber` int(11) default NULL,
427 `control_number` varchar(25) default NULL,
428 `original_source` varchar(25) default NULL,
429 `title` varchar(128) default NULL,
430 `author` varchar(80) default NULL,
431 `isbn` varchar(14) default NULL,
432 `issn` varchar(9) default NULL,
433 `has_items` tinyint(1) NOT NULL default 0,
434 CONSTRAINT `import_biblios_ibfk_1` FOREIGN KEY (`import_record_id`)
435 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
436 KEY `matched_biblionumber` (`matched_biblionumber`),
437 KEY `title` (`title`),
439 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
440 $dbh->do("CREATE TABLE `import_items` (
441 `import_items_id` int(11) NOT NULL auto_increment,
442 `import_record_id` int(11) NOT NULL,
443 `itemnumber` int(11) default NULL,
444 `branchcode` varchar(10) default NULL,
445 `status` enum('error', 'staged', 'imported', 'reverted') NOT NULL default 'staged',
446 `marcxml` longtext NOT NULL,
447 `import_error` mediumtext,
448 PRIMARY KEY (`import_items_id`),
449 CONSTRAINT `import_items_ibfk_1` FOREIGN KEY (`import_record_id`)
450 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
451 KEY `itemnumber` (`itemnumber`),
452 KEY `branchcode` (`branchcode`)
453 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
455 $dbh->do("INSERT INTO `import_batches`
456 (`overlay_action`, `import_status`, `batch_type`, `file_name`)
457 SELECT distinct 'create_new', 'staged', 'z3950', `file`
458 FROM `marc_breeding`");
460 $dbh->do("INSERT INTO `import_records`
461 (`import_batch_id`, `import_record_id`, `record_sequence`, `marc`, `record_type`, `status`,
462 `encoding`, `z3950random`, `marcxml`, `marcxml_old`)
463 SELECT `import_batch_id`, `id`, 1, `marc`, 'biblio', 'staged', `encoding`, `z3950random`, '', ''
465 JOIN `import_batches` ON (`file_name` = `file`)");
467 $dbh->do("INSERT INTO `import_biblios`
468 (`import_record_id`, `title`, `author`, `isbn`)
469 SELECT `import_record_id`, `title`, `author`, `isbn`
471 JOIN `import_records` ON (`import_record_id` = `id`)");
473 $dbh->do("UPDATE `import_batches`
474 SET `num_biblios` = (
476 FROM `import_records`
477 WHERE `import_batch_id` = `import_batches`.`import_batch_id`
480 $dbh->do("DROP TABLE `marc_breeding`");
482 print "Upgrade to $DBversion done (import_batches et al. added)\n";
483 SetVersion ($DBversion);
486 $DBversion = "3.00.00.014";
487 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
488 $dbh->do("ALTER TABLE subscription ADD lastbranch VARCHAR(4)");
489 print "Upgrade to $DBversion done (userid index added)\n";
490 SetVersion ($DBversion);
493 $DBversion = "3.00.00.015";
494 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
495 $dbh->do("CREATE TABLE `saved_sql` (
496 `id` int(11) NOT NULL auto_increment,
497 `borrowernumber` int(11) default NULL,
498 `date_created` datetime default NULL,
499 `last_modified` datetime default NULL,
501 `last_run` datetime default NULL,
502 `report_name` varchar(255) default NULL,
503 `type` varchar(255) default NULL,
506 KEY boridx (`borrowernumber`)
507 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
508 $dbh->do("CREATE TABLE `saved_reports` (
509 `id` int(11) NOT NULL auto_increment,
510 `report_id` int(11) default NULL,
512 `date_run` datetime default NULL,
514 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
515 print "Upgrade to $DBversion done (saved_sql and saved_reports added)\n";
516 SetVersion ($DBversion);
519 $DBversion = "3.00.00.016";
520 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
521 $dbh->do(" CREATE TABLE reports_dictionary (
522 id int(11) NOT NULL auto_increment,
523 name varchar(255) default NULL,
525 date_created datetime default NULL,
526 date_modified datetime default NULL,
528 area int(11) default NULL,
530 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
531 print "Upgrade to $DBversion done (reports_dictionary) added)\n";
532 SetVersion ($DBversion);
535 $DBversion = "3.00.00.017";
536 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
537 $dbh->do("ALTER TABLE action_logs DROP PRIMARY KEY");
538 $dbh->do("ALTER TABLE action_logs ADD KEY timestamp (timestamp,user)");
539 $dbh->do("ALTER TABLE action_logs ADD action_id INT(11) NOT NULL FIRST");
540 $dbh->do("UPDATE action_logs SET action_id = if (\@a, \@a:=\@a+1, \@a:=1)");
541 $dbh->do("ALTER TABLE action_logs MODIFY action_id INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY");
542 print "Upgrade to $DBversion done (added column to action_logs)\n";
543 SetVersion ($DBversion);
546 $DBversion = "3.00.00.018";
547 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
548 $dbh->do("ALTER TABLE `zebraqueue`
549 ADD `done` INT NOT NULL DEFAULT '0',
550 ADD `time` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ;
552 print "Upgrade to $DBversion done (adding timestamp and done columns to zebraque table to improve problem tracking) added)\n";
553 SetVersion ($DBversion);
556 $DBversion = "3.00.00.019";
557 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
558 $dbh->do("ALTER TABLE biblio MODIFY biblionumber INT(11) NOT NULL AUTO_INCREMENT");
559 $dbh->do("ALTER TABLE biblioitems MODIFY biblioitemnumber INT(11) NOT NULL AUTO_INCREMENT");
560 $dbh->do("ALTER TABLE items MODIFY itemnumber INT(11) NOT NULL AUTO_INCREMENT");
561 print "Upgrade to $DBversion done (made bib/item PKs auto_increment)\n";
562 SetVersion ($DBversion);
565 $DBversion = "3.00.00.020";
566 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
567 $dbh->do("ALTER TABLE deleteditems
568 DROP KEY `delitembarcodeidx`,
569 ADD KEY `delitembarcodeidx` (`barcode`)");
570 print "Upgrade to $DBversion done (dropped uniqueness of key on deleteditems.barcode)\n";
571 SetVersion ($DBversion);
574 $DBversion = "3.00.00.021";
575 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
576 $dbh->do("ALTER TABLE items CHANGE homebranch homebranch VARCHAR(10)");
577 $dbh->do("ALTER TABLE deleteditems CHANGE homebranch homebranch VARCHAR(10)");
578 $dbh->do("ALTER TABLE statistics CHANGE branch branch VARCHAR(10)");
579 $dbh->do("ALTER TABLE subscription CHANGE lastbranch lastbranch VARCHAR(10)");
580 print "Upgrade to $DBversion done (extended missed branchcode columns to 10 chars)\n";
581 SetVersion ($DBversion);
584 $DBversion = "3.00.00.022";
585 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
586 $dbh->do("ALTER TABLE items
587 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
588 $dbh->do("ALTER TABLE deleteditems
589 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
590 print "Upgrade to $DBversion done (adding damaged column to items table)\n";
591 SetVersion ($DBversion);
594 $DBversion = "3.00.00.023";
595 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
596 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
597 VALUES ('yuipath','http://yui.yahooapis.com/2.3.1/build','Insert the path to YUI libraries','','free')");
598 print "Upgrade to $DBversion done (adding new system preference for controlling YUI path)\n";
599 SetVersion ($DBversion);
601 $DBversion = "3.00.00.024";
602 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
603 $dbh->do("ALTER TABLE biblioitems CHANGE itemtype itemtype VARCHAR(10)");
604 print "Upgrade to $DBversion done (changing itemtype to (10))\n";
605 SetVersion ($DBversion);
608 $DBversion = "3.00.00.025";
609 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
610 $dbh->do("ALTER TABLE items ADD COLUMN itype VARCHAR(10)");
611 $dbh->do("ALTER TABLE deleteditems ADD COLUMN itype VARCHAR(10) AFTER uri");
612 if(C4::Context->preference('item-level_itypes')){
613 $dbh->do('update items,biblioitems set items.itype=biblioitems.itemtype where items.biblionumber=biblioitems.biblionumber and itype is null');
615 print "Upgrade to $DBversion done (reintroduce items.itype - fill from itemtype)\n ";
616 SetVersion ($DBversion);
619 $DBversion = "3.00.00.026";
620 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
621 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
622 VALUES ('HomeOrHoldingBranch','homebranch','homebranch|holdingbranch','With independent branches turned on this decides whether to check the items holdingbranch or homebranch at circulatilon','choice')");
623 print "Upgrade to $DBversion done (adding new system preference for choosing whether homebranch or holdingbranch is checked in circulation)\n";
624 SetVersion ($DBversion);
627 $DBversion = "3.00.00.027";
628 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
629 $dbh->do("CREATE TABLE `marc_matchers` (
630 `matcher_id` int(11) NOT NULL auto_increment,
631 `code` varchar(10) NOT NULL default '',
632 `description` varchar(255) NOT NULL default '',
633 `record_type` varchar(10) NOT NULL default 'biblio',
634 `threshold` int(11) NOT NULL default 0,
635 PRIMARY KEY (`matcher_id`),
637 KEY `record_type` (`record_type`)
638 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
639 $dbh->do("CREATE TABLE `matchpoints` (
640 `matcher_id` int(11) NOT NULL,
641 `matchpoint_id` int(11) NOT NULL auto_increment,
642 `search_index` varchar(30) NOT NULL default '',
643 `score` int(11) NOT NULL default 0,
644 PRIMARY KEY (`matchpoint_id`),
645 CONSTRAINT `matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
646 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE
647 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
648 $dbh->do("CREATE TABLE `matchpoint_components` (
649 `matchpoint_id` int(11) NOT NULL,
650 `matchpoint_component_id` int(11) NOT NULL auto_increment,
651 sequence int(11) NOT NULL default 0,
652 tag varchar(3) NOT NULL default '',
653 subfields varchar(40) NOT NULL default '',
654 offset int(4) NOT NULL default 0,
655 length int(4) NOT NULL default 0,
656 PRIMARY KEY (`matchpoint_component_id`),
657 KEY `by_sequence` (`matchpoint_id`, `sequence`),
658 CONSTRAINT `matchpoint_components_ifbk_1` FOREIGN KEY (`matchpoint_id`)
659 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
660 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
661 $dbh->do("CREATE TABLE `matchpoint_component_norms` (
662 `matchpoint_component_id` int(11) NOT NULL,
663 `sequence` int(11) NOT NULL default 0,
664 `norm_routine` varchar(50) NOT NULL default '',
665 KEY `matchpoint_component_norms` (`matchpoint_component_id`, `sequence`),
666 CONSTRAINT `matchpoint_component_norms_ifbk_1` FOREIGN KEY (`matchpoint_component_id`)
667 REFERENCES `matchpoint_components` (`matchpoint_component_id`) ON DELETE CASCADE ON UPDATE CASCADE
668 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
669 $dbh->do("CREATE TABLE `matcher_matchpoints` (
670 `matcher_id` int(11) NOT NULL,
671 `matchpoint_id` int(11) NOT NULL,
672 CONSTRAINT `matcher_matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
673 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
674 CONSTRAINT `matcher_matchpoints_ifbk_2` FOREIGN KEY (`matchpoint_id`)
675 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
676 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
677 $dbh->do("CREATE TABLE `matchchecks` (
678 `matcher_id` int(11) NOT NULL,
679 `matchcheck_id` int(11) NOT NULL auto_increment,
680 `source_matchpoint_id` int(11) NOT NULL,
681 `target_matchpoint_id` int(11) NOT NULL,
682 PRIMARY KEY (`matchcheck_id`),
683 CONSTRAINT `matcher_matchchecks_ifbk_1` FOREIGN KEY (`matcher_id`)
684 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
685 CONSTRAINT `matcher_matchchecks_ifbk_2` FOREIGN KEY (`source_matchpoint_id`)
686 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE,
687 CONSTRAINT `matcher_matchchecks_ifbk_3` FOREIGN KEY (`target_matchpoint_id`)
688 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
689 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
690 print "Upgrade to $DBversion done (added C4::Matcher serialization tables)\n ";
691 SetVersion ($DBversion);
694 $DBversion = "3.00.00.028";
695 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
696 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
697 VALUES ('canreservefromotherbranches','1','','With Independent branches on, can a user from one library reserve an item from another library','YesNo')");
698 print "Upgrade to $DBversion done (adding new system preference for changing reserve/holds behaviour with independent branches)\n";
699 SetVersion ($DBversion);
703 $DBversion = "3.00.00.029";
704 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
705 $dbh->do("ALTER TABLE `import_batches` ADD `matcher_id` int(11) NULL AFTER `import_batch_id`");
706 print "Upgrade to $DBversion done (adding matcher_id to import_batches)\n";
707 SetVersion ($DBversion);
710 $DBversion = "3.00.00.030";
711 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
713 CREATE TABLE services_throttle (
714 service_type varchar(10) NOT NULL default '',
715 service_count varchar(45) default NULL,
716 PRIMARY KEY (service_type)
717 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
719 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
720 VALUES ('FRBRizeEditions',0,'','If ON, Koha will query one or more ISBN web services for associated ISBNs and display an Editions tab on the details pages','YesNo')");
721 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
722 VALUES ('XISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the OCLC xISBN web service in the Editions tab on the detail pages. See: http://www.worldcat.org/affiliate/webservices/xisbn/app.jsp','YesNo')");
723 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
724 VALUES ('OCLCAffiliateID','','','Use with FRBRizeEditions and XISBN. You can sign up for an AffiliateID here: http://www.worldcat.org/wcpa/do/AffiliateUserServices?method=initSelfRegister','free')");
725 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
726 VALUES ('XISBNDailyLimit',499,'','The xISBN Web service is free for non-commercial use when usage does not exceed 500 requests per day','free')");
727 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
728 VALUES ('PINESISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use PINES OISBN web service in the Editions tab on the detail pages.','YesNo')");
729 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
730 VALUES ('ThingISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the ThingISBN web service in the Editions tab on the detail pages.','YesNo')");
731 print "Upgrade to $DBversion done (adding services throttle table and sysprefs for xISBN)\n";
732 SetVersion ($DBversion);
735 $DBversion = "3.00.00.031";
736 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
738 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryStemming',1,'If ON, enables query stemming',NULL,'YesNo')");
739 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryFuzzy',1,'If ON, enables fuzzy option for searches',NULL,'YesNo')");
740 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryWeightFields',1,'If ON, enables field weighting',NULL,'YesNo')");
741 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('WebBasedSelfCheck',0,'If ON, enables the web-based self-check system',NULL,'YesNo')");
742 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('numSearchResults',20,'Specify the maximum number of results to display on a page of results',NULL,'free')");
743 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACnumSearchResults',20,'Specify the maximum number of results to display on a page of results',NULL,'free')");
744 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxItemsInSearchResults',20,'Specify the maximum number of items to display for each result on a page of results',NULL,'free')");
745 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortField',NULL,'Specify the default field used for sorting','relevance|popularity|call_number|pubdate|acqdate|title|author','Choice')");
746 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortOrder',NULL,'Specify the default sort order','asc|dsc|az|za','Choice')");
747 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortField',NULL,'Specify the default field used for sorting','relevance|popularity|call_number|pubdate|acqdate|title|author','Choice')");
748 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortOrder',NULL,'Specify the default sort order','asc|dsc|za|az','Choice')");
749 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('staffClientBaseURL','','Specify the base URL of the staff client',NULL,'free')");
750 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('minPasswordLength',3,'Specify the minimum length of a patron/staff password',NULL,'free')");
751 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('noItemTypeImages',0,'If ON, disables item-type images',NULL,'YesNo')");
752 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('emailLibrarianWhenHoldIsPlaced',0,'If ON, emails the librarian whenever a hold is placed',NULL,'YesNo')");
753 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('holdCancelLength','','Specify how many days before a hold is canceled',NULL,'free')");
754 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('libraryAddress','','The address to use for printing receipts, overdues, etc. if different than physical address',NULL,'free')");
755 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesMode','test','Choose the fines mode, test or production','test|production','Choice')");
756 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('globalDueDate','','If set, allows a global static due date for all checkouts',NULL,'free')");
757 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('itemBarcodeInputFilter','','If set, allows specification of a item barcode input filter','cuecat','Choice')");
758 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('singleBranchMode',0,'Operate in Single-branch mode, hide branch selection in the OPAC',NULL,'YesNo')");
759 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('URLLinkText','','Text to display as the link anchor in the OPAC',NULL,'free')");
760 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACSubscriptionDisplay','economical','Specify how to display subscription information in the OPAC','economical|off|full','Choice')");
761 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACDisplayExtendedSubInfo',1,'If ON, extended subscription information is displayed in the OPAC',NULL,'YesNo')");
762 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACViewOthersSuggestions',0,'If ON, allows all suggestions to be displayed in the OPAC',NULL,'YesNo')");
763 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACURLOpenInNewWindow',0,'If ON, URLs in the OPAC open in a new window',NULL,'YesNo')");
764 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACUserCSS',0,'Add CSS to be included in the OPAC',NULL,'free')");
766 print "Upgrade to $DBversion done (adding additional system preference)\n";
767 SetVersion ($DBversion);
770 $DBversion = "3.00.00.032";
771 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
772 $dbh->do("UPDATE `marc_subfield_structure` SET `kohafield` = 'items.wthdrawn' WHERE `kohafield` = 'items.withdrawn'");
773 print "Upgrade to $DBversion done (fixed MARC framework references to items.withdrawn)\n";
774 SetVersion ($DBversion);
777 $DBversion = "3.00.00.033";
778 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
779 $dbh->do("INSERT INTO `userflags` VALUES(17,'staffaccess','Modify login / permissions for staff users',0)");
780 print "Upgrade to $DBversion done (Adding permissions flag for staff member access modification. )\n";
781 SetVersion ($DBversion);
784 $DBversion = "3.00.00.034";
785 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
786 $dbh->do("ALTER TABLE `virtualshelves` ADD COLUMN `sortfield` VARCHAR(16) ");
787 print "Upgrade to $DBversion done (Adding sortfield for Virtual Shelves. )\n";
788 SetVersion ($DBversion);
791 $DBversion = "3.00.00.035";
792 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
793 $dbh->do("UPDATE marc_subfield_structure
794 SET authorised_value = 'cn_source'
795 WHERE kohafield IN ('items.cn_source', 'biblioitems.cn_source')
796 AND (authorised_value is NULL OR authorised_value = '')");
797 print "Upgrade to $DBversion done (MARC frameworks: make classification source a drop-down)\n";
798 SetVersion ($DBversion);
801 $DBversion = "3.00.00.036";
802 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
803 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACItemsResultsDisplay','statuses','statuses : show only the status of items in result list. itemdisplay : show full location of items (branch+location+callnumber) as in staff interface','statuses|itemdetails','Choice');");
804 print "Upgrade to $DBversion done (OPACItemsResultsDisplay systempreference added)\n";
805 SetVersion ($DBversion);
808 $DBversion = "3.00.00.037";
809 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
810 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactfirstname` varchar(255)");
811 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactsurname` varchar(255)");
812 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress1` varchar(255)");
813 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress2` varchar(255)");
814 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress3` varchar(255)");
815 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactzipcode` varchar(50)");
816 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactphone` varchar(50)");
817 print "Upgrade to $DBversion done (Adding Alternative Contact Person information to borrowers table)\n";
818 SetVersion ($DBversion);
821 $DBversion = "3.00.00.038";
822 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
823 $dbh->do("UPDATE `systempreferences` set explanation='Choose the fines mode, off, test (emails admin report) or production (accrue overdue fines). Requires fines cron script' , options='off|test|production' where variable='finesMode'");
824 $dbh->do("DELETE FROM `systempreferences` WHERE variable='hideBiblioNumber'");
825 print "Upgrade to $DBversion done ('alter finesMode systempreference, remove superfluous syspref.')\n";
826 SetVersion ($DBversion);
829 $DBversion = "3.00.00.039";
830 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
831 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('uppercasesurnames',0,'If ON, surnames are converted to upper case in patron entry form',NULL,'YesNo')");
832 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('CircControl','ItemHomeLibrary','Specify the agency that controls the circulation and fines policy','PickupLibrary|PatronLibrary|ItemHomeLibrary','Choice')");
833 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesCalendar','noFinesWhenClosed','Specify whether to use the Calendar in calculating duedates and fines','ignoreCalendar|noFinesWhenClosed','Choice')");
834 # $dbh->do("DELETE FROM `systempreferences` WHERE variable='HomeOrHoldingBranch'"); # Bug #2752
835 print "Upgrade to $DBversion done ('add circ sysprefs CircControl, finesCalendar, and uppercasesurnames, and delete HomeOrHoldingBranch.')\n";
836 SetVersion ($DBversion);
839 $DBversion = "3.00.00.040";
840 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
841 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('previousIssuesDefaultSortOrder','asc','Specify the sort order of Previous Issues on the circulation page','asc|desc','Choice')");
842 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('todaysIssuesDefaultSortOrder','desc','Specify the sort order of Todays Issues on the circulation page','asc|desc','Choice')");
843 print "Upgrade to $DBversion done ('add circ sysprefs todaysIssuesDefaultSortOrder and previousIssuesDefaultSortOrder.')\n";
844 SetVersion ($DBversion);
848 $DBversion = "3.00.00.041";
849 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
850 # Strictly speaking it is not necessary to explicitly change
851 # NULL values to 0, because the ALTER TABLE statement will do that.
852 # However, setting them first avoids a warning.
853 $dbh->do("UPDATE items SET notforloan = 0 WHERE notforloan IS NULL");
854 $dbh->do("UPDATE items SET damaged = 0 WHERE damaged IS NULL");
855 $dbh->do("UPDATE items SET itemlost = 0 WHERE itemlost IS NULL");
856 $dbh->do("UPDATE items SET wthdrawn = 0 WHERE wthdrawn IS NULL");
857 $dbh->do("ALTER TABLE items
858 MODIFY notforloan tinyint(1) NOT NULL default 0,
859 MODIFY damaged tinyint(1) NOT NULL default 0,
860 MODIFY itemlost tinyint(1) NOT NULL default 0,
861 MODIFY wthdrawn tinyint(1) NOT NULL default 0");
862 $dbh->do("UPDATE deleteditems SET notforloan = 0 WHERE notforloan IS NULL");
863 $dbh->do("UPDATE deleteditems SET damaged = 0 WHERE damaged IS NULL");
864 $dbh->do("UPDATE deleteditems SET itemlost = 0 WHERE itemlost IS NULL");
865 $dbh->do("UPDATE deleteditems SET wthdrawn = 0 WHERE wthdrawn IS NULL");
866 $dbh->do("ALTER TABLE deleteditems
867 MODIFY notforloan tinyint(1) NOT NULL default 0,
868 MODIFY damaged tinyint(1) NOT NULL default 0,
869 MODIFY itemlost tinyint(1) NOT NULL default 0,
870 MODIFY wthdrawn tinyint(1) NOT NULL default 0");
871 print "Upgrade to $DBversion done (disallow NULL in several item status columns)\n";
872 SetVersion ($DBversion);
875 $DBversion = "3.00.00.04";
876 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
877 $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
878 print "Upgrade to $DBversion done (disallow NULL in aqbooksellers.name; part of fix for bug 1251)\n";
879 SetVersion ($DBversion);
882 $DBversion = "3.00.00.043";
883 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
884 $dbh->do("ALTER TABLE `currency` ADD `symbol` varchar(5) default NULL AFTER currency, ADD `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER symbol");
885 print "Upgrade to $DBversion done (currency table: add symbol and timestamp columns)\n";
886 SetVersion ($DBversion);
889 $DBversion = "3.00.00.044";
890 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
891 $dbh->do("ALTER TABLE deletedborrowers
892 ADD `altcontactfirstname` varchar(255) default NULL,
893 ADD `altcontactsurname` varchar(255) default NULL,
894 ADD `altcontactaddress1` varchar(255) default NULL,
895 ADD `altcontactaddress2` varchar(255) default NULL,
896 ADD `altcontactaddress3` varchar(255) default NULL,
897 ADD `altcontactzipcode` varchar(50) default NULL,
898 ADD `altcontactphone` varchar(50) default NULL
900 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES
901 ('OPACBaseURL',NULL,'Specify the Base URL of the OPAC, e.g., opac.mylibrary.com, the http:// will be added automatically by Koha.',NULL,'Free'),
902 ('language','en','Set the default language in the staff client.',NULL,'Languages'),
903 ('QueryAutoTruncate',1,'If ON, query truncation is enabled by default',NULL,'YesNo'),
904 ('QueryRemoveStopwords',0,'If ON, stopwords listed in the Administration area will be removed from queries',NULL,'YesNo')
906 print "Upgrade to $DBversion done (syncing deletedborrowers table with borrowers table)\n";
907 SetVersion ($DBversion);
910 #-- http://www.w3.org/International/articles/language-tags/
913 $DBversion = "3.00.00.045";
914 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
916 CREATE TABLE language_subtag_registry (
918 type varchar(25), -- language-script-region-variant-extension-privateuse
919 description varchar(25), -- only one of the possible descriptions for ease of reference, see language_descriptions for the complete list
921 KEY `subtag` (`subtag`)
922 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
924 #-- TODO: add suppress_scripts
925 #-- this maps three letter codes defined in iso639.2 back to their
926 #-- two letter equivilents in rfc4646 (LOC maintains iso639+)
927 $dbh->do("CREATE TABLE language_rfc4646_to_iso639 (
928 rfc4646_subtag varchar(25),
929 iso639_2_code varchar(25),
930 KEY `rfc4646_subtag` (`rfc4646_subtag`)
931 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
933 $dbh->do("CREATE TABLE language_descriptions (
937 description varchar(255),
939 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
941 #-- bi-directional support, keyed by script subcode
942 $dbh->do("CREATE TABLE language_script_bidi (
943 rfc4646_subtag varchar(25), -- script subtag, Arab, Hebr, etc.
944 bidi varchar(3), -- rtl ltr
945 KEY `rfc4646_subtag` (`rfc4646_subtag`)
946 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
948 #-- BIDI Stuff, Arabic and Hebrew
949 $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
950 VALUES( 'Arab', 'rtl')");
951 $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
952 VALUES( 'Hebr', 'rtl')");
954 #-- TODO: need to map language subtags to script subtags for detection
955 #-- of bidi when script is not specified (like ar, he)
956 $dbh->do("CREATE TABLE language_script_mapping (
957 language_subtag varchar(25),
958 script_subtag varchar(25),
959 KEY `language_subtag` (`language_subtag`)
960 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
962 #-- Default mappings between script and language subcodes
963 $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
964 VALUES( 'ar', 'Arab')");
965 $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
966 VALUES( 'he', 'Hebr')");
968 print "Upgrade to $DBversion done (adding language subtag registry and basic BiDi support NOTE: You should import the subtag registry SQL)\n";
969 SetVersion ($DBversion);
972 $DBversion = "3.00.00.046";
973 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
974 $dbh->do("ALTER TABLE `subscription` CHANGE `numberlength` `numberlength` int(11) default '0' ,
975 CHANGE `weeklength` `weeklength` int(11) default '0'");
976 $dbh->do("CREATE TABLE `serialitems` (`serialid` int(11) NOT NULL, `itemnumber` int(11) NOT NULL, UNIQUE KEY `serialididx` (`serialid`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
977 $dbh->do("INSERT INTO `serialitems` SELECT `serialid`,`itemnumber` from serial where NOT ISNULL(itemnumber) && itemnumber <> '' && itemnumber NOT LIKE '%,%'");
978 print "Upgrade to $DBversion done (Add serialitems table to link serial issues to items. )\n";
979 SetVersion ($DBversion);
982 $DBversion = "3.00.00.047";
983 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
984 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacRenewalAllowed',0,'If ON, users can renew their issues directly from their OPAC account',NULL,'YesNo');");
985 print "Upgrade to $DBversion done ( Added OpacRenewalAllowed syspref )\n";
986 SetVersion ($DBversion);
989 $DBversion = "3.00.00.048";
990 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
991 $dbh->do("ALTER TABLE `items` ADD `more_subfields_xml` longtext default NULL AFTER `itype`");
992 print "Upgrade to $DBversion done (added items.more_subfields_xml)\n";
993 SetVersion ($DBversion);
996 $DBversion = "3.00.00.049";
997 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
998 $dbh->do("ALTER TABLE `z3950servers` ADD `encoding` text default NULL AFTER type ");
999 print "Upgrade to $DBversion done ( Added encoding field to z3950servers table )\n";
1000 SetVersion ($DBversion);
1003 $DBversion = "3.00.00.050";
1004 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1005 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacHighlightedWords','0','If Set, query matched terms are highlighted in OPAC',NULL,'YesNo');");
1006 print "Upgrade to $DBversion done ( Added OpacHighlightedWords syspref )\n";
1007 SetVersion ($DBversion);
1010 $DBversion = "3.00.00.051";
1011 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1012 $dbh->do("UPDATE systempreferences SET explanation = 'Define the current theme for the OPAC interface.' WHERE variable = 'opacthemes';");
1013 print "Upgrade to $DBversion done ( Corrected opacthemes explanation. )\n";
1014 SetVersion ($DBversion);
1017 $DBversion = "3.00.00.052";
1018 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1019 $dbh->do("ALTER TABLE `deleteditems` ADD `more_subfields_xml` LONGTEXT DEFAULT NULL AFTER `itype`");
1020 print "Upgrade to $DBversion done ( Adding missing column to deleteditems table. )\n";
1021 SetVersion ($DBversion);
1024 $DBversion = "3.00.00.053";
1025 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1026 $dbh->do("CREATE TABLE `printers_profile` (
1027 `prof_id` int(4) NOT NULL auto_increment,
1028 `printername` varchar(40) NOT NULL,
1029 `tmpl_id` int(4) NOT NULL,
1030 `paper_bin` varchar(20) NOT NULL,
1031 `offset_horz` float default NULL,
1032 `offset_vert` float default NULL,
1033 `creep_horz` float default NULL,
1034 `creep_vert` float default NULL,
1035 `unit` char(20) NOT NULL default 'POINT',
1036 PRIMARY KEY (`prof_id`),
1037 UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1038 CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1039 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1040 $dbh->do("CREATE TABLE `labels_profile` (
1041 `tmpl_id` int(4) NOT NULL,
1042 `prof_id` int(4) NOT NULL,
1043 UNIQUE KEY `tmpl_id` (`tmpl_id`),
1044 UNIQUE KEY `prof_id` (`prof_id`)
1045 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1046 print "Upgrade to $DBversion done ( Printer Profile tables added )\n";
1047 SetVersion ($DBversion);
1050 $DBversion = "3.00.00.054";
1051 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1052 $dbh->do("UPDATE systempreferences SET options = 'incremental|annual|hbyymmincr|OFF', explanation = 'Used to autogenerate a barcode: incremental will be of the form 1, 2, 3; annual of the form 2007-0001, 2007-0002; hbyymmincr of the form HB08010001 where HB = Home Branch' WHERE variable = 'autoBarcode';");
1053 print "Upgrade to $DBversion done ( Added another barcode autogeneration sequence to barcode.pl. )\n";
1054 SetVersion ($DBversion);
1057 $DBversion = "3.00.00.055";
1058 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1059 $dbh->do("ALTER TABLE `zebraqueue` ADD KEY `zebraqueue_lookup` (`server`, `biblio_auth_number`, `operation`, `done`)");
1060 print "Upgrade to $DBversion done ( Added index on zebraqueue. )\n";
1061 SetVersion ($DBversion);
1063 $DBversion = "3.00.00.056";
1064 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1065 if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
1066 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('995', 'v', 'Note sur le N° de périodique','Note sur le N° de périodique', 0, 0, 'items.enumchron', 10, '', '', '', 0, 0, '', '', '', NULL) ");
1068 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('952', 'h', 'Serial Enumeration / chronology','Serial Enumeration / chronology', 0, 0, 'items.enumchron', 10, '', '', '', 0, 0, '', '', '', NULL) ");
1070 $dbh->do("ALTER TABLE `items` ADD `enumchron` VARCHAR(80) DEFAULT NULL;");
1071 print "Upgrade to $DBversion done ( Added item.enumchron column, and framework map to 952h )\n";
1072 SetVersion ($DBversion);
1075 $DBversion = "3.00.00.057";
1076 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1077 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH','0','if ON, OAI-PMH server is enabled',NULL,'YesNo');");
1078 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:archiveID','KOHA-OAI-TEST','OAI-PMH archive identification',NULL,'Free');");
1079 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:MaxCount','50','OAI-PMH maximum number of records by answer to ListRecords and ListIdentifiers queries',NULL,'Integer');");
1080 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:Set','SET,Experimental set\r\nSET:SUBSET,Experimental subset','OAI-PMH exported set, the set name is followed by a comma and a short description, one set by line',NULL,'Free');");
1081 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:Subset',\"itemtype='BOOK'\",'Restrict answer to matching raws of the biblioitems table (experimental)',NULL,'Free');");
1082 SetVersion ($DBversion);
1085 $DBversion = "3.00.00.058";
1086 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1087 $dbh->do("ALTER TABLE `opac_news`
1088 CHANGE `lang` `lang` VARCHAR( 25 )
1090 COLLATE utf8_general_ci
1091 NOT NULL default ''");
1092 print "Upgrade to $DBversion done ( lang field in opac_news made longer )\n";
1093 SetVersion ($DBversion);
1096 $DBversion = "3.00.00.059";
1097 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1099 $dbh->do("CREATE TABLE IF NOT EXISTS `labels_templates` (
1100 `tmpl_id` int(4) NOT NULL auto_increment,
1101 `tmpl_code` char(100) default '',
1102 `tmpl_desc` char(100) default '',
1103 `page_width` float default '0',
1104 `page_height` float default '0',
1105 `label_width` float default '0',
1106 `label_height` float default '0',
1107 `topmargin` float default '0',
1108 `leftmargin` float default '0',
1109 `cols` int(2) default '0',
1110 `rows` int(2) default '0',
1111 `colgap` float default '0',
1112 `rowgap` float default '0',
1113 `active` int(1) default NULL,
1114 `units` char(20) default 'PX',
1115 `fontsize` int(4) NOT NULL default '3',
1116 PRIMARY KEY (`tmpl_id`)
1117 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1118 $dbh->do("CREATE TABLE IF NOT EXISTS `printers_profile` (
1119 `prof_id` int(4) NOT NULL auto_increment,
1120 `printername` varchar(40) NOT NULL,
1121 `tmpl_id` int(4) NOT NULL,
1122 `paper_bin` varchar(20) NOT NULL,
1123 `offset_horz` float default NULL,
1124 `offset_vert` float default NULL,
1125 `creep_horz` float default NULL,
1126 `creep_vert` float default NULL,
1127 `unit` char(20) NOT NULL default 'POINT',
1128 PRIMARY KEY (`prof_id`),
1129 UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1130 CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1131 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1132 print "Upgrade to $DBversion done ( Added labels_templates table if it did not exist. )\n";
1133 SetVersion ($DBversion);
1136 $DBversion = "3.00.00.060";
1137 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1138 $dbh->do("CREATE TABLE IF NOT EXISTS `patronimage` (
1139 `cardnumber` varchar(16) NOT NULL,
1140 `mimetype` varchar(15) NOT NULL,
1141 `imagefile` mediumblob NOT NULL,
1142 PRIMARY KEY (`cardnumber`),
1143 CONSTRAINT `patronimage_fk1` FOREIGN KEY (`cardnumber`) REFERENCES `borrowers` (`cardnumber`) ON DELETE CASCADE ON UPDATE CASCADE
1144 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1145 print "Upgrade to $DBversion done ( Added patronimage table. )\n";
1146 SetVersion ($DBversion);
1149 $DBversion = "3.00.00.061";
1150 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1151 $dbh->do("ALTER TABLE labels_templates ADD COLUMN font char(10) NOT NULL DEFAULT 'TR';");
1152 print "Upgrade to $DBversion done ( Added font column to labels_templates )\n";
1153 SetVersion ($DBversion);
1156 $DBversion = "3.00.00.062";
1157 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1158 $dbh->do("CREATE TABLE `old_issues` (
1159 `borrowernumber` int(11) default NULL,
1160 `itemnumber` int(11) default NULL,
1161 `date_due` date default NULL,
1162 `branchcode` varchar(10) default NULL,
1163 `issuingbranch` varchar(18) default NULL,
1164 `returndate` date default NULL,
1165 `lastreneweddate` date default NULL,
1166 `return` varchar(4) default NULL,
1167 `renewals` tinyint(4) default NULL,
1168 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1169 `issuedate` date default NULL,
1170 KEY `old_issuesborridx` (`borrowernumber`),
1171 KEY `old_issuesitemidx` (`itemnumber`),
1172 KEY `old_bordate` (`borrowernumber`,`timestamp`),
1173 CONSTRAINT `old_issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1174 ON DELETE SET NULL ON UPDATE SET NULL,
1175 CONSTRAINT `old_issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1176 ON DELETE SET NULL ON UPDATE SET NULL
1177 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1178 $dbh->do("CREATE TABLE `old_reserves` (
1179 `borrowernumber` int(11) default NULL,
1180 `reservedate` date default NULL,
1181 `biblionumber` int(11) default NULL,
1182 `constrainttype` varchar(1) default NULL,
1183 `branchcode` varchar(10) default NULL,
1184 `notificationdate` date default NULL,
1185 `reminderdate` date default NULL,
1186 `cancellationdate` date default NULL,
1187 `reservenotes` mediumtext,
1188 `priority` smallint(6) default NULL,
1189 `found` varchar(1) default NULL,
1190 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1191 `itemnumber` int(11) default NULL,
1192 `waitingdate` date default NULL,
1193 KEY `old_reserves_borrowernumber` (`borrowernumber`),
1194 KEY `old_reserves_biblionumber` (`biblionumber`),
1195 KEY `old_reserves_itemnumber` (`itemnumber`),
1196 KEY `old_reserves_branchcode` (`branchcode`),
1197 CONSTRAINT `old_reserves_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1198 ON DELETE SET NULL ON UPDATE SET NULL,
1199 CONSTRAINT `old_reserves_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`)
1200 ON DELETE SET NULL ON UPDATE SET NULL,
1201 CONSTRAINT `old_reserves_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1202 ON DELETE SET NULL ON UPDATE SET NULL
1203 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1205 # move closed transactions to old_* tables
1206 $dbh->do("INSERT INTO old_issues SELECT * FROM issues WHERE returndate IS NOT NULL");
1207 $dbh->do("DELETE FROM issues WHERE returndate IS NOT NULL");
1208 $dbh->do("INSERT INTO old_reserves SELECT * FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1209 $dbh->do("DELETE FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1211 print "Upgrade to $DBversion done ( Added old_issues and old_reserves tables )\n";
1212 SetVersion ($DBversion);
1215 $DBversion = "3.00.00.063";
1216 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1217 $dbh->do("ALTER TABLE deleteditems
1218 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT DEFAULT NULL,
1219 ADD COLUMN enumchron VARCHAR(80) DEFAULT NULL AFTER more_subfields_xml,
1220 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1221 $dbh->do("ALTER TABLE items
1222 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT,
1223 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1224 print "Upgrade to $DBversion done ( Changed items.booksellerid and deleteditems.booksellerid to MEDIUMTEXT and added missing items.copynumber and deleteditems.copynumber to fix Bug 1927)\n";
1225 SetVersion ($DBversion);
1228 $DBversion = "3.00.00.064";
1229 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1230 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AmazonLocale','US','Use to set the Locale of your Amazon.com Web Services','US|CA|DE|FR|JP|UK','Choice');");
1231 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSAccessKeyID','','See: http://aws.amazon.com','','free');");
1232 $dbh->do("DELETE FROM `systempreferences` WHERE variable='AmazonDevKey';");
1233 $dbh->do("DELETE FROM `systempreferences` WHERE variable='XISBNAmazonSimilarItems';");
1234 $dbh->do("DELETE FROM `systempreferences` WHERE variable='OPACXISBNAmazonSimilarItems';");
1235 print "Upgrade to $DBversion done (IMPORTANT: Upgrading to Amazon.com Associates Web Service 4.0 ) \n";
1236 SetVersion ($DBversion);
1239 $DBversion = "3.00.00.065";
1240 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1241 $dbh->do("CREATE TABLE `patroncards` (
1242 `cardid` int(11) NOT NULL auto_increment,
1243 `batch_id` varchar(10) NOT NULL default '1',
1244 `borrowernumber` int(11) NOT NULL,
1245 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1246 PRIMARY KEY (`cardid`),
1247 KEY `patroncards_ibfk_1` (`borrowernumber`),
1248 CONSTRAINT `patroncards_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1249 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1250 print "Upgrade to $DBversion done (Adding patroncards table for patroncards generation feature. ) \n";
1251 SetVersion ($DBversion);
1254 $DBversion = "3.00.00.066";
1255 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1256 $dbh->do("ALTER TABLE `virtualshelfcontents` MODIFY `dateadded` timestamp NOT NULL
1257 DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP;
1259 print "Upgrade to $DBversion done (fix for bug 1873: virtualshelfcontents dateadded column empty. ) \n";
1260 SetVersion ($DBversion);
1263 $DBversion = "3.00.00.067";
1264 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1265 $dbh->do("UPDATE systempreferences SET explanation = 'Enable patron images for the Staff Client', type = 'YesNo' WHERE variable = 'patronimages'");
1266 print "Upgrade to $DBversion done (Updating patronimages syspref to reflect current kohastructure.sql. ) \n";
1267 SetVersion ($DBversion);
1270 $DBversion = "3.00.00.068";
1271 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1272 $dbh->do("CREATE TABLE `permissions` (
1273 `module_bit` int(11) NOT NULL DEFAULT 0,
1274 `code` varchar(30) DEFAULT NULL,
1275 `description` varchar(255) DEFAULT NULL,
1276 PRIMARY KEY (`module_bit`, `code`),
1277 CONSTRAINT `permissions_ibfk_1` FOREIGN KEY (`module_bit`) REFERENCES `userflags` (`bit`)
1278 ON DELETE CASCADE ON UPDATE CASCADE
1279 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1280 $dbh->do("CREATE TABLE `user_permissions` (
1281 `borrowernumber` int(11) NOT NULL DEFAULT 0,
1282 `module_bit` int(11) NOT NULL DEFAULT 0,
1283 `code` varchar(30) DEFAULT NULL,
1284 CONSTRAINT `user_permissions_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1285 ON DELETE CASCADE ON UPDATE CASCADE,
1286 CONSTRAINT `user_permissions_ibfk_2` FOREIGN KEY (`module_bit`, `code`)
1287 REFERENCES `permissions` (`module_bit`, `code`)
1288 ON DELETE CASCADE ON UPDATE CASCADE
1289 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1291 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
1292 (13, 'edit_news', 'Write news for the OPAC and staff interfaces'),
1293 (13, 'label_creator', 'Create printable labels and barcodes from catalog and patron data'),
1294 (13, 'edit_calendar', 'Define days when the library is closed'),
1295 (13, 'moderate_comments', 'Moderate patron comments'),
1296 (13, 'edit_notices', 'Define notices'),
1297 (13, 'edit_notice_status_triggers', 'Set notice/status triggers for overdue items'),
1298 (13, 'view_system_logs', 'Browse the system logs'),
1299 (13, 'inventory', 'Perform inventory (stocktaking) of your catalogue'),
1300 (13, 'stage_marc_import', 'Stage MARC records into the reservoir'),
1301 (13, 'manage_staged_marc', 'Managed staged MARC records, including completing and reversing imports'),
1302 (13, 'export_catalog', 'Export bibliographic and holdings data'),
1303 (13, 'import_patrons', 'Import patron data'),
1304 (13, 'delete_anonymize_patrons', 'Delete old borrowers and anonymize circulation history (deletes borrower reading history)'),
1305 (13, 'batch_upload_patron_images', 'Upload patron images in batch or one at a time'),
1306 (13, 'schedule_tasks', 'Schedule tasks to run')");
1308 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('GranularPermissions','0','Use detailed staff user permissions',NULL,'YesNo')");
1310 print "Upgrade to $DBversion done (adding permissions and user_permissions tables and GranularPermissions syspref) \n";
1311 SetVersion ($DBversion);
1313 $DBversion = "3.00.00.069";
1314 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1315 $dbh->do("ALTER TABLE labels_conf CHANGE COLUMN class classification int(1) DEFAULT NULL;");
1316 print "Upgrade to $DBversion done ( Correcting columname in labels_conf )\n";
1317 SetVersion ($DBversion);
1320 $DBversion = "3.00.00.070";
1321 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1322 $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='yuipath'");
1324 my ($value) = $sth->fetchrow;
1325 $value =~ s/2.3.1/2.5.1/;
1326 $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='yuipath';");
1327 print "Update yuipath syspref to 2.5.1 if necessary\n";
1328 SetVersion ($DBversion);
1331 $DBversion = "3.00.00.071";
1332 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1333 $dbh->do(" ALTER TABLE `subscription` ADD `serialsadditems` TINYINT( 1 ) NOT NULL DEFAULT '0';");
1334 # fill the new field with the previous systempreference value, then drop the syspref
1335 my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='serialsadditems'");
1337 my ($serialsadditems) = $sth->fetchrow();
1338 $dbh->do("UPDATE subscription SET serialsadditems=$serialsadditems");
1339 $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1340 print "Upgrade to $DBversion done ( moving serialsadditems from syspref to subscription )\n";
1341 SetVersion ($DBversion);
1344 $DBversion = "3.00.00.072";
1345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1346 $dbh->do("ALTER TABLE labels_conf ADD COLUMN formatstring mediumtext DEFAULT NULL AFTER printingtype");
1347 print "Upgrade to $DBversion done ( Adding format string to labels generator. )\n";
1348 SetVersion ($DBversion);
1351 $DBversion = "3.00.00.073";
1352 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1353 $dbh->do("DROP TABLE IF EXISTS `tags_all`;");
1355 CREATE TABLE `tags_all` (
1356 `tag_id` int(11) NOT NULL auto_increment,
1357 `borrowernumber` int(11) NOT NULL,
1358 `biblionumber` int(11) NOT NULL,
1359 `term` varchar(255) NOT NULL,
1360 `language` int(4) default NULL,
1361 `date_created` datetime NOT NULL,
1362 PRIMARY KEY (`tag_id`),
1363 KEY `tags_borrowers_fk_1` (`borrowernumber`),
1364 KEY `tags_biblionumber_fk_1` (`biblionumber`),
1365 CONSTRAINT `tags_borrowers_fk_1` FOREIGN KEY (`borrowernumber`)
1366 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1367 CONSTRAINT `tags_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1368 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1369 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1371 $dbh->do("DROP TABLE IF EXISTS `tags_approval`;");
1373 CREATE TABLE `tags_approval` (
1374 `term` varchar(255) NOT NULL,
1375 `approved` int(1) NOT NULL default '0',
1376 `date_approved` datetime default NULL,
1377 `approved_by` int(11) default NULL,
1378 `weight_total` int(9) NOT NULL default '1',
1379 PRIMARY KEY (`term`),
1380 KEY `tags_approval_borrowers_fk_1` (`approved_by`),
1381 CONSTRAINT `tags_approval_borrowers_fk_1` FOREIGN KEY (`approved_by`)
1382 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1383 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1385 $dbh->do("DROP TABLE IF EXISTS `tags_index`;");
1387 CREATE TABLE `tags_index` (
1388 `term` varchar(255) NOT NULL,
1389 `biblionumber` int(11) NOT NULL,
1390 `weight` int(9) NOT NULL default '1',
1391 PRIMARY KEY (`term`,`biblionumber`),
1392 KEY `tags_index_biblionumber_fk_1` (`biblionumber`),
1393 CONSTRAINT `tags_index_term_fk_1` FOREIGN KEY (`term`)
1394 REFERENCES `tags_approval` (`term`) ON DELETE CASCADE ON UPDATE CASCADE,
1395 CONSTRAINT `tags_index_biblionumber_fk_1` FOREIGN KEY (`biblionumber`)
1396 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1397 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1400 INSERT INTO `systempreferences` VALUES
1401 ('BakerTaylorBookstoreURL','','','URL template for \"My Libary Bookstore\" links, to which the \"key\" value is appended, and \"https://\" is prepended. It should include your hostname and \"Parent Number\". Make this variable empty to turn MLB links off. Example: ocls.mylibrarybookstore.com/MLB/actions/searchHandler.do?nextPage=bookDetails&parentNum=10923&key=',''),
1402 ('BakerTaylorEnabled','0','','Enable or disable all Baker & Taylor features.','YesNo'),
1403 ('BakerTaylorPassword','','','Baker & Taylor Password for Content Cafe (external content)','Textarea'),
1404 ('BakerTaylorUsername','','','Baker & Taylor Username for Content Cafe (external content)','Textarea'),
1405 ('TagsEnabled','1','','Enables or disables all tagging features. This is the main switch for tags.','YesNo'),
1406 ('TagsExternalDictionary',NULL,'','Path on server to local ispell executable, used to set $Lingua::Ispell::path This dictionary is used as a \"whitelist\" of pre-allowed tags.',''),
1407 ('TagsInputOnDetail','1','','Allow users to input tags from the detail page.', 'YesNo'),
1408 ('TagsInputOnList', '0','','Allow users to input tags from the search results list.', 'YesNo'),
1409 ('TagsModeration', NULL,'','Require tags from patrons to be approved before becoming visible.','YesNo'),
1410 ('TagsShowOnDetail','10','','Number of tags to display on detail page. 0 is off.', 'Integer'),
1411 ('TagsShowOnList', '6','','Number of tags to display on search results list. 0 is off.','Integer')
1413 print "Upgrade to $DBversion done (Baker/Taylor,Tags: sysprefs and tables (tags_all, tags_index, tags_approval)) \n";
1414 SetVersion ($DBversion);
1417 $DBversion = "3.00.00.074";
1418 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1419 $dbh->do( q(update itemtypes set imageurl = concat( 'npl/', imageurl )
1420 where imageurl not like 'http%'
1421 and imageurl is not NULL
1422 and imageurl != '') );
1423 print "Upgrade to $DBversion done (updating imagetype.imageurls to reflect new icon locations.)\n";
1424 SetVersion ($DBversion);
1427 $DBversion = "3.00.00.075";
1428 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1429 $dbh->do( q(alter table authorised_values add imageurl varchar(200) default NULL) );
1430 print "Upgrade to $DBversion done (adding imageurl field to authorised_values table)\n";
1431 SetVersion ($DBversion);
1434 $DBversion = "3.00.00.076";
1435 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1436 $dbh->do("ALTER TABLE import_batches
1437 ADD COLUMN nomatch_action enum('create_new', 'ignore') NOT NULL default 'create_new' AFTER overlay_action");
1438 $dbh->do("ALTER TABLE import_batches
1439 ADD COLUMN item_action enum('always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore')
1440 NOT NULL default 'always_add' AFTER nomatch_action");
1441 $dbh->do("ALTER TABLE import_batches
1442 MODIFY overlay_action enum('replace', 'create_new', 'use_template', 'ignore')
1443 NOT NULL default 'create_new'");
1444 $dbh->do("ALTER TABLE import_records
1445 MODIFY status enum('error', 'staged', 'imported', 'reverted', 'items_reverted',
1446 'ignored') NOT NULL default 'staged'");
1447 $dbh->do("ALTER TABLE import_items
1448 MODIFY status enum('error', 'staged', 'imported', 'reverted', 'ignored') NOT NULL default 'staged'");
1450 print "Upgrade to $DBversion done (changes to import_batches and import_records)\n";
1451 SetVersion ($DBversion);
1454 $DBversion = "3.00.00.077";
1455 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1456 # drop these tables only if they exist and none of them are empty
1457 # these tables are not defined in the packaged 2.2.9, but since it is believed
1458 # that at least one library may be using them in a post-2.2.9 but pre-3.0 Koha,
1459 # some care is taken.
1460 my ($print_error) = $dbh->{PrintError};
1461 $dbh->{PrintError} = 0;
1462 my ($raise_error) = $dbh->{RaiseError};
1463 $dbh->{RaiseError} = 1;
1467 eval { $count = $dbh->do("SELECT 1 FROM categorytable"); };
1471 eval { $count = $dbh->do("SELECT 1 FROM mediatypetable"); };
1475 eval { $count = $dbh->do("SELECT 1 FROM subcategorytable"); };
1481 $dbh->do("DROP TABLE IF EXISTS `categorytable`");
1482 $dbh->do("DROP TABLE IF EXISTS `mediatypetable`");
1483 $dbh->do("DROP TABLE IF EXISTS `subcategorytable`");
1486 $dbh->{PrintError} = $print_error;
1487 $dbh->{RaiseError} = $raise_error;
1488 print "Upgrade to $DBversion done (drop categorytable, subcategorytable, and mediatypetable)\n";
1489 SetVersion ($DBversion);
1492 $DBversion = "3.00.00.078";
1493 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1494 my ($print_error) = $dbh->{PrintError};
1495 $dbh->{PrintError} = 0;
1497 unless ($dbh->do("SELECT 1 FROM browser")) {
1498 $dbh->{PrintError} = $print_error;
1499 $dbh->do("CREATE TABLE `browser` (
1500 `level` int(11) NOT NULL,
1501 `classification` varchar(20) NOT NULL,
1502 `description` varchar(255) NOT NULL,
1503 `number` bigint(20) NOT NULL,
1504 `endnode` tinyint(4) NOT NULL
1505 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1507 $dbh->{PrintError} = $print_error;
1508 print "Upgrade to $DBversion done (add browser table if not already present)\n";
1509 SetVersion ($DBversion);
1512 $DBversion = "3.00.00.079";
1513 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1514 my ($print_error) = $dbh->{PrintError};
1515 $dbh->{PrintError} = 0;
1517 $dbh->do("INSERT INTO `systempreferences` (variable, value,options,type, explanation)VALUES
1518 ('AddPatronLists','categorycode','categorycode|category_type','Choice','Allow user to choose what list to pick up from when adding patrons')");
1519 print "Upgrade to $DBversion done (add browser table if not already present)\n";
1520 SetVersion ($DBversion);
1523 $DBversion = "3.00.00.080";
1524 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1525 $dbh->do("ALTER TABLE subscription CHANGE monthlength monthlength int(11) default '0'");
1526 $dbh->do("ALTER TABLE deleteditems MODIFY marc LONGBLOB AFTER copynumber");
1527 $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
1528 print "Upgrade to $DBversion done (catch up on DB schema changes since alpha and beta)\n";
1529 SetVersion ($DBversion);
1532 $DBversion = "3.00.00.081";
1533 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1534 $dbh->do("CREATE TABLE `borrower_attribute_types` (
1535 `code` varchar(10) NOT NULL,
1536 `description` varchar(255) NOT NULL,
1537 `repeatable` tinyint(1) NOT NULL default 0,
1538 `unique_id` tinyint(1) NOT NULL default 0,
1539 `opac_display` tinyint(1) NOT NULL default 0,
1540 `password_allowed` tinyint(1) NOT NULL default 0,
1541 `staff_searchable` tinyint(1) NOT NULL default 0,
1542 `authorised_value_category` varchar(10) default NULL,
1543 PRIMARY KEY (`code`)
1544 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1545 $dbh->do("CREATE TABLE `borrower_attributes` (
1546 `borrowernumber` int(11) NOT NULL,
1547 `code` varchar(10) NOT NULL,
1548 `attribute` varchar(30) default NULL,
1549 `password` varchar(30) default NULL,
1550 KEY `borrowernumber` (`borrowernumber`),
1551 KEY `code_attribute` (`code`, `attribute`),
1552 CONSTRAINT `borrower_attributes_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1553 ON DELETE CASCADE ON UPDATE CASCADE,
1554 CONSTRAINT `borrower_attributes_ibfk_2` FOREIGN KEY (`code`) REFERENCES `borrower_attribute_types` (`code`)
1555 ON DELETE CASCADE ON UPDATE CASCADE
1556 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1557 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ExtendedPatronAttributes','0','Use extended patron IDs and attributes',NULL,'YesNo')");
1558 print "Upgrade to $DBversion done (added borrower_attributes and borrower_attribute_types)\n";
1559 SetVersion ($DBversion);
1562 $DBversion = "3.00.00.082";
1563 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1564 $dbh->do( q(alter table accountlines add column lastincrement decimal(28,6) default NULL) );
1565 print "Upgrade to $DBversion done (adding lastincrement column to accountlines table)\n";
1566 SetVersion ($DBversion);
1569 $DBversion = "3.00.00.083";
1570 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1571 $dbh->do( qq(UPDATE systempreferences SET value='local' where variable='yuipath' and value like "%/intranet-tmpl/prog/%"));
1572 print "Upgrade to $DBversion done (Changing yuipath behaviour in managing a local value)\n";
1573 SetVersion ($DBversion);
1575 $DBversion = "3.00.00.084";
1576 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1577 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RenewSerialAddsSuggestion','0','if ON, adds a new suggestion at serial subscription renewal',NULL,'YesNo')");
1578 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('GoogleJackets','0','if ON, displays jacket covers from Google Books API',NULL,'YesNo')");
1579 print "Upgrade to $DBversion done (add new sysprefs)\n";
1580 SetVersion ($DBversion);
1583 $DBversion = "3.00.00.085";
1584 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1585 if (C4::Context->preference("marcflavour") eq 'MARC21') {
1586 $dbh->do("UPDATE marc_subfield_structure SET tab = 0 WHERE tab = 9 AND tagfield = '037'");
1587 $dbh->do("UPDATE marc_subfield_structure SET tab = 1 WHERE tab = 6 AND tagfield in ('100', '110', '111', '130')");
1588 $dbh->do("UPDATE marc_subfield_structure SET tab = 2 WHERE tab = 6 AND tagfield in ('240', '243')");
1589 $dbh->do("UPDATE marc_subfield_structure SET tab = 4 WHERE tab = 6 AND tagfield in ('400', '410', '411', '440')");
1590 $dbh->do("UPDATE marc_subfield_structure SET tab = 5 WHERE tab = 9 AND tagfield = '584'");
1591 $dbh->do("UPDATE marc_subfield_structure SET tab = 7 WHERE tab = -6 AND tagfield = '760'");
1593 print "Upgrade to $DBversion done (move editing tab of various MARC21 subfields)\n";
1594 SetVersion ($DBversion);
1597 $DBversion = "3.00.00.086";
1598 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1600 "CREATE TABLE `tmp_holdsqueue` (
1601 `biblionumber` int(11) default NULL,
1602 `itemnumber` int(11) default NULL,
1603 `barcode` varchar(20) default NULL,
1604 `surname` mediumtext NOT NULL,
1607 `borrowernumber` int(11) NOT NULL,
1608 `cardnumber` varchar(16) default NULL,
1609 `reservedate` date default NULL,
1611 `itemcallnumber` varchar(30) default NULL,
1612 `holdingbranch` varchar(10) default NULL,
1613 `pickbranch` varchar(10) default NULL,
1615 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1617 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RandomizeHoldsQueueWeight','0','if ON, the holds queue in circulation will be randomized, either based on all location codes, or by the location codes specified in StaticHoldsQueueWeight',NULL,'YesNo')");
1618 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaticHoldsQueueWeight','0','Specify a list of library location codes separated by commas -- the list of codes will be traversed and weighted with first values given higher weight for holds fulfillment -- alternatively, if RandomizeHoldsQueueWeight is set, the list will be randomly selective',NULL,'TextArea')");
1620 print "Upgrade to $DBversion done (Table structure for table `tmp_holdsqueue`)\n";
1621 SetVersion ($DBversion);
1624 $DBversion = "3.00.00.087";
1625 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1626 $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailOpacUser','0','','Sends notification emails containing new account details to patrons - when account is created.','YesNo')" );
1627 $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailPrimaryAddress','OFF','email|emailpro|B_email|cardnumber|OFF','Defines the default email address where Account Details emails are sent.','Choice')");
1628 print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1629 SetVersion ($DBversion);
1632 $DBversion = "3.00.00.088";
1633 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1634 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACShelfBrowser','1','','Enable/disable Shelf Browser on item details page','YesNo')");
1635 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACItemHolds','1','Allow OPAC users to place hold on specific items. If OFF, users can only request next available copy.','','YesNo')");
1636 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('XSLTDetailsDisplay','0','','Enable XSL stylesheet control over details page display on OPAC WARNING: MARC21 Only','YesNo')");
1637 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('XSLTResultsDisplay','0','','Enable XSL stylesheet control over results page display on OPAC WARNING: MARC21 Only','YesNo')");
1638 print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1639 SetVersion ($DBversion);
1642 $DBversion = "3.00.00.089";
1643 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1644 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AdvancedSearchTypes','itemtypes','itemtypes|ccode','Select which set of fields comprise the Type limit in the advanced search','Choice')");
1645 print "Upgrade to $DBversion done (added new AdvancedSearchTypes syspref)\n";
1646 SetVersion ($DBversion);
1649 $DBversion = "3.00.00.090";
1650 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1652 CREATE TABLE `branch_borrower_circ_rules` (
1653 `branchcode` VARCHAR(10) NOT NULL,
1654 `categorycode` VARCHAR(10) NOT NULL,
1655 `maxissueqty` int(4) default NULL,
1656 PRIMARY KEY (`categorycode`, `branchcode`),
1657 CONSTRAINT `branch_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1658 ON DELETE CASCADE ON UPDATE CASCADE,
1659 CONSTRAINT `branch_borrower_circ_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1660 ON DELETE CASCADE ON UPDATE CASCADE
1661 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1664 CREATE TABLE `default_borrower_circ_rules` (
1665 `categorycode` VARCHAR(10) NOT NULL,
1666 `maxissueqty` int(4) default NULL,
1667 PRIMARY KEY (`categorycode`),
1668 CONSTRAINT `borrower_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1669 ON DELETE CASCADE ON UPDATE CASCADE
1670 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1673 CREATE TABLE `default_branch_circ_rules` (
1674 `branchcode` VARCHAR(10) NOT NULL,
1675 `maxissueqty` int(4) default NULL,
1676 PRIMARY KEY (`branchcode`),
1677 CONSTRAINT `default_branch_circ_rules_ibfk_1` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1678 ON DELETE CASCADE ON UPDATE CASCADE
1679 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1682 CREATE TABLE `default_circ_rules` (
1683 `singleton` enum('singleton') NOT NULL default 'singleton',
1684 `maxissueqty` int(4) default NULL,
1685 PRIMARY KEY (`singleton`)
1686 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1688 print "Upgrade to $DBversion done (added several circ rules tables)\n";
1689 SetVersion ($DBversion);
1693 $DBversion = "3.00.00.091";
1694 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1695 $dbh->do(<<'END_SQL');
1696 ALTER TABLE borrowers
1697 ADD `smsalertnumber` varchar(50) default NULL
1700 $dbh->do(<<'END_SQL');
1701 CREATE TABLE `message_attributes` (
1702 `message_attribute_id` int(11) NOT NULL auto_increment,
1703 `message_name` varchar(20) NOT NULL default '',
1704 `takes_days` tinyint(1) NOT NULL default '0',
1705 PRIMARY KEY (`message_attribute_id`),
1706 UNIQUE KEY `message_name` (`message_name`)
1707 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1710 $dbh->do(<<'END_SQL');
1711 CREATE TABLE `message_transport_types` (
1712 `message_transport_type` varchar(20) NOT NULL,
1713 PRIMARY KEY (`message_transport_type`)
1714 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1717 $dbh->do(<<'END_SQL');
1718 CREATE TABLE `message_transports` (
1719 `message_attribute_id` int(11) NOT NULL,
1720 `message_transport_type` varchar(20) NOT NULL,
1721 `is_digest` tinyint(1) NOT NULL default '0',
1722 `letter_module` varchar(20) NOT NULL default '',
1723 `letter_code` varchar(20) NOT NULL default '',
1724 PRIMARY KEY (`message_attribute_id`,`message_transport_type`,`is_digest`),
1725 KEY `message_transport_type` (`message_transport_type`),
1726 KEY `letter_module` (`letter_module`,`letter_code`),
1727 CONSTRAINT `message_transports_ibfk_1` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE,
1728 CONSTRAINT `message_transports_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE,
1729 CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`) REFERENCES `letter` (`module`, `code`) ON DELETE CASCADE ON UPDATE CASCADE
1730 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1733 $dbh->do(<<'END_SQL');
1734 CREATE TABLE `borrower_message_preferences` (
1735 `borrower_message_preference_id` int(11) NOT NULL auto_increment,
1736 `borrowernumber` int(11) NOT NULL default '0',
1737 `message_attribute_id` int(11) default '0',
1738 `days_in_advance` int(11) default '0',
1739 `wants_digets` tinyint(1) NOT NULL default '0',
1740 PRIMARY KEY (`borrower_message_preference_id`),
1741 KEY `borrowernumber` (`borrowernumber`),
1742 KEY `message_attribute_id` (`message_attribute_id`),
1743 CONSTRAINT `borrower_message_preferences_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1744 CONSTRAINT `borrower_message_preferences_ibfk_2` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE
1745 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1748 $dbh->do(<<'END_SQL');
1749 CREATE TABLE `borrower_message_transport_preferences` (
1750 `borrower_message_preference_id` int(11) NOT NULL default '0',
1751 `message_transport_type` varchar(20) NOT NULL default '0',
1752 PRIMARY KEY (`borrower_message_preference_id`,`message_transport_type`),
1753 KEY `message_transport_type` (`message_transport_type`),
1754 CONSTRAINT `borrower_message_transport_preferences_ibfk_1` FOREIGN KEY (`borrower_message_preference_id`) REFERENCES `borrower_message_preferences` (`borrower_message_preference_id`) ON DELETE CASCADE ON UPDATE CASCADE,
1755 CONSTRAINT `borrower_message_transport_preferences_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE
1756 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1759 $dbh->do(<<'END_SQL');
1760 CREATE TABLE `message_queue` (
1761 `message_id` int(11) NOT NULL auto_increment,
1762 `borrowernumber` int(11) NOT NULL,
1765 `message_transport_type` varchar(20) NOT NULL,
1766 `status` enum('sent','pending','failed','deleted') NOT NULL default 'pending',
1767 `time_queued` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1768 KEY `message_id` (`message_id`),
1769 KEY `borrowernumber` (`borrowernumber`),
1770 KEY `message_transport_type` (`message_transport_type`),
1771 CONSTRAINT `messageq_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1772 CONSTRAINT `messageq_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE RESTRICT ON UPDATE CASCADE
1773 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1776 $dbh->do(<<'END_SQL');
1777 INSERT INTO `systempreferences`
1778 (variable,value,explanation,options,type)
1780 ('EnhancedMessagingPreferences',0,'If ON, allows patrons to select to receive additional messages about items due or nearly due.','','YesNo')
1783 $dbh->do( <<'END_SQL');
1784 INSERT INTO `letter`
1785 (module, code, name, title, content)
1787 ('circulation','DUE','Item Due Reminder','Item Due Reminder','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item is now due:\r\n\r\n<<biblio.title>> by <<biblio.author>>'),
1788 ('circulation','DUEDGST','Item Due Reminder (Digest)','Item Due Reminder','You have <<count>> items due'),
1789 ('circulation','PREDUE','Advance Notice of Item Due','Advance Notice of Item Due','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item will be due soon:\r\n\r\n<<biblio.title>> by <<biblio.author>>'),
1790 ('circulation','PREDUEDGST','Advance Notice of Item Due (Digest)','Advance Notice of Item Due','You have <<count>> items due soon'),
1791 ('circulation','EVENT','Upcoming Library Event','Upcoming Library Event','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThis is a reminder of an upcoming library event in which you have expressed interest.');
1795 'installer/data/mysql/en/mandatory/message_transport_types.sql',
1796 'installer/data/mysql/en/optional/sample_notices_message_attributes.sql',
1797 'installer/data/mysql/en/optional/sample_notices_message_transports.sql',
1800 my $installer = C4::Installer->new();
1801 foreach my $script ( @sql_scripts ) {
1802 my $full_path = $installer->get_file_path_from_name($script);
1803 my $error = $installer->load_sql($full_path);
1804 warn $error if $error;
1807 print "Upgrade to $DBversion done (Table structure for table `message_queue`, `message_transport_types`, `message_attributes`, `message_transports`, `borrower_message_preferences`, and `borrower_message_transport_preferences`. Alter `borrowers` table,\n";
1808 SetVersion ($DBversion);
1811 $DBversion = "3.00.00.092";
1812 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1813 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AllowOnShelfHolds', '0', '', 'Allow hold requests to be placed on items that are not on loan', 'YesNo')");
1814 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AllowHoldsOnDamagedItems', '1', '', 'Allow hold requests to be placed on damaged items', 'YesNo')");
1815 print "Upgrade to $DBversion done (added new AllowOnShelfHolds syspref)\n";
1816 SetVersion ($DBversion);
1819 $DBversion = "3.00.00.093";
1820 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1821 $dbh->do("ALTER TABLE `items` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1822 $dbh->do("ALTER TABLE `deleteditems` MODIFY COLUMN `copynumber` VARCHAR(32) DEFAULT NULL");
1823 print "Upgrade to $DBversion done (Change data type of items.copynumber to allow free text)\n";
1824 SetVersion ($DBversion);
1827 $DBversion = "3.00.00.094";
1828 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1829 $dbh->do("ALTER TABLE `marc_subfield_structure` MODIFY `tagsubfield` VARCHAR(1) NOT NULL DEFAULT '' COLLATE utf8_bin");
1830 print "Upgrade to $DBversion done (Change Collation of marc_subfield_structure to allow mixed case in subfield labels.)\n";
1831 SetVersion ($DBversion);
1834 $DBversion = "3.00.00.095";
1835 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1836 if (C4::Context->preference("marcflavour") eq 'MARC21') {
1837 $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'MEETI_NAME' WHERE authtypecode = 'Meeting Name'");
1838 $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'CORPO_NAME' WHERE authtypecode = 'CORP0_NAME'");
1840 print "Upgrade to $DBversion done (fix invalid authority types in MARC21 frameworks [bug 2254])\n";
1841 SetVersion ($DBversion);
1844 $DBversion = "3.00.00.096";
1845 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1846 $sth = $dbh->prepare("SHOW COLUMNS FROM borrower_message_preferences LIKE 'wants_digets'");
1848 if (my $row = $sth->fetchrow_hashref) {
1849 $dbh->do("ALTER TABLE borrower_message_preferences CHANGE wants_digets wants_digest tinyint(1) NOT NULL default 0");
1851 print "Upgrade to $DBversion done (fix name borrower_message_preferences.wants_digest)\n";
1852 SetVersion ($DBversion);
1855 $DBversion = '3.00.00.097';
1856 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1858 $dbh->do('ALTER TABLE message_queue ADD to_address mediumtext default NULL');
1859 $dbh->do('ALTER TABLE message_queue ADD from_address mediumtext default NULL');
1860 $dbh->do('ALTER TABLE message_queue ADD content_type text');
1861 $dbh->do('ALTER TABLE message_queue CHANGE borrowernumber borrowernumber int(11) default NULL');
1863 print "Upgrade to $DBversion done (updating 4 fields in message_queue table)\n";
1864 SetVersion($DBversion);
1867 $DBversion = '3.00.00.098';
1868 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1870 $dbh->do(q(DELETE FROM message_transport_types WHERE message_transport_type = 'rss'));
1871 $dbh->do(q(DELETE FROM message_transports WHERE message_transport_type = 'rss'));
1873 print "Upgrade to $DBversion done (removing unused RSS message_transport_type)\n";
1874 SetVersion($DBversion);
1877 $DBversion = '3.00.00.099';
1878 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1879 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('OpacSuppression', '0', '', 'Turn ON the OPAC Suppression feature, requires further setup, ask your system administrator for details', 'YesNo')");
1880 print "Upgrade to $DBversion done (Adding OpacSuppression syspref)\n";
1881 SetVersion($DBversion);
1884 $DBversion = '3.00.00.100';
1885 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1886 $dbh->do('ALTER TABLE virtualshelves ADD COLUMN lastmodified timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP');
1887 print "Upgrade to $DBversion done (Adding lastmodified column to virtualshelves)\n";
1888 SetVersion($DBversion);
1891 $DBversion = '3.00.00.101';
1892 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1893 $dbh->do('ALTER TABLE `overduerules` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1894 $dbh->do('ALTER TABLE `deletedborrowers` CHANGE `categorycode` `categorycode` VARCHAR(10) NOT NULL');
1895 print "Upgrade to $DBversion done (Updating columnd definitions for patron category codes in notice/statsu triggers and deletedborrowers tables.)\n";
1896 SetVersion($DBversion);
1899 $DBversion = '3.00.00.102';
1900 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1901 $dbh->do('ALTER TABLE serialitems MODIFY `serialid` int(11) NOT NULL AFTER itemnumber' );
1902 $dbh->do('ALTER TABLE serialitems DROP KEY serialididx' );
1903 $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT UNIQUE KEY serialitemsidx (itemnumber)' );
1904 # before setting constraint, delete any unvalid data
1905 $dbh->do('DELETE from serialitems WHERE serialid not in (SELECT serial.serialid FROM serial)');
1906 $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT serialitems_sfk_1 FOREIGN KEY (serialid) REFERENCES serial (serialid) ON DELETE CASCADE ON UPDATE CASCADE' );
1907 print "Upgrade to $DBversion done (Updating serialitems table to allow for multiple items per serial fixing kohabug 2380)\n";
1908 SetVersion($DBversion);
1911 $DBversion = "3.00.00.103";
1912 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1913 $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1914 print "Upgrade to $DBversion done ( Verifying the removal of serialsadditems from syspref fixing kohabug 2219)\n";
1915 SetVersion ($DBversion);
1918 $DBversion = "3.00.00.104";
1919 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1920 $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1921 print "Upgrade to $DBversion done (remove superseded 'noOPACHolds' system preference per bug 2413)\n";
1922 SetVersion ($DBversion);
1925 $DBversion = '3.00.00.105';
1926 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
1928 # it is possible that this syspref is already defined since the feature was added some time ago.
1929 unless ( $dbh->do(q(SELECT variable FROM systempreferences WHERE variable = 'SMSSendDriver')) ) {
1930 $dbh->do(<<'END_SQL');
1931 INSERT INTO `systempreferences`
1932 (variable,value,explanation,options,type)
1934 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')
1937 print "Upgrade to $DBversion done (added SMSSendDriver system preference)\n";
1938 SetVersion($DBversion);
1941 $DBversion = "3.00.00.106";
1942 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1943 $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1945 # db revision 105 didn't apply correctly, so we're rolling this into 106
1946 $dbh->do("INSERT INTO `systempreferences`
1947 (variable,value,explanation,options,type)
1949 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')");
1951 print "Upgrade to $DBversion done (remove default '0000-00-00' in subscriptionhistory.enddate field)\n";
1952 $dbh->do("ALTER TABLE `subscriptionhistory` CHANGE `enddate` `enddate` DATE NULL DEFAULT NULL ");
1953 $dbh->do("UPDATE subscriptionhistory SET enddate=NULL WHERE enddate='0000-00-00'");
1954 SetVersion ($DBversion);
1957 $DBversion = '3.00.00.107';
1958 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1959 $dbh->do(<<'END_SQL');
1960 UPDATE systempreferences
1961 SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming on collections with large numbers of items.' )
1962 WHERE variable = 'OPACShelfBrowser'
1963 AND explanation NOT LIKE '%WARNING%'
1965 $dbh->do(<<'END_SQL');
1966 UPDATE systempreferences
1967 SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming.' )
1968 WHERE variable = 'CataloguingLog'
1969 AND explanation NOT LIKE '%WARNING%'
1971 $dbh->do(<<'END_SQL');
1972 UPDATE systempreferences
1973 SET explanation = CONCAT( explanation, '. WARNING: using NoZebra on even modest sized collections is very slow.' )
1974 WHERE variable = 'NoZebra'
1975 AND explanation NOT LIKE '%WARNING%'
1977 print "Upgrade to $DBversion done (warning added to OPACShelfBrowser system preference)\n";
1978 SetVersion ($DBversion);
1981 $DBversion = '3.01.00.000';
1982 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1983 print "Upgrade to $DBversion done (start of 3.1)\n";
1984 SetVersion ($DBversion);
1987 $DBversion = '3.01.00.001';
1988 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1990 CREATE TABLE hold_fill_targets (
1991 `borrowernumber` int(11) NOT NULL,
1992 `biblionumber` int(11) NOT NULL,
1993 `itemnumber` int(11) NOT NULL,
1994 `source_branchcode` varchar(10) default NULL,
1995 `item_level_request` tinyint(4) NOT NULL default 0,
1996 PRIMARY KEY `itemnumber` (`itemnumber`),
1997 KEY `bib_branch` (`biblionumber`, `source_branchcode`),
1998 CONSTRAINT `hold_fill_targets_ibfk_1` FOREIGN KEY (`borrowernumber`)
1999 REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2000 CONSTRAINT `hold_fill_targets_ibfk_2` FOREIGN KEY (`biblionumber`)
2001 REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2002 CONSTRAINT `hold_fill_targets_ibfk_3` FOREIGN KEY (`itemnumber`)
2003 REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
2004 CONSTRAINT `hold_fill_targets_ibfk_4` FOREIGN KEY (`source_branchcode`)
2005 REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2006 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2009 ALTER TABLE tmp_holdsqueue
2010 ADD item_level_request tinyint(4) NOT NULL default 0
2013 print "Upgrade to $DBversion done (add hold_fill_targets table and a column to tmp_holdsqueue)\n";
2014 SetVersion($DBversion);
2017 $DBversion = '3.01.00.002';
2018 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2019 # use statistics where available
2021 ALTER TABLE statistics ADD KEY tmp_stats (type, itemnumber, borrowernumber)
2026 SELECT max(datetime)
2028 WHERE type = 'issue'
2029 AND itemnumber = iss.itemnumber
2030 AND borrowernumber = iss.borrowernumber
2032 WHERE issuedate IS NULL;
2034 $dbh->do("ALTER TABLE statistics DROP KEY tmp_stats");
2036 # default to last renewal date
2039 SET issuedate = lastreneweddate
2040 WHERE issuedate IS NULL
2041 and lastreneweddate IS NOT NULL
2044 my $num_bad_issuedates = $dbh->selectrow_array("SELECT COUNT(*) FROM issues WHERE issuedate IS NULL");
2045 if ($num_bad_issuedates > 0) {
2046 print STDERR "After the upgrade to $DBversion, there are still $num_bad_issuedates loan(s) with a NULL (blank) loan date. ",
2047 "Please check the issues table in your database.";
2049 print "Upgrade to $DBversion done (bug 2582: set null issues.issuedate to lastreneweddate)\n";
2050 SetVersion($DBversion);
2053 $DBversion = "3.01.00.003";
2054 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2055 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowRenewalLimitOverride', '0', 'if ON, allows renewal limits to be overridden on the circulation screen',NULL,'YesNo')");
2056 print "Upgrade to $DBversion done (add new syspref)\n";
2057 SetVersion ($DBversion);
2060 $DBversion = '3.01.00.004';
2061 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2062 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACDisplayRequestPriority','0','Show patrons the priority level on holds in the OPAC','','YesNo')");
2063 print "Upgrade to $DBversion done (added OPACDisplayRequestPriority system preference)\n";
2064 SetVersion ($DBversion);
2067 $DBversion = '3.01.00.005';
2068 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2070 INSERT INTO `letter` (module, code, name, title, content)
2071 VALUES('reserves', 'HOLD', 'Hold Available for Pickup', 'Hold Available for Pickup at <<branches.branchname>>', 'Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYou have a hold available for pickup as of <<reserves.waitingdate>>:\r\n\r\nTitle: <<biblio.title>>\r\nAuthor: <<biblio.author>>\r\nCopy: <<items.copynumber>>\r\nLocation: <<branches.branchname>>\r\n<<branches.branchaddress1>>\r\n<<branches.branchaddress2>>\r\n<<branches.branchaddress3>>')
2073 $dbh->do("INSERT INTO `message_attributes` (message_attribute_id, message_name, takes_days) values(4, 'Hold Filled', 0)");
2074 $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'sms', 0, 'reserves', 'HOLD')");
2075 $dbh->do("INSERT INTO `message_transports` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'email', 0, 'reserves', 'HOLD')");
2076 print "Upgrade to $DBversion done (Add letter for holds notifications)\n";
2077 SetVersion ($DBversion);
2080 $DBversion = '3.01.00.006';
2081 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2082 $dbh->do("ALTER TABLE `biblioitems` ADD KEY issn (issn)");
2083 print "Upgrade to $DBversion done (add index on biblioitems.issn)\n";
2084 SetVersion ($DBversion);
2087 $DBversion = "3.01.00.007";
2088 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2089 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetmainUserblock'");
2090 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='intranetuserjs'");
2091 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacheader'");
2092 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacMainUserBlock'");
2093 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='OpacNav'");
2094 $dbh->do("UPDATE `systempreferences` SET options='70|10' WHERE variable='opacuserjs'");
2095 $dbh->do("UPDATE `systempreferences` SET options='30|10', type='Textarea' WHERE variable='OAI-PMH:Set'");
2096 $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetstylesheet'");
2097 $dbh->do("UPDATE `systempreferences` SET options='50' WHERE variable='intranetcolorstylesheet'");
2098 $dbh->do("UPDATE `systempreferences` SET options='10' WHERE variable='globalDueDate'");
2099 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='numSearchResults'");
2100 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='OPACnumSearchResults'");
2101 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='ReservesMaxPickupDelay'");
2102 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='TransfersMaxDaysWarning'");
2103 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='StaticHoldsQueueWeight'");
2104 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='holdCancelLength'");
2105 $dbh->do("UPDATE `systempreferences` SET type='Integer' WHERE variable='XISBNDailyLimit'");
2106 $dbh->do("UPDATE `systempreferences` SET type='Float' WHERE variable='gist'");
2107 $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorUsername'");
2108 $dbh->do("UPDATE `systempreferences` SET type='Free' WHERE variable='BakerTaylorPassword'");
2109 $dbh->do("UPDATE `systempreferences` SET type='Textarea', options='70|10' WHERE variable='ISBD'");
2110 $dbh->do("UPDATE `systempreferences` SET type='Textarea', options='70|10', explanation='Enter a specific hash for NoZebra indexes. Enter : \\\'indexname\\\' => \\\'100a,245a,500*\\\',\\\'index2\\\' => \\\'...\\\'' WHERE variable='NoZebraIndexes'");
2111 print "Upgrade to $DBversion done (fix display of many sysprefs)\n";
2112 SetVersion ($DBversion);
2115 $DBversion = '3.01.00.008';
2116 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2118 $dbh->do("CREATE TABLE branch_transfer_limits (
2119 limitId int(8) NOT NULL auto_increment,
2120 toBranch varchar(4) NOT NULL,
2121 fromBranch varchar(4) NOT NULL,
2122 itemtype varchar(4) NOT NULL,
2123 PRIMARY KEY (limitId)
2124 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
2127 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'UseBranchTransferLimits', '0', '', 'If ON, Koha will will use the rules defined in branch_transfer_limits to decide if an item transfer should be allowed.', 'YesNo')");
2129 print "Upgrade to $DBversion done (added branch_transfer_limits table and UseBranchTransferLimits system preference)\n";
2130 SetVersion ($DBversion);
2133 $DBversion = "3.01.00.009";
2134 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2135 $dbh->do("ALTER TABLE permissions MODIFY `code` varchar(64) DEFAULT NULL");
2136 $dbh->do("ALTER TABLE user_permissions MODIFY `code` varchar(64) DEFAULT NULL");
2137 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'circulate_remaining_permissions', 'Remaining circulation permissions')");
2138 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'override_renewals', 'Override blocked renewals')");
2139 print "Upgrade to $DBversion done (added subpermissions for circulate permission)\n";
2142 $DBversion = '3.01.00.010';
2143 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2144 $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `attribute` VARCHAR(64) DEFAULT NULL");
2145 $dbh->do("ALTER TABLE `borrower_attributes` MODIFY COLUMN `password` VARCHAR(64) DEFAULT NULL");
2146 print "Upgrade to $DBversion done (bug 2687: increase length of borrower attribute fields)\n";
2147 SetVersion ($DBversion);
2150 $DBversion = '3.01.00.011';
2151 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2153 # Yes, the old value was ^M terminated.
2154 my $bad_value = "function prepareEmailPopup(){\r\n if (!document.getElementById) return false;\r\n if (!document.getElementById('reserveemail')) return false;\r\n rsvlink = document.getElementById('reserveemail');\r\n rsvlink.onclick = function() {\r\n doReservePopup();\r\n return false;\r\n }\r\n}\r\n\r\nfunction doReservePopup(){\r\n}\r\n\r\nfunction prepareReserveList(){\r\n}\r\n\r\naddLoadEvent(prepareEmailPopup);\r\naddLoadEvent(prepareReserveList);";
2156 my $intranetuserjs = C4::Context->preference('intranetuserjs');
2157 if ($intranetuserjs and $intranetuserjs eq $bad_value) {
2158 my $sql = <<'END_SQL';
2159 UPDATE systempreferences
2161 WHERE variable = 'intranetuserjs'
2165 print "Upgrade to $DBversion done (removed bogus intranetuserjs syspref)\n";
2166 SetVersion($DBversion);
2169 $DBversion = "3.01.00.012";
2170 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2171 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldPolicyOverride', '0', 'Allow staff to override hold policies when placing holds',NULL,'YesNo')");
2173 CREATE TABLE `branch_item_rules` (
2174 `branchcode` varchar(10) NOT NULL,
2175 `itemtype` varchar(10) NOT NULL,
2176 `holdallowed` tinyint(1) default NULL,
2177 PRIMARY KEY (`itemtype`,`branchcode`),
2178 KEY `branch_item_rules_ibfk_2` (`branchcode`),
2179 CONSTRAINT `branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE,
2180 CONSTRAINT `branch_item_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
2181 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2184 CREATE TABLE `default_branch_item_rules` (
2185 `itemtype` varchar(10) NOT NULL,
2186 `holdallowed` tinyint(1) default NULL,
2187 PRIMARY KEY (`itemtype`),
2188 CONSTRAINT `default_branch_item_rules_ibfk_1` FOREIGN KEY (`itemtype`) REFERENCES `itemtypes` (`itemtype`) ON DELETE CASCADE ON UPDATE CASCADE
2189 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2192 ALTER TABLE default_branch_circ_rules
2193 ADD COLUMN holdallowed tinyint(1) NULL
2196 ALTER TABLE default_circ_rules
2197 ADD COLUMN holdallowed tinyint(1) NULL
2199 print "Upgrade to $DBversion done (Add tables and system preferences for holds policies)\n";
2200 SetVersion ($DBversion);
2203 $DBversion = '3.01.00.013';
2204 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2206 CREATE TABLE item_circulation_alert_preferences (
2207 id int(11) AUTO_INCREMENT,
2208 branchcode varchar(10) NOT NULL,
2209 categorycode varchar(10) NOT NULL,
2210 item_type varchar(10) NOT NULL,
2211 notification varchar(16) NOT NULL,
2213 KEY (branchcode, categorycode, item_type, notification)
2214 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2217 $dbh->do(q{ ALTER TABLE `message_queue` ADD metadata text DEFAULT NULL AFTER content; });
2218 $dbh->do(q{ ALTER TABLE `message_queue` ADD letter_code varchar(64) DEFAULT NULL AFTER metadata; });
2221 INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2222 ('circulation','CHECKIN','Item Check-in','Check-ins','The following items have been checked in:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you.');
2225 INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
2226 ('circulation','CHECKOUT','Item Checkout','Checkouts','The following items have been checked out:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you for visiting <<branches.branchname>>.');
2229 $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (5, 'Item Check-in', 0);});
2230 $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (6, 'Item Checkout', 0);});
2232 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (5, 'email', 0, 'circulation', 'CHECKIN');});
2233 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (5, 'sms', 0, 'circulation', 'CHECKIN');});
2234 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (6, 'email', 0, 'circulation', 'CHECKOUT');});
2235 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (6, 'sms', 0, 'circulation', 'CHECKOUT');});
2237 print "Upgrade to $DBversion done (data for Email Checkout Slips project)\n";
2238 SetVersion ($DBversion);
2241 $DBversion = "3.01.00.014";
2242 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2243 $dbh->do("ALTER TABLE `branch_transfer_limits` CHANGE `itemtype` `itemtype` VARCHAR( 4 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL");
2244 $dbh->do("ALTER TABLE `branch_transfer_limits` ADD `ccode` VARCHAR( 10 ) NULL ;");
2245 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2247 'BranchTransferLimitsType', 'ccode', 'itemtype|ccode', 'When using branch transfer limits, choose whether to limit by itemtype or collection code.', 'Choice'
2250 print "Upgrade to $DBversion done ( Updated table for Branch Transfer Limits)\n";
2251 SetVersion ($DBversion);
2254 $DBversion = '3.01.00.015';
2255 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2256 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsClientCode', '0', 'Client Code for using Syndetics Solutions content','','free')");
2258 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEnabled', '0', 'Turn on Syndetics Enhanced Content','','YesNo')");
2260 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImages', '0', 'Display Cover Images from Syndetics','','YesNo')");
2262 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsTOC', '0', 'Display Table of Content information from Syndetics','','YesNo')");
2264 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSummary', '0', 'Display Summary Information from Syndetics','','YesNo')");
2266 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEditions', '0', 'Display Editions from Syndetics','','YesNo')");
2268 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsExcerpt', '0', 'Display Excerpts and first chapters on OPAC from Syndetics','','YesNo')");
2270 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsReviews', '0', 'Display Reviews on OPAC from Syndetics','','YesNo')");
2272 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAuthorNotes', '0', 'Display Notes about the Author on OPAC from Syndetics','','YesNo')");
2274 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAwards', '0', 'Display Awards on OPAC from Syndetics','','YesNo')");
2276 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSeries', '0', 'Display Series information on OPAC from Syndetics','','YesNo')");
2278 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImageSize', 'MC', 'Choose the size of the Syndetics Cover Image to display on the OPAC detail page, MC is Medium, LC is Large','MC|LC','Choice')");
2280 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonCoverImages', '0', 'Display cover images on OPAC from Amazon Web Services','','YesNo')");
2282 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonCoverImages', '0', 'Display Cover Images in Staff Client from Amazon Web Services','','YesNo')");
2284 $dbh->do("UPDATE systempreferences SET variable='AmazonEnabled' WHERE variable = 'AmazonContent'");
2286 $dbh->do("UPDATE systempreferences SET variable='OPACAmazonEnabled' WHERE variable = 'OPACAmazonContent'");
2288 print "Upgrade to $DBversion done (added Syndetics Enhanced Content system preferences)\n";
2289 SetVersion ($DBversion);
2292 $DBversion = "3.01.00.016";
2293 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2294 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('Babeltheque',0,'Turn ON Babeltheque content - See babeltheque.com to subscribe to this service','','YesNo')");
2295 print "Upgrade to $DBversion done (Added Babeltheque syspref)\n";
2296 SetVersion ($DBversion);
2299 $DBversion = "3.01.00.017";
2300 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2301 $dbh->do("ALTER TABLE `subscription` ADD `staffdisplaycount` VARCHAR(10) NULL;");
2302 $dbh->do("ALTER TABLE `subscription` ADD `opacdisplaycount` VARCHAR(10) NULL;");
2303 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2305 'StaffSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the Staff client', 'Integer'
2307 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2309 'OPACSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the OPAC', 'Integer'
2312 print "Upgrade to $DBversion done ( Updated table for Serials Display)\n";
2313 SetVersion ($DBversion);
2316 $DBversion = "3.01.00.018";
2317 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2318 $dbh->do("ALTER TABLE deletedborrowers ADD `smsalertnumber` varchar(50) default NULL");
2319 print "Upgrade to $DBversion done (added deletedborrowers.smsalertnumber, missed in 3.00.00.091)\n";
2320 SetVersion ($DBversion);
2323 $DBversion = "3.01.00.019";
2324 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2325 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowCheckoutName','0','Displays in the OPAC the name of patron who has checked out the material. WARNING: Most sites should leave this off. It is intended for corporate or special sites which need to track who has the item.','','YesNo')");
2326 print "Upgrade to $DBversion done (adding OPACShowCheckoutName systempref)\n";
2327 SetVersion ($DBversion);
2330 $DBversion = "3.01.00.020";
2331 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2332 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesID','','See:http://librarything.com/forlibraries/','','free')");
2333 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesEnabled','0','Enable or Disable Library Thing for Libraries Features','','YesNo')");
2334 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesTabbedView','0','Put LibraryThingForLibraries Content in Tabs.','','YesNo')");
2335 print "Upgrade to $DBversion done (adding LibraryThing for Libraries sysprefs)\n";
2336 SetVersion ($DBversion);
2339 $DBversion = "3.01.00.021";
2340 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2341 my $enable_reviews = C4::Context->preference('OPACAmazonEnabled') ? '1' : '0';
2342 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonReviews', '$enable_reviews', 'Display Amazon readers reviews on OPAC','','YesNo')");
2343 print "Upgrade to $DBversion done (adding OPACAmazonReviews syspref)\n";
2344 SetVersion ($DBversion);
2347 $DBversion = '3.01.00.022';
2348 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2349 $dbh->do("ALTER TABLE `labels_conf` MODIFY COLUMN `formatstring` mediumtext DEFAULT NULL");
2350 print "Upgrade to $DBversion done (bug 2945: increase size of labels_conf.formatstring)\n";
2351 SetVersion ($DBversion);
2354 $DBversion = '3.01.00.023';
2355 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2356 $dbh->do("ALTER TABLE biblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2357 $dbh->do("ALTER TABLE deletedbiblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2358 $dbh->do("ALTER TABLE import_biblios MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2359 $dbh->do("ALTER TABLE suggestions MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2360 print "Upgrade to $DBversion done (bug 2765: increase width of isbn column in several tables)\n";
2361 SetVersion ($DBversion);
2364 $DBversion = "3.01.00.024";
2365 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2366 $dbh->do("ALTER TABLE labels MODIFY COLUMN batch_id int(10) NOT NULL default 1;");
2367 print "Upgrade to $DBversion done (change labels.batch_id from varchar to int)\n";
2368 SetVersion ($DBversion);
2371 $DBversion = '3.01.00.025';
2372 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2373 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'ceilingDueDate', '', '', 'If set, date due will not be past this date. Enter date according to the dateformat System Preference', 'free')");
2375 print "Upgrade to $DBversion done (added ceilingDueDate system preference)\n";
2376 SetVersion ($DBversion);
2379 $DBversion = '3.01.00.026';
2380 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2381 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'numReturnedItemsToShow', '20', '', 'Number of returned items to show on the check-in page', 'Integer')");
2383 print "Upgrade to $DBversion done (added numReturnedItemsToShow system preference)\n";
2384 SetVersion ($DBversion);
2387 $DBversion = '3.01.00.027';
2388 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2389 $dbh->do("ALTER TABLE zebraqueue CHANGE `biblio_auth_number` `biblio_auth_number` bigint(20) unsigned NOT NULL default 0");
2390 print "Upgrade to $DBversion done (Increased size of zebraqueue biblio_auth_number to address bug 3148.)\n";
2391 SetVersion ($DBversion);
2394 $DBversion = '3.01.00.028';
2395 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2396 my $enable_reviews = C4::Context->preference('AmazonEnabled') ? '1' : '0';
2397 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonReviews', '$enable_reviews', 'Display Amazon reviews on staff interface','','YesNo')");
2398 print "Upgrade to $DBversion done (added AmazonReviews)\n";
2399 SetVersion ($DBversion);
2402 $DBversion = '3.01.00.029';
2403 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2404 $dbh->do(q( UPDATE language_rfc4646_to_iso639
2405 SET iso639_2_code = 'spa'
2406 WHERE rfc4646_subtag = 'es'
2407 AND iso639_2_code = 'rus' )
2409 print "Upgrade to $DBversion done (fixed bug 2599: using Spanish search limit retrieves Russian results)\n";
2410 SetVersion ($DBversion);
2413 $DBversion = "3.01.00.030";
2414 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2415 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'AllowNotForLoanOverride', '0', '', 'If ON, Koha will allow the librarian to loan a not for loan item.', 'YesNo')");
2416 print "Upgrade to $DBversion done (added AllowNotForLoanOverride system preference)\n";
2417 SetVersion ($DBversion);
2420 $DBversion = "3.01.00.031";
2421 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2422 $dbh->do("ALTER TABLE branch_transfer_limits
2423 MODIFY toBranch varchar(10) NOT NULL,
2424 MODIFY fromBranch varchar(10) NOT NULL,
2425 MODIFY itemtype varchar(10) NULL");
2426 print "Upgrade to $DBversion done (fix column widths in branch_transfer_limits)\n";
2427 SetVersion ($DBversion);
2430 $DBversion = "3.01.00.032";
2431 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2432 $dbh->do(<<ENDOFRENEWAL);
2433 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RenewalPeriodBase', 'now', 'Set whether the renewal date should be counted from the date_due or from the moment the Patron asks for renewal ','date_due|now','Choice');
2435 print "Upgrade to $DBversion done (Change the field)\n";
2436 SetVersion ($DBversion);
2439 $DBversion = "3.01.00.033";
2440 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2442 ALTER TABLE borrower_message_preferences
2443 MODIFY borrowernumber int(11) default NULL,
2444 ADD categorycode varchar(10) default NULL AFTER borrowernumber,
2445 ADD KEY `categorycode` (`categorycode`),
2446 ADD CONSTRAINT `borrower_message_preferences_ibfk_3`
2447 FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
2448 ON DELETE CASCADE ON UPDATE CASCADE
2450 print "Upgrade to $DBversion done (DB changes to allow patron category defaults for messaging preferences)\n";
2451 SetVersion ($DBversion);
2454 $DBversion = "3.01.00.034";
2455 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2456 $dbh->do("ALTER TABLE `subscription` ADD COLUMN `graceperiod` INT(11) NOT NULL default '0';");
2457 print "Upgrade to $DBversion done (Adding graceperiod column to subscription table)\n";
2458 SetVersion ($DBversion);
2461 $DBversion = '3.01.00.035';
2462 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2463 $dbh->do(q{ ALTER TABLE `subscription` ADD location varchar(80) NULL DEFAULT '' AFTER callnumber; });
2464 print "Upgrade to $DBversion done (Adding location to subscription table)\n";
2465 SetVersion ($DBversion);
2468 $DBversion = '3.01.00.036';
2469 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2470 $dbh->do("UPDATE systempreferences SET explanation = 'Choose the default detail view in the staff interface; choose between normal, labeled_marc, marc or isbd'
2471 WHERE variable = 'IntranetBiblioDefaultView'
2472 AND explanation = 'IntranetBiblioDefaultView'");
2473 $dbh->do("UPDATE systempreferences SET type = 'Choice', options = 'normal|marc|isbd|labeled_marc'
2474 WHERE variable = 'IntranetBiblioDefaultView'");
2475 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewISBD','1','Allow display of ISBD view of bibiographic records','','YesNo')");
2476 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewLabeledMARC','0','Allow display of labeled MARC view of bibiographic records','','YesNo')");
2477 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewMARC','1','Allow display of MARC view of bibiographic records','','YesNo')");
2478 print "Upgrade to $DBversion done (new viewISBD, viewLabeledMARC, viewMARC sysprefs and tweak IntranetBiblioDefaultView)\n";
2479 SetVersion ($DBversion);
2482 $DBversion = '3.01.00.037';
2483 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2484 $dbh->do('ALTER TABLE authorised_values ADD KEY `lib` (`lib`)');
2485 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('FilterBeforeOverdueReport','0','Do not run overdue report until filter selected','','YesNo')");
2486 SetVersion ($DBversion);
2487 print "Upgrade to $DBversion done (added FilterBeforeOverdueReport syspref and new index on authorised_values)\n";
2490 $DBversion = "3.01.00.038";
2491 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2492 # update branches table
2494 $dbh->do("ALTER TABLE branches ADD `branchzip` varchar(25) default NULL AFTER `branchaddress3`");
2495 $dbh->do("ALTER TABLE branches ADD `branchcity` mediumtext AFTER `branchzip`");
2496 $dbh->do("ALTER TABLE branches ADD `branchcountry` text AFTER `branchcity`");
2497 $dbh->do("ALTER TABLE branches ADD `branchurl` mediumtext AFTER `branchemail`");
2498 $dbh->do("ALTER TABLE branches ADD `branchnotes` mediumtext AFTER `branchprinter`");
2499 print "Upgrade to $DBversion done (add ZIP, city, country, URL, and notes column to branches)\n";
2500 SetVersion ($DBversion);
2503 $DBversion = '3.01.00.039';
2504 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2505 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('SpineLabelFormat', '<itemcallnumber><copynumber>', '30|10', 'This preference defines the format for the quick spine label printer. Just list the fields you would like to see in the order you would like to see them, surrounded by <>, for example <itemcallnumber>.', 'Textarea')");
2506 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('SpineLabelAutoPrint', '0', '', 'If this setting is turned on, a print dialog will automatically pop up for the quick spine label printer.', 'YesNo')");
2507 SetVersion ($DBversion);
2508 print "Upgrade to $DBversion done (added SpineLabelFormat and SpineLabelAutoPrint sysprefs)\n";
2511 $DBversion = '3.01.00.040';
2512 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2513 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('AllowHoldDateInFuture','0','If set a date field is displayed on the Hold screen of the Staff Interface, allowing the hold date to be set in the future.','','YesNo')");
2514 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('OPACAllowHoldDateInFuture','0','If set, along with the AllowHoldDateInFuture system preference, OPAC users can set the date of a hold to be in the future.','','YesNo')");
2515 SetVersion ($DBversion);
2516 print "Upgrade to $DBversion done (AllowHoldDateInFuture and OPACAllowHoldDateInFuture sysprefs)\n";
2519 $DBversion = '3.01.00.041';
2520 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2521 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSPrivateKey','','See: http://aws.amazon.com. Note that this is required after 2009/08/15 in order to retrieve any enhanced content other than book covers from Amazon.','','free')");
2522 SetVersion ($DBversion);
2523 print "Upgrade to $DBversion done (added AWSPrivateKey syspref - note that if you use enhanced content from Amazon, this should be set right away.)\n";
2526 $DBversion = '3.01.00.042';
2527 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2528 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACFineNoRenewals','99999','Fine Limit above which user canmot renew books via OPAC','','Integer')");
2529 SetVersion ($DBversion);
2530 print "Upgrade to $DBversion done (added OPACFineNoRenewals syspref)\n";
2533 $DBversion = '3.01.00.043';
2534 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2535 $dbh->do('ALTER TABLE items ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2536 $dbh->do('UPDATE items SET permanent_location = location');
2537 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'NewItemsDefaultLocation', '', '', 'If set, all new items will have a location of the given Location Code ( Authorized Value type LOC )', '')");
2538 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'InProcessingToShelvingCart', '0', '', 'If set, when any item with a location code of PROC is ''checked in'', it''s location code will be changed to CART.', 'YesNo')");
2539 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'ReturnToShelvingCart', '0', '', 'If set, when any item is ''checked in'', it''s location code will be changed to CART.', 'YesNo')");
2540 SetVersion ($DBversion);
2541 print "Upgrade to $DBversion done (amended Item added NewItemsDefaultLocation, InProcessingToShelvingCart, ReturnToShelvingCart sysprefs)\n";
2544 $DBversion = '3.01.00.044';
2545 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2546 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES( 'DisplayClearScreenButton', '0', 'If set to yes, a clear screen button will appear on the circulation page.', 'If set to yes, a clear screen button will appear on the circulation page.', 'YesNo')");
2547 SetVersion ($DBversion);
2548 print "Upgrade to $DBversion done (added DisplayClearScreenButton system preference)\n";
2551 $DBversion = '3.01.00.045';
2552 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2553 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('HidePatronName', '0', '', 'If this is switched on, patron''s cardnumber will be shown instead of their name on the holds and catalog screens', 'YesNo')");
2554 SetVersion ($DBversion);
2555 print "Upgrade to $DBversion done (added a preference to hide the patrons name in the staff catalog)\n";
2558 $DBversion = "3.01.00.046";
2559 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2560 # update borrowers table
2562 $dbh->do("ALTER TABLE borrowers ADD `country` text AFTER zipcode");
2563 $dbh->do("ALTER TABLE borrowers ADD `B_country` text AFTER B_zipcode");
2564 $dbh->do("ALTER TABLE deletedborrowers ADD `country` text AFTER zipcode");
2565 $dbh->do("ALTER TABLE deletedborrowers ADD `B_country` text AFTER B_zipcode");
2566 print "Upgrade to $DBversion done (add country and B_country to borrowers)\n";
2567 SetVersion ($DBversion);
2570 $DBversion = '3.01.00.047';
2571 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2572 $dbh->do("ALTER TABLE items MODIFY itemcallnumber varchar(255);");
2573 $dbh->do("ALTER TABLE deleteditems MODIFY itemcallnumber varchar(255);");
2574 $dbh->do("ALTER TABLE tmp_holdsqueue MODIFY itemcallnumber varchar(255);");
2575 SetVersion ($DBversion);
2576 print " Upgrade to $DBversion done (bug 2761: change max length of itemcallnumber to 255 from 30)\n";
2579 $DBversion = '3.01.00.048';
2580 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2581 $dbh->do("UPDATE userflags SET flagdesc='View Catalog (Librarian Interface)' WHERE bit=2;");
2582 $dbh->do("UPDATE userflags SET flagdesc='Edit Catalog (Modify bibliographic/holdings data)' WHERE bit=9;");
2583 $dbh->do("UPDATE userflags SET flagdesc='Allow to edit authorities' WHERE bit=14;");
2584 $dbh->do("UPDATE userflags SET flagdesc='Allow to access to the reports module' WHERE bit=16;");
2585 $dbh->do("UPDATE userflags SET flagdesc='Allow to manage serials subscriptions' WHERE bit=15;");
2586 SetVersion ($DBversion);
2587 print " Upgrade to $DBversion done (bug 2611: fix spelling/capitalization in permission flag descriptions)\n";
2590 $DBversion = '3.01.00.049';
2591 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2592 $dbh->do("UPDATE permissions SET description = 'Perform inventory (stocktaking) of your catalog' WHERE code = 'inventory';");
2593 SetVersion ($DBversion);
2594 print "Upgrade to $DBversion done (bug 2611: changed catalogue to catalog per the standard)\n";
2597 $DBversion = '3.01.00.050';
2598 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2599 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACSearchForTitleIn','<li class=\"yuimenuitem\">\n<a target=\"_blank\" class=\"yuimenuitemlabel\" href=\"http://worldcat.org/search?q=TITLE\">Other Libraries (WorldCat)</a></li>\n<li class=\"yuimenuitem\">\n<a class=\"yuimenuitemlabel\" href=\"http://www.scholar.google.com/scholar?q=TITLE\" target=\"_blank\">Other Databases (Google Scholar)</a></li>\n<li class=\"yuimenuitem\">\n<a class=\"yuimenuitemlabel\" href=\"http://www.bookfinder.com/search/?author=AUTHOR&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');");
2600 SetVersion ($DBversion);
2601 print "Upgrade to $DBversion done (bug 1934: Add OPACSearchForTitleIn syspref)\n";
2604 $DBversion = '3.01.00.051';
2605 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2606 $dbh->do("UPDATE systempreferences SET explanation='Fine limit above which user cannot renew books via OPAC' WHERE variable='OPACFineNoRenewals';");
2607 $dbh->do("UPDATE systempreferences SET explanation='If set to ON, a clear screen button will appear on the circulation page.' WHERE variable='DisplayClearScreenButton';");
2608 SetVersion ($DBversion);
2609 print "Upgrade to $DBversion done (fixed typos in new sysprefs)\n";
2612 $DBversion = '3.01.00.052';
2613 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2614 $dbh->do('ALTER TABLE deleteditems ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2615 SetVersion ($DBversion);
2616 print "Upgrade to $DBversion done (bug 3481: add permanent_location column to deleteditems)\n";
2619 $DBversion = '3.01.00.053';
2620 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2621 my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/labels_upgrade.pl";
2622 system("perl $upgrade_script");
2623 print "Upgrade to $DBversion done (Migrated labels tables and data to new schema.) NOTE: All existing label batches have been assigned to the first branch in the list of branches. This is ONLY true of migrated label batches.\n";
2624 SetVersion ($DBversion);
2627 $DBversion = '3.01.00.054';
2628 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2629 $dbh->do("ALTER TABLE borrowers ADD `B_address2` text AFTER B_address");
2630 $dbh->do("ALTER TABLE borrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2631 $dbh->do("ALTER TABLE deletedborrowers ADD `B_address2` text AFTER B_address");
2632 $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2633 SetVersion ($DBversion);
2634 print "Upgrade to $DBversion done (bug 1600, bug 3454: add altcontactcountry and B_address2 to borrowers and deletedborrowers)\n";
2637 $DBversion = '3.01.00.055';
2638 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2639 $dbh->do(qq|UPDATE systempreferences set explanation='Enter the HTML that will appear in the ''Search for this title in'' box on the detail page in the OPAC. Enter {TITLE}, {AUTHOR}, or {ISBN} in place of their respective variables in the URL. Leave blank to disable ''More Searches'' menu.', value='<li><a href="http://worldcat.org/search?q={TITLE}" target="_blank">Other Libraries (WorldCat)</a></li>\n<li><a href="http://www.scholar.google.com/scholar?q={TITLE}" target="_blank">Other Databases (Google Scholar)</a></li>\n<li><a href="http://www.bookfinder.com/search/?author={AUTHOR}&title={TITLE}&st=xl&ac=qr" target="_blank">Online Stores (Bookfinder.com)</a></li>' WHERE variable='OPACSearchForTitleIn'|);
2640 SetVersion ($DBversion);
2641 print "Upgrade to $DBversion done (changed OPACSearchForTitleIn per requests in bug 1934)\n";
2644 $DBversion = '3.01.00.056';
2645 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2646 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACPatronDetails','1','If OFF the patron details tab in the OPAC is disabled.','','YesNo');");
2647 SetVersion ($DBversion);
2648 print "Upgrade to $DBversion done (Bug 1172 : Add OPACPatronDetails syspref)\n";
2651 $DBversion = '3.01.00.057';
2652 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2653 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACFinesTab','1','If OFF the patron fines tab in the OPAC is disabled.','','YesNo');");
2654 SetVersion ($DBversion);
2655 print "Upgrade to $DBversion done (Bug 2576 : Add OPACFinesTab syspref)\n";
2658 $DBversion = '3.01.00.058';
2659 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2660 $dbh->do("ALTER TABLE `language_subtag_registry` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2661 $dbh->do("ALTER TABLE `language_rfc4646_to_iso639` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2662 $dbh->do("ALTER TABLE `language_descriptions` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2663 SetVersion ($DBversion);
2664 print "Upgrade to $DBversion done (Added primary keys to language tables)\n";
2667 $DBversion = '3.01.00.059';
2668 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2669 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('DisplayOPACiconsXSLT', '1', '', 'If ON, displays the format, audience, type icons in XSLT MARC21 results and display pages.', 'YesNo')");
2670 SetVersion ($DBversion);
2671 print "Upgrade to $DBversion done (added DisplayOPACiconsXSLT sysprefs)\n";
2674 $DBversion = '3.01.00.060';
2675 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2676 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowAllMessageDeletion','0','Allow any Library to delete any message','','YesNo');");
2677 $dbh->do('DROP TABLE IF EXISTS messages');
2678 $dbh->do("CREATE TABLE messages ( `message_id` int(11) NOT NULL auto_increment,
2679 `borrowernumber` int(11) NOT NULL,
2680 `branchcode` varchar(4) default NULL,
2681 `message_type` varchar(1) NOT NULL,
2682 `message` text NOT NULL,
2683 `message_date` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,
2684 PRIMARY KEY (`message_id`)
2685 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
2687 print "Upgrade to $DBversion done ( Added AllowAllMessageDeletion syspref and messages table )\n";
2688 SetVersion ($DBversion);
2691 $DBversion = '3.01.00.061';
2692 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2693 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('ShowPatronImageInWebBasedSelfCheck', '0', 'If ON, displays patron image when a patron uses web-based self-checkout', '', 'YesNo')");
2694 print "Upgrade to $DBversion done ( Added ShowPatronImageInWebBasedSelfCheck system preference )\n";
2695 SetVersion ($DBversion);
2698 $DBversion = "3.01.00.062";
2699 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2700 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'manage_csv_profiles', 'Manage CSV export profiles')");
2702 CREATE TABLE `export_format` (
2703 `export_format_id` int(11) NOT NULL auto_increment,
2704 `profile` varchar(255) NOT NULL,
2705 `description` mediumtext NOT NULL,
2706 `marcfields` mediumtext NOT NULL,
2707 PRIMARY KEY (`export_format_id`)
2708 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Used for CSV export';
2710 print "Upgrade to $DBversion done (added csv export profiles)\n";
2713 $DBversion = "3.01.00.063";
2714 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2716 CREATE TABLE `fieldmapping` (
2717 `id` int(11) NOT NULL auto_increment,
2718 `field` varchar(255) NOT NULL,
2719 `frameworkcode` char(4) NOT NULL default '',
2720 `fieldcode` char(3) NOT NULL,
2721 `subfieldcode` char(1) NOT NULL,
2723 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2725 SetVersion ($DBversion);print "Upgrade to $DBversion done (Created table fieldmapping)\n";print "Upgrade to 3.01.00.064 done (Version number skipped: nothing done)\n";
2728 $DBversion = '3.01.00.065';
2729 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2730 $dbh->do('ALTER TABLE issuingrules ADD COLUMN `renewalsallowed` smallint(6) NOT NULL default "0" AFTER `issuelength`;');
2731 $sth = $dbh->prepare("SELECT itemtype, renewalsallowed FROM itemtypes");
2734 my $sthupd = $dbh->prepare("UPDATE issuingrules SET renewalsallowed = ? WHERE itemtype = ?");
2736 while(my $row = $sth->fetchrow_hashref){
2737 $sthupd->execute($row->{renewalsallowed}, $row->{itemtype});
2740 $dbh->do('ALTER TABLE itemtypes DROP COLUMN `renewalsallowed`;');
2742 SetVersion ($DBversion);
2743 print "Upgrade to $DBversion done (Moving allowed renewals from itemtypes to issuingrule)\n";
2746 $DBversion = '3.01.00.066';
2747 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2748 $dbh->do('ALTER TABLE issuingrules ADD COLUMN `reservesallowed` smallint(6) NOT NULL default "0" AFTER `renewalsallowed`;');
2750 my $maxreserves = C4::Context->preference('maxreserves');
2751 $sth = $dbh->prepare('UPDATE issuingrules SET reservesallowed = ?;');
2752 $sth->execute($maxreserves);
2754 $dbh->do('DELETE FROM systempreferences WHERE variable = "maxreserves";');
2756 $dbh->do("INSERT INTO systempreferences (variable,value, options, explanation, type) VALUES('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights','Choice')");
2758 SetVersion ($DBversion);
2759 print "Upgrade to $DBversion done (Moving max allowed reserves from system preference to issuingrule)\n";
2762 $DBversion = "3.01.00.067";
2763 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2764 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchmod', 'Perform batch modification of items')");
2765 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchdel', 'Perform batch deletion of items')");
2766 print "Upgrade to $DBversion done (added permissions for batch modification and deletion)\n";
2767 SetVersion ($DBversion);
2770 $DBversion = "3.01.00.068";
2771 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2772 $dbh->do("ALTER TABLE issuingrules ADD COLUMN `finedays` int(11) default NULL AFTER `fine` ");
2773 print "Upgrade to $DBversion done (Adding finedays in issuingrules table)\n";
2774 SetVersion ($DBversion);
2778 $DBversion = "3.01.00.069";
2779 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2780 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('EnableOpacSearchHistory', '1', '', 'Enable or disable opac search history', 'YesNo')");
2782 my $create = <<SEARCHHIST;
2783 CREATE TABLE IF NOT EXISTS `search_history` (
2784 `userid` int(11) NOT NULL,
2785 `sessionid` varchar(32) NOT NULL,
2786 `query_desc` varchar(255) NOT NULL,
2787 `query_cgi` varchar(255) NOT NULL,
2788 `total` int(11) NOT NULL,
2789 `time` timestamp NOT NULL default CURRENT_TIMESTAMP,
2790 KEY `userid` (`userid`),
2791 KEY `sessionid` (`sessionid`)
2792 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Opac search history results';
2796 print "Upgrade to $DBversion done (added OPAC search history preference and table)\n";
2799 $DBversion = "3.01.00.070";
2800 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2801 $dbh->do("ALTER TABLE authorised_values ADD COLUMN `lib_opac` VARCHAR(80) default NULL AFTER `lib`");
2802 print "Upgrade to $DBversion done (Added a lib_opac field in authorised_values table)\n";
2805 $DBversion = "3.01.00.071";
2806 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2807 $dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");
2808 $dbh->do("ALTER TABLE subscriptionhistory CHANGE enddate histenddate DATE default NULL");
2809 print "Upgrade to $DBversion done ( Adding enddate to subscription)\n";
2812 # Acquisitions update
2814 $DBversion = "3.01.00.072";
2815 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2816 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacPrivacy', '0', 'if ON, allows patrons to define their privacy rules (reading history)',NULL,'YesNo')");
2817 # create a new syspref for the 'Mr anonymous' patron
2818 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AnonymousPatron', '0', \"Set the identifier (borrowernumber) of the 'Mister anonymous' patron. Used for Suggestion and reading history privacy\",NULL,'')");
2819 # fill AnonymousPatron with AnonymousSuggestion value (copy)
2820 my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='AnonSuggestions'");
2822 my ($value) = $sth->fetchrow() || 0;
2823 $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='AnonymousPatron'");
2824 # set AnonymousSuggestion do YesNo
2825 # 1st, set the value (1/True if it had a borrowernumber)
2826 $dbh->do("UPDATE systempreferences SET value=1 WHERE variable='AnonSuggestions' AND value>0");
2827 # 2nd, change the type to Choice
2828 $dbh->do("UPDATE systempreferences SET type='YesNo' WHERE variable='AnonSuggestions'");
2829 # borrower reading record privacy : 0 : forever, 1 : laws, 2 : don't keep at all
2830 $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
2831 print "Upgrade to $DBversion done (add new syspref and column in borrowers)\n";
2832 SetVersion ($DBversion);
2835 $DBversion = '3.01.00.073';
2836 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2837 $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2838 $dbh->do(<<'END_SQL');
2839 CREATE TABLE IF NOT EXISTS `aqcontract` (
2840 `contractnumber` int(11) NOT NULL auto_increment,
2841 `contractstartdate` date default NULL,
2842 `contractenddate` date default NULL,
2843 `contractname` varchar(50) default NULL,
2844 `contractdescription` mediumtext,
2845 `booksellerid` int(11) not NULL,
2846 PRIMARY KEY (`contractnumber`),
2847 CONSTRAINT `booksellerid_fk1` FOREIGN KEY (`booksellerid`)
2848 REFERENCES `aqbooksellers` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
2849 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
2851 $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2852 print "Upgrade to $DBversion done (adding aqcontract table)\n";
2853 SetVersion ($DBversion);
2856 $DBversion = '3.01.00.074';
2857 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2858 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `basketname` varchar(50) default NULL AFTER `basketno`");
2859 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `note` mediumtext AFTER `basketname`");
2860 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `booksellernote` mediumtext AFTER `note`");
2861 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `contractnumber` int(11) AFTER `booksellernote`");
2862 $dbh->do("ALTER TABLE `aqbasket` ADD FOREIGN KEY (`contractnumber`) REFERENCES `aqcontract` (`contractnumber`)");
2863 print "Upgrade to $DBversion done (edit aqbasket table done)\n";
2864 SetVersion ($DBversion);
2867 $DBversion = '3.01.00.075';
2868 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2869 $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `uncertainprice` tinyint(1)");
2871 print "Upgrade to $DBversion done (adding uncertainprices)\n";
2872 SetVersion ($DBversion);
2875 $DBversion = '3.01.00.076';
2876 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2877 $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2878 $dbh->do("CREATE TABLE IF NOT EXISTS `aqbasketgroups` (
2879 `id` int(11) NOT NULL auto_increment,
2880 `name` varchar(50) default NULL,
2881 `closed` tinyint(1) default NULL,
2882 `booksellerid` int(11) NOT NULL,
2884 KEY `booksellerid` (`booksellerid`),
2885 CONSTRAINT `aqbasketgroups_ibfk_1` FOREIGN KEY (`booksellerid`) REFERENCES `aqbooksellers` (`id`) ON UPDATE CASCADE ON DELETE CASCADE
2886 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
2887 $dbh->do("ALTER TABLE aqbasket ADD COLUMN `basketgroupid` int(11)");
2888 $dbh->do("ALTER TABLE aqbasket ADD FOREIGN KEY (`basketgroupid`) REFERENCES `aqbasketgroups` (`id`) ON UPDATE CASCADE ON DELETE SET NULL");
2889 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('pdfformat','pdfformat::layout2pages','Controls what script is used for printing (basketgroups)','','free')");
2890 $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2891 print "Upgrade to $DBversion done (adding basketgroups)\n";
2892 SetVersion ($DBversion);
2894 $DBversion = '3.01.00.077';
2895 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2897 $dbh->do("SET FOREIGN_KEY_CHECKS=0 ");
2898 # create a mapping table holding the info we need to match orders to budgets
2899 $dbh->do('DROP TABLE IF EXISTS fundmapping');
2901 q|CREATE TABLE fundmapping AS
2902 SELECT aqorderbreakdown.ordernumber, branchcode, bookfundid, budgetdate, entrydate
2903 FROM aqorderbreakdown JOIN aqorders ON aqorderbreakdown.ordernumber = aqorders.ordernumber|);
2904 # match the new type of the corresponding field
2905 $dbh->do('ALTER TABLE fundmapping modify column bookfundid varchar(30)');
2906 # System did not ensure budgetdate was valid historically
2907 $dbh->do(q|UPDATE fundmapping SET budgetdate = entrydate WHERE budgetdate = '0000-00-00' OR budgetdate IS NULL|);
2908 # We save the map in fundmapping in case you need later processing
2909 $dbh->do(q|ALTER TABLE fundmapping add column aqbudgetid integer|);
2910 # these can speed processing up
2911 $dbh->do(q|CREATE INDEX fundmaporder ON fundmapping (ordernumber)|);
2912 $dbh->do(q|CREATE INDEX fundmapid ON fundmapping (bookfundid)|);
2914 $dbh->do("DROP TABLE IF EXISTS `aqbudgetperiods` ");
2917 CREATE TABLE `aqbudgetperiods` (
2918 `budget_period_id` int(11) NOT NULL auto_increment,
2919 `budget_period_startdate` date NOT NULL,
2920 `budget_period_enddate` date NOT NULL,
2921 `budget_period_active` tinyint(1) default '0',
2922 `budget_period_description` mediumtext,
2923 `budget_period_locked` tinyint(1) default NULL,
2924 `sort1_authcat` varchar(10) default NULL,
2925 `sort2_authcat` varchar(10) default NULL,
2926 PRIMARY KEY (`budget_period_id`)
2927 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |);
2929 $dbh->do(<<ADDPERIODS);
2930 INSERT INTO aqbudgetperiods (budget_period_startdate,budget_period_enddate,budget_period_active,budget_period_description,budget_period_locked)
2931 SELECT DISTINCT startdate, enddate, NOW() BETWEEN startdate and enddate, concat(startdate," ",enddate),NOT NOW() BETWEEN startdate AND enddate from aqbudget
2933 # SORRY , NO AQBUDGET/AQBOOKFUND -> AQBUDGETS IMPORT JUST YET,
2934 # BUT A NEW CLEAN AQBUDGETS TABLE CREATE FOR NOW..
2935 # DROP TABLE IF EXISTS `aqbudget`;
2936 #CREATE TABLE `aqbudget` (
2937 # `bookfundid` varchar(10) NOT NULL default ',
2938 # `startdate` date NOT NULL default 0,
2939 # `enddate` date default NULL,
2940 # `budgetamount` decimal(13,2) default NULL,
2941 # `aqbudgetid` tinyint(4) NOT NULL auto_increment,
2942 # `branchcode` varchar(10) default NULL,
2943 DropAllForeignKeys('aqbudget');
2944 #$dbh->do("drop table aqbudget;");
2947 my $maxbudgetid = $dbh->selectcol_arrayref(<<IDsBUDGET);
2948 SELECT MAX(aqbudgetid) from aqbudget
2951 $$maxbudgetid[0] = 0 if !$$maxbudgetid[0];
2953 $dbh->do(<<BUDGETAUTOINCREMENT);
2954 ALTER TABLE aqbudget AUTO_INCREMENT=$$maxbudgetid[0]
2957 $dbh->do(<<BUDGETNAME);
2958 ALTER TABLE aqbudget RENAME `aqbudgets`
2961 $dbh->do(<<BUDGETS);
2962 ALTER TABLE `aqbudgets`
2963 CHANGE COLUMN aqbudgetid `budget_id` int(11) NOT NULL AUTO_INCREMENT,
2964 CHANGE COLUMN branchcode `budget_branchcode` varchar(10) default NULL,
2965 CHANGE COLUMN budgetamount `budget_amount` decimal(28,6) NOT NULL default '0.00',
2966 CHANGE COLUMN bookfundid `budget_code` varchar(30) default NULL,
2967 ADD COLUMN `budget_parent_id` int(11) default NULL,
2968 ADD COLUMN `budget_name` varchar(80) default NULL,
2969 ADD COLUMN `budget_encumb` decimal(28,6) default '0.00',
2970 ADD COLUMN `budget_expend` decimal(28,6) default '0.00',
2971 ADD COLUMN `budget_notes` mediumtext,
2972 ADD COLUMN `budget_description` mediumtext,
2973 ADD COLUMN `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
2974 ADD COLUMN `budget_amount_sublevel` decimal(28,6) AFTER `budget_amount`,
2975 ADD COLUMN `budget_period_id` int(11) default NULL,
2976 ADD COLUMN `sort1_authcat` varchar(80) default NULL,
2977 ADD COLUMN `sort2_authcat` varchar(80) default NULL,
2978 ADD COLUMN `budget_owner_id` int(11) default NULL,
2979 ADD COLUMN `budget_permission` int(1) default '0';
2982 $dbh->do(<<BUDGETCONSTRAINTS);
2983 ALTER TABLE `aqbudgets`
2984 ADD CONSTRAINT `aqbudgets_ifbk_1` FOREIGN KEY (`budget_period_id`) REFERENCES `aqbudgetperiods` (`budget_period_id`) ON DELETE CASCADE ON UPDATE CASCADE
2986 # $dbh->do(<<BUDGETPKDROP);
2987 #ALTER TABLE `aqbudgets`
2990 # $dbh->do(<<BUDGETPKADD);
2991 #ALTER TABLE `aqbudgets`
2992 # ADD PRIMARY KEY budget_id
2996 my $query_period= $dbh->prepare(qq|SELECT budget_period_id from aqbudgetperiods where budget_period_startdate=? and budget_period_enddate=?|);
2997 my $query_bookfund= $dbh->prepare(qq|SELECT * from aqbookfund where bookfundid=?|);
2998 my $selectbudgets=$dbh->prepare(qq|SELECT * from aqbudgets|);
2999 my $updatebudgets=$dbh->prepare(qq|UPDATE aqbudgets SET budget_period_id= ? , budget_name=?, budget_branchcode=? where budget_id=?|);
3000 $selectbudgets->execute;
3001 while (my $databudget=$selectbudgets->fetchrow_hashref){
3002 $query_period->execute ($$databudget{startdate},$$databudget{enddate});
3003 my ($budgetperiodid)=$query_period->fetchrow;
3004 $query_bookfund->execute ($$databudget{budget_code});
3005 my $databf=$query_bookfund->fetchrow_hashref;
3006 my $branchcode=$$databudget{budget_branchcode}||$$databf{branchcode};
3007 $updatebudgets->execute($budgetperiodid,$$databf{bookfundname},$branchcode,$$databudget{budget_id});
3009 $dbh->do(<<BUDGETDROPDATES);
3010 ALTER TABLE `aqbudgets`
3016 $dbh->do("DROP TABLE IF EXISTS `aqbudgets_planning` ");
3017 $dbh->do("CREATE TABLE `aqbudgets_planning` (
3018 `plan_id` int(11) NOT NULL auto_increment,
3019 `budget_id` int(11) NOT NULL,
3020 `budget_period_id` int(11) NOT NULL,
3021 `estimated_amount` decimal(28,6) default NULL,
3022 `authcat` varchar(30) NOT NULL,
3023 `authvalue` varchar(30) NOT NULL,
3024 `display` tinyint(1) DEFAULT 1,
3025 PRIMARY KEY (`plan_id`),
3026 CONSTRAINT `aqbudgets_planning_ifbk_1` FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON DELETE CASCADE ON UPDATE CASCADE
3027 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
3029 $dbh->do("ALTER TABLE `aqorders`
3030 ADD COLUMN `budget_id` tinyint(4) NOT NULL,
3031 ADD COLUMN `budgetgroup_id` int(11) NOT NULL,
3032 ADD COLUMN `sort1_authcat` varchar(10) default NULL,
3033 ADD COLUMN `sort2_authcat` varchar(10) default NULL" );
3034 # We need to map the orders to the budgets
3035 # For Historic reasons this is more complex than it should be on occasions
3036 my $budg_arr = $dbh->selectall_arrayref(
3037 q|SELECT aqbudgets.budget_id, aqbudgets.budget_code, aqbudgetperiods.budget_period_startdate,
3038 aqbudgetperiods.budget_period_enddate
3039 FROM aqbudgets JOIN aqbudgetperiods ON aqbudgets.budget_period_id = aqbudgetperiods.budget_period_id
3040 ORDER BY budget_code, budget_period_startdate|, { Slice => {} });
3041 # We arbitarily order on start date, this means if you have overlapping periods the order will be
3042 # linked to the latest matching budget YMMV
3043 my $b_sth = $dbh->prepare(
3044 'UPDATE fundmapping set aqbudgetid = ? where bookfundid =? AND budgetdate >= ? AND budgetdate <= ?');
3045 for my $b ( @{$budg_arr}) {
3046 $b_sth->execute($b->{budget_id}, $b->{budget_code}, $b->{budget_period_startdate}, $b->{budget_period_enddate});
3048 # move the budgetids to aqorders
3049 $dbh->do(q|UPDATE aqorders, fundmapping SET aqorders.budget_id = fundmapping.aqbudgetid
3050 WHERE aqorders.ordernumber = fundmapping.ordernumber AND fundmapping.aqbudgetid IS NOT NULL|);
3051 # NB fundmapping is left as an accontants trail also if you have budgetids that werent set
3052 # you can decide what to do with them
3055 q|UPDATE aqorders, aqbudgets SET aqorders.budgetgroup_id = aqbudgets.budget_period_id
3056 WHERE aqorders.budget_id = aqbudgets.budget_id|);
3057 # cannot do until aqorderbreakdown removed
3058 # $dbh->do("DROP TABLE aqbookfund ");
3059 # $dbh->do("ALTER TABLE aqorders ADD FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON UPDATE CASCADE " ); ????
3060 $dbh->do("SET FOREIGN_KEY_CHECKS=1 ");
3062 print "Upgrade to $DBversion done (Adding new aqbudgetperiods, aqbudgets and aqbudget_planning tables )\n";
3063 SetVersion ($DBversion);
3068 $DBversion = '3.01.00.078';
3069 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3070 $dbh->do("ALTER TABLE aqbudgetperiods ADD COLUMN budget_period_total decimal(28,6)");
3071 print "Upgrade to $DBversion done (adds 'budget_period_total' column to aqbudgetperiods table)\n";
3072 SetVersion($DBversion);
3076 $DBversion = '3.01.00.079';
3077 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3078 $dbh->do("ALTER TABLE currency ADD COLUMN active tinyint(1)");
3080 print "Upgrade to $DBversion done (adds 'active' column to currencies table)\n";
3081 SetVersion($DBversion);
3084 $DBversion = '3.01.00.080';
3085 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3086 $dbh->do(<<BUDG_PERM );
3087 INSERT INTO permissions (module_bit, code, description) VALUES
3088 (11, 'vendors_manage', 'Manage vendors'),
3089 (11, 'contracts_manage', 'Manage contracts'),
3090 (11, 'period_manage', 'Manage periods'),
3091 (11, 'budget_manage', 'Manage budgets'),
3092 (11, 'budget_modify', "Modify budget (can't create lines but can modify existing ones)"),
3093 (11, 'planning_manage', 'Manage budget plannings'),
3094 (11, 'order_manage', 'Manage orders & basket'),
3095 (11, 'group_manage', 'Manage orders & basketgroups'),
3096 (11, 'order_receive', 'Manage orders & basket'),
3097 (11, 'budget_add_del', "Add and delete budgets (but can't modify budgets)");
3100 print "Upgrade to $DBversion done (adds permissions for the acquisitions module)\n";
3101 SetVersion($DBversion);
3105 $DBversion = '3.01.00.081';
3106 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3107 $dbh->do("ALTER TABLE aqbooksellers ADD COLUMN `gstrate` decimal(6,4) default NULL");
3108 if (my $gist=C4::Context->preference("gist")){
3109 my $sql=$dbh->prepare("UPDATE aqbooksellers set `gstrate`=? ");
3110 $sql->execute($gist) ;
3112 print "Upgrade to $DBversion done (added per-supplier gstrate setting)\n";
3113 SetVersion($DBversion);
3116 $DBversion = "3.01.00.082";
3117 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3118 if (C4::Context->preference("opaclanguages") eq "fr") {
3119 $dbh->do(qq#INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AcqCreateItem','ordering',"Définit quand l'exemplaire est créé : à la commande, à la livraison, au catalogage",'ordering|receiving|cataloguing','Choice')#);
3121 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AcqCreateItem','ordering','Define when the item is created : when ordering, when receiving, or in cataloguing module','ordering|receiving|cataloguing','Choice')");
3123 print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
3124 SetVersion ($DBversion);
3127 $DBversion = "3.01.00.083";
3128 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3130 CREATE TABLE `aqorders_items` (
3131 `ordernumber` int(11) NOT NULL,
3132 `itemnumber` int(11) NOT NULL,
3133 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
3134 PRIMARY KEY (`itemnumber`),
3135 KEY `ordernumber` (`ordernumber`)
3136 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |
3139 $dbh->do(qq| DROP TABLE aqorderbreakdown |);
3140 $dbh->do('DROP TABLE aqbookfund');
3141 print "Upgrade to $DBversion done (New aqorders_items table for acqui)\n";
3142 SetVersion ($DBversion);
3145 $DBversion = "3.01.00.084";
3146 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3147 $dbh->do( qq# INSERT INTO `systempreferences` VALUES ('CurrencyFormat','US','US|FR','Determines the display format of currencies. eg: ''36000'' is displayed as ''360 000,00'' in ''FR'' or 360,000.00'' in ''US''.','Choice') #);
3149 print "Upgrade to $DBversion done (CurrencyFormat syspref added)\n";
3150 SetVersion ($DBversion);
3153 $DBversion = "3.01.00.085";
3154 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3155 $dbh->do("ALTER table aqorders drop column title");
3156 $dbh->do("ALTER TABLE `aqorders` CHANGE `budget_id` `budget_id` INT( 11 ) NOT NULL");
3157 print "Upgrade to $DBversion done update budget_id size that should not be a tinyint\n";
3158 SetVersion ($DBversion);
3161 $DBversion = "3.01.00.086";
3162 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3163 $dbh->do(<<SUGGESTIONS);
3164 ALTER table suggestions
3165 ADD budgetid INT(11),
3166 ADD branchcode VARCHAR(10) default NULL,
3167 ADD acceptedby INT(11) default NULL,
3168 ADD accepteddate date default NULL,
3169 ADD suggesteddate date default NULL,
3170 ADD manageddate date default NULL,
3171 ADD rejectedby INT(11) default NULL,
3172 ADD rejecteddate date default NULL,
3173 ADD collectiontitle text default NULL,
3174 ADD itemtype VARCHAR(30) default NULL
3177 print "Upgrade to $DBversion done (Suggestions)\n";
3178 SetVersion ($DBversion);
3181 $DBversion = "3.01.00.087";
3182 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3183 $dbh->do("ALTER table aqbudgets drop column budget_amount_sublevel;");
3184 print "Upgrade to $DBversion done (Drop column budget_amount_sublevel from aqbudgets)\n";
3185 SetVersion ($DBversion);
3188 $DBversion = "3.01.00.088";
3189 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3190 $dbh->do( qq# INSERT INTO `systempreferences` VALUES ('intranetbookbag','1','','If ON, enables display of Cart feature in the intranet','YesNo') #);
3192 print "Upgrade to $DBversion done (intranetbookbag syspref added)\n";
3193 SetVersion ($DBversion);
3196 $DBversion = "3.01.00.090";
3197 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3199 INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3200 (16, 'execute_reports', 'Execute SQL reports'),
3201 (16, 'create_reports', 'Create SQL Reports')
3204 print "Upgrade to $DBversion done (granular permissions for guided reports added)\n";
3205 SetVersion ($DBversion);
3208 $DBversion = "3.01.00.091";
3209 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3211 UPDATE `systempreferences` SET `options` = 'holdings|serialcollection|subscriptions'
3212 WHERE `systempreferences`.`variable` = 'opacSerialDefaultTab' LIMIT 1
3215 print "Upgrade to $DBversion done (opac-detail default tag updated)\n";
3216 SetVersion ($DBversion);
3219 $DBversion = "3.01.00.092";
3220 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3221 if (C4::Context->preference("opaclanguages") =~ /fr/) {
3223 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('RoutingListAddReserves','1','Si activé, des reservations sont automatiquement créées pour chaque lecteur de la liste de circulation d''un numéro de périodique','','YesNo');
3227 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('RoutingListAddReserves','1','If ON the patrons on routing lists are automatically added to holds on the issue.','','YesNo');
3230 print "Upgrade to $DBversion done (Added RoutingListAddReserves syspref)\n";
3231 SetVersion ($DBversion);
3234 $DBversion = "3.01.00.093";
3235 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3237 ALTER TABLE biblioitems ADD INDEX issn_idx (issn);
3239 print "Upgrade to $DBversion done (added index to ISSN)\n";
3240 SetVersion ($DBversion);
3243 $DBversion = "3.01.00.094";
3244 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3246 ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10) default NULL, ADD deliverycomment VARCHAR(255) default NULL;
3249 print "Upgrade to $DBversion done (adding deliveryplace deliverycomment to basketgroups)\n";
3250 SetVersion ($DBversion);
3253 $DBversion = "3.01.00.095";
3254 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3256 ALTER TABLE items ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number";
3259 ALTER TABLE items ADD UNIQUE INDEX itemsstocknumberidx (stocknumber);
3262 ALTER TABLE deleteditems ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number of deleted items";
3265 ALTER TABLE deleteditems ADD UNIQUE INDEX deleteditemsstocknumberidx (stocknumber);
3267 if (C4::Context->preference('marcflavour') eq 'UNIMARC'){
3269 INSERT IGNORE INTO marc_subfield_structure (frameworkcode,tagfield, tagsubfield, tab, repeatable, mandatory,kohafield)
3270 SELECT DISTINCT (frameworkcode),995,"j",10,0,0,"items.stocknumber" from biblio_framework ;
3272 #Previously, copynumber was used as stocknumber
3274 UPDATE items set stocknumber=copynumber;
3277 UPDATE items set copynumber=NULL;
3280 print "Upgrade to $DBversion done (stocknumber field added)\n";
3281 SetVersion ($DBversion);
3284 $DBversion = "3.01.00.096";
3285 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3286 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OrderPdfTemplate','','Uploads a PDF template to use for printing baskets','NULL','Upload')");
3287 $dbh->do("UPDATE systempreferences SET variable='OrderPdfFormat' WHERE variable='pdfformat'");
3288 print "Upgrade to $DBversion done (PDF orders system preferences added and updated)\n";
3289 SetVersion ($DBversion);
3292 $DBversion = "3.01.00.097";
3293 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3295 ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10) NOT NULL AFTER deliverycomment;
3298 print "Upgrade to $DBversion done (Adding billingplace to aqbasketgroups)\n";
3299 SetVersion ($DBversion);
3302 $DBversion = "3.01.00.098";
3303 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3305 ALTER TABLE auth_subfield_structure MODIFY frameworkcode VARCHAR(10) NULL;
3308 print "Upgrade to $DBversion done (changing frameworkcode length in auth_subfield_structure)\n";
3309 SetVersion ($DBversion);
3312 $DBversion = "3.01.00.099";
3313 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3315 INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3316 (9, 'edit_catalogue', 'Edit catalogue'),
3317 (9, 'fast_cataloging', 'Fast cataloging')
3320 print "Upgrade to $DBversion done (granular permissions for cataloging added)\n";
3321 SetVersion ($DBversion);
3324 $DBversion = "3.01.00.100";
3325 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3326 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('casAuthentication', '0', '', 'Enable or disable CAS authentication', 'YesNo'), ('casLogout', '1', '', 'Does a logout from Koha should also log out of CAS ?', 'YesNo'), ('casServerUrl', 'https://localhost:8443/cas', '', 'URL of the cas server', 'Free')");
3327 print "Upgrade to $DBversion done (added CAS authentication system preferences)\n";
3328 SetVersion ($DBversion);
3331 $DBversion = "3.01.00.101";
3332 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3334 "INSERT INTO systempreferences
3335 (variable, value, options, explanation, type)
3337 'OverdueNoticeBcc', '', '',
3338 'Email address to Bcc outgoing notices sent by email',
3341 print "Upgrade to $DBversion done (added OverdueNoticeBcc system preferences)\n";
3342 SetVersion ($DBversion);
3344 $DBversion = "3.01.00.102";
3345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3347 "UPDATE permissions set description = 'Edit catalog (Modify bibliographic/holdings data)' where module_bit = 9 and code = 'edit_catalogue'"
3349 print "Upgrade to $DBversion done (fixed spelling error in edit_catalogue permission)\n";
3350 SetVersion ($DBversion);
3353 $DBversion = "3.01.00.103";
3354 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3355 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES (13, 'moderate_tags', 'Moderate patron tags')");
3356 print "Upgrade to $DBversion done (adding patron permissions for tags tool)\n";
3357 SetVersion ($DBversion);
3360 $DBversion = "3.01.00.104";
3361 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3363 my ($maninv_count, $borrnotes_count);
3364 eval { $maninv_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='MANUAL_INV'"); };
3365 if ($maninv_count == 0) {
3366 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('MANUAL_INV','Copier Fees','.25')");
3368 eval { $borrnotes_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='BOR_NOTES'"); };
3369 if ($borrnotes_count == 0) {
3370 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('BOR_NOTES','ADDR','Address Notes')");
3373 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','CART','Book Cart')");
3374 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','PROC','Processing Center')");
3376 print "Upgrade to $DBversion done ( add defaults to authorized values for MANUAL_INV and BOR_NOTES and add new default LOC authorized values for shelf to cart processing )\n";
3377 SetVersion ($DBversion);
3381 $DBversion = "3.01.00.105";
3382 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3384 CREATE TABLE `collections` (
3385 `colId` int(11) NOT NULL auto_increment,
3386 `colTitle` varchar(100) NOT NULL default '',
3387 `colDesc` text NOT NULL,
3388 `colBranchcode` varchar(4) default NULL COMMENT 'branchcode for branch where item should be held.',
3389 PRIMARY KEY (`colId`)
3390 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3394 CREATE TABLE `collections_tracking` (
3395 `ctId` int(11) NOT NULL auto_increment,
3396 `colId` int(11) NOT NULL default '0' COMMENT 'collections.colId',
3397 `itemnumber` int(11) NOT NULL default '0' COMMENT 'items.itemnumber',
3398 PRIMARY KEY (`ctId`)
3399 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3402 INSERT INTO permissions (module_bit, code, description)
3403 VALUES ( 13, 'rotating_collections', 'Manage Rotating collections')" );
3404 print "Upgrade to $DBversion done (added collection and collection_tracking tables for rotating collections functionality)\n";
3405 SetVersion ($DBversion);
3407 $DBversion = "3.01.00.106";
3408 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3409 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ( 'OpacAddMastheadLibraryPulldown', '0', '', 'Adds a pulldown menu to select the library to search on the opac masthead.', 'YesNo' )");
3410 print "Upgrade to $DBversion done (added OpacAddMastheadLibraryPulldown system preferences)\n";
3411 SetVersion ($DBversion);
3414 $DBversion = '3.01.00.107';
3415 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3416 my $upgrade_script = C4::Context->config("intranetdir") . "/installer/data/mysql/patroncards_upgrade.pl";
3417 system("perl $upgrade_script");
3418 print "Upgrade to $DBversion done (Migrated labels and patroncards tables and data to new schema.)\n";
3419 SetVersion ($DBversion);
3422 $DBversion = '3.01.00.108';
3423 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3425 ALTER TABLE `export_format` ADD `csv_separator` VARCHAR( 2 ) NOT NULL AFTER `marcfields` ,
3426 ADD `field_separator` VARCHAR( 2 ) NOT NULL AFTER `csv_separator` ,
3427 ADD `subfield_separator` VARCHAR( 2 ) NOT NULL AFTER `field_separator`
3429 print "Upgrade to $DBversion done (added separators for csv export)\n";
3430 SetVersion ($DBversion);
3433 $DBversion = "3.01.00.109";
3434 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3436 ALTER TABLE `export_format` ADD `encoding` VARCHAR(255) NOT NULL AFTER `subfield_separator`
3438 print "Upgrade to $DBversion done (added encoding for csv export)\n";
3439 SetVersion ($DBversion);
3442 $DBversion = '3.01.00.110';
3443 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3444 $dbh->do('ALTER TABLE `categories` ADD COLUMN `enrolmentperioddate` DATE NULL DEFAULT NULL AFTER `enrolmentperiod`');
3445 print "Upgrade to $DBversion done (Add enrolment period date support)\n";
3446 SetVersion ($DBversion);
3449 $DBversion = '3.01.00.111';
3450 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3451 print "Upgrade to $DBversion done (mark DBrev for 3.2-alpha release)\n";
3452 SetVersion ($DBversion);
3455 $DBversion = '3.01.00.112';
3456 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3457 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('SpineLabelShowPrintOnBibDetails', '0', '', 'If turned on, a \"Print Label\" link will appear for each item on the bib details page in the staff interface.', 'YesNo');");
3458 print "Upgrade to $DBversion done ( added Show Spine Label Printer on Bib Items Details preferences )\n";
3459 SetVersion ($DBversion);
3462 $DBversion = '3.01.00.113';
3463 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3464 my $value = C4::Context->preference("XSLTResultsDisplay");
3466 "INSERT INTO systempreferences (variable,value,type)
3467 VALUES('OPACXSLTResultsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3468 $value = C4::Context->preference("XSLTDetailsDisplay");
3470 "INSERT INTO systempreferences (variable,value,type)
3471 VALUES('OPACXSLTDetailsDisplay',?,'YesNo')", {}, $value ? 1 : 0);
3472 print "Upgrade to $DBversion done (added two new syspref: OPACXSLTResultsDisplay and OPACXSLTDetailDisplay). You may have to go in Admin > System preference to tweak XSLT related syspref both in OPAC and Search tabs.\n";
3473 SetVersion ($DBversion);
3476 $DBversion = '3.01.00.114';
3477 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3478 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('AutoSelfCheckAllowed', '0', 'For corporate and special libraries which want web-based self-check available from any PC without the need for a manual staff login. Most libraries will want to leave this turned off. If on, requires self-check ID and password to be entered in AutoSelfCheckID and AutoSelfCheckPass sysprefs.', '', 'YesNo')");
3479 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AutoSelfCheckID','','Staff ID with circulation rights to be used for automatic web-based self-check. Only applies if AutoSelfCheckAllowed syspref is turned on.','','free')");
3480 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AutoSelfCheckPass','','Password to be used for automatic web-based self-check. Only applies if AutoSelfCheckAllowed syspref is turned on.','','free')");
3481 print "Upgrade to $DBversion done ( Added AutoSelfCheckAllowed, AutoSelfCheckID, and AutoShelfCheckPass system preference )\n";
3482 SetVersion ($DBversion);
3485 $DBversion = '3.01.00.115';
3486 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3487 $dbh->do('UPDATE aqorders SET quantityreceived = 0 WHERE quantityreceived IS NULL');
3488 $dbh->do('ALTER TABLE aqorders MODIFY COLUMN quantityreceived smallint(6) NOT NULL DEFAULT 0');
3489 print "Upgrade to $DBversion done ( Default aqorders.quantityreceived to 0 )\n";
3490 SetVersion ($DBversion);
3493 $DBversion = '3.01.00.116';
3494 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3495 if (C4::Context->preference('OrderPdfFormat') eq 'pdfformat::example'){
3496 $dbh->do("UPDATE `systempreferences` set value='pdfformat::layout2pages' WHERE variable='OrderPdfFormat'");
3498 print "Upgrade to $DBversion done (corrected default OrderPdfFormat value if still set wrong )\n";
3499 SetVersion ($DBversion);
3502 $DBversion = '3.01.00.117';
3503 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3504 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'por' WHERE rfc4646_subtag='pt' ");
3505 print "Upgrade to $DBversion done (corrected ISO 639-2 language code for Portuguese)\n";
3506 SetVersion ($DBversion);
3509 $DBversion = '3.01.00.118';
3510 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3511 my ($count) = $dbh->selectrow_array("SELECT count(*) FROM information_schema.columns
3512 WHERE table_name = 'aqbudgets_planning'
3513 AND column_name = 'display'");
3515 $dbh->do("ALTER TABLE aqbudgets_planning ADD COLUMN display tinyint(1) DEFAULT 1");
3517 print "Upgrade to $DBversion done (bug 4203: add display column to aqbudgets_planning if missing)\n";
3518 SetVersion ($DBversion);
3521 $DBversion = '3.01.00.119';
3522 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3523 eval{require Locale::Currency::Format};
3525 print "Upgrade to $DBversion done (Locale::Currency::Format installed.)\n";
3526 SetVersion ($DBversion);
3529 print "Upgrade to $DBversion done.\n";
3530 print "NOTICE: The Locale::Currency::Format package is not installed on your system or not found in \@INC.\nThis dependency is required in order to include fine information in overdue notices.\nPlease ask your system administrator to install this package.\n";
3531 SetVersion ($DBversion);
3535 $DBversion = '3.01.00.120';
3536 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3538 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('soundon','0','Enable circulation sounds during checkin and checkout in the staff interface. Not supported by all web browsers yet.','','YesNo');
3540 print "Upgrade to $DBversion done (bug 1080: add soundon system preference for circulation sounds)\n";
3541 SetVersion ($DBversion);
3544 $DBversion = '3.01.00.121';
3545 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3546 $dbh->do("ALTER TABLE `reserves` ADD `expirationdate` DATE DEFAULT NULL");
3547 $dbh->do("ALTER TABLE `reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3548 $dbh->do("ALTER TABLE `old_reserves` ADD `expirationdate` DATE DEFAULT NULL");
3549 $dbh->do("ALTER TABLE `old_reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3550 print "Upgrade to $DBversion done ( Added Additional Fields to Reserves tables )\n";
3551 SetVersion ($DBversion);
3554 $DBversion = '3.01.00.122';
3555 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3557 INSERT INTO systempreferences (variable,value,explanation,options,type)
3558 VALUES ('OAI-PMH:ConfFile', '', 'If empty, Koha OAI Server operates in normal mode, otherwise it operates in extended mode.','','File');
3560 print "Upgrade to $DBversion done. — Add a new system preference OAI-PMF:ConfFile\n";
3561 SetVersion ($DBversion);
3564 $DBversion = "3.01.00.123";
3565 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3566 $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3567 (6, 'place_holds', 'Place holds for patrons')");
3568 $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3569 (6, 'modify_holds_priority', 'Modify holds priority')");
3570 $dbh->do("UPDATE `userflags` SET `flagdesc` = 'Place and modify holds for patrons' WHERE `flag` = 'reserveforothers'");
3571 print "Upgrade to $DBversion done (Add granular permission for holds modification and update description of reserveforothers permission)\n";
3572 SetVersion ($DBversion);
3575 $DBversion = '3.01.00.124';
3576 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3578 INSERT INTO `letter` (module, code, name, title, content) VALUES('reserves', 'HOLDPLACED', 'Hold Placed on Item', 'Hold Placed on Item','A hold has been placed on the following item : <<title>> (<<biblionumber>>) by the user <<firstname>> <<surname>> (<<cardnumber>>).');
3580 print "Upgrade to $DBversion done (bug 3242: add HOLDPLACED letter template, which is used when emailLibrarianWhenHoldIsPlaced is enabled)\n";
3581 SetVersion ($DBversion);
3584 $DBversion = '3.01.00.125';
3585 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3587 INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'PrintNoticesMaxLines', '0', '', 'If greater than 0, sets the maximum number of lines an overdue notice will print. If the number of items is greater than this number, the notice will end with a warning asking the borrower to check their online account for a full list of overdue items.', 'Integer' );
3590 INSERT INTO message_transport_types (message_transport_type) values ('print');
3592 print "Upgrade to $DBversion done (bug 3482: Printable hold and overdue notices)\n";
3593 SetVersion ($DBversion);
3596 $DBversion = "3.01.00.126";
3597 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3598 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ILS-DI','0','Enable ILS-DI services. See http://your.opac.name/cgi-bin/koha/ilsdi.pl for online documentation.','','YesNo')");
3599 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ILS-DI:AuthorizedIPs','127.0.0.1','A comma separated list of IP addresses authorized to access the web services.','','free')");
3601 print "Upgrade to $DBversion done (Adding ILS-DI updates and ILS-DI:AuthorizedIPs)\n";
3602 SetVersion ($DBversion);
3605 $DBversion = '3.01.00.127';
3606 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3607 $dbh->do("ALTER TABLE messages CHANGE branchcode branchcode varchar(10);");
3608 print "Upgrade to $DBversion done (bug 4190: messages in patron account did not work with branchcodes > 4)\n";
3609 SetVersion ($DBversion);
3612 $DBversion = '3.01.00.128';
3613 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3614 $dbh->do('CREATE INDEX budget_id ON aqorders (budget_id );');
3615 print "Upgrade to $DBversion done (bug 4331: index orders by budget_id)\n";
3616 SetVersion ($DBversion);
3619 $DBversion = "3.01.00.129";
3620 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3621 $dbh->do("UPDATE `permissions` SET `code` = 'items_batchdel' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchdel' LIMIT 1 ;");
3622 $dbh->do("UPDATE `permissions` SET `code` = 'items_batchmod' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchmod' LIMIT 1 ;");
3623 print "Upgrade to $DBversion done (Change permissions names for item batch modification / deletion)\n";
3625 SetVersion ($DBversion);
3628 $DBversion = "3.01.00.130";
3629 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3630 $dbh->do("UPDATE reserves SET expirationdate = NULL WHERE expirationdate = '0000-00-00'");
3631 print "Upgrade to $DBversion done (change reserves.expirationdate values of 0000-00-00 to NULL (bug 1532)\n";
3632 SetVersion ($DBversion);
3635 $DBversion = "3.01.00.131";
3636 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3638 INSERT IGNORE INTO message_transport_types (message_transport_type) VALUES ('print'),('feed');
3640 print "Upgrade to $DBversion done (adding print and feed message transport types)\n";
3641 SetVersion ($DBversion);
3644 $DBversion = "3.01.00.132";
3645 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3647 ALTER TABLE language_descriptions ADD INDEX subtag_type_lang (subtag, type, lang);
3649 print "Upgrade to $DBversion done (Adding index to language_descriptions table)\n";
3650 SetVersion ($DBversion);
3653 $DBversion = '3.01.00.133';
3654 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3655 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OverduesBlockCirc','noblock','When checking out an item should overdues block checkout, generate a confirmation dialogue, or allow checkout','noblock|confirmation|block','Choice')");
3656 print "Upgrade to $DBversion done (bug 4405: added OverduesBlockCirc syspref to control whether circulation is blocked if a borrower has overdues)\n";
3657 SetVersion ($DBversion);
3660 $DBversion = '3.01.00.134';
3661 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3662 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('DisplayMultiPlaceHold','1','Display the ability to place multiple holds or not','','YesNo')");
3663 print "Upgrade to $DBversion done (adding syspref DisplayMultiPlaceHold to control whether multiple holds can be placed from the search results page)\n";
3664 SetVersion ($DBversion);
3667 $DBversion = '3.01.00.135';
3668 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3670 INSERT INTO `letter` (module, code, name, title, content) VALUES
3671 ('reserves', 'HOLD_PRINT', 'Hold Available for Pickup (print notice)', 'Hold Available for Pickup (print notice)', '<<branches.branchname>>\r\n<<branches.branchaddress1>>\r\n<<branches.branchaddress2>>\r\n\r\n\r\nChange Service Requested\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>>\r\n<<borrowers.address>>\r\n<<borrowers.city>> <<borrowers.zipcode>>\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>> <<borrowers.cardnumber>>\r\n\r\nYou have a hold available for pickup as of <<reserves.waitingdate>>:\r\n\r\nTitle: <<biblio.title>>\r\nAuthor: <<biblio.author>>\r\nCopy: <<items.copynumber>>\r\n')
3673 print "Upgrade to $DBversion done (bug 4377: added HOLD_PRINT message template)\n";
3674 SetVersion ($DBversion);
3677 $DBversion = '3.01.00.136';
3678 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3680 INSERT INTO permissions (module_bit, code, description) VALUES
3681 ( 9, 'edit_items', 'Edit Items');});
3682 print "Upgrade to $DBversion done (Adding a new permission to edit items)\n";
3683 SetVersion ($DBversion);
3686 $DBversion = "3.01.00.137";
3687 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3689 INSERT INTO permissions (module_bit, code, description) VALUES
3690 (15, 'check_expiration', 'Check the expiration of a serial'),
3691 (15, 'claim_serials', 'Claim missing serials'),
3692 (15, 'create_subscription', 'Create a new subscription'),
3693 (15, 'delete_subscription', 'Delete an existing subscription'),
3694 (15, 'edit_subscription', 'Edit an existing subscription'),
3695 (15, 'receive_serials', 'Serials receiving'),
3696 (15, 'renew_subscription', 'Renew a subscription'),
3697 (15, 'routing', 'Routing');
3699 print "Upgrade to $DBversion done (adding granular permissions for serials)\n";
3700 SetVersion ($DBversion);
3703 $DBversion = "3.01.00.138";
3704 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3705 $dbh->do("DELETE FROM systempreferences WHERE variable = 'GranularPermissions'");
3706 print "Upgrade to $DBversion done (bug 4896: removing GranularPermissions syspref; use of granular permissions is now the default)\n";
3707 SetVersion ($DBversion);
3710 $DBversion = '3.01.00.139';
3711 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3712 $dbh->do("ALTER TABLE message_attributes CHANGE message_name message_name varchar(40);");
3713 print "Upgrade to $DBversion done (bug 3682: change message_name from varchar(20) to varchar(40))\n";
3714 SetVersion ($DBversion);
3717 $DBversion = '3.01.00.140';
3718 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3719 $dbh->do("UPDATE systempreferences SET value = '0' WHERE variable = 'TagsModeration' AND value is NULL");
3720 print "Upgrade to $DBversion done (bug 4312 TagsModeration changed from NULL to 0)\n";
3721 SetVersion ($DBversion);
3724 $DBversion = '3.01.00.141';
3725 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3726 $dbh->do(qq{DELETE FROM message_attributes WHERE message_attribute_id=3;});
3727 $dbh->do(qq{DELETE FROM letter WHERE code='EVENT' AND title='Upcoming Library Event';});
3728 print "Upgrade to $DBversion done Remove upcoming events messaging option (bug 2434)\n";
3729 SetVersion ($DBversion);
3732 $DBversion = '3.01.00.142';
3733 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3734 $dbh->do(qq{DELETE FROM message_transports WHERE message_attribute_id=3;});
3735 print "Upgrade to $DBversion done (Remove upcoming events messaging option part 2 (bug 2434))\n";
3736 SetVersion ($DBversion);
3739 $DBversion = '3.01.00.143';
3740 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3741 $dbh->do(qq{CREATE INDEX auth_value_idx ON authorised_values (authorised_value)});
3742 $dbh->do(qq{CREATE INDEX auth_val_cat_idx ON borrower_attribute_types (authorised_value_category)});
3743 print "Upgrade to $DBversion done (Create index on authorised_values and borrower_attribute_types (bug 4139))\n";
3744 SetVersion ($DBversion);
3747 $DBversion = '3.01.00.144';
3748 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3749 $dbh->do(qq{UPDATE systempreferences SET value='normal' where value='default' and variable='IntranetBiblioDefaultView'});
3750 print "Upgrade to $DBversion done (Update the 'default' to 'normal' for the IntranetBiblioDefaultView syspref (bug 5007))\n";
3751 SetVersion ($DBversion);
3754 $DBversion = "3.01.00.145";
3755 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3756 $dbh->do("ALTER TABLE borrowers ADD KEY `guarantorid` (guarantorid);");
3757 print "Upgrade to $DBversion done (Add index on guarantorid)\n";
3758 SetVersion ($DBversion);
3761 $DBversion = '3.01.00.999';
3762 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3763 print "Upgrade to $DBversion done (3.2.0 release candidate)\n";
3764 SetVersion ($DBversion);
3767 $DBversion = "3.02.00.000";
3768 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3769 my $value = $dbh->selectrow_array("SELECT value FROM systempreferences WHERE variable = 'HomeOrHoldingBranch'");
3770 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('HomeOrHoldingBranchReturn','$value','Used by Circulation to determine which branch of an item to check checking-in items','holdingbranch|homebranch','Choice');");
3771 print "Upgrade to $DBversion done (Add HomeOrHoldingBranchReturn system preference)\n";
3772 SetVersion ($DBversion);
3775 $DBversion = "3.02.00.001";
3776 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3777 $dbh->do(q{DELETE FROM systempreferences WHERE variable IN (
3782 'OPACSubscriptionDisplay',
3783 'OPACDisplayExtendedSubInfo',
3794 print "Upgrade to $DBversion done (bug 3756: remove disused system preferences)\n";
3795 SetVersion ($DBversion);
3798 $DBversion = "3.02.00.002";
3799 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3800 $dbh->do(q{DELETE FROM systempreferences WHERE variable = 'OpacPrivacy'});
3801 print "Upgrade to $DBversion done (bug 3881: remove unused OpacPrivacy system preference)\n";
3802 SetVersion ($DBversion);
3805 $DBversion = "3.02.00.003";
3806 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3807 $dbh->do(q{UPDATE systempreferences SET variable = 'ILS-DI:AuthorizedIPs' WHERE variable = 'ILS-DI:Authorized_IPs'});
3808 print "Upgrade to $DBversion done (correct ILS-DI:AuthorizedIPs)\n";
3809 SetVersion ($DBversion);
3812 $DBversion = "3.02.00.004";
3813 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3814 print "Upgrade to $DBversion done (3.2.0 general release)\n";
3815 SetVersion ($DBversion);
3817 # This is the point where 3.2.x and master diverged, we can use $original_version to make sure we don't
3819 # apply updates that have already been done
3821 $DBversion = "3.03.00.001";
3822 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.005")) {
3823 $dbh->do("DELETE FROM subscriptionroutinglist WHERE borrowernumber IS NULL;");
3824 $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `borrowernumber` int(11) NOT NULL;");
3825 $dbh->do("DELETE FROM subscriptionroutinglist WHERE subscriptionid IS NULL;");
3826 $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `subscriptionid` int(11) NOT NULL;");
3827 $dbh->do("CREATE TEMPORARY TABLE del_subscriptionroutinglist
3828 SELECT s1.routingid FROM subscriptionroutinglist s1
3829 WHERE EXISTS (SELECT * FROM subscriptionroutinglist s2
3830 WHERE s2.borrowernumber = s1.borrowernumber
3831 AND s2.subscriptionid = s1.subscriptionid
3832 AND s2.routingid < s1.routingid);");
3833 $dbh->do("DELETE FROM subscriptionroutinglist
3834 WHERE routingid IN (SELECT routingid FROM del_subscriptionroutinglist);");
3835 $dbh->do("ALTER TABLE subscriptionroutinglist ADD UNIQUE (subscriptionid, borrowernumber);");
3836 $dbh->do("ALTER TABLE subscriptionroutinglist
3837 ADD CONSTRAINT `subscriptionroutinglist_ibfk_1` FOREIGN KEY (`borrowernumber`)
3838 REFERENCES `borrowers` (`borrowernumber`)
3839 ON DELETE CASCADE ON UPDATE CASCADE");
3840 $dbh->do("ALTER TABLE subscriptionroutinglist
3841 ADD CONSTRAINT `subscriptionroutinglist_ibfk_2` FOREIGN KEY (`subscriptionid`)
3842 REFERENCES `subscription` (`subscriptionid`)
3843 ON DELETE CASCADE ON UPDATE CASCADE");
3844 print "Upgrade to $DBversion done (Make subscriptionroutinglist more strict)\n";
3845 SetVersion ($DBversion);
3848 $DBversion = '3.03.00.002';
3849 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.006")) {
3850 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='arm' WHERE rfc4646_subtag='hy';");
3851 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='eng' WHERE rfc4646_subtag='en';");
3852 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'fi','fin');");
3853 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='fre' WHERE rfc4646_subtag='fr';");
3854 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'lo','lao');");
3855 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it';");
3856 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'sr','srp');");
3857 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'tet','tet');");
3858 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ur','urd');");
3860 print "Upgrade to $DBversion done (Correct language mappings)\n";
3861 SetVersion ($DBversion);
3864 $DBversion = '3.03.00.003';
3865 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.00.007")) {
3866 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTablesortForCirc','0','If on, use the JQuery tablesort function on the list of current borrower checkouts on the circulation page. Note that the use of this function may slow down circ for patrons with may checkouts.','','YesNo');");
3867 print "Upgrade to $DBversion done (Add UseTablesortForCirc syspref)\n";
3868 SetVersion ($DBversion);
3871 $DBversion = '3.03.00.004';
3872 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.001")) {
3873 my $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ACCEPTED');
3875 INSERT INTO `letter`
3876 (module, code, name, title, content)
3878 ('suggestions','ACCEPTED','Suggestion accepted', 'Purchase suggestion accepted','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nThe library has reviewed your suggestion today. The item will be ordered as soon as possible. You will be notified by mail when the order is completed, and again when the item arrives at the library.\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3879 /) unless $count > 0;
3880 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'AVAILABLE');
3882 INSERT INTO `letter`
3883 (module, code, name, title, content)
3885 ('suggestions','AVAILABLE','Suggestion available', 'Suggested purchase available','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nWe are pleased to inform you that the item you requested is now part of the collection.\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3886 /) unless $count > 0;
3887 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ORDERED');
3889 INSERT INTO `letter`
3890 (module, code, name, title, content)
3892 ('suggestions','ORDERED','Suggestion ordered', 'Suggested item ordered','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nWe are pleased to inform you that the item you requested has now been ordered. It should arrive soon, at which time it will be processed for addition into the collection.\n\nYou will be notified again when the book is available.\n\nIf you have any questions, please email us at <<branches.branchemail>>\n\nThank you,\n\n<<branches.branchname>>')
3893 /) unless $count > 0;
3894 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'REJECTED');
3896 INSERT INTO `letter`
3897 (module, code, name, title, content)
3899 ('suggestions','REJECTED','Suggestion rejected', 'Purchase suggestion declined','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nThe library has reviewed your request today, and has decided not to accept the suggestion at this time.\n\nThe reason given is: <<suggestions.reason>>\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3900 /) unless $count > 0;
3901 print "Upgrade to $DBversion done (bug 5127: add default templates for suggestion status change notifications)\n";
3902 SetVersion ($DBversion);
3905 $DBversion = '3.03.00.005';
3906 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3907 $dbh->do("update `systempreferences` set options='whitespace|T-prefix|cuecat|libsuite8' where variable='itemBarcodeInputFilter'");
3908 print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice libsuite8)\n";
3911 $DBversion = '3.03.00.006';
3912 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.002")) {
3913 $dbh->do("ALTER TABLE deletedborrowers ADD `privacy` int(11) AFTER smsalertnumber;");
3914 $dbh->do("ALTER TABLE deletedborrowers CHANGE `cardnumber` `cardnumber` varchar(16);");
3915 print "Upgrade to $DBversion done (Fix differences between borrowers and deletedborrowers)\n";
3916 SetVersion ($DBversion);
3919 $DBversion = '3.03.00.007';
3920 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3921 $dbh->do("ALTER table suggestions ADD quantity SMALLINT(6) default NULL,
3922 ADD currency VARCHAR(3) default NULL,
3923 ADD price DECIMAL(28,6) default NULL,
3924 ADD total DECIMAL(28,6) default NULL;
3926 print "Upgrade to $DBversion done (Added acq related columns to suggestions)\n";
3927 SetVersion ($DBversion);
3930 $DBversion = '3.03.00.008';
3931 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3932 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACNoResultsFound','','Display this HTML when no results are found for a search in the OPAC','70|10','Textarea')");
3933 print "Upgrade to $DBversion done (adding syspref OPACNoResultsFound to control what displays when no results are found for a search in the OPAC.)\n";
3934 SetVersion ($DBversion);
3937 $DBversion = '3.03.00.009';
3938 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.01.003")) {
3939 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetUserCSS','','Add CSS to be included in the Intranet',NULL,'free')");
3940 print "Upgrade to $DBversion done (Add IntranetUserCSS syspref)\n";
3941 SetVersion ($DBversion);
3944 $DBversion = "3.03.00.010";
3945 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.02.001")) {
3946 $dbh->do("UPDATE `marc_subfield_structure` SET liblibrarian = 'Distance from earth' WHERE liblibrarian = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3947 $dbh->do("UPDATE `marc_subfield_structure` SET libopac = 'Distance from earth' WHERE libopac = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3948 print "Upgrade to $DBversion done (Fix misspelled 034r subfield in MARC21 Frameworks)\n";
3949 SetVersion ($DBversion);
3952 $DBversion = "3.03.00.011";
3953 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3954 $dbh->do("UPDATE aqbooksellers SET gstrate=NULL WHERE gstrate=0.0");
3955 print "Upgrade to $DBversion done (Bug 5186: allow GST rate to be set to 0)\n";
3956 SetVersion ($DBversion);
3959 $DBversion = "3.03.00.012";
3960 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3961 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxItemsInSearchResults',20,'Specify the maximum number of items to display for each result on a page of results',NULL,'free')");
3962 print "Upgrade to $DBversion done (Bug 2142: maxItemsInSearchResults syspref resurrected)\n";
3963 SetVersion ($DBversion);
3966 $DBversion = "3.03.00.013";
3967 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3968 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacPublic','1','If set to OFF and user is not logged in, all OPAC pages require authentication, and OPAC searchbar is removed)','','YesNo')");
3969 print "Upgrade to $DBversion done (added 'OpacPublic' syspref)\n";
3970 SetVersion ($DBversion);
3973 $DBversion = "3.03.00.014";
3974 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3975 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesLocation','1','Use the item location when finding items for the shelf browser.','1','YesNo')");
3976 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesHomeBranch','1','Use the item home branch when finding items for the shelf browser.','1','YesNo')");
3977 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesCcode','0','Use the item collection code when finding items for the shelf browser.','1','YesNo')");
3978 print "Upgrade to $DBversion done (Add flexible shelf browser constraints)\n";
3979 SetVersion ($DBversion);
3982 $DBversion = "3.03.00.015";
3983 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3984 if ( C4::Context->preference("marcflavour") eq "MARC21" ) {
3985 my $sth = $dbh->prepare(
3986 "INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`,
3987 `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`)
3988 VALUES ( ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, '', 6, '', '', '', 0, -5, '', '', '', NULL)"
3990 $sth->execute('648');
3991 $sth->execute('654');
3992 $sth->execute('655');
3993 $sth->execute('656');
3994 $sth->execute('657');
3995 $sth->execute('658');
3996 $sth->execute('662');
3999 "Upgrade to $DBversion done (Bug 5619: Add subfield 9 to marc21 648,654,655,656,657,658,662)\n";
4001 SetVersion($DBversion);
4004 $DBversion = '3.03.00.016';
4005 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4006 # reimplement OpacPrivacy system preference
4007 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacPrivacy', '0', 'if ON, allows patrons to define their privacy rules (reading history)',NULL,'YesNo')");
4008 $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4009 $dbh->do("ALTER TABLE `deletedborrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4010 print "Upgrade to $DBversion done (OpacPrivacy reimplementation)\n";
4011 SetVersion($DBversion);
4014 $DBversion = '3.03.00.017';
4015 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.001")) {
4016 $dbh->do("ALTER TABLE `currency` CHANGE `rate` `rate` FLOAT( 15, 5 ) NULL DEFAULT NULL;");
4017 print "Upgrade to $DBversion done (Enable currency rates >= 100)\n";
4018 SetVersion ($DBversion);
4021 $DBversion = '3.03.00.018';
4022 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.002")) {
4023 $dbh->do( q|update language_descriptions set description = 'Nederlands' where lang = 'nl' and subtag = 'nl'|);
4024 $dbh->do( q|update language_descriptions set description = 'Dansk' where lang = 'da' and subtag = 'da'|);
4025 print "Upgrade to $DBversion done (Correct language descriptions)\n";
4026 SetVersion ($DBversion);
4029 $DBversion = '3.03.00.019';
4030 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.03.003")) {
4032 $dbh->do("UPDATE language_subtag_registry SET description = 'Norwegian bokmål' WHERE subtag = 'nb';");
4033 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nb','nob');");
4034 $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND lang = 'nb';");
4035 $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND lang = 'en';");
4036 $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND lang = 'fr';");
4038 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'nn', 'language', 'Norwegian nynorsk','2011-02-14' )");
4039 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nn','nno')");
4040 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nb', 'Norsk nynorsk')");
4041 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nn', 'Norsk nynorsk')");
4042 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'en', 'Norwegian nynorsk')");
4043 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'fr', 'Norvégien nynorsk')");
4044 print "Upgrade to $DBversion done (Correct language descriptions for Norwegian)\n";
4045 SetVersion ($DBversion);
4048 $DBversion = '3.03.00.020';
4049 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4050 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowFineOverride','0','If on, staff will be able to issue books to patrons with fines greater than noissuescharge.','0','YesNo')");
4051 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllFinesNeedOverride','1','If on, staff will be asked to override every fine, even if it is below noissuescharge.','0','YesNo')");
4052 print "Upgrade to $DBversion done (Bug 5811: Add sysprefs controlling overriding fines)\n";
4053 SetVersion($DBversion);
4056 $DBversion = '3.03.00.021';
4057 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.001")) {
4058 $dbh->do("ALTER TABLE items MODIFY enumchron TEXT");
4059 $dbh->do("ALTER TABLE deleteditems MODIFY enumchron TEXT");
4060 print "Upgrade to $DBversion done (bug 5642: longer serial enumeration)\n";
4061 SetVersion ($DBversion);
4064 $DBversion = '3.03.00.022';
4065 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4066 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AuthoritiesLog','0','If ON, log edit/create/delete actions on authorities.','','YesNo');");
4067 print "Upgrade to $DBversion done (Add AuthoritiesLog syspref)\n";
4068 SetVersion ($DBversion);
4071 # due to a mismatch in kohastructure.sql some koha will have missing columns in aqbasketgroup
4072 # this attempts to fix that
4073 $DBversion = '3.03.00.023';
4074 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.002")) {
4075 my $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'billingplace'");
4077 $dbh->do("ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4078 $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliveryplace'");
4080 $dbh->do("ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4081 $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliverycomment'");
4083 $dbh->do("ALTER TABLE aqbasketgroups ADD deliverycomment VARCHAR(255)") if ! $sth->fetchrow_hashref;
4084 print "Upgrade to $DBversion done (Reconcile aqbasketgroups)\n";
4085 SetVersion ($DBversion);
4088 $DBversion = '3.03.00.024';
4089 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4090 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('TraceCompleteSubfields','0','Force subject tracings to only match complete subfields.','0','YesNo')");
4091 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('UseAuthoritiesForTracings','1','Use authority record numbers for subject tracings instead of heading strings.','0','YesNo')");
4092 print "Upgrade to $DBversion done (Add syspref to force whole-subfield matching on subject tracings)\n";
4093 SetVersion($DBversion);
4096 $DBversion = "3.03.00.025";
4097 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4098 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAllowUserToChooseBranch', 1, 'Allow the user to choose the branch they want to pickup their hold from','1','YesNo')");
4099 print "Upgrade to $DBversion done (Add syspref to control if user can choose pickup branch for holds)\n";
4100 SetVersion ($DBversion);
4103 $DBversion = '3.03.00.026';
4104 if (C4::Context->preference("Version") < TransformToNum($DBversion) && $original_version < TransformToNum("3.02.05.003")) {
4105 $dbh->do("UPDATE `message_attributes` SET message_name='Item Due' WHERE message_attribute_id=1 AND message_name LIKE 'Item DUE'");
4106 print "Upgrade to $DBversion done ( fix capitalization in message type )\n";
4107 SetVersion ($DBversion);
4110 $DBversion = '3.03.00.027';
4111 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4112 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('displayFacetCount', '0', NULL, NULL, 'YesNo')");
4113 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('maxRecordsForFacets', '20', NULL, NULL, 'Integer')");
4114 print "Upgrade to $DBversion done (Preferences for facet count)\n";
4115 SetVersion ($DBversion);
4118 $DBversion = "3.03.00.028";
4119 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4120 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('FacetLabelTruncationLength', 20, 'Truncate facets length to','','free')");
4121 print "Upgrade to $DBversion done (Add FacetLabelTruncationLength syspref to control facets displayed length)\n";
4122 SetVersion ($DBversion);
4125 $DBversion = "3.03.00.029";
4126 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4127 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowPurchaseSuggestionBranchChoice', 0, 'Allow user to choose branch when making a purchase suggestion','1','YesNo')");
4128 print "Upgrade to $DBversion done (Add syspref to control if user can choose branch when making purchase suggestion)\n";
4129 SetVersion ($DBversion);
4132 $DBversion = "3.03.00.030";
4133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4134 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacFavicon','','Enter a complete URL to an image to replace the default Koha favicon on the OPAC','','free')");
4135 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetFavicon','','Enter a complete URL to an image to replace the default Koha favicon on the Staff client','','free')");
4136 print "Upgrade to $DBversion done (Add sysprefs to control custom favicons)\n";
4137 SetVersion ($DBversion);
4140 $DBversion = "3.03.00.031";
4141 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4142 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('FineNotifyAtCheckin',0,'If ON notify librarians of overdue fines on the items they are checking in.',NULL,'YesNo');");
4143 print "Upgrade to $DBversion done (Add syspref FineNotifyAtCheckin)\n";
4144 SetVersion ($DBversion);
4147 $DBversion = '3.03.00.032';
4148 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4149 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('TraceSubjectSubdivisions', 1, 'Create searches on all subdivisions for subject tracings.','1','YesNo')");
4150 print "Upgrade to $DBversion done ( include subdivisions when generating subject tracing searches )\n";
4154 $DBversion = '3.03.00.033';
4155 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4156 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaffAuthorisedValueImages', '1', '', NULL, 'YesNo')");
4157 print "Upgrade to $DBversion done (System pref StaffAuthorisedValueImages)\n";
4158 SetVersion ($DBversion);
4161 $DBversion = '3.03.00.034';
4162 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4163 $dbh->do("ALTER TABLE `categories` ADD `hidelostitems` tinyint(1) NOT NULL default '0' AFTER `reservefee`");
4164 print "Upgrade to $DBversion done (Add hidelostitems preference to borrower categories)\n";
4165 SetVersion ($DBversion);
4168 $DBversion = '3.03.00.035';
4169 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4170 $dbh->do("ALTER TABLE `issuingrules` ADD hardduedate date default NULL AFTER issuelength");
4171 $dbh->do("ALTER TABLE `issuingrules` ADD hardduedatecompare tinyint NOT NULL default 0 AFTER hardduedate");
4173 if (C4::Context->preference("globalDueDate")) {
4174 $duedate = C4::Dates::format_date_in_iso(C4::Context->preference("globalDueDate"));
4175 $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = 0");
4176 } elsif (C4::Context->preference("ceilingDueDate")) {
4177 $duedate = C4::Dates::format_date_in_iso(C4::Context->preference("ceilingDueDate"));
4178 $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = -1");
4180 $dbh->do("DELETE FROM `systempreferences` WHERE variable = 'globalDueDate' OR variable = 'ceilingDueDate'");
4181 print "Upgrade to $DBversion done (Move global and ceiling due dates to Circ Rules level)\n";
4182 SetVersion ($DBversion);
4185 $DBversion = '3.03.00.036';
4186 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4187 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('COinSinOPACResults', 1, 'If ON, use COinS in OPAC search results page. NOTE: this can slow down search response time significantly','','YesNo')");
4188 print "Upgrade to $DBversion done ( Make COinS optional in OPAC search results )\n";
4189 SetVersion ($DBversion);
4192 $DBversion = '3.03.00.037';
4193 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4194 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACDisplay856uAsImage','OFF','Display the URI in the 856u field as an image, the corresponding OPACXSLT option must be on','OFF|Details|Results|Both','Choice')");
4195 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('Display856uAsImage','OFF','Display the URI in the 856u field as an image, the corresponding Staff Client XSLT option must be on','OFF|Details|Results|Both','Choice')");
4196 print "Upgrade to $DBversion done (Add 'Display856uAsImage' and 'OPACDisplay856uAsImage' syspref)\n";
4197 SetVersion ($DBversion);
4200 $DBversion = '3.03.00.038';
4201 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4202 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('SelfCheckTimeout',120,'Define the number of seconds before the Web-based Self Checkout times out a patron','','Integer')");
4203 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowSelfCheckReturns',0,'If enabled, patrons may return items through the Web-based Self Checkout','','YesNo')");
4204 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('SelfCheckHelpMessage','','Enter HTML to include under the basic Web-based Self Checkout instructions on the Help page','70|10','Textarea')");
4205 print "Upgrade to $DBversion done ( Add Self-checkout by Login system preferences )\n";
4208 $DBversion = "3.03.00.039";
4209 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4210 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ShowReviewer',1,'If ON, name of reviewer will be shown above comments in OPAC',NULL,'YesNo');");
4211 print "Upgrade to $DBversion done (Add syspref ShowReviewer)\n";
4214 $DBversion = "3.03.00.040";
4215 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4216 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseControlNumber',0,'If ON, record control number (w subfields) and control number (001) are used for linking of bibliographic records.','','YesNo');");
4217 print "Upgrade to $DBversion done (Add syspref UseControlNumber)\n";
4220 $DBversion = "3.03.00.041";
4221 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4222 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AlternateHoldingsField','','The MARC field/subfield that contains alternate holdings information for bibs taht do not have items attached (e.g. 852abchi for libraries converting from MARC Magician).',NULL,'free')");
4223 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AlternateHoldingsSeparator','','The string to use to separate subfields in alternate holdings displays.',NULL,'free')");
4224 print "Upgrade to $DBversion done (Add sysprefs to control alternate holdings information display)\n";
4225 SetVersion ($DBversion);
4228 $DBversion = '3.03.00.042';
4229 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4230 stocknumber_checker();
4231 print "Upgrade to $DBversion done (5860 Index itemstocknumber)\n";
4232 SetVersion ($DBversion);
4235 sub stocknumber_checker { #code reused later on
4237 #drop the obsolete itemSStocknumber idx if it exists
4238 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemsstocknumberidx'");
4239 $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;") if @row;
4241 #check itemstocknumber idx; remove it if it is unique
4242 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx' AND non_unique=0");
4243 $dbh->do("ALTER TABLE `items` DROP INDEX `itemstocknumberidx`;") if @row;
4245 #add itemstocknumber index non-unique IF it still not exists
4246 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx'");
4247 $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);") unless @row;
4250 $DBversion = "3.03.00.043";
4251 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4253 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','0','No','No')");
4254 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','1','Yes','Yes')");
4256 print "Upgrade to $DBversion done ( add generic boolean YES_NO authorised_values pair )\n";
4257 SetVersion ($DBversion);
4260 $DBversion = '3.03.00.044';
4261 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4262 $dbh->do("ALTER TABLE `aqbasketgroups` ADD `freedeliveryplace` TEXT NULL AFTER `deliveryplace`;");
4263 print "Upgrade to $DBversion done (adding freedeliveryplace to basketgroups)\n";
4266 $DBversion = '3.03.00.045';
4267 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4268 #Remove obsolete columns from aqbooksellers if needed
4269 my $a = $dbh->selectall_hashref('SHOW columns from aqbooksellers','Field');
4270 my $sqldrop="ALTER TABLE aqbooksellers DROP COLUMN ";
4271 foreach(qw/deliverydays followupdays followupscancel invoicedisc nocalc specialty/) {
4272 $dbh->do($sqldrop.$_) if exists $a->{$_};
4274 #Remove obsolete column from aqbudgets if needed
4275 #The correct column is budget_notes
4276 $a = $dbh->selectall_hashref('SHOW columns from aqbudgets','Field');
4277 if(exists $a->{budget_description}) {
4278 $dbh->do("ALTER TABLE aqbudgets DROP COLUMN budget_description");
4280 print "Upgrade to $DBversion done (Remove obsolete columns from aqbooksellers and aqbudgets if needed)\n";
4281 SetVersion ($DBversion);
4284 $DBversion = "3.03.00.046";
4285 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4286 $dbh->do("ALTER TABLE overduerules ALTER delay1 SET DEFAULT NULL, ALTER delay2 SET DEFAULT NULL, ALTER delay3 SET DEFAULT NULL");
4287 print "Upgrade to $DBversion done (Setting NULL default value for delayn columns in table overduerules)\n";
4288 SetVersion($DBversion);
4291 $DBversion = '3.03.00.047';
4292 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4293 $dbh->do("ALTER TABLE borrowers ADD `state` mediumtext AFTER city;");
4294 $dbh->do("ALTER TABLE borrowers ADD `B_state` mediumtext AFTER B_city;");
4295 $dbh->do("ALTER TABLE borrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4296 $dbh->do("ALTER TABLE deletedborrowers ADD `state` mediumtext AFTER city;");
4297 $dbh->do("ALTER TABLE deletedborrowers ADD `B_state` mediumtext AFTER B_city;");
4298 $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4299 print "Upgrade to $DBversion done (Add state field to patron's addresses)\n";
4302 $DBversion = '3.03.00.048';
4303 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4304 $dbh->do("ALTER TABLE branches ADD `branchstate` mediumtext AFTER `branchcity`;");
4305 print "Upgrade to $DBversion done (Add state to branch address)\n";
4306 SetVersion ($DBversion);
4309 $DBversion = '3.03.00.049';
4310 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4311 $dbh->do("ALTER TABLE `accountlines` ADD `note` text NULL default NULL");
4312 $dbh->do("ALTER TABLE `accountlines` ADD `manager_id` int( 11 ) NULL ");
4313 print "Upgrade to $DBversion done (adding note and manager_id fields in accountlines table)\n";
4314 SetVersion($DBversion);
4317 $DBversion = "3.03.00.050";
4318 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4320 INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacHiddenItems','','This syspref allows to define custom rules for hiding specific items at opac. See docs/opac/OpacHiddenItems.txt for more informations.','','Textarea');
4322 print "Upgrade to $DBversion done (Adding OpacHiddenItems syspref)\n";
4323 SetVersion($DBversion);
4326 $DBversion = "3.03.00.051";
4327 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4328 print "Upgrade to $DBversion done (Remove spaces and dashes from message_attribute names)\n";
4329 $dbh->do("UPDATE message_attributes SET message_name = 'Item_Due' WHERE message_name='Item Due'");
4330 $dbh->do("UPDATE message_attributes SET message_name = 'Advance_Notice' WHERE message_name='Advance Notice'");
4331 $dbh->do("UPDATE message_attributes SET message_name = 'Hold_Filled' WHERE message_name='Hold Filled'");
4332 $dbh->do("UPDATE message_attributes SET message_name = 'Item_Check_in' WHERE message_name='Item Check-in'");
4333 $dbh->do("UPDATE message_attributes SET message_name = 'Item_Checkout' WHERE message_name='Item Checkout'");
4334 SetVersion ($DBversion);
4337 $DBversion = "3.03.00.052";
4338 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4339 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('WaitingNotifyAtCheckin',0,'If ON, notify librarians of waiting holds for the patron whose items they are checking in.',NULL,'YesNo');");
4340 print "Upgrade to $DBversion done (Add syspref WaitingNotifyAtCheckin)\n";
4341 SetVersion ($DBversion);
4344 $DBversion = "3.04.00.000";
4345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4346 print "Upgrade to $DBversion done Koha 3.4.0 release \n";
4347 SetVersion ($DBversion);
4350 $DBversion = "3.05.00.001";
4351 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4353 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('numSearchRSSResults',50,'Specify the maximum number of results to display on a RSS page of results',NULL,'Integer');
4355 print "Upgrade to $DBversion done (Adds New System preference numSearchRSSResults)\n";
4356 SetVersion($DBversion);
4359 $DBversion = '3.05.00.002';
4360 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4361 #follow up fix 5860: some installs already past 3.3.0.42
4362 stocknumber_checker();
4363 print "Upgrade to $DBversion done (Fix for stocknumber index)\n";
4364 SetVersion ($DBversion);
4367 $DBversion = "3.05.00.003";
4368 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4370 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacRenewalBranch','checkoutbranch','Choose how the branch for an OPAC renewal is recorded in statistics','itemhomebranch|patronhomebranch|checkoutbranch|null','Choice');
4372 print "Upgrade to $DBversion done (Adds New System preference OpacRenewalBranch)\n";
4373 SetVersion($DBversion);
4376 $DBversion = "3.05.00.004";
4377 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4378 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ShowReviewerPhoto',1,'If ON, photo of reviewer will be shown beside comments in OPAC',NULL,'YesNo');");
4379 print "Upgrade to $DBversion done (Add syspref ShowReviewerPhoto)\n";
4380 SetVersion($DBversion);
4383 $DBversion = "3.05.00.005";
4384 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4385 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('BasketConfirmations', '1', 'When closing or reopening a basket,', 'always ask for confirmation.|do not ask for confirmation.', 'Choice');");
4386 print "Upgrade to $DBversion done (Adds pref BasketConfirmations)\n";
4387 SetVersion($DBversion);
4390 $DBversion = "3.05.00.006";
4391 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4392 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('MARCAuthorityControlField008', '|| aca||aabn | a|a d', NULL, NULL, 'Textarea')");
4393 print "Upgrade to $DBversion done (Add syspref MARCAuthorityControlField008)\n";
4394 SetVersion ($DBversion);
4397 $DBversion = "3.05.00.007";
4398 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4399 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpenLibraryCovers',0,'If ON Openlibrary book covers will be show',NULL,'YesNo');");
4400 print "Upgrade to $DBversion done (Add syspref OpenLibraryCovers)\n";
4401 SetVersion($DBversion);
4404 $DBversion = "3.05.00.008";
4405 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4406 $dbh->do("ALTER TABLE `cities` ADD `city_state` VARCHAR( 100 ) NULL DEFAULT NULL AFTER `city_name`;");
4407 $dbh->do("ALTER TABLE `cities` ADD `city_country` VARCHAR( 100 ) NULL DEFAULT NULL AFTER `city_zipcode`;");
4408 print "Add state and country to cities table corresponding to new columns in borrowers\n";
4409 SetVersion($DBversion);
4412 $DBversion = "3.05.00.009";
4413 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4414 $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4415 SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE borrowernumber IS NULL");
4416 $dbh->do("DELETE FROM issues WHERE borrowernumber IS NULL");
4418 $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4419 SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE itemnumber IS NULL");
4420 $dbh->do("DELETE FROM issues WHERE itemnumber IS NULL");
4422 $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4423 SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowernumber = issues.borrowernumber)");
4424 $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowernumber = issues.borrowernumber)");
4426 $dbh->do("INSERT INTO old_issues (borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate)
4427 SELECT borrowernumber, itemnumber, date_due, branchcode, issuingbranch, returndate, lastreneweddate, `return`, renewals, timestamp, issuedate FROM issues WHERE NOT EXISTS (SELECT * FROM items WHERE itemnumber = issues.itemnumber)");
4428 $dbh->do("DELETE FROM issues WHERE NOT EXISTS (SELECT * FROM items WHERE itemnumber = issues.itemnumber)");
4430 $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_1`");
4431 $dbh->do("ALTER TABLE issues DROP FOREIGN KEY `issues_ibfk_2`");
4432 $dbh->do("ALTER TABLE issues ALTER COLUMN borrowernumber DROP DEFAULT");
4433 $dbh->do("ALTER TABLE issues ALTER COLUMN itemnumber DROP DEFAULT");
4434 $dbh->do("ALTER TABLE issues MODIFY COLUMN borrowernumber int(11) NOT NULL");
4435 $dbh->do("ALTER TABLE issues MODIFY COLUMN itemnumber int(11) NOT NULL");
4436 $dbh->do("ALTER TABLE issues DROP KEY `issuesitemidx`");
4437 $dbh->do("ALTER TABLE issues ADD PRIMARY KEY (`itemnumber`)");
4438 $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4439 $dbh->do("ALTER TABLE issues ADD CONSTRAINT `issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE RESTRICT ON UPDATE CASCADE");
4441 print "Upgrade to $DBversion done (issues referential integrity)\n";
4442 SetVersion ($DBversion);
4445 $DBversion = "3.05.00.010";
4446 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4447 $dbh->do("CREATE INDEX priorityfoundidx ON reserves (priority,found)");
4448 print "Create an index on reserves to speed up holds awaiting pickup report bug 5866\n";
4449 SetVersion($DBversion);
4453 $DBversion = "3.05.00.011";
4454 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4455 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACResultsSidebar','','Define HTML to be included on the search results page, underneath the facets sidebar','70|10','Textarea')");
4456 print "Upgrade to $DBversion done (add OPACResultsSidebar syspref (enh 6165))\n";
4457 SetVersion($DBversion);
4460 $DBversion = "3.05.00.012";
4461 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4462 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('RecordLocalUseOnReturn',0,'If ON, statistically record returns of unissued items as local use, instead of return',NULL,'YesNo')");
4463 print "Upgrade to $DBversion done (add RecordLocalUseOnReturn syspref (enh 6403))\n";
4464 SetVersion($DBversion);
4467 $DBversion = "3.05.00.013";
4468 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4469 $dbh->do(qq|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OpacKohaUrl','0',"Show 'Powered by Koha' text on OPAC footer.",NULL,NULL)|);
4470 print "Upgrade to $DBversion done (Add syspref 'OpacKohaUrl')\n";
4471 SetVersion($DBversion);
4474 $DBversion = "3.05.00.014";
4475 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4476 $dbh->do("ALTER TABLE `borrowers` MODIFY `userid` VARCHAR(75)");
4477 print "Modified userid column length into 75 in borrowers\n";
4478 SetVersion($DBversion);
4481 $DBversion = "3.05.00.015";
4482 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4483 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectEnabled',0,'Enable Novelist Select content. Requires Novelist Profile and Password',NULL,'YesNo')");
4484 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectProfile',NULL,'Novelist Select user Password',NULL,'free')");
4485 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectPassword',NULL,'Enable Novelist user Profile',NULL,'free')");
4486 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('NovelistSelectView','tab','Where to display Novelist Select content','tab|above|below|right','Choice')");
4487 print "Upgrade to $DBversion done (Add support for EBSCO's NoveList Select (enh 6902))\n";
4488 SetVersion($DBversion);
4491 $DBversion = '3.05.00.016';
4492 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4493 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('EasyAnalyticalRecords','0','If on, display in the catalogue screens tools to easily setup analytical record relationships','','YesNo');");
4494 print "Upgrade to $DBversion done (Add EasyAnalyticalRecords syspref)\n";
4495 SetVersion ($DBversion);
4498 $DBversion = '3.05.00.017';
4499 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4500 if (C4::Context->preference("marcflavour") eq 'MARC21' ||
4501 C4::Context->preference("marcflavour") eq 'NORMARC'){
4502 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('773', '0', 'Host Biblionumber', 'Host Biblionumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4503 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('773', '9', 'Host Itemnumber', 'Host Itemnumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4504 print "Upgrade to $DBversion done (Add 773 subfield 9 and 0 to default framework)\n";
4505 SetVersion ($DBversion);
4506 } elsif (C4::Context->preference("marcflavour") eq 'UNIMARC'){
4507 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('461', '9', 'Host Itemnumber', 'Host Itemnumber', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4508 print "Upgrade to $DBversion done (Add 461 subfield 9 to default framework)\n";
4509 SetVersion ($DBversion);
4513 $DBversion = "3.05.00.018";
4514 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4515 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacNavBottom','','Links after OpacNav links','70|10','Textarea')");
4516 print "Upgrade to $DBversion done (add OpacNavBottom syspref (enh 6825): if appropriate, you can split OpacNav into OpacNav and OpacNavBottom)\n";
4517 SetVersion($DBversion);
4520 $DBversion = "3.05.00.019";
4521 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4522 $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4523 $dbh->do("UPDATE itemtypes SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4524 $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book.png' WHERE imageurl = 'vokal/BOOK.png'");
4525 $dbh->do("UPDATE authorised_values SET imageurl = 'vokal/Book-32px.png' WHERE imageurl = 'vokal/BOOK-32px.png'");
4526 print "Upgrade to $DBversion done (remove duplicate VOKAL Book icons, bug 6862)\n";
4527 SetVersion($DBversion);
4530 $DBversion = "3.05.00.020";
4531 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4532 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('AcqViewBaskets','user','user|branch|all','Define which baskets a user is allowed to view: his own only, any within his branch or all','Choice')");
4533 print "Upgrade to $DBversion done (Add syspref AcqViewBaskets)\n";
4534 SetVersion($DBversion);
4537 $DBversion = "3.05.00.021";
4538 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4539 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN display_checkout TINYINT(1) NOT NULL DEFAULT '0';");
4540 print "Upgrade to $DBversion done (Added a display_checkout field in borrower_attribute_types table)\n";
4541 SetVersion($DBversion);
4544 $DBversion = "3.05.00.022";
4545 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4546 $dbh->do("CREATE TABLE need_merge_authorities (id int NOT NULL auto_increment PRIMARY KEY, authid bigint NOT NULL, done tinyint DEFAULT 0) ENGINE=InnoDB DEFAULT CHARSET=utf8");
4547 print "Upgrade to $DBversion done (6094: Fixing ModAuthority problems, add a need_merge_authorities table)\n";
4548 SetVersion($DBversion);
4551 $DBversion = "3.05.00.023";
4552 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4553 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowRecentComments',0,'If ON a link to recent comments will appear in the OPAC masthead',NULL,'YesNo');");
4554 print "Upgrade to $DBversion done (Add syspref OpacShowRecentComments. When the preference is turned on a link to recent comments will appear in the OPAC masthead. )\n";
4555 SetVersion($DBversion);
4558 $DBversion = "3.06.00.000";
4559 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4560 print "Upgrade to $DBversion done Koha 3.6.0 release \n";
4561 SetVersion ($DBversion);
4564 $DBversion = "3.07.00.001";
4565 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4566 my $borrowers = $dbh->selectcol_arrayref( "SELECT borrowernumber from borrowers where debarred =1;", { Columns => [1] } );
4567 $dbh->do("ALTER TABLE borrowers MODIFY debarred DATE DEFAULT NULL;");
4568 $dbh->do( "UPDATE borrowers set debarred='9999-12-31' where borrowernumber IN (" . join( ",", @$borrowers ) . ");" ) if ($borrowers and scalar(@$borrowers)>0);
4569 $dbh->do("ALTER TABLE borrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4570 $dbh->do("ALTER TABLE deletedborrowers MODIFY debarred DATE DEFAULT NULL;");
4571 $dbh->do("ALTER TABLE deletedborrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4572 print "Upgrade done (Change borrowers.debarred into Date )\n";
4573 SetVersion($DBversion);
4576 $DBversion = "3.07.00.002";
4577 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4578 $dbh->do("UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00';");
4579 print "Setting NULL to debarred where 0000-00-00 is stored (bug 7272)\n";
4580 SetVersion($DBversion);
4583 $DBversion = "3.07.00.003";
4584 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4585 $dbh->do(" UPDATE `message_attributes` SET message_name='Item_Due' WHERE message_name='Item_DUE'");
4586 print "Updating message_name in message_attributes\n";
4587 SetVersion($DBversion);
4590 $DBversion = "3.07.00.004";
4591 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4592 $dbh->do("ALTER TABLE `suggestions` ADD `patronreason` TEXT NULL AFTER `reason`");
4593 print "Upgrade to $DBversion done (Add column to suggestions table to store patrons' reasons for submitting a suggestion. )\n";
4594 SetVersion($DBversion);
4597 $DBversion = "3.07.00.005";
4598 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4599 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('BorrowerUnwantedField','','Name the fields you don''t need to store for a patron''s account',NULL,'free')");
4600 print "Upgrade to $DBversion done (BorrowerUnwantedField syspref)\n";
4601 SetVersion ($DBversion);
4604 $DBversion = "3.07.00.006";
4605 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4606 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('CircAutoPrintQuickSlip', '1', 'Choose what should happen when an empty barcode field is submitted in circulation: Display a print quick slip window or Clear the screen.',NULL,'YesNo');");
4607 print "Upgrade to $DBversion done (Add syspref CircAutoPrintQuickSlip to control what should happen when an empty barcode field is submitted in circulation: Display a print quick slip window (default value, 3.6 behaviour) or clear the screen (previous 3.6 behaviour). )\n";
4608 SetVersion($DBversion);
4611 $DBversion = "3.07.00.007";
4612 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4613 $dbh->do("ALTER TABLE items MODIFY materials text;");
4614 print "Upgrade to $DBversion done alter items.material from varchar(10) to text \n";
4615 SetVersion($DBversion);
4618 $DBversion = '3.07.00.008';
4619 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4620 if (C4::Context->preference("marcflavour") eq 'MARC21') {
4621 if (C4::Context->preference("opaclanguages") eq "de") {
4622 $dbh->do("INSERT INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES ('545', 'Fußnote zu biografischen oder historischen Daten', 'Fußnote zu biografischen oder historischen Daten', 1, 0, NULL, '');");
4624 $dbh->do("INSERT INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES ('545', 'BIOGRAPHICAL OR HISTORICAL DATA', 'BIOGRAPHICAL OR HISTORICAL DATA', 1, 0, NULL, '');");
4627 print "Upgrade to $DBversion done (add MARC21 field 545 to framework)\n";
4628 SetVersion ($DBversion);
4631 $DBversion = "3.07.00.009";
4632 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4633 $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `claims_count` INT(11) DEFAULT 0, ADD COLUMN `claimed_date` DATE DEFAULT NULL AFTER `claims_count`");
4634 print "Upgrade to $DBversion done (Add claims_count and claimed_date fields in aqorders table)\n";
4635 SetVersion($DBversion);
4638 $DBversion = "3.07.00.010";
4639 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4641 q|CREATE TABLE `biblioimages` (
4642 `imagenumber` int(11) NOT NULL AUTO_INCREMENT,
4643 `biblionumber` int(11) NOT NULL,
4644 `mimetype` varchar(15) NOT NULL,
4645 `imagefile` mediumblob NOT NULL,
4646 `thumbnail` mediumblob NOT NULL,
4647 PRIMARY KEY (`imagenumber`),
4648 CONSTRAINT `bibliocoverimage_fk1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
4649 ) ENGINE=InnoDB DEFAULT CHARSET=utf8|
4652 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACLocalCoverImages','0','Display local cover images on OPAC search and details pages.','1','YesNo')|
4655 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('LocalCoverImages','0','Display local cover images on intranet search and details pages.','1','YesNo')|
4658 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowMultipleCovers','0','Allow multiple cover images to be attached to each bibliographic record.','1','YesNo')|
4661 q|INSERT INTO permissions (module_bit, code, description) VALUES (13, 'upload_local_cover_images', 'Upload local cover images')|
4663 print "Upgrade to $DBversion done (Added support for local cover images)\n";
4664 SetVersion($DBversion);
4667 $DBversion = "3.07.00.011";
4668 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4669 $dbh->do(<<ENDOFRENEWAL);
4670 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('BorrowerRenewalPeriodBase', 'now', 'Set whether the borrower renewal date should be counted from the dateexpiry or from the current date ','dateexpiry|now','Choice');
4672 print "Upgrade to $DBversion done (Added a system preference to allow renewal of Patron account either from todays date or from existing expiry date in the patrons account.)\n";
4673 SetVersion($DBversion);
4676 $DBversion = "3.07.00.012";
4677 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4678 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowItemsOnHoldCheckout',0,'Do not generate RESERVE_WAITING and RESERVED warning when checking out items reserved to someone else. This allows self checkouts for those items.','','YesNo')");
4679 print "Upgrade to $DBversion add 'AllowItemsOnHoldCheckout' syspref \n";
4680 SetVersion ($DBversion);
4683 $DBversion = "3.07.00.013";
4684 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4685 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacExportOptions','bibtex|dc|marcxml|marc8|utf8|marcstd|mods|ris','Define available export options on OPAC detail page.','','free');");
4686 print "Upgrade to $DBversion done (Bug 7345: Add system preference OpacExportOptions.)\n";
4687 SetVersion ($DBversion);
4690 $DBversion = "3.07.00.014";
4691 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4692 print "RELTERMS category available for English-, French-, and Spanish-language relator terms. They are not loaded during upgrade but can be easily inserted using the provided marc21_relatorterms.sql SQL script (MARC21 only, and currently available for en, es, and fr only).\n";
4693 SetVersion($DBversion);
4696 $DBversion = "3.07.00.015";
4697 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4698 my $sth = $dbh->prepare(q|
4699 SELECT COUNT(*) FROM marc_subfield_structure where kohafield="biblioitems.editionstatement"
4702 my $already_exists = $sth->fetchrow;
4703 if ( not $already_exists ) {
4704 my $field = C4::Context->preference("marcflavour") eq "UNIMARC" ? "205" : "250";
4706 my $sth = $dbh->prepare( q|
4707 UPDATE marc_subfield_structure SET kohafield = "biblioitems.editionstatement"
4708 WHERE tagfield = ? AND tagsubfield = ?
4710 $sth->execute( $field, $subfield );
4711 print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement.)\n";
4713 print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement (already exists, nothing to do).)\n";
4715 SetVersion($DBversion);
4718 $DBversion = "3.07.00.016";
4719 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4720 $dbh->do("ALTER TABLE items ADD KEY `itemcallnumber` (itemcallnumber)");
4721 print "Upgrade to $DBversion done (Added index on items.itemcallnumber)\n";
4722 SetVersion($DBversion);
4725 $DBversion = "3.07.00.017";
4726 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4727 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('TransferWhenCancelAllWaitingHolds','0','Transfer items when cancelling all waiting holds',NULL,'YesNo')");
4728 print "Upgrade to $DBversion done (Add sysprefs to control transfer when cancel all waiting holds)\n";
4729 SetVersion ($DBversion);
4732 $DBversion = "3.07.00.018";
4733 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4734 $dbh->do("CREATE TABLE pending_offline_operations ( operationid int(11) NOT NULL AUTO_INCREMENT, userid varchar(30) NOT NULL, branchcode varchar(10) NOT NULL, timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP, action varchar(10) NOT NULL, barcode varchar(20) NOT NULL, cardnumber varchar(16) DEFAULT NULL, PRIMARY KEY (operationid) ) ENGINE=MyISAM DEFAULT CHARSET=utf8;");
4735 print "Upgrade to $DBversion done ( adding offline operations table )\n";
4736 SetVersion($DBversion);
4739 $DBversion = "3.07.00.019";
4740 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4741 $dbh->do(" UPDATE `systempreferences` SET `value` = 'none', `options` = 'none|full|first|surname|firstandinitial|username', `explanation` = 'Choose how a commenter''s identity is presented alongside comments in the OPAC', `type` = 'Choice' WHERE `systempreferences`.`variable` = 'ShowReviewer' AND `systempreferences`.`variable` = 0");
4742 $dbh->do(" UPDATE `systempreferences` SET `value` = 'full', `options` = 'none|full|first|surname|firstandinitial|username', `explanation` = 'Choose how a commenter''s identity is presented alongside comments in the OPAC', `type` = 'Choice' WHERE `systempreferences`.`variable` = 'ShowReviewer' AND `systempreferences`.`variable` = 1");
4743 print "Upgrade to $DBversion done ( Adding additional options for the display of commenter's identity in the OPAC: Full name, first name, last name, first name and last name first initial, username, or no information)\n";
4744 SetVersion($DBversion);
4747 $DBversion = "3.07.00.020";
4748 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4749 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACpatronimages',0,'Enable patron images in the OPAC',NULL,'YesNo');");
4750 print "Upgrade to $DBversion done (Bug 3516: Add the option to show patron images in the OPAC.)\n";
4751 SetVersion($DBversion);
4754 $DBversion = "3.07.00.021";
4755 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4757 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerModule','Default','Chooses which linker module to use (see documentation).','Default|FirstMatchLastMatch','Choice');"
4760 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerOptions','','A pipe-separated list of options for the linker.','','free');"
4763 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerRelink',1,'If ON the authority linker will relink headings that have previously been linked every time it runs.',NULL,'YesNo');"
4766 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerKeepStale',0,'If ON the authority linker will keep existing authority links for headings where it is unable to find a match.',NULL,'YesNo');"
4769 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AutoCreateAuthorities',0,'Automatically create authorities that do not exist when cataloging records.',NULL,'YesNo');"
4772 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('CatalogModuleRelink',0,'If OFF the linker will never replace the authids that are set in the cataloging module.',NULL,'YesNo');"
4774 print "Upgrade to $DBversion done (Enhancement 7284, improved authority matching, see http://wiki.koha-community.org/wiki/Bug7284_authority_matching_improvement wiki page for configuration update needed)\n";
4775 SetVersion($DBversion);
4778 $DBversion = "3.07.00.022";
4779 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4780 $dbh->do("DELETE FROM reviews WHERE biblionumber NOT IN (SELECT biblionumber from biblio)");
4781 $dbh->do("UPDATE reviews SET borrowernumber = NULL WHERE borrowernumber NOT IN (SELECT borrowernumber FROM borrowers)");
4782 $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_2 FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
4783 $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber ) ON UPDATE CASCADE ON DELETE SET NULL");
4784 print "Upgrade to $DBversion done (Bug 7493 - Add constraint linking OPAC comment biblionumber to biblio, OPAC comment borrowernumber to borrowers.)\n";
4785 SetVersion($DBversion);
4788 $DBversion = "3.07.00.023";
4789 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4790 $dbh->do("ALTER TABLE `message_transports` DROP FOREIGN KEY `message_transports_ibfk_3`");
4791 $dbh->do("ALTER TABLE `letter` DROP PRIMARY KEY");
4792 $dbh->do("ALTER TABLE `letter` ADD `branchcode` varchar(10) default NULL AFTER `code`");
4793 $dbh->do("ALTER TABLE `letter` ADD PRIMARY KEY (`module`,`code`, `branchcode`)");
4794 $dbh->do("ALTER TABLE `message_transports` ADD `branchcode` varchar(10) NOT NULL default ''");
4795 $dbh->do("ALTER TABLE `message_transports` ADD CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`, `branchcode`) REFERENCES `letter` (`module`, `code`, `branchcode`) ON DELETE CASCADE ON UPDATE CASCADE");
4796 $dbh->do("ALTER TABLE `letter` ADD `is_html` tinyint(1) default 0 AFTER `name`");
4798 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4799 VALUES ('circulation','ISSUESLIP','Issue Slip','Issue Slip', '<h3><<branches.branchname>></h3>
4800 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4801 (<<borrowers.cardnumber>>) <br />
4805 <h4>Checked Out</h4>
4808 <<biblio.title>> <br />
4809 Barcode: <<items.barcode>><br />
4810 Date due: <<issues.date_due>><br />
4817 <<biblio.title>> <br />
4818 Barcode: <<items.barcode>><br />
4819 Date due: <<issues.date_due>><br />
4825 <h4 style=\"text-align: center; font-style:italic;\">News</h4>
4827 <div class=\"newsitem\">
4828 <h5 style=\"margin-bottom: 1px; margin-top: 1px\"><b><<opac_news.title>></b></h5>
4829 <p style=\"margin-bottom: 1px; margin-top: 1px\"><<opac_news.new>></p>
4830 <p class=\"newsfooter\" style=\"font-size: 8pt; font-style:italic; margin-bottom: 1px; margin-top: 1px\">Posted on <<opac_news.timestamp>></p>
4834 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4835 VALUES ('circulation','ISSUEQSLIP','Issue Quick Slip','Issue Quick Slip', '<h3><<branches.branchname>></h3>
4836 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4837 (<<borrowers.cardnumber>>) <br />
4841 <h4>Checked Out Today</h4>
4844 <<biblio.title>> <br />
4845 Barcode: <<items.barcode>><br />
4846 Date due: <<issues.date_due>><br />
4848 </checkedout>', 1)");
4849 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4850 VALUES ('circulation','RESERVESLIP','Reserve Slip','Reserve Slip', '<h5>Date: <<today>></h5>
4852 <h3> Transfer to/Hold in <<branches.branchname>></h3>
4854 <h3><<borrowers.surname>>, <<borrowers.firstname>></h3>
4857 <li><<borrowers.cardnumber>></li>
4858 <li><<borrowers.phone>></li>
4859 <li> <<borrowers.address>><br />
4860 <<borrowers.address2>><br />
4861 <<borrowers.city >> <<borrowers.zipcode>>
4863 <li><<borrowers.email>></li>
4866 <h3>ITEM ON HOLD</h3>
4867 <h4><<biblio.title>></h4>
4868 <h5><<biblio.author>></h5>
4870 <li><<items.barcode>></li>
4871 <li><<items.itemcallnumber>></li>
4872 <li><<reserves.waitingdate>></li>
4875 <pre><<reserves.reservenotes>></pre>
4877 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4878 VALUES ('circulation','TRANSFERSLIP','Transfer Slip','Transfer Slip', '<h5>Date: <<today>></h5>
4879 <h3>Transfer to <<branches.branchname>></h3>
4882 <h4><<biblio.title>></h4>
4883 <h5><<biblio.author>></h5>
4885 <li><<items.barcode>></li>
4886 <li><<items.itemcallnumber>></li>
4889 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NoticeCSS','','Notices CSS url.',NULL,'free')");
4890 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('SlipCSS','','Slips CSS url.',NULL,'free')");
4892 $dbh->do("UPDATE `letter` SET content = replace(content, '<<title>>', '<<biblio.title>>') WHERE code = 'HOLDPLACED'");
4894 print "Upgrade to $DBversion done (Add branchcode and is_html to letter table; Default ISSUESLIP, RESERVESLIP and TRANSFERSLIP letters; Add NoticeCSS and SlipCSS sysprefs)\n";
4895 SetVersion($DBversion);
4898 $DBversion = "3.07.00.024";
4899 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4900 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesMaxPickUpDelayCharge', '0', NULL , 'If ExpireReservesMaxPickUpDelay is enabled, and this field has a non-zero value, than a borrower whose waiting hold has expired will be charged this amount.', 'free')");
4901 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesMaxPickUpDelay', '0', '', 'Enabling this allows holds to expire automatically if they have not been picked by within the time period specified in ReservesMaxPickUpDelay', 'YesNo')");
4902 print "Upgrade to $DBversion done (Added system preference ExpireReservesMaxPickUpDelay, system preference ExpireReservesMaxPickUpDelayCharge, add reseves.charge_if_expired)\n";
4905 $DBversion = "3.07.00.025";
4906 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4907 if (TableExists('bibliocoverimage')) {
4908 $dbh->do( q|DROP TABLE bibliocoverimage;| );
4910 q|CREATE TABLE biblioimages (
4911 imagenumber int(11) NOT NULL AUTO_INCREMENT,
4912 biblionumber int(11) NOT NULL,
4913 mimetype varchar(15) NOT NULL,
4914 imagefile mediumblob NOT NULL,
4915 thumbnail mediumblob NOT NULL,
4916 PRIMARY KEY (imagenumber),
4917 CONSTRAINT bibliocoverimage_fk1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
4918 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
4921 print "Upgrade to $DBversion done (Correct table name for local cover images if needed. )\n";
4922 SetVersion($DBversion);
4925 $DBversion = "3.07.00.026";
4926 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4927 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('CalendarFirstDayOfWeek','Sunday','Select the first day of week to use in the calendar.','Sunday|Monday','Choice');");
4928 print "Upgrade to $DBversion done (Add syspref CalendarFirstDayOfWeek used to select the first day of week to use in the calendar. )\n";
4929 SetVersion($DBversion);
4932 $DBversion = "3.07.00.027";
4933 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4934 $dbh->do(q{INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RoutingListNote','','Define a note to be shown on all routing lists','70|10','Textarea');});
4935 print "Upgrade to $DBversion done (Added system preference RoutingListNote for adding a general note to all routing lists.)\n";
4936 SetVersion($DBversion);
4939 $DBversion = "3.07.00.028";
4940 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4942 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowPKIAuth','None','Use the field from a client-side SSL certificate to look a user in the Koha database','None|Common Name|emailAddress','Choice');
4944 print "Upgrade to $DBversion done (Bug 6296 New System preference AllowPKIAuth)\n";
4947 $DBversion = "3.07.00.029";
4948 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4949 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_descriptions`;});
4950 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_mappings`;});
4951 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_biblios`;});
4952 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets`;});
4955 CREATE TABLE `oai_sets` (
4956 `id` int(11) NOT NULL auto_increment,
4957 `spec` varchar(80) NOT NULL UNIQUE,
4958 `name` varchar(80) NOT NULL,
4960 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4964 CREATE TABLE `oai_sets_descriptions` (
4965 `set_id` int(11) NOT NULL,
4966 `description` varchar(255) NOT NULL,
4967 CONSTRAINT `oai_sets_descriptions_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4968 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4972 CREATE TABLE `oai_sets_mappings` (
4973 `set_id` int(11) NOT NULL,
4974 `marcfield` char(3) NOT NULL,
4975 `marcsubfield` char(1) NOT NULL,
4976 `marcvalue` varchar(80) NOT NULL,
4977 CONSTRAINT `oai_sets_mappings_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4978 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4982 CREATE TABLE `oai_sets_biblios` (
4983 `biblionumber` int(11) NOT NULL,
4984 `set_id` int(11) NOT NULL,
4985 PRIMARY KEY (`biblionumber`, `set_id`),
4986 CONSTRAINT `oai_sets_biblios_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
4987 CONSTRAINT `oai_sets_biblios_ibfk_2` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4988 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4992 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OAI-PMH:AutoUpdateSets','0','Automatically update OAI sets when a bibliographic record is created or updated','','YesNo');
4995 print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
4996 SetVersion($DBversion);
4999 $DBversion = "3.07.00.030";
5000 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5001 $dbh->do("ALTER TABLE default_circ_rules ADD
5002 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5003 $dbh->do("ALTER TABLE branch_item_rules ADD
5004 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5005 $dbh->do("ALTER TABLE default_branch_circ_rules ADD
5006 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5007 $dbh->do("ALTER TABLE default_branch_item_rules ADD
5008 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5009 # set the default rule to the current value of HomeOrHoldingBranchReturn (default to 'homebranch' if need be)
5010 my $homeorholdingbranchreturn = C4::Context->prefernce('HomeOrHoldingBranchReturn') || 'homebranch';
5011 $dbh->do("UPDATE default_circ_rules SET returnbranch = '$homeorholdingbranchreturn'");
5012 print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
5013 SetVersion($DBversion);
5016 $DBversion = "3.07.00.031";
5017 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5018 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UseICU', '1', 'Tell Koha if ICU indexing is in use for Zebra or not.','1','YesNo')");
5019 print "Upgrade to $DBversion done (Add syspref to tell Koha if ICU indexing is in use for Zebra or not.)\n";
5020 SetVersion ($DBversion);
5023 $DBversion = "3.07.00.032";
5024 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5025 $dbh->do("ALTER TABLE virtualshelves MODIFY COLUMN owner int"); #should have been int already (fk to borrowers)
5026 $dbh->do("UPDATE virtualshelves vi LEFT JOIN borrowers bo ON bo.borrowernumber=vi.owner SET vi.owner=NULL where bo.borrowernumber IS NULL"); #before adding the constraint on borrowernumber, we need to get rid of deleted owners
5027 $dbh->do("DELETE FROM virtualshelves WHERE owner IS NULL and category=1"); #delete private lists without owner (cascades to shelfcontents)
5028 $dbh->do("ALTER TABLE virtualshelves ADD COLUMN allow_add tinyint(1) DEFAULT 0, ADD COLUMN allow_delete_own tinyint(1) DEFAULT 1, ADD COLUMN allow_delete_other tinyint(1) DEFAULT 0, ADD CONSTRAINT `virtualshelves_ibfk_1` FOREIGN KEY (`owner`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL");
5029 $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=1");
5030 $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=2");
5031 $dbh->do("UPDATE virtualshelves SET allow_add=1, allow_delete_own=1, allow_delete_other=1 WHERE category=3");
5032 $dbh->do("UPDATE virtualshelves SET category=2 WHERE category=3");
5034 $dbh->do("ALTER TABLE virtualshelfcontents ADD COLUMN borrowernumber int, ADD CONSTRAINT `shelfcontents_ibfk_3` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL");
5035 $dbh->do("UPDATE virtualshelfcontents co LEFT JOIN virtualshelves sh USING (shelfnumber) SET co.borrowernumber=sh.owner");
5037 $dbh->do("CREATE TABLE virtualshelfshares
5038 (id int AUTO_INCREMENT PRIMARY KEY, shelfnumber int NOT NULL,
5039 borrowernumber int, invitekey varchar(10), sharedate datetime,
5040 CONSTRAINT `virtualshelfshares_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
5041 CONSTRAINT `virtualshelfshares_ibfk_2` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5043 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowPublicListCreation',1,'If set, allows opac users to create public lists',NULL,'YesNo');");
5044 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowSharingPrivateLists',0,'If set, allows opac users to share private lists with other patrons',NULL,'YesNo');");
5046 print "Upgrade to $DBversion done (BZ7310: Improving list permissions)\n";
5047 SetVersion($DBversion);
5050 $DBversion = "3.07.00.033";
5051 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5052 $dbh->do("ALTER TABLE branches ADD opac_info text;");
5053 print "Upgrade to $DBversion done add opac_info to branches \n";
5054 SetVersion($DBversion);
5057 $DBversion = "3.07.00.034";
5058 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5059 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN category_code VARCHAR(10) NULL DEFAULT NULL AFTER `display_checkout`");
5060 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN class VARCHAR(255) NOT NULL DEFAULT '' AFTER `category_code`");
5061 $dbh->do("ALTER TABLE borrower_attribute_types ADD CONSTRAINT category_code_fk FOREIGN KEY (category_code) REFERENCES categories(categorycode)");
5062 print "Upgrade to $DBversion done (New fields category_code and class in borrower_attribute_types table)\n";
5063 SetVersion($DBversion);
5066 $DBversion = "3.07.00.035";
5067 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5068 $dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");
5069 $dbh->do("UPDATE issues SET date_due = CONCAT(SUBSTR(date_due,1,11),'23:59:00')");
5070 $dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");
5071 $dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");
5072 $dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");
5073 $dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");
5074 $dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");
5075 $dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");
5076 $dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");
5077 $dbh->do("UPDATE accountlines SET description = CONCAT(description,' 23:59') WHERE accounttype='F' OR accounttype='FU'"); #BUG-8253
5078 print "Upgrade to $DBversion done (Setting up issues and accountlines tables for hourly loans)\n";
5079 SetVersion($DBversion);
5082 $DBversion = "3.07.00.036";
5083 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5085 ALTER TABLE z3950servers ADD timeout INT( 11 ) NOT NULL DEFAULT '0' AFTER syntax;
5087 print "Upgrade to $DBversion done (New timeout field in z3950servers)\n";
5090 $DBversion = "3.07.00.037";
5091 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5093 ALTER TABLE `marc_subfield_structure` ADD `maxlength` INT( 4 ) NOT NULL DEFAULT '9999';
5096 UPDATE `marc_subfield_structure` SET maxlength=24 WHERE tagfield='000';
5099 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='MARC21','40','9999') WHERE tagfield='008';
5102 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='NORMARC','40','9999') WHERE tagfield='008';
5105 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='UNIMARC','36','9999') WHERE tagfield='100';
5107 print "Upgrade to $DBversion done (Add new field maxlength to marc_subfield_structure)\n";
5108 SetVersion($DBversion);
5111 $DBversion = "3.07.00.038";
5112 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5114 INSERT INTO systempreferences(variable,value,explanation,options,type)
5115 VALUES('UniqueItemFields', 'barcode', 'Space-separated list of fields that should be unique (used in acquisition module for item creation). Fields must be valid SQL column names of items table', '', 'Free')
5117 print "Upgrade to $DBversion done (Added system preference 'UniqueItemFields')\n";
5118 SetVersion($DBversion);
5121 $DBversion = "3.07.00.039";
5122 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5123 $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('Babeltheque_url_js','','Url for Babeltheque javascript (e.g. http://www.babeltheque.com/bw_XX.js','','Free')} );
5124 $dbh->do( qq{CREATE TABLE IF NOT EXISTS social_data
5127 num_critics_pro INT,
5130 score_avg DECIMAL(5,2),
5133 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5135 $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('Babeltheque_url_update', '', 'Url for Babeltheque update (E.G. http://www.babeltheque.com/.../file.csv.bz2)', '', 'Free')} );
5136 print "Upgrade to $DBversion done (added syspref and table for babeltheque (Babeltheque_url_js, babeltheque))\n";
5137 SetVersion($DBversion);
5140 $DBversion = "3.07.00.040";
5141 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5142 $dbh->do( qq{INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('SocialNetworks','0','Enable/Disable social networks links in opac detail','','YesNo')} );
5143 print "Upgrade to $DBversion done (added syspref SocialNetworks, to display facebook/ggl+ and other buttons)\n";
5144 SetVersion($DBversion);
5149 $DBversion = "3.07.00.041";
5150 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5151 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('SubscriptionDuplicateDroppedInput','','','List of fields which must not be rewritten when a subscription is duplicated (Separated by pipe |)','Free')");
5152 print "Upgrade to $DBversion done (Add system preference SubscriptionDuplicateDroppedInput)\n";
5153 SetVersion($DBversion);
5156 $DBversion = "3.07.00.042";
5157 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5158 $dbh->do("ALTER TABLE reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5159 $dbh->do("ALTER TABLE old_reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5161 $dbh->do("ALTER TABLE reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5162 $dbh->do("ALTER TABLE old_reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5164 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AutoResumeSuspendedHolds', '1', NULL , 'Allow suspended holds to be automatically resumed by a set date.', 'YesNo')");
5166 print "Upgrade to $DBversion done (Add suspend fields to reserves table, add syspref AutoResumeSuspendedHolds)\n";
5167 SetVersion ($DBversion);
5170 $DBversion = "3.07.00.043";
5171 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5172 my $countXSLTDetailsDisplay = 0;
5173 my $valueXSLTDetailsDisplay = "";
5174 my $valueXSLTResultsDisplay = "";
5175 my $valueOPACXSLTDetailsDisplay = "";
5176 my $valueOPACXSLTResultsDisplay = "";
5177 #the line below test if database comes from a BibLibre's branch
5178 $countXSLTDetailsDisplay = $dbh->do('SELECT 1 FROM systempreferences WHERE variable="IntranetXSLTDetailsDisplay"');
5179 if ($countXSLTDetailsDisplay > 0)
5181 #the two lines below will only be used to update the databases from the BibLibre's branch. They will not affect the others
5182 $dbh->do(q|UPDATE systempreferences SET variable="XSLTDetailsDisplay" WHERE variable="IntranetXSLTDetailsDisplay"|);
5183 $dbh->do(q|UPDATE systempreferences SET variable="XSLTResultsDisplay" WHERE variable="IntranetXSLTResultsDisplay"|);
5187 $valueXSLTDetailsDisplay = "default" if (C4::Context->preference("XSLTDetailsDisplay"));
5188 $valueXSLTResultsDisplay = "default" if (C4::Context->preference("XSLTResultsDisplay"));
5189 $valueOPACXSLTDetailsDisplay = "default" if (C4::Context->preference("OPACXSLTDetailsDisplay"));
5190 $valueOPACXSLTResultsDisplay = "default" if (C4::Context->preference("OPACXSLTResultsDisplay"));
5191 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTDetailsDisplay\" WHERE variable='XSLTDetailsDisplay'");
5192 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTResultsDisplay\" WHERE variable='XSLTResultsDisplay'");
5193 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTDetailsDisplay\" WHERE variable='OPACXSLTDetailsDisplay'");
5194 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTResultsDisplay\" WHERE variable='OPACXSLTResultsDisplay'");
5196 print "Upgrade to $DBversion done (XSLT systempreference takes a path to file rather than YesNo)\n";
5197 SetVersion($DBversion);
5200 $DBversion = "3.07.00.044";
5201 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5202 $dbh->do("ALTER TABLE aqbooksellers ADD deliverytime INT DEFAULT NULL");
5203 print "Upgrade to $DBversion done (Add deliverytime field in aqbooksellers table)";
5204 SetVersion($DBversion);
5207 $DBversion = "3.07.00.045";
5208 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5209 $dbh->do("ALTER TABLE import_batches MODIFY COLUMN batch_type ENUM('batch','z3950','webservice') NOT NULL default 'batch'");
5210 print "Upgrade to $DBversion done (Add 'webservice' to batch_type enum)\n";
5211 SetVersion ($DBversion);
5214 $DBversion = "3.07.00.046";
5215 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5216 $dbh->do("ALTER TABLE issuingrules ADD COLUMN lengthunit varchar(10) DEFAULT 'days' AFTER issuelength");
5217 print "Upgrade to $DBversion done (Setting up issues tables for hourly loans (lengthunit fix))\n";
5218 SetVersion($DBversion);
5221 $DBversion = "3.07.00.047";
5222 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5223 $dbh->do("CREATE INDEX items_location ON items(location)");
5224 $dbh->do("CREATE INDEX items_ccode ON items(ccode)");
5225 print "Upgrade to $DBversion done (items_location and items_ccode indexes added for ShelfBrowser)\n";
5226 SetVersion($DBversion);
5229 $DBversion = "3.07.00.048";
5230 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5232 q | CREATE TABLE ratings (
5233 borrowernumber int(11) NOT NULL,
5234 biblionumber int(11) NOT NULL,
5235 rating_value tinyint(1) NOT NULL,
5236 timestamp timestamp NOT NULL default CURRENT_TIMESTAMP,
5237 PRIMARY KEY (borrowernumber,biblionumber),
5238 CONSTRAINT ratings_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
5239 CONSTRAINT ratings_ibfk_2 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
5240 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |
5244 q /INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacStarRatings','disable',NULL,'disable|all|details','Choice') /
5248 "Upgrade to $DBversion done (Add 'ratings' table and 'OpacStarRatings' syspref)\n";
5249 SetVersion($DBversion);
5252 $DBversion = "3.07.00.049";
5253 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5254 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacBrowseResults','1','Disable/enable browsing and paging search results from the OPAC detail page.',NULL,'YesNo')");
5255 print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5256 SetVersion($DBversion);
5259 $DBversion = "3.08.00.000";
5260 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5261 print "Upgrade to $DBversion done\n";
5262 SetVersion($DBversion);
5265 $DBversion = "3.09.00.001";
5266 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5267 $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 1 ) NULL DEFAULT NULL");
5268 print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table to allow NULL category_code)\n";
5269 SetVersion($DBversion);
5272 $DBversion = "3.09.00.002";
5273 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5274 $dbh->do("ALTER TABLE saved_sql
5276 cache_expiry INT NOT NULL DEFAULT 300,
5277 public BOOLEAN NOT NULL DEFAULT FALSE
5280 print "Upgrade to $DBversion done (Added cache_expiry and public fields in
5281 saved_reports table.)\n";
5282 SetVersion($DBversion);
5285 $DBversion = "3.09.00.003";
5286 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5287 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');");
5288 print "Upgrade to $DBversion done (Added SvcMaxReportRows syspref)\n";
5289 SetVersion($DBversion);
5292 $DBversion = "3.09.00.004";
5293 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5294 $dbh->do("INSERT IGNORE INTO permissions (module_bit, code, description) VALUES('13', 'edit_patrons', 'Perform batch modifivation of patrons')");
5295 print "Upgrade to $DBversion done (Adds permissions flag for access to the patron modifications tool)\n";
5296 SetVersion($DBversion);
5299 $DBversion = "3.09.00.005";
5300 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5301 unless (TableExists('quotes')) {
5303 CREATE TABLE `quotes` (
5304 `id` int(11) NOT NULL AUTO_INCREMENT,
5305 `source` text DEFAULT NULL,
5306 `text` mediumtext NOT NULL,
5307 `timestamp` datetime NOT NULL,
5309 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5313 INSERT IGNORE INTO permissions VALUES (13, "edit_quotes","Edit quotes for quote-of-the-day feature");
5316 INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QuoteOfTheDay',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL,'YesNo');
5318 print "Upgrade to $DBversion done (Adding Quote of the Day Option.)\n";
5319 SetVersion($DBversion);
5322 $DBversion = "3.09.00.006";
5323 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5324 $dbh->do("UPDATE systempreferences SET
5325 variable = 'OPACShowHoldQueueDetails',
5326 value = CASE value WHEN '1' THEN 'priority' ELSE 'none' END,
5327 options = 'none|priority|holds|holds_priority',
5328 explanation = 'Show holds details in OPAC',
5330 WHERE variable = 'OPACDisplayRequestPriority'");
5331 print "Upgrade to $DBversion done (Changed system preference OPACDisplayRequestPriority -> OPACShowHoldQueueDetails)\n";
5332 SetVersion($DBversion);
5335 $DBversion = "3.09.00.007";
5336 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5337 unless(C4::Context->preference('ReservesControlBranch')){
5338 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights.','Choice')");
5340 print "Upgrade to $DBversion done (Insert ReservesControlBranch systempreference into systempreferences table )\n";
5341 SetVersion($DBversion);
5344 $DBversion = "3.09.00.008";
5345 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5346 $dbh->do("ALTER TABLE sessions ADD PRIMARY KEY (id);");
5347 $dbh->do("ALTER TABLE sessions DROP INDEX `id`;");
5348 print "Upgrade to $DBversion done (redefine the field id as PRIMARY KEY of sessions)\n";
5349 SetVersion($DBversion);
5352 $DBversion = "3.09.00.009";
5353 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5354 $dbh->do("ALTER TABLE branches ADD PRIMARY KEY (branchcode);");
5355 $dbh->do("ALTER TABLE branches DROP INDEX branchcode;");
5356 print "Upgrade to $DBversion done (redefine the field branchcode as PRIMARY KEY of branches)\n";
5357 SetVersion ($DBversion);
5360 $DBversion = "3.09.00.010";
5361 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5362 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('IssueLostItem', 'alert', 'alert|confirm|nothing', 'Defines what should be done when an attempt is made to issue an item that has been marked as lost.', 'Choice')");
5363 print "Upgrade to $DBversion done (Add system preference issuelostitem ))\n";
5364 SetVersion($DBversion);
5367 $DBversion = "3.09.00.011";
5368 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5369 $dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5370 $dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) ");
5371 $dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5372 if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
5373 $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'");
5375 print "Upgrade to $DBversion done (Adding ean in biblioitems and deletedbiblioitems)\n";
5376 print "If you have records with ean, please run misc/batchRebuildBiblioTables.pl to populate bibliotems.ean\n" if (C4::Context->preference("marcflavour") eq 'UNIMARC');
5377 SetVersion($DBversion);
5380 $DBversion = "3.09.00.012";
5381 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5382 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsIntranet', '1', NULL , 'Allow holds to be suspended from the intranet.', 'YesNo')");
5383 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsOpac', '1', NULL , 'Allow holds to be suspended from the OPAC.', 'YesNo')");
5384 print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5385 SetVersion($DBversion);
5388 $DBversion ="3.09.00.013";
5389 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5390 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('DefaultLanguageField008','','Fill in the default language for field 008 Range 35-37 (e.g. eng, nor, ger, see www.loc.gov/marc/languages/language_code.html)','','Free');");
5391 print "Upgrade to $DBversion done (Add system preference DefaultLanguageField008))\n";
5392 SetVersion($DBversion);
5395 $DBversion ="3.09.00.014";
5396 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5397 # add phone message transport type
5398 $dbh->do("INSERT INTO message_transport_types (message_transport_type) VALUES ('phone')");
5400 # adds HOLD_PHONE and PREDUE_PHONE letters (as placeholders)
5401 $dbh->do("INSERT INTO letter (module, code, name, title, content) VALUES
5402 ('reserves', 'HOLD_PHONE', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup'),
5403 ('circulation', 'PREDUE_PHONE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon'),
5404 ('circulation', 'OVERDUE_PHONE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue')
5407 # add phone notifications to patron message preferences options
5408 $dbh->do("INSERT INTO message_transports
5409 (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES
5410 (4, 'phone', 0, 'reserves', 'HOLD_PHONE'),
5411 (2, 'phone', 0, 'circulation', 'PREDUE_PHONE')
5414 # add TalkingTechItivaPhoneNotification syspref
5415 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('TalkingTechItivaPhoneNotification',0,'If ON, enables Talking Tech I-tiva phone notifications',NULL,'YesNo');");
5417 print "Upgrade done (Support for Talking Tech i-tiva phone notification system)\n";
5418 SetVersion($DBversion);
5421 $DBversion = "3.09.00.015";
5422 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5424 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('StatisticsFields','location|itype|ccode','Define Fields (from the items table) used for statistics members','location|itype|ccode','free')
5426 print "Upgrade to $DBversion done (Add System preference StatisticsFields)\n";
5427 SetVersion($DBversion);
5430 $DBversion = "3.09.00.016";
5431 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5432 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowBarcode','0','Show items barcode in holding tab','','YesNo')");
5433 print "Upgrade to $DBversion done (Add syspref OPACShowBarcode)\n";
5434 SetVersion ($DBversion);
5437 $DBversion = "3.09.00.017";
5438 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5439 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OpacNavRight', '', '70|10', 'Show the following HTML in the right hand column of the main page under the main login form', 'Textarea');");
5440 print "Upgrade to $DBversion done (Add customizable OpacNavRight region to the OPAC main page)\n";
5441 SetVersion ($DBversion);
5444 $DBversion = "3.09.00.018";
5445 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5446 $dbh->do("DROP TABLE IF EXISTS aqbudgetborrowers");
5448 CREATE TABLE aqbudgetborrowers (
5449 budget_id int(11) NOT NULL,
5450 borrowernumber int(11) NOT NULL,
5451 PRIMARY KEY (budget_id, borrowernumber),
5452 CONSTRAINT aqbudgetborrowers_ibfk_1 FOREIGN KEY (budget_id)
5453 REFERENCES aqbudgets (budget_id)
5454 ON DELETE CASCADE ON UPDATE CASCADE,
5455 CONSTRAINT aqbudgetborrowers_ibfk_2 FOREIGN KEY (borrowernumber)
5456 REFERENCES borrowers (borrowernumber)
5457 ON DELETE CASCADE ON UPDATE CASCADE
5458 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5461 INSERT INTO permissions (module_bit, code, description)
5462 VALUES (11, 'budget_manage_all', 'Manage all budgets')
5464 print "Upgrade to $DBversion done (Add aqbudgetborrowers table)\n";
5465 SetVersion($DBversion);
5468 $DBversion = "3.09.00.019";
5469 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5470 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACShowUnusedAuthorities','1','','Show authorities that are not being used in the OPAC.','YesNo')");
5471 print "Upgrade to $DBversion done (Add OPACShowUnusedAuthorities system preference)\n";
5472 SetVersion ($DBversion);
5475 $DBversion = "3.09.00.020";
5476 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5477 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('EnableBorrowerFiles','0','If enabled, allows librarians to upload and attach arbitrary files to a borrower record.','YesNo')");
5479 CREATE TABLE IF NOT EXISTS borrower_files (
5480 file_id int(11) NOT NULL AUTO_INCREMENT,
5481 borrowernumber int(11) NOT NULL,
5482 file_name varchar(255) NOT NULL,
5483 file_type varchar(255) NOT NULL,
5484 file_description varchar(255) DEFAULT NULL,
5485 file_content longblob NOT NULL,
5486 date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
5487 PRIMARY KEY (file_id),
5488 KEY borrowernumber (borrowernumber)
5489 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5491 $dbh->do("ALTER TABLE borrower_files ADD CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE");
5493 print "Upgrade to $DBversion done (Added borrow_files table, EnableBorrowerFiles syspref)\n";
5494 SetVersion($DBversion);
5497 $DBversion = "3.09.00.021";
5498 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5499 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UpdateTotalIssuesOnCirc','0','Whether to update the totalissues field in the biblio on each circ.',NULL,'YesNo');");
5500 print "Upgrade to $DBversion done (Add syspref UpdateTotalIssuesOnCirc)\n";
5501 SetVersion($DBversion);
5504 $DBversion = "3.09.00.022";
5505 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5506 $dbh->do("ALTER TABLE search_history MODIFY COLUMN query_cgi text NOT NULL");
5507 print "Upgrade to $DBversion done (Change search_history.query_cgi type to text. bug 5981)\n";
5508 SetVersion($DBversion);
5511 $DBversion = "3.09.00.023";
5512 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5513 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
5514 print "Upgrade to $DBversion done (Add system preference SearchEngine )\n";
5515 SetVersion($DBversion);
5518 $DBversion ="3.09.00.024";
5519 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5520 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('IntranetSlipPrinterJS','','Use this JavaScript for printing slips. Define at least function printThenClose(). For use e.g. with Firefox PlugIn jsPrintSetup, see http://jsprintsetup.mozdev.org/','','Free')");
5521 print "Upgrade to $DBversion done (Add system preference IntranetSlipPrinterJS))\n";
5522 SetVersion($DBversion);
5525 $DBversion = "3.09.00.025";
5526 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5527 $dbh->do('START TRANSACTION');
5528 $dbh->do('CREATE TABLE tmp_reserves AS SELECT * FROM old_reserves LIMIT 0');
5529 $dbh->do('ALTER TABLE tmp_reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5531 INSERT INTO tmp_reserves (
5532 borrowernumber, reservedate, biblionumber,
5533 constrainttype, branchcode, notificationdate,
5534 reminderdate, cancellationdate, reservenotes,
5535 priority, found, timestamp, itemnumber,
5536 waitingdate, expirationdate, lowestPriority,
5537 suspend, suspend_until
5539 borrowernumber, reservedate, biblionumber,
5540 constrainttype, branchcode, notificationdate,
5541 reminderdate, cancellationdate, reservenotes,
5542 priority, found, timestamp, itemnumber,
5543 waitingdate, expirationdate, lowestPriority,
5544 suspend, suspend_until
5545 FROM old_reserves ORDER BY reservedate
5547 $dbh->do('SET @ai = ( SELECT MAX( reserve_id ) FROM tmp_reserves )');
5548 $dbh->do('TRUNCATE old_reserves');
5549 $dbh->do('ALTER TABLE old_reserves ADD reserve_id INT( 11 ) NOT NULL PRIMARY KEY FIRST');
5550 $dbh->do('INSERT INTO old_reserves SELECT * FROM tmp_reserves WHERE reserve_id <= @ai');
5552 INSERT INTO tmp_reserves (
5553 borrowernumber, reservedate, biblionumber,
5554 constrainttype, branchcode, notificationdate,
5555 reminderdate, cancellationdate, reservenotes,
5556 priority, found, timestamp, itemnumber,
5557 waitingdate, expirationdate, lowestPriority,
5558 suspend, suspend_until
5560 borrowernumber, reservedate, biblionumber,
5561 constrainttype, branchcode, notificationdate,
5562 reminderdate, cancellationdate, reservenotes,
5563 priority, found, timestamp, itemnumber,
5564 waitingdate, expirationdate, lowestPriority,
5565 suspend, suspend_until
5566 FROM reserves ORDER BY reservedate
5568 $dbh->do('TRUNCATE reserves');
5569 $dbh->do('ALTER TABLE reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5570 $dbh->do('INSERT INTO reserves SELECT * FROM tmp_reserves WHERE reserve_id > COALESCE(@ai, 0)');
5571 $dbh->do('DROP TABLE tmp_reserves');
5574 my $sth = $dbh->prepare("
5575 SELECT COUNT( * ) AS count
5576 FROM information_schema.COLUMNS
5577 WHERE COLUMN_NAME = 'reserve_id'
5579 TABLE_NAME LIKE 'reserves'
5581 TABLE_NAME LIKE 'old_reserves'
5585 my $row = $sth->fetchrow_hashref();
5586 die("Failed to add reserve_id to reserves tables, please refresh the page to try again.") unless ( $row->{'count'} );
5588 print "Upgrade to $DBversion done (add reserve_id to reserves & old_reserves tables)\n";
5589 SetVersion($DBversion);
5592 $DBversion = "3.09.00.026";
5593 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5594 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
5595 ( 3, 'parameters_remaining_permissions', 'Remaining system parameters permissions'),
5596 ( 3, 'manage_circ_rules', 'manage circulation rules')");
5597 $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5598 SELECT borrowernumber, 3, 'parameters_remaining_permissions'
5599 FROM borrowers WHERE flags & (1 << 3)");
5600 # Give new subpermissions to all users that have 'parameters' permission flag (bit 3) set
5601 # see userflags table
5602 $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5603 SELECT borrowernumber, 3, 'manage_circ_rules'
5604 FROM borrowers WHERE flags & (1 << 3)");
5605 print "Upgrade to $DBversion done (Added parameters subpermissions)\n";
5606 SetVersion($DBversion);
5609 $DBversion = '3.09.00.027';
5610 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5611 $dbh->do("ALTER TABLE issuingrules ADD overduefinescap decimal(28,6) DEFAULT NULL");
5612 my $maxfine = C4::Context->preference('MaxFine');
5613 if ($maxfine && $maxfine < 900) { # an arbitrary value that tells us it's not "some huge value"
5614 $dbh->do("UPDATE issuingrules SET overduefinescap=?",undef,$maxfine);
5615 $dbh->do("UPDATE systempreferences SET value = NULL WHERE variable = 'MaxFine'");
5617 $dbh->do("UPDATE systempreferences SET explanation = 'Maximum fine a patron can have for all late returns at one moment. Single item caps are specified in the circulation rules matrix.' WHERE variable = 'MaxFine'");
5618 print "Upgrade to $DBversion done (Bug 7420 add overduefinescap to circulation matrix)\n";
5619 SetVersion ($DBversion);
5622 $DBversion = "3.09.00.028";
5623 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5624 unless ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
5625 my %referencetypes = ( '00' => 'PERSO_NAME',
5626 '10' => 'CORPO_NAME',
5627 '11' => 'MEETI_NAME',
5628 '30' => 'UNIF_TITLE',
5629 '48' => 'CHRON_TERM',
5630 '50' => 'TOPIC_TERM',
5631 '51' => 'GEOGR_NAME',
5632 '55' => 'GENRE/FORM'
5634 my $query = q{SELECT DISTINCT authtypecode, tagfield
5635 FROM auth_subfield_structure
5636 WHERE (tagfield BETWEEN '400' AND '455' OR
5637 tagfield BETWEEN '500' and '555') AND tagsubfield='a' AND
5638 frameworkcode = '' AND ROW(authtypecode, tagfield) NOT IN
5639 (SELECT authtypecode, tagfield FROM auth_subfield_structure
5640 WHERE tagsubfield ='9' )};
5641 $sth = $dbh->prepare($query);
5643 my $sth2 = $dbh->prepare(q{INSERT INTO auth_subfield_structure
5644 (authtypecode, tagfield, tagsubfield, liblibrarian, libopac,
5645 repeatable, mandatory, tab, authorised_value, value_builder,
5646 seealso, isurl, hidden, linkid, kohafield, frameworkcode)
5647 VALUES (?, ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, ?, NULL, NULL,
5648 NULL, 0, 1, '', '', '')});
5649 my $sth3 = $dbh->prepare(q{UPDATE auth_subfield_structure SET
5650 frameworkcode = ? WHERE authtypecode = ? AND
5651 tagfield = ? AND tagsubfield = 'a'});
5652 while (my $row = $sth->fetchrow_arrayref()) {
5653 my ($authtypecode, $field) = @$row;
5654 $sth2->execute($authtypecode, $field, substr($field, 0, 1));
5655 my $authtypemarker = substr $field, 1, 2;
5656 if ($authtypemarker && $referencetypes{$authtypemarker}) {
5657 $sth3->execute($referencetypes{$authtypemarker}, $authtypecode, $field);
5662 print "Upgrade to $DBversion done (Add thesaurus links for MARC21/NORMARC)\n";
5663 SetVersion($DBversion);
5666 $DBversion = "3.09.00.029"; # FIXME
5667 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5668 $dbh->do("UPDATE systempreferences SET options=concat(options,'|EAN13') WHERE variable='itemBarcodeInputFilter' AND options NOT LIKE '%EAN13%'");
5669 print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice EAN13)\n";
5671 $dbh->do("UPDATE systempreferences SET options = concat(options,'|EAN13'), explanation = concat(explanation,'; EAN13 - incremental') WHERE variable = 'autoBarcode' AND options NOT LIKE '%EAN13%'");
5672 print "Upgrade to $DBversion done ( Added EAN13 barcode autogeneration sequence )\n";
5673 SetVersion($DBversion);
5676 $DBversion ="3.09.00.030";
5677 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5678 my $query = "SELECT value FROM systempreferences WHERE variable='opacstylesheet'";
5679 my $remote= $dbh->selectrow_arrayref($query);
5680 $dbh->do("DELETE from systempreferences WHERE variable='opacstylesheet'");
5681 if($remote && $remote->[0]) {
5682 $query="UPDATE systempreferences SET value=? WHERE variable='opaclayoutstylesheet'";
5683 $dbh->do($query,undef,$remote->[0]);
5684 print "NOTE: The URL of your remote opac css file has been moved to preference opaclayoutstylesheet.\n";
5686 print "Upgrade to $DBversion done (BZ 8263: Make OPAC stylesheet preferences more consistent)\n";
5687 SetVersion($DBversion);
5690 $DBversion = "3.09.00.031";
5691 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5692 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonReviews'");
5693 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonSimilarItems'");
5694 $dbh->do("DELETE FROM systempreferences WHERE variable='AWSAccessKeyID'");
5695 $dbh->do("DELETE FROM systempreferences WHERE variable='AWSPrivateKey'");
5696 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonReviews'");
5697 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonSimilarItems'");
5698 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonEnabled'");
5699 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonEnabled'");
5700 print "Upgrade to $DBversion done ('Remove preferences controlling broken Amazon features (Bug 8679')\n";
5701 SetVersion ($DBversion);
5704 $DBversion = "3.09.00.032";
5705 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5706 $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'defaultSortField' AND value = 'callnumber'");
5707 $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'");
5708 print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n";
5709 SetVersion ($DBversion);
5713 $DBversion = '3.09.00.033';
5714 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5715 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacSuppressionByIPRange','','Restrict the suppression to IP adresses outside of the IP range','','free');");
5716 print "Upgrade to $DBversion done (Add OpacSuppressionByIPRange syspref)\n";
5717 SetVersion ($DBversion);
5720 $DBversion ="3.09.00.034";
5721 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5722 $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'PERSO_NAME' WHERE frameworkcode = 'PERSO_CODE'");
5723 $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'CORPO_NAME' WHERE frameworkcode = 'ORGO_CODE'");
5724 print "Upgrade to $DBversion done (Bug 8207: correct typo in authority types)\n";
5725 SetVersion ($DBversion);
5728 $DBversion = "3.09.00.035";
5729 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5731 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('PrefillItem','0','When a new item is added, should it be prefilled with last created item values?','','YesNo');
5734 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SubfieldsToUseWhenPrefill','','Define a list of subfields to use when prefilling items (separated by space)','','Free');
5736 print "Upgrade to $DBversion done (Adding PrefillItem and SubfieldsToUseWhenPrefill sysprefs)\n";
5737 SetVersion ($DBversion);
5740 $DBversion = "3.09.00.036";
5741 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5742 # biblioitems changes
5743 $dbh->do("ALTER TABLE biblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5744 $dbh->do("ALTER TABLE deletedbiblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5745 # preferences changes
5746 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AgeRestrictionMarker','','Markers for age restriction indication, e.g. FSK|PEGI|Age|. See: http://wiki.koha-community.org/wiki/Age_restriction',NULL,'free')");
5747 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AgeRestrictionOverride',0,'Allow staff to check out an item with age restriction.',NULL,'YesNo')");
5749 print "Upgrade to $DBversion done (Add colum agerestriction to biblioitems and deletedbiblioitems, add system preferences AgeRestrictionMarker and AgeRestrictionOverride)\n";
5750 SetVersion ($DBversion);
5753 $DBversion = "3.09.00.037";
5754 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5755 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTransportCostMatrix',0,'Use Transport Cost Matrix when filling holds','','YesNo')");
5757 $dbh->do("CREATE TABLE `transport_cost` (
5758 `frombranch` varchar(10) NOT NULL,
5759 `tobranch` varchar(10) NOT NULL,
5760 `cost` decimal(6,2) NOT NULL,
5761 `disable_transfer` tinyint(1) NOT NULL DEFAULT 0,
5762 CHECK ( `frombranch` <> `tobranch` ), -- a dud check, mysql does not support that
5763 PRIMARY KEY (`frombranch`, `tobranch`),
5764 CONSTRAINT `transport_cost_ibfk_1` FOREIGN KEY (`frombranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
5765 CONSTRAINT `transport_cost_ibfk_2` FOREIGN KEY (`tobranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
5766 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5768 print "Upgrade to $DBversion done (creating `transport_cost` table; adding UseTransportCostMatrix systempref, in circulation)\n";
5769 SetVersion($DBversion);
5772 $DBversion ="3.09.00.038";
5773 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5774 $dbh->do("ALTER TABLE borrower_attributes CHANGE attribute attribute VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
5775 print "Upgrade to $DBversion done (Increase the maximum size of a borrower attribute value)\n";
5776 SetVersion($DBversion);
5779 $DBversion ="3.09.00.039";
5780 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5781 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('DidYouMeanFromAuthorities','0','Suggest searches based on authority file.','YesNo');");
5782 print "Upgrade to $DBversion done (Add system preference DidYouMeanFromAuthorities)\n";
5783 SetVersion($DBversion);
5786 $DBversion = "3.09.00.040";
5787 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5788 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IncludeSeeFromInSearches','0','','Include see-from references in searches.','YesNo');");
5789 print "Upgrade to $DBversion done (Add IncludeSeeFromInSearches system preference)\n";
5790 SetVersion ($DBversion);
5793 $DBversion = "3.09.00.041";
5794 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5796 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportRemoveFields','','List of fields for non export in circulation.pl (separated by a space)','','');
5798 print "Upgrade to $DBversion done (Add system preference ExportRemoveFields)\n";
5799 SetVersion($DBversion);
5802 $DBversion = "3.09.00.042";
5803 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5805 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ExportWithCsvProfile','','Set a profile name for CSV export','','');
5807 print "Upgrade to $DBversion done (Adds New System preference ExportWithCsvProfile)\n";
5808 SetVersion($DBversion)
5811 $DBversion = "3.09.00.043";
5812 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5814 ALTER TABLE aqorders
5815 ADD parent_ordernumber int(11) DEFAULT NULL
5819 SET parent_ordernumber = ordernumber;
5821 print "Upgrade to $DBversion done (Adding parent_ordernumber in aqorders)\n";
5822 SetVersion($DBversion);
5825 $DBversion = '3.09.00.044';
5826 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5827 $dbh->do("ALTER TABLE statistics ADD COLUMN ccode VARCHAR ( 10 ) NULL AFTER associatedborrower");
5828 $dbh->do("UPDATE statistics SET statistics.ccode = ( SELECT items.ccode FROM items WHERE statistics.itemnumber = items.itemnumber )");
5829 $dbh->do("UPDATE statistics SET statistics.ccode = (
5830 SELECT deleteditems.ccode FROM deleteditems
5831 WHERE statistics.itemnumber = deleteditems.itemnumber
5832 ) WHERE statistics.ccode IS NULL");
5833 print "Upgrade done ( Added Collection Code to Statistics table. )\n";
5834 SetVersion ($DBversion);
5837 $DBversion = "3.09.00.045";
5838 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5839 $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 10 ) NULL DEFAULT NULL");
5840 print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table from varchar(1) to varchar(10) category_code)\nWarning to Koha System Administrators: If you use borrower attributes defined by borrower categories, you have to check your configuration. A bug may have removed your attribute links to borrower categories.\nPlease check, and fix it if necessary.";
5841 SetVersion($DBversion);
5844 $DBversion = "3.09.00.046";
5845 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5846 $dbh->do("ALTER TABLE `accountlines` ADD `accountlines_id` INT NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST;");
5847 print "Upgrade to $DBversion done (adding accountlines_id field in accountlines table)\n";
5848 SetVersion($DBversion);
5851 $DBversion = "3.09.00.047";
5852 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5853 # to preserve default behaviour as best as possible, set this new preference differently depending on whether IndependantBranches is set or not
5854 my $prefvalue = 'anywhere';
5855 if (C4::Context->preference("IndependantBranches")) { $prefvalue = 'homeorholdingbranch';}
5856 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowReturnToBranch', '$prefvalue', 'Where an item may be returned', 'anywhere|homebranch|holdingbranch|homeorholdingbranch', 'Choice');");
5858 print "Upgrade to $DBversion done: adding AllowReturnToBranch syspref (bug 6151)";
5859 SetVersion($DBversion);
5862 $DBversion = "3.09.00.048";
5863 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5864 $dbh->do("ALTER TABLE authorised_values MODIFY lib varchar(200)");
5865 $dbh->do("ALTER TABLE authorised_values MODIFY lib_opac varchar(200)");
5867 print "Upgrade to $DBversion done (Raise the length of Authorised Values descriptions)\n";
5868 SetVersion($DBversion);
5871 $DBversion ="3.09.00.049";
5872 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5873 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACMobileUserCSS','','Include the following CSS for the mobile view on all pages in the OPAC:',NULL,'free');");
5874 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacMainUserBlockMobile','','Show the following HTML in its own column on the main page of the OPAC (mobile version):',NULL,'free');");
5875 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowLibrariesPulldownMobile','1','Show the libraries pulldown on the mobile version of the OPAC.',NULL,'YesNo');");
5876 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowFiltersPulldownMobile','1','Show the search filters pulldown on the mobile version of the OPAC.',NULL,'YesNo');");
5877 print "Upgrade to $DBversion done (Add OPACMobileUserCSS, OpacMainUserBlockMobile, OpacShowLibrariesPulldownMobile and OpacShowFiltersPulldownMobile sysprefs)\n";
5878 SetVersion($DBversion);
5881 $DBversion = "3.09.00.050";
5882 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5883 $dbh->do("ALTER TABLE authorised_values MODIFY category varchar(16) NOT NULL DEFAULT '';");
5884 $dbh->do("INSERT INTO authorised_values (category, authorised_value, lib) VALUES
5885 ('REPORT_GROUP', 'CIRC', 'Circulation'),
5886 ('REPORT_GROUP', 'CAT', 'Catalog'),
5887 ('REPORT_GROUP', 'PAT', 'Patrons'),
5888 ('REPORT_GROUP', 'ACQ', 'Acquisitions'),
5889 ('REPORT_GROUP', 'ACC', 'Accounts');");
5891 $dbh->do("ALTER TABLE reports_dictionary ADD report_area varchar(6) DEFAULT NULL;");
5892 $dbh->do("UPDATE reports_dictionary SET report_area = CASE area
5899 $dbh->do("ALTER TABLE reports_dictionary DROP area;");
5900 $dbh->do("ALTER TABLE reports_dictionary ADD KEY dictionary_area_idx (report_area);");
5902 $dbh->do("ALTER TABLE saved_sql ADD report_area varchar(6) DEFAULT NULL;");
5903 $dbh->do("ALTER TABLE saved_sql ADD report_group varchar(80) DEFAULT NULL;");
5904 $dbh->do("ALTER TABLE saved_sql ADD report_subgroup varchar(80) DEFAULT NULL;");
5905 $dbh->do("ALTER TABLE saved_sql ADD KEY sql_area_group_idx (report_group, report_subgroup);");
5907 print "Upgrade to $DBversion done saved_sql new fields report_group and report_area; authorised_values.category 16 char \n";
5908 SetVersion($DBversion);
5911 $DBversion = "3.09.00.051";
5912 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5914 CREATE TABLE aqinvoices (
5915 invoiceid int(11) NOT NULL AUTO_INCREMENT,
5916 invoicenumber mediumtext NOT NULL,
5917 booksellerid int(11) NOT NULL,
5918 shipmentdate date default NULL,
5919 billingdate date default NULL,
5920 closedate date default NULL,
5921 shipmentcost decimal(28,6) default NULL,
5922 shipmentcost_budgetid int(11) default NULL,
5923 PRIMARY KEY (invoiceid),
5924 CONSTRAINT aqinvoices_fk_aqbooksellerid FOREIGN KEY (booksellerid) REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE,
5925 CONSTRAINT aqinvoices_fk_shipmentcost_budgetid FOREIGN KEY (shipmentcost_budgetid) REFERENCES aqbudgets (budget_id) ON DELETE SET NULL ON UPDATE CASCADE
5926 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5929 # Fill this new table with existing invoices
5930 my $sth = $dbh->prepare("
5931 SELECT aqorders.booksellerinvoicenumber AS invoicenumber, aqbasket.booksellerid, aqorders.datereceived
5933 LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
5934 WHERE aqorders.booksellerinvoicenumber IS NOT NULL
5935 AND aqorders.booksellerinvoicenumber != ''
5936 GROUP BY aqorders.booksellerinvoicenumber
5939 my $results = $sth->fetchall_arrayref({});
5940 $sth = $dbh->prepare("
5941 INSERT INTO aqinvoices (invoicenumber, booksellerid, shipmentdate) VALUES (?,?,?)
5943 foreach(@$results) {
5944 $sth->execute($_->{invoicenumber}, $_->{booksellerid}, $_->{datereceived});
5947 # Add the column in aqorders, fill it with correct value
5948 # and then drop booksellerinvoicenumber column
5950 ALTER TABLE aqorders
5951 ADD COLUMN invoiceid int(11) default NULL AFTER booksellerinvoicenumber,
5952 ADD CONSTRAINT aqorders_ibfk_3 FOREIGN KEY (invoiceid) REFERENCES aqinvoices (invoiceid) ON DELETE SET NULL ON UPDATE CASCADE
5956 UPDATE aqorders, aqinvoices
5957 SET aqorders.invoiceid = aqinvoices.invoiceid
5958 WHERE aqorders.booksellerinvoicenumber = aqinvoices.invoicenumber
5962 ALTER TABLE aqorders
5963 DROP COLUMN booksellerinvoicenumber
5966 print "Upgrade to $DBversion done (Add aqinvoices table) \n";
5967 SetVersion ($DBversion);
5970 $DBversion = "3.09.00.052";
5971 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5972 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHolds', NULL, '', 'Decreases the loan period for items with number of holds above the threshold specified in decreaseLoanHighHoldsValue', 'YesNo');");
5973 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHoldsValue', NULL, '', 'Specifies a threshold for the minimum number of holds needed to trigger a reduction in loan duration (used with decreaseLoanHighHolds)', 'Integer');");
5974 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHoldsDuration', NULL, '', 'Specifies a number of days that a loan is reduced to when used in conjunction with decreaseLoanHighHolds', 'Integer');");
5975 print "Upgrade to $DBversion done (Add systempreferences to decrease loan length on high demand items decreaseLoanHighHolds, decreaseLoanHighHoldsValue and decreaseLoanHighHoldsDuration) \n";
5976 SetVersion ($DBversion);
5979 $DBversion = "3.09.00.053";
5980 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5982 q|CREATE TABLE `import_auths` (
5983 import_record_id int(11) NOT NULL,
5984 matched_authid int(11) default NULL,
5985 control_number varchar(25) default NULL,
5986 authorized_heading varchar(128) default NULL,
5987 original_source varchar(25) default NULL,
5988 CONSTRAINT import_auths_ibfk_1 FOREIGN KEY (import_record_id)
5989 REFERENCES import_records (import_record_id) ON DELETE CASCADE ON UPDATE CASCADE,
5990 KEY matched_authid (matched_authid)
5991 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
5993 $dbh->do("ALTER TABLE import_batches
5994 CHANGE COLUMN num_biblios num_records int(11) NOT NULL default 0,
5995 ADD COLUMN record_type enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio'");
5996 $dbh->do("UPDATE import_batches SET record_type='auth' WHERE import_batch_id IN
5997 (SELECT import_batch_id FROM import_records WHERE record_type='auth')");
5999 print "Upgrade to $DBversion done (Added support for staging authorities)\n";
6000 SetVersion ($DBversion);
6003 $DBversion = "3.09.00.054";
6004 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6005 $dbh->do("ALTER TABLE aqorders CHANGE COLUMN gst gstrate DECIMAL(6,4) DEFAULT NULL");
6006 print "Upgrade to $DBversion done (Change column name in aqorders gst --> gstrate)\n";
6007 SetVersion($DBversion);
6010 $DBversion = "3.09.00.055";
6011 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6012 $dbh->do("ALTER TABLE aqorders ADD discount float(6,4) DEFAULT NULL AFTER gstrate");
6013 print "Upgrade to $DBversion done (Add discount field in aqorders table)\n";
6014 SetVersion($DBversion);
6017 $DBversion ="3.09.00.056";
6018 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6019 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('AuthDisplayHierarchy','0','Display authority hierarchies','','YesNo')");
6020 print "Upgrade to $DBversion done (Add system preference AuthDisplayHierarchy)\n";
6021 SetVersion($DBversion);
6024 $DBversion = "3.09.00.057";
6025 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6026 $dbh->do("ALTER TABLE aqbasket ADD deliveryplace VARCHAR(10) default NULL AFTER basketgroupid;");
6027 $dbh->do("ALTER TABLE aqbasket ADD billingplace VARCHAR(10) default NULL AFTER deliveryplace;");
6028 print "Upgrade to $DBversion done (Bug 5356: Added billingplace, deliveryplace to the aqbasket table)\n";
6029 SetVersion($DBversion);
6032 $DBversion ="3.09.00.058";
6033 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6034 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('OPACdidyoumean',NULL,'Did you mean? configuration for the OPAC. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free');");
6035 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('INTRAdidyoumean',NULL,'Did you mean? configuration for the Intranet. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free');");
6036 print "Upgrade to $DBversion done (Add Did You Mean? configuration)\n";
6037 SetVersion($DBversion);
6040 $DBversion ="3.09.00.059";
6041 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6042 $dbh->do("INSERT INTO systempreferences (variable, value, options, explanation, type) VALUES ('BlockReturnOfWithdrawnItems', '1', '0', 'If enabled, items that are marked as withdrawn cannot be returned.', 'YesNo');");
6043 print "Upgrade to $DBversion done (Add system preference BlockReturnOfWithdrawnItems)\n";
6044 SetVersion($DBversion);
6047 $DBversion = "3.09.00.060";
6048 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6049 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HoldsToPullStartDate','2','Set the default start date for the Holds to pull list to this many days ago',NULL,'Integer')");
6050 print "Upgrade to $DBversion done (Added HoldsToPullStartDate syspref)\n";
6051 SetVersion($DBversion);
6054 $DBversion = "3.09.00.061";
6055 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6056 $dbh->do("UPDATE systempreferences set value=0 WHERE variable='OPACItemsResultsDisplay' AND value='statuses'");
6057 $dbh->do("UPDATE systempreferences set value=1 WHERE variable='OPACItemsResultsDisplay' AND value='itemdetails'");
6058 $dbh->do("UPDATE systempreferences SET explanation='If No, show only the status of items in result list. If Yes, show full location of items (branchlocation+callnumber) as in staff interface',options=NULL,type='YesNo' WHERE variable='OPACItemsResultsDisplay'");
6059 print "Upgrade to $DBversion done (Fixes Bug 5409, Set the syspref value to 1 if it is itemdetails and 0 if it is statuses, leaving it alone if it is already 1 or 0 and change the type of the syspref to YesNo.)\n";
6060 SetVersion ($DBversion);
6063 $DBversion = "3.09.00.062";
6064 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6065 $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='NoZebra'");
6066 $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='QueryRemoveStopwords'");
6067 print "Upgrade to $DBversion done (Disable obsolete NoZebra and QueryRemoveStopwords sysprefs)\n";
6068 SetVersion ($DBversion);
6071 $DBversion = "3.09.00.063";
6072 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6073 my $gst_booksellers = $dbh->selectcol_arrayref("SELECT DISTINCT(gstrate) FROM aqbooksellers");
6074 my $gist_syspref = C4::Context->preference("gist");
6075 # remove the undef values and construct and array with the syspref and the supplier values
6076 my @gstrates = map { defined $_ ? $_ : () } @$gst_booksellers;
6077 push @gstrates, split ('\|', $gist_syspref);
6078 # we want to compare integer (or float)
6079 $_ = $_ + 0 for @gstrates;
6080 use List::MoreUtils qw/uniq/;
6081 # remove duplicate values
6082 @gstrates = uniq sort @gstrates;
6083 my $new_syspref_value = join '|', @gstrates;
6084 # update the syspref with the new values
6085 my $sth = $dbh->prepare("UPDATE systempreferences set value=? WHERE variable='gist'");
6086 $sth->execute( $new_syspref_value );
6088 print "Upgrade to $DBversion done (Bug 8832, Set the syspref gist with the existing values)\n";
6089 SetVersion ($DBversion);
6092 $DBversion = "3.09.00.064";
6093 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6094 $dbh->do('ALTER TABLE items ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6095 print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the items table)\n";
6096 SetVersion ($DBversion);
6099 $DBversion = "3.09.00.065";
6100 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6101 $dbh->do('ALTER TABLE deleteditems ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6102 print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the deleteditems table)\n";
6103 SetVersion ($DBversion);
6106 $DBversion = "3.09.00.066";
6107 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6108 $dbh->do("DELETE FROM systempreferences WHERE variable='DidYouMeanFromAuthorities'");
6109 print "Upgrade to $DBversion done (Bug 9107: remove DidYouMeanFromAuthorities syspref)\n";
6110 SetVersion ($DBversion);
6113 $DBversion = "3.09.00.067";
6114 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6115 $dbh->do("ALTER TABLE statistics CHANGE COLUMN ccode ccode varchar(10) NULL");
6116 print "Upgrade to $DBversion done (Bug 9064: statistics.ccode potentially wrongly defined)\n";
6117 SetVersion ($DBversion);
6120 $DBversion = "3.10.00.00";
6121 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6122 print "Upgrade to $DBversion done (release tag)\n";
6123 SetVersion ($DBversion);
6126 $DBversion = "3.11.00.001";
6127 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6128 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('alphabet','A B C D E F G H I J K L M N O P Q R S T U V W X Y Z','Alphabet that can be expanded into browse links, e.g. on Home > Patrons',NULL,'free')");
6129 print "Upgrade to $DBversion done (Bug 2832 - Add alphabet syspref)\n";
6132 $DBversion = "3.11.00.002";
6133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6135 DELETE from aqorders_items where ordernumber NOT IN (SELECT ordernumber FROM aqorders);
6138 ALTER TABLE aqorders_items
6139 ADD CONSTRAINT aqorders_items_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber)
6140 ON DELETE CASCADE ON UPDATE CASCADE;
6142 print "Upgrade to $DBversion done (Bug 9030: Add constraint on aqorders_items.ordernumber)\n";
6143 SetVersion ($DBversion);
6146 $DBversion = "3.11.00.003";
6147 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6148 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RefundLostItemFeeOnReturn', '1', 'If enabled, the lost item fee charged to a borrower will be refunded when the lost item is returned.', NULL, 'YesNo')");
6149 print "Upgrade to $DBversion done (Bug 7189: Add system preference RefundLostItemFeeOnReturn)\n";
6150 SetVersion($DBversion);
6153 $DBversion = "3.11.00.004";
6154 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6156 ALTER TABLE subscription ADD COLUMN closed INT(1) NOT NULL DEFAULT 0 AFTER enddate;
6159 print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n";
6160 SetVersion($DBversion);
6163 $DBversion = "3.11.00.005";
6164 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6165 $dbh->do(qq{CREATE TABLE borrower_attribute_types_branches(bat_code VARCHAR(10), b_branchcode VARCHAR(10),FOREIGN KEY (bat_code) REFERENCES borrower_attribute_types(code) ON DELETE CASCADE,FOREIGN KEY (b_branchcode) REFERENCES branches(branchcode) ON DELETE CASCADE ) ENGINE=INNODB DEFAULT CHARSET=utf8;});
6167 $dbh->do(qq{CREATE TABLE categories_branches(categorycode VARCHAR(10), branchcode VARCHAR(10), FOREIGN KEY (categorycode) REFERENCES categories(categorycode) ON DELETE CASCADE, FOREIGN KEY (branchcode) REFERENCES branches(branchcode) ON DELETE CASCADE ) ENGINE=INNODB DEFAULT CHARSET=utf8;});
6169 $dbh->do(qq{CREATE TABLE authorised_values_branches(av_id INTEGER, branchcode VARCHAR(10), FOREIGN KEY (av_id) REFERENCES authorised_values(id) ON DELETE CASCADE, FOREIGN KEY (branchcode) REFERENCES branches(branchcode) ON DELETE CASCADE ) ENGINE=INNODB DEFAULT CHARSET=utf8;});
6171 print "Upgrade to $DBversion done (Bug 7919: Display of values depending on the connexion library)\n";
6172 SetVersion($DBversion);
6175 $DBversion = "3.11.00.006";
6176 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6178 UPDATE virtualshelves SET sortfield="copyrightdate" where sortfield="year";
6180 print "Upgrade to $DBversion done (Bug 9167: Update the virtualshelves.sortfield column with 'copyrightdate' if needed)\n";
6181 SetVersion($DBversion);
6184 $DBversion = "3.11.00.007";
6185 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6186 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ar', 'language', 'de', 'Arabisch')");
6187 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hy', 'language', 'de', 'Armenisch')");
6188 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'bg', 'language', 'de', 'Bulgarisch')");
6189 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'zh', 'language', 'de', 'Chinesisch')");
6190 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'cs', 'language', 'de', 'Tschechisch')");
6191 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'da', 'language', 'de', 'Dänisch')");
6192 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nl', 'language', 'de', 'Niederländisch')");
6193 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'en', 'language', 'de', 'Englisch')");
6194 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fi', 'language', 'de', 'Finnisch')");
6195 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fr', 'language', 'de', 'Französisch')");
6196 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'fr', 'Laotien')");
6197 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'de', 'Laotisch')");
6198 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'el', 'language', 'de', 'Griechisch (Nach 1453)')");
6199 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'he', 'language', 'de', 'Hebräisch')");
6200 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hi', 'language', 'de', 'Hindi')");
6201 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hu', 'language', 'de', 'Ungarisch')");
6202 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'id', 'language', 'de', 'Indonesisch')");
6203 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'it', 'language', 'de', 'Italienisch')");
6204 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ja', 'language', 'de', 'Japanisch')");
6205 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ko', 'language', 'de', 'Koreanisch')");
6206 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'la', 'language', 'de', 'Latein')");
6207 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'fr', 'Galicien')");
6208 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'de', 'Galizisch')");
6209 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nb', 'language', 'de', 'Norwegisch bokmål')");
6210 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nn', 'language', 'de', 'Norwegisch nynorsk')");
6211 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fa', 'language', 'de', 'Persisch')");
6212 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pl', 'language', 'de', 'Polnisch')");
6213 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pt', 'language', 'de', 'Portugiesisch')");
6214 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ro', 'language', 'de', 'Rumänisch')");
6215 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ru', 'language', 'de', 'Russisch')");
6216 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'fr', 'Serbe')");
6217 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'de', 'Serbisch')");
6218 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'es', 'language', 'de', 'Spanisch')");
6219 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sv', 'language', 'de', 'Schwedisch')");
6220 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'fr', 'Tétoum')");
6221 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'de', 'Tetum')");
6222 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'th', 'language', 'de', 'Thailändisch')");
6223 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tr', 'language', 'de', 'Türkisch')");
6224 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'uk', 'language', 'de', 'Ukrainisch')");
6225 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'fr', 'Ourdou')");
6226 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'de', 'Urdu')");
6227 print "Upgrade to $DBversion done (Bug 9056: add German and a couple of French translations to language_descriptions)\n";
6228 SetVersion ($DBversion);
6231 $DBversion = "3.11.00.008";
6232 if (CheckVersion($DBversion)) {
6234 CREATE TABLE IF NOT EXISTS `borrower_modifications` (
6235 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6236 `verification_token` varchar(255) NOT NULL DEFAULT '',
6237 `borrowernumber` int(11) NOT NULL DEFAULT '0',
6238 `cardnumber` varchar(16) DEFAULT NULL,
6239 `surname` mediumtext,
6242 `othernames` mediumtext,
6244 `streetnumber` varchar(10) DEFAULT NULL,
6245 `streettype` varchar(50) DEFAULT NULL,
6246 `address` mediumtext,
6250 `zipcode` varchar(25) DEFAULT NULL,
6254 `mobile` varchar(50) DEFAULT NULL,
6258 `B_streetnumber` varchar(10) DEFAULT NULL,
6259 `B_streettype` varchar(50) DEFAULT NULL,
6260 `B_address` varchar(100) DEFAULT NULL,
6262 `B_city` mediumtext,
6264 `B_zipcode` varchar(25) DEFAULT NULL,
6267 `B_phone` mediumtext,
6268 `dateofbirth` date DEFAULT NULL,
6269 `branchcode` varchar(10) DEFAULT NULL,
6270 `categorycode` varchar(10) DEFAULT NULL,
6271 `dateenrolled` date DEFAULT NULL,
6272 `dateexpiry` date DEFAULT NULL,
6273 `gonenoaddress` tinyint(1) DEFAULT NULL,
6274 `lost` tinyint(1) DEFAULT NULL,
6275 `debarred` date DEFAULT NULL,
6276 `debarredcomment` varchar(255) DEFAULT NULL,
6277 `contactname` mediumtext,
6278 `contactfirstname` text,
6279 `contacttitle` text,
6280 `guarantorid` int(11) DEFAULT NULL,
6281 `borrowernotes` mediumtext,
6282 `relationship` varchar(100) DEFAULT NULL,
6283 `ethnicity` varchar(50) DEFAULT NULL,
6284 `ethnotes` varchar(255) DEFAULT NULL,
6285 `sex` varchar(1) DEFAULT NULL,
6286 `password` varchar(30) DEFAULT NULL,
6287 `flags` int(11) DEFAULT NULL,
6288 `userid` varchar(75) DEFAULT NULL,
6289 `opacnote` mediumtext,
6290 `contactnote` varchar(255) DEFAULT NULL,
6291 `sort1` varchar(80) DEFAULT NULL,
6292 `sort2` varchar(80) DEFAULT NULL,
6293 `altcontactfirstname` varchar(255) DEFAULT NULL,
6294 `altcontactsurname` varchar(255) DEFAULT NULL,
6295 `altcontactaddress1` varchar(255) DEFAULT NULL,
6296 `altcontactaddress2` varchar(255) DEFAULT NULL,
6297 `altcontactaddress3` varchar(255) DEFAULT NULL,
6298 `altcontactstate` text,
6299 `altcontactzipcode` varchar(50) DEFAULT NULL,
6300 `altcontactcountry` text,
6301 `altcontactphone` varchar(50) DEFAULT NULL,
6302 `smsalertnumber` varchar(50) DEFAULT NULL,
6303 `privacy` int(11) DEFAULT NULL,
6304 PRIMARY KEY (`verification_token`,`borrowernumber`),
6305 KEY `verification_token` (`verification_token`),
6306 KEY `borrowernumber` (`borrowernumber`)
6307 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6311 INSERT INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES
6312 ('PatronSelfRegistration', '0', NULL, 'If enabled, patrons will be able to register themselves via the OPAC.', 'YesNo'),
6313 ('PatronSelfRegistrationVerifyByEmail', '0', NULL, 'If enabled, any patron attempting to register themselves via the OPAC will be required to verify themselves via email to activate his or her account.', 'YesNo'),
6314 ('PatronSelfRegistrationDefaultCategory', '', '', 'A patron registered via the OPAC will receive a borrower category code set in this system preference.', 'free'),
6315 ('PatronSelfRegistrationExpireTemporaryAccountsDelay', '0', NULL, 'If PatronSelfRegistrationDefaultCategory is enabled, this system preference controls how long a patron can have a temporary status before the account is deleted automatically. It is an integer value representing a number of days to wait before deleting a temporary patron account. Setting it to 0 disables the deleting of temporary accounts.', 'Integer'),
6316 ('PatronSelfRegistrationBorrowerMandatoryField', 'surname|firstname', NULL , 'Choose the mandatory fields for a patron''s account, when registering via the OPAC.', 'free'),
6317 ('PatronSelfRegistrationBorrowerUnwantedField', '', NULL , 'Name the fields you don''t want to display when registering a new patron via the OPAC.', 'free');
6321 INSERT INTO letter ( `module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content` )
6322 VALUES ( 'members', 'OPAC_REG_VERIFY', '', 'Opac Self-Registration Verification Email', '1', 'Verify Your Account', 'Hello!
6324 Your library account has been created. Please verify your email address by clicking this link to complete the signup process:
6326 http://<<OPACBaseURL>>/cgi-bin/koha/opac-registration-verify.pl?token=<<borrower_modifications.verification_token>>
6328 If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly.'
6331 print "Upgrade to $DBversion done (Bug 7067: Add Patron Self Registration)\n";
6332 SetVersion ($DBversion);
6335 $DBversion = "3.11.00.009";
6336 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6338 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
6339 ('SeparateHoldings', '0', 'Separate current branch holdings from other holdings', NULL, 'YesNo'),
6340 ('SeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings', 'homebranch|holdingbranch', 'Choice'),
6341 ('OpacSeparateHoldings', '0', 'Separate current branch holdings from other holdings (OPAC)', NULL, 'YesNo'),
6342 ('OpacSeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings (OPAC)', 'homebranch|holdingbranch', 'Choice')
6345 print "Upgrade to $DBversion done (Bug 7674: Add systempreferences SeparateHoldings, SeparateHoldingsBranch, OpacSeparateHoldings and OpacSeparateHoldingsBranch) \n";
6346 SetVersion ($DBversion);
6349 $DBversion = "3.11.00.010";
6350 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6351 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('RenewalSendNotice', '0', '', NULL, 'YesNo')");
6353 INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
6354 ('circulation','RENEWAL','Item Renewals','Item Renewals','The following items have been renewed:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you for visiting <<branches.branchname>>.');
6356 print "Upgrade to $DBversion done (Bug 9151 - Renewal notice according to patron alert preferences)\n";
6357 SetVersion($DBversion);
6360 $DBversion = "3.11.00.011";
6361 if ( CheckVersion($DBversion) ) {
6362 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaEnabled','not','Show a HTML5 media player in a tab on opac-detail.pl for media files catalogued in field 856.','not|opac|staff|both','Choice');");
6363 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaExtensions','webm|ogg|ogv|oga|vtt','Media file extensions','','free');");
6364 print "Upgrade to $DBversion done (Bug 8377: Add HTML5MediaEnabled and HTML5MediaExtensions sysprefs)\n";
6365 SetVersion ($DBversion);
6368 $DBversion = "3.11.00.012";
6369 if ( CheckVersion($DBversion) ) {
6370 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldsOnPatronsPossessions', '1', 'Allow holds on records that patron have items of it',NULL,'YesNo')");
6371 print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6372 SetVersion($DBversion);
6375 $DBversion = "3.11.00.013";
6376 if ( CheckVersion($DBversion) ) {
6377 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('NotesBlacklist','','List of notes fields that should not appear in the title notes/description separator of details',NULL,'free')");
6378 print "Upgrade to $DBversion done (Bug 9162 - Add a system preference to set which notes fields appears on title notes/description separator)\n";
6379 SetVersion($DBversion);
6382 $DBversion = "3.11.00.014";
6383 if ( CheckVersion($DBversion) ) {
6384 $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserCSS', '', 'Add CSS to be included in the SCO module in an embedded <style> tag.', 'free' )");
6385 $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserJS', '', 'Define custom javascript for inclusion in the SCO module', 'free' )");
6386 print "Upgrade to $DBversion done (Bug 9009: Add SCOUserCSS and SCOUserJS sysprefs)\n";
6389 $DBversion = "3.11.00.015";
6390 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6391 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('RentalsInNoissuesCharge', '1', 'Rental charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6392 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ManInvInNoissuesCharge', '1', 'MANUAL_INV charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6393 print "Upgrade to $DBversion done (Add sysprefs RentalsInNoissuesCharge and ManInvInNoissuesCharge.)\n";
6394 SetVersion($DBversion);
6397 $DBversion = "3.11.00.016";
6398 if ( CheckVersion($DBversion) ) {
6400 UPDATE userflags SET flagdesc="<b>Required for staff login.</b> Staff access, allows viewing of catalogue in staff client." where flagdesc="Modify login / permissions for staff users";
6403 UPDATE userflags SET flagdesc="Edit Authorities" where flagdesc="Allow to edit authorities";
6406 UPDATE userflags SET flagdesc="Allow access to the reports module" where flagdesc="Allow to access to the reports module";
6409 UPDATE userflags SET flagdesc="Set library management parameters (deprecated)" where flagdesc="Set library management parameters";
6412 UPDATE userflags SET flagdesc="Manage serial subscriptions" where flagdesc="Allow to manage serials subscriptions";
6415 UPDATE userflags SET flagdesc="Manage patrons fines and fees" where flagdesc="Update borrower charges";
6418 UPDATE userflags SET flagdesc="Check out and check in items" where flagdesc="Circulate books";
6421 UPDATE userflags SET flagdesc="Manage Koha system settings (Administration panel)" where flagdesc="Set Koha system parameters";
6424 UPDATE userflags SET flagdesc="Add or modify patrons" where flagdesc="Add or modify borrowers";
6427 UPDATE userflags SET flagdesc="Use all tools (expand for granular tools permissions)" where flagdesc="Use tools (export, import, barcodes)";
6430 UPDATE userflags SET flagdesc="Allow staff members to modify permissions for other staff members" where flagdesc="Set user permissions";
6433 UPDATE permissions SET description="Perform batch modification of patrons" where description="Perform batch modifivation of patrons";
6436 print "Upgrade to $DBversion done (Bug 9382 (updated with bug 9745) - refresh permission descriptions to make more sense)\n";
6437 SetVersion ($DBversion);
6440 $DBversion ="3.11.00.017";
6441 if ( CheckVersion($DBversion) ) {
6442 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');");
6443 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');");
6444 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');");
6445 print "Upgrade to $DBversion done (Add IDreamBooks enhanced content)\n";
6446 SetVersion($DBversion);
6449 $DBversion = "3.11.00.018";
6450 if ( CheckVersion($DBversion) ) {
6451 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACNumbersPreferPhrase','0', NULL, 'Control the use of phr operator in callnumber and standard number OPAC searches', 'YesNo')");
6452 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IntranetNumbersPreferPhrase','0', NULL, 'Control the use of phr operator in callnumber and standard number staff client searches', 'YesNo')");
6453 print "Upgrade to $DBversion done (Bug 9395: Problem with callnumber and standard number search in OPAC and Staff Client)\n";
6454 SetVersion ($DBversion);
6457 $DBversion = "3.11.00.019";
6458 if ( CheckVersion($DBversion) ) {
6459 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorityField100', 'afrey50 ba0', NULL, NULL, 'Textarea')");
6460 print "Upgrade to $DBversion done (Bug 9145 - Add syspref UNIMARCAuthorityField100)\n";
6461 SetVersion ($DBversion);
6464 $DBversion = "3.11.00.020";
6465 if ( CheckVersion($DBversion) ) {
6466 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UNIMARCField100Language', 'fre','UNIMARC field 100 default language',NULL,'short')");
6467 print "Upgrade to $DBversion done (Bug 8347 - Koha forces UNIMARC 100 field code language to 'fre')\n";
6468 SetVersion($DBversion);
6471 $DBversion ="3.11.00.021";
6472 if ( CheckVersion($DBversion) ) {
6473 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACPopupAuthorsSearch','0','Display the list of authors when clicking on one author.','','YesNo');");
6474 print "Upgrade to $DBversion done (Bug 5888 - Subject search pop-up for the OPAC)\n";
6475 SetVersion($DBversion);
6478 $DBversion = "3.11.00.022";
6479 if ( CheckVersion($DBversion) ) {
6481 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('Persona',0,'Use Mozilla Persona for login','','YesNo')"
6483 print "Upgrade to $DBversion done (Bug 9587 - Allow login via Persona)\n";
6484 SetVersion($DBversion);
6487 $DBversion = "3.11.00.023";
6488 if ( CheckVersion($DBversion) ) {
6489 $dbh->do("UPDATE z3950servers SET host = 'lx2.loc.gov', port = 210, db = 'LCDB', syntax = 'USMARC', encoding = 'utf8' WHERE name = 'LIBRARY OF CONGRESS'");
6490 print "Upgrade to $DBversion done (Bug 9520 - Update default LOC Z39.50 target)\n";
6491 SetVersion($DBversion);
6494 $DBversion = "3.11.00.024";
6495 if ( CheckVersion($DBversion) ) {
6496 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacItemLocation','callnum','Show the shelving location of items in the opac','callnum|ccode|location','Choice');");
6497 print "Upgrade to $DBversion done (Bug 5079: Add OpacItemLocation syspref)\n";
6498 SetVersion ($DBversion);
6501 $DBversion = "3.11.00.025";
6502 if ( CheckVersion($DBversion) ) {
6504 "CREATE TABLE linktracker (
6505 id int(11) NOT NULL AUTO_INCREMENT,
6506 biblionumber int(11) DEFAULT NULL,
6507 itemnumber int(11) DEFAULT NULL,
6508 borrowernumber int(11) DEFAULT NULL,
6510 timeclicked datetime DEFAULT NULL,
6512 KEY bibidx (biblionumber),
6513 KEY itemidx (itemnumber),
6514 KEY borridx (borrowernumber),
6515 KEY dateidx (timeclicked)
6516 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
6519 INSERT INTO systempreferences (variable,value,explanation,options,type)
6520 VALUES('TrackClicks','0','Track links clicked',NULL,'Integer')" );
6522 "Upgrade to $DBversion done (Adds feature Bug 8917, the ability to track links clicked)\n";
6523 SetVersion($DBversion);
6526 $DBversion = "3.11.00.026";
6527 if ( CheckVersion($DBversion) ) {
6529 ALTER TABLE import_records ADD INDEX batch_id_record_type ( import_batch_id, record_type );
6531 print "Upgrade to $DBversion done (Bug 9207: Add new index batch_id_record_type to import_records)\n";
6532 SetVersion($DBversion);
6535 $DBversion = "3.11.00.027";
6536 if ( CheckVersion($DBversion) ) {
6538 INSERT INTO permissions ( module_bit, code, description )
6539 VALUES ( '1', 'overdues_report', 'Execute overdue items report' )
6541 # add new permission for users with all report permissions and circulation remaining permission
6543 INSERT INTO user_permissions (borrowernumber, module_bit, code)
6544 SELECT user_permissions.borrowernumber, 1, 'overdues_report'
6545 FROM user_permissions
6546 LEFT JOIN borrowers USING(borrowernumber)
6547 WHERE borrowers.flags & (1 << 16)
6548 AND user_permissions.code = 'circulate_remaining_permissions'
6550 print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n";
6551 SetVersion($DBversion);
6554 $DBversion = "3.11.00.028";
6555 if ( CheckVersion($DBversion) ) {
6556 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('PatronSelfRegistrationAdditionalInstructions', '', NULL , 'A free text field to display additional instructions to newly self registered patrons.', 'free' );");
6557 print "Upgrade to $DBversion done (Bug 9756 - Patron self registration missing the system preference PatronSelfRegistrationAdditionalInstructions)\n";
6558 SetVersion($DBversion);
6561 $DBversion = "3.11.00.029";
6562 if (CheckVersion($DBversion)) {
6563 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseQueryParser', '0', 'If enabled, try to use QueryParser for queries.', NULL, 'YesNo')");
6564 print "Upgrade to $DBversion done (Bug 9239: Make it possible for Koha to use QueryParser)\n";
6565 SetVersion ($DBversion);
6568 $DBversion = "3.11.00.030";
6569 if ( CheckVersion($DBversion) ) {
6570 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('FinesIncludeGracePeriod','1','If enabled, fines calculations will include the grace period.',NULL,'YesNo');");
6571 print "Upgrade to $DBversion done (Add system preference FinesIncludeGracePeriod)\n";
6572 SetVersion($DBversion);
6575 $DBversion = "3.11.00.100";
6576 if ( CheckVersion($DBversion) ) {
6577 print "Upgrade to $DBversion done (3.12-alpha release)\n";
6578 SetVersion ($DBversion);
6581 $DBversion = "3.11.00.101";
6582 if ( CheckVersion($DBversion) ) {
6583 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorsFacetsSeparator',', ', 'UNIMARC authors facets separator', NULL, 'short')");
6584 print "Upgrade to $DBversion done (Bug 9341: Problem with UNIMARC authors facets)\n";
6585 SetVersion ($DBversion);
6588 $DBversion = "3.11.00.102";
6589 if ( CheckVersion($DBversion) ) {
6591 DELETE FROM systempreferences WHERE variable='NoZebra'
6594 DELETE FROM systempreferences WHERE variable='QueryRemoveStopwords'
6596 print "Upgrade to $DBversion done (Remove deprecated NoZebra and QueryRemoveStopwords sysprefs)\n";
6597 SetVersion($DBversion);
6600 $DBversion = "3.11.00.103";
6601 if ( CheckVersion($DBversion) ) {
6602 $dbh->do("DELETE FROM systempreferences WHERE variable = 'insecure';");
6603 print "Upgrade to $DBversion done (Bug 9827 - Remove 'insecure' system preference)\n";
6604 SetVersion($DBversion);
6607 $DBversion = "3.11.00.104";
6608 if ( CheckVersion($DBversion) ) {
6609 print "Upgrade to $DBversion done (3.12-alpha2 release)\n";
6610 SetVersion ($DBversion);
6613 $DBversion = "3.11.00.105";
6614 if ( CheckVersion($DBversion) ) {
6615 if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
6616 $sth = $dbh->prepare(
6617 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '029'"
6620 my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6622 for my $frameworkcode ( keys %$frameworkcodes ) {
6624 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6625 libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6626 value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6627 ('029', 'a', 'OCLC library identifier', 'OCLC library identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6628 ('029', 'b', 'System control number', 'System control number', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6629 ('029', 'c', 'OAI set name', 'OAI set name', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6630 ('029', 't', 'Content type identifier', 'Content type identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL)
6634 for my $tag ( '863', '864', '865' ) {
6635 $sth = $dbh->prepare(
6636 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '$tag'"
6639 my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6641 for my $frameworkcode ( keys %$frameworkcodes ) {
6643 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6644 libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6645 value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6646 ('$tag', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6647 ('$tag', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6648 ('$tag', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6649 ('$tag', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6650 ('$tag', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6651 ('$tag', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6652 ('$tag', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6653 ('$tag', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6654 ('$tag', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6655 ('$tag', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6656 ('$tag', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6657 ('$tag', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6658 ('$tag', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6659 ('$tag', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6660 ('$tag', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6661 ('$tag', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6662 ('$tag', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6663 ('$tag', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6664 ('$tag', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6665 ('$tag', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6666 ('$tag', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6667 ('$tag', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6668 ('$tag', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6669 ('$tag', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6670 ('$tag', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL)
6675 print "Upgrade to $DBversion done (Bug 9353: Missing subfields on MARC21 frameworks)\n";
6676 SetVersion($DBversion);
6680 $DBversion = "3.11.00.106";
6681 if ( CheckVersion($DBversion) ) {
6682 $dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('19', 'plugins', 'Koha plugins', '0')");
6683 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
6684 ('19', 'manage', 'Manage plugins ( install / uninstall )'),
6685 ('19', 'tool', 'Use tool plugins'),
6686 ('19', 'report', 'Use report plugins'),
6687 ('19', 'configure', 'Configure plugins')
6689 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseKohaPlugins','0','Enable or disable the ability to use Koha Plugins.','','YesNo')");
6692 CREATE TABLE IF NOT EXISTS plugin_data (
6693 plugin_class varchar(255) NOT NULL,
6694 plugin_key varchar(255) NOT NULL,
6696 PRIMARY KEY (plugin_class,plugin_key)
6697 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6700 print "Upgrade to $DBversion done (Bug 7804: Added plugin system.)\n";
6701 SetVersion($DBversion);
6704 $DBversion = "3.11.00.107";
6705 if ( CheckVersion($DBversion) ) {
6706 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('TimeFormat','24hr','12hr|24hr','Defines the global time format for visual output.','Choice')");
6707 print "Upgrade to $DBversion done (Bug 9014: Add syspref TimeFormat)\n";
6708 SetVersion ($DBversion);
6711 $DBversion = "3.11.00.108";
6712 if ( CheckVersion($DBversion) ) {
6713 $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP;");
6714 $dbh->do("UPDATE action_logs SET info=(SELECT itemnumber FROM items WHERE biblionumber= action_logs.info LIMIT 1) WHERE module='CIRCULATION' AND action in ('ISSUE','RETURN');");
6715 $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP;");
6716 print "Upgrade to $DBversion done (Bug 7241: Fix on circulation logs)\n";
6717 print "WARNING about bug 7241: to partially correct the broken logs, the log history is filled with the first found item for each biblio.\n";
6718 SetVersion($DBversion);
6721 $DBversion = "3.11.00.109";
6722 if ( CheckVersion($DBversion) ) {
6723 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('DisplayIconsXSLT', '1', '', 'If ON, displays the format, audience, and material type icons in XSLT MARC21 results and detail pages.', 'YesNo');");
6724 print "Upgrade to $DBversion done (Bug 9403: Add DisplayIconsXSLT)\n";
6725 SetVersion ($DBversion);
6728 $DBversion = "3.11.00.110";
6729 if ( CheckVersion($DBversion) ) {
6730 $dbh->do("ALTER TABLE pending_offline_operations CHANGE barcode barcode VARCHAR( 20 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
6731 $dbh->do("ALTER TABLE pending_offline_operations ADD amount DECIMAL( 28, 6 ) NULL DEFAULT NULL");
6732 print "Upgrade to $DBversion done (Bug 8220 - Allow koc uploads to go to process queue)\n";
6733 SetVersion ($DBversion);
6736 $DBversion = "3.11.00.111";
6737 if ( CheckVersion($DBversion) ) {
6738 my $sth = $dbh->prepare("
6739 SELECT module, code, branchcode, content
6741 WHERE content LIKE '%<fine>%'
6744 my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?");
6745 while(my $row = $sth->fetchrow_hashref){
6746 $row->{content} =~ s/<fine>\w+<\/fine>/<<items.fine>>/;
6747 $sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode});
6749 print "Upgrade to $DBversion done (use new <<items.fine>> syntax in notices)\n";
6750 SetVersion($DBversion);
6753 $DBversion = "3.11.00.112";
6754 if ( CheckVersion($DBversion) ) {
6756 ALTER TABLE issuingrules ADD COLUMN renewalperiod int(4) DEFAULT NULL AFTER renewalsallowed
6759 UPDATE issuingrules SET renewalperiod = issuelength
6761 print "Upgrade to $DBversion done (Bug 8365: Add colum issuingrules.renewalperiod)\n";
6762 SetVersion ($DBversion);
6765 $DBversion = "3.11.00.113";
6766 if ( CheckVersion($DBversion) ) {
6768 ALTER TABLE branchcategories ADD show_in_pulldown BOOLEAN NOT NULL DEFAULT '0',
6769 ADD INDEX ( show_in_pulldown )
6771 print "Upgrade to $DBversion done (Bug 9257 - Add groups to normal search pulldown)\n";
6772 SetVersion ($DBversion);
6775 $DBversion = "3.11.00.115";
6776 if ( CheckVersion($DBversion) ) {
6777 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his or her home library will be emphasized and shown first in search results and item details.','YesNo')");
6778 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich','PatronBranch','PatronBranch|OpacURLBranch','Decides which branch''s items to emphasize. If PatronBranch, emphasize the logged in user''s library''s items. If OpacURLBranch, highlight the items of the Apache var BRANCHCODE defined in Koha''s Apache configuration file.','Choice')");
6779 print "Upgrade to $DBversion done (Bug 7740: Add syspref HighlightOwnItemsOnOPAC)\n";
6780 SetVersion ($DBversion);
6783 $DBversion = "3.11.00.116";
6784 if ( CheckVersion($DBversion) ) {
6785 $dbh->do(q{ALTER TABLE aqorders DROP COLUMN serialid;});
6786 $dbh->do(q{ALTER TABLE aqorders DROP COLUMN subscription;});
6787 $dbh->do(q{ALTER TABLE aqorders ADD COLUMN subscriptionid INT(11) DEFAULT NULL;});
6788 $dbh->do(q{ALTER TABLE aqorders ADD CONSTRAINT aqorders_subscriptionid FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE;});
6789 $dbh->do(q{ALTER TABLE subscription ADD COLUMN reneweddate DATE DEFAULT NULL;});
6790 print "Upgrade to $DBversion done (Bug 5343: table aqorders: DROP serialid and subscription fields and ADD subscriptionid, table subscription: ADD reneweddate)\n";
6791 SetVersion ($DBversion);
6794 $DBversion = "3.11.00.200";
6795 if ( CheckVersion($DBversion) ) {
6796 print "Upgrade to $DBversion done (3.12-beta1 release)\n";
6797 SetVersion ($DBversion);
6800 $DBversion = "3.11.00.201";
6801 if ( CheckVersion($DBversion) ) {
6802 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS' AND host LIKE 'z3950.bibsys.no'");
6803 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK' AND host LIKE 'z3950.nb.no'");
6804 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK' AND host LIKE 'z3950.nb.no'");
6805 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN' AND host like 'z3950.deich.folkebibl.no'");
6806 print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n";
6807 SetVersion($DBversion);
6810 $DBversion = "3.11.00.202";
6811 if ( CheckVersion($DBversion) ) {
6812 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ca', 'language', 'Catalan','2013-01-12' )");
6813 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ca','cat')");
6814 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'es', 'Catalán')");
6815 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'en', 'Catalan')");
6816 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'fr', 'Catalan')");
6817 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'ca', 'Català')");
6818 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'de', 'Katalanisch')");
6819 print "Upgrade to $DBversion done (Bug 9381: Add Catalan laguage)\n";
6820 SetVersion ($DBversion);
6823 $DBversion = "3.11.00.203";
6824 if ( CheckVersion($DBversion) ) {
6825 $dbh->do(q{ALTER TABLE suggestions CHANGE COLUMN title title VARCHAR(255) DEFAULT NULL;});
6826 print "Upgrade to $DBversion done (Bug 2046 - increasing title column length for suggestions)\n";
6827 SetVersion ($DBversion);
6830 $DBversion = "3.11.00.300";
6831 if ( CheckVersion($DBversion) ) {
6832 print "Upgrade to $DBversion done (3.12-beta3 release)\n";
6833 SetVersion ($DBversion);
6836 $DBversion = "3.11.00.301";
6837 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6840 ALTER TABLE `issues`
6841 ADD KEY `itemnumber_idx` (`itemnumber`),
6842 ADD KEY `branchcode_idx` (`branchcode`),
6843 ADD KEY `issuingbranch_idx` (`issuingbranch`)
6846 ALTER TABLE `old_issues`
6847 ADD KEY `branchcode_idx` (`branchcode`),
6848 ADD KEY `issuingbranch_idx` (`issuingbranch`)
6852 ALTER TABLE `items` ADD KEY `itype_idx` (`itype`)
6855 ALTER TABLE `deleteditems` ADD KEY `itype_idx` (`itype`)
6859 ALTER TABLE `biblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6862 ALTER TABLE `deletedbiblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6866 ALTER TABLE `statistics`
6867 ADD KEY `branch_idx` (`branch`),
6868 ADD KEY `proccode_idx` (`proccode`),
6869 ADD KEY `type_idx` (`type`),
6870 ADD KEY `usercode_idx` (`usercode`),
6871 ADD KEY `itemnumber_idx` (`itemnumber`),
6872 ADD KEY `itemtype_idx` (`itemtype`),
6873 ADD KEY `borrowernumber_idx` (`borrowernumber`),
6874 ADD KEY `associatedborrower_idx` (`associatedborrower`),
6875 ADD KEY `ccode_idx` (`ccode`)
6878 print "Upgrade to $DBversion done (Bug 9681: Add some database indexes)\n";
6879 SetVersion($DBversion);
6882 $DBversion = "3.12.00.000";
6883 if ( CheckVersion($DBversion) ) {
6884 print "Upgrade to $DBversion done (3.12.0 release)\n";
6885 SetVersion ($DBversion);
6888 $DBversion = '3.13.00.000';
6889 if ( CheckVersion($DBversion) ) {
6890 print "Upgrade to $DBversion done (start the journey to Koha Pi)\n";
6891 SetVersion ($DBversion);
6894 $DBversion = "3.13.00.001";
6895 if ( CheckVersion($DBversion) ) {
6896 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('UseCourseReserves', '0', NULL, 'Enable the course reserves feature.', 'YesNo')");
6897 $dbh->do("INSERT INTO userflags (bit,flag,flagdesc,defaulton) VALUES ('18','coursereserves','Course Reserves','0')");
6899 CREATE TABLE `courses` (
6900 `course_id` int(11) NOT NULL AUTO_INCREMENT,
6901 `department` varchar(20) DEFAULT NULL,
6902 `course_number` varchar(255) DEFAULT NULL,
6903 `section` varchar(255) DEFAULT NULL,
6904 `course_name` varchar(255) DEFAULT NULL,
6905 `term` varchar(20) DEFAULT NULL,
6906 `staff_note` mediumtext,
6907 `public_note` mediumtext,
6908 `students_count` varchar(20) DEFAULT NULL,
6909 `enabled` enum('yes','no') NOT NULL DEFAULT 'yes',
6910 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6911 PRIMARY KEY (`course_id`)
6912 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6916 CREATE TABLE `course_instructors` (
6917 `course_id` int(11) NOT NULL,
6918 `borrowernumber` int(11) NOT NULL,
6919 PRIMARY KEY (`course_id`,`borrowernumber`),
6920 KEY `borrowernumber` (`borrowernumber`)
6921 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6925 ALTER TABLE `course_instructors`
6926 ADD CONSTRAINT `course_instructors_ibfk_2` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`),
6927 ADD CONSTRAINT `course_instructors_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6931 CREATE TABLE `course_items` (
6932 `ci_id` int(11) NOT NULL AUTO_INCREMENT,
6933 `itemnumber` int(11) NOT NULL,
6934 `itype` varchar(10) DEFAULT NULL,
6935 `ccode` varchar(10) DEFAULT NULL,
6936 `holdingbranch` varchar(10) DEFAULT NULL,
6937 `location` varchar(80) DEFAULT NULL,
6938 `enabled` enum('yes','no') NOT NULL DEFAULT 'no',
6939 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6940 PRIMARY KEY (`ci_id`),
6941 UNIQUE KEY `itemnumber` (`itemnumber`),
6942 KEY `holdingbranch` (`holdingbranch`)
6943 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6947 ALTER TABLE `course_items`
6948 ADD CONSTRAINT `course_items_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
6949 ADD CONSTRAINT `course_items_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6953 CREATE TABLE `course_reserves` (
6954 `cr_id` int(11) NOT NULL AUTO_INCREMENT,
6955 `course_id` int(11) NOT NULL,
6956 `ci_id` int(11) NOT NULL,
6957 `staff_note` mediumtext,
6958 `public_note` mediumtext,
6959 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6960 PRIMARY KEY (`cr_id`),
6961 UNIQUE KEY `pseudo_key` (`course_id`,`ci_id`),
6962 KEY `course_id` (`course_id`)
6963 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6967 ALTER TABLE `course_reserves`
6968 ADD CONSTRAINT `course_reserves_ibfk_1` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`);
6972 INSERT INTO permissions (module_bit, code, description) VALUES
6973 (18, 'manage_courses', 'Add, edit and delete courses'),
6974 (18, 'add_reserves', 'Add course reserves'),
6975 (18, 'delete_reserves', 'Remove course reserves')
6980 print "Upgrade to $DBversion done (Add Course Reserves ( system preference UseCourseReserves ))\n";
6981 SetVersion($DBversion);
6984 $DBversion = "3.13.00.002";
6985 if ( CheckVersion($DBversion) ) {
6986 $dbh->do("UPDATE systempreferences SET variable = 'IndependentBranches' WHERE variable = 'IndependantBranches'");
6987 print "Upgrade to $DBversion done (Bug 10080 - Change system pref IndependantBranches to IndependentBranches)\n";
6988 SetVersion ($DBversion);
6991 $DBversion = '3.13.00.003';
6992 if ( CheckVersion($DBversion) ) {
6993 $dbh->do("ALTER TABLE serial DROP itemnumber");
6994 print "Upgrade to $DBversion done (Bug 7718 - Remove itemnumber column from serials table)\n";
6995 SetVersion($DBversion);
6998 $DBversion = "3.13.00.004";
6999 if(CheckVersion($DBversion)) {
7001 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowHoldNotes',0,'Show hold notes on OPAC','','YesNo')"
7003 print "Upgrade to $DBversion done (Bug 9722: Allow users to add notes when placing a hold in OPAC)\n";
7004 SetVersion($DBversion);
7007 $DBversion = "3.13.00.005";
7008 if(CheckVersion($DBversion)) {
7009 my $intra= C4::Context->preference("intranetstylesheet");
7010 #if this pref is not blank or starting with http, https or / [root], then
7011 #add an additional / to the front
7012 if($intra && $intra !~ /^(\/|https?)/) {
7013 $dbh->do("UPDATE systempreferences SET value=? WHERE variable=?",
7014 undef,('/'.$intra,"intranetstylesheet"));
7015 print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n";
7017 print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n";
7018 SetVersion ($DBversion);
7021 $DBversion = "3.13.00.006";
7022 if ( CheckVersion($DBversion) ) {
7025 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('CalculateFinesOnReturn','1','Switch to control if overdue fines are calculated on return or not', '', 'YesNo');
7029 "Upgrade to $DBversion done (Bug 10120 - Fines on item return controlled by a systempreference)\n";
7030 SetVersion($DBversion);
7033 $DBversion = "3.13.00.007";
7034 if ( CheckVersion($DBversion) ) {
7035 $dbh->do("UPDATE systempreferences SET variable='OpacHoldNotes' WHERE variable='OpacShowHoldNotes'");
7036 print "Upgrade to $DBversion done (Bug 10343: Rename OpacShowHoldNotes to OpacHoldNotes)\n";
7037 SetVersion($DBversion);
7040 $DBversion = "3.13.00.008";
7041 if ( CheckVersion($DBversion) ) {
7043 CREATE TABLE IF NOT EXISTS borrower_files (
7044 file_id int(11) NOT NULL AUTO_INCREMENT,
7045 borrowernumber int(11) NOT NULL,
7046 file_name varchar(255) NOT NULL,
7047 file_type varchar(255) NOT NULL,
7048 file_description varchar(255) DEFAULT NULL,
7049 file_content longblob NOT NULL,
7050 date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7051 PRIMARY KEY (file_id),
7052 KEY borrowernumber (borrowernumber),
7053 CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7054 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7056 print "Upgrade to $DBversion done (Bug 10443: make sure borrower_files table exists)\n";
7057 SetVersion($DBversion);
7060 $DBversion = "3.13.00.009";
7061 if ( CheckVersion($DBversion) ) {
7062 $dbh->do("ALTER TABLE aqorders DROP COLUMN biblioitemnumber");
7063 print "Upgrade to $DBversion done (Bug 9987 - Drop column aqorders.biblioitemnumber)\n";
7064 SetVersion($DBversion);
7067 $DBversion = "3.13.00.010";
7068 if ( CheckVersion($DBversion) ) {
7071 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AcqWarnOnDuplicateInvoice','0','Warn librarians when they try to create a duplicate invoice', '', 'YesNo');
7075 "Upgrade to $DBversion done (Bug 10366 - Add system preference to enabling warning librarian when invoice is duplicated)\n";
7076 SetVersion($DBversion);
7079 $DBversion = "3.13.00.011";
7080 if ( CheckVersion($DBversion) ) {
7081 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it'");
7082 print "Upgrade to $DBversion done (Bug 9519: Wrong language code for Italian in the advanced search language limitations)\n";
7083 SetVersion($DBversion);
7086 $DBversion = "3.13.00.012";
7087 if ( CheckVersion($DBversion) ) {
7088 $dbh->do("ALTER TABLE issuingrules MODIFY COLUMN overduefinescap decimal(28,6) DEFAULT NULL;");
7089 print "Upgrade to $DBversion done (Bug 10490: Correct datatype for overduefinescap in issuingrules)\n";
7090 SetVersion($DBversion);
7093 $DBversion ="3.13.00.013";
7094 if ( CheckVersion($DBversion) ) {
7095 $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');");
7096 print "Upgrade to $DBversion done (Bug 9576: add AllowTooManyOverride syspref to enable or disable issue limit confirmation)\n";
7097 SetVersion($DBversion);
7100 $DBversion = "3.13.00.014";
7101 if ( CheckVersion($DBversion) ) {
7102 $dbh->do("ALTER TABLE courses MODIFY COLUMN department varchar(80) DEFAULT NULL;");
7103 $dbh->do("ALTER TABLE courses MODIFY COLUMN term varchar(80) DEFAULT NULL;");
7104 print "Upgrade to $DBversion done (Bug 10604: correct width of courses.department and courses.term)\n";
7105 SetVersion($DBversion);
7108 $DBversion = "3.13.00.015";
7109 if ( CheckVersion($DBversion) ) {
7111 "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')"
7113 print "Upgrade to $DBversion done (Bug 7494: Add itemBarcodeFallbackSearch syspref)\n";
7114 SetVersion($DBversion);
7117 $DBversion = "3.13.00.016";
7118 if ( CheckVersion($DBversion) ) {
7120 ALTER TABLE items CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
7124 ALTER TABLE deleteditems CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
7128 UPDATE saved_sql SET savedsql = REPLACE(savedsql, 'wthdrawn', 'withdrawn')
7132 UPDATE marc_subfield_structure SET kohafield = 'items.withdrawn' WHERE kohafield = 'items.wthdrawn'
7135 print "Upgrade to $DBversion done (Bug 10550 - Fix database typo wthdrawn)\n";
7136 SetVersion($DBversion);
7139 $DBversion = "3.13.00.017";
7140 if ( CheckVersion($DBversion) ) {
7142 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientKey','','Client key for OverDrive integration','30','Free')"
7145 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientSecret','','Client key for OverDrive integration','30','YesNo')"
7148 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveLibraryID','','Library ID for OverDrive integration','','Integer')"
7150 print "Upgrade to $DBversion done (Bug 10320 - Show results from library's OverDrive collection in OPAC search)\n";
7151 SetVersion($DBversion);
7154 $DBversion = "3.13.00.018";
7155 if ( CheckVersion($DBversion) ) {
7156 $dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers;});
7158 CREATE TABLE aqorders_transfers (
7159 ordernumber_from int(11) NULL,
7160 ordernumber_to int(11) NULL,
7161 timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7162 UNIQUE KEY ordernumber_from (ordernumber_from),
7163 UNIQUE KEY ordernumber_to (ordernumber_to),
7164 CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
7165 CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
7166 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7168 print "Upgrade to $DBversion done (Bug 5349: Add aqorders_transfers table)\n";
7169 SetVersion($DBversion);
7172 $DBversion = "3.13.00.019";
7173 if ( CheckVersion($DBversion) ) {
7174 $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsg VARCHAR(255) AFTER summary;");
7175 $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsgtype CHAR(16) DEFAULT 'message' NOT NULL AFTER checkinmsg;");
7176 print "Upgrade to $DBversion done (Bug 10513 - Light up a warning/message when returning a chosen item type)\n";
7177 SetVersion($DBversion);
7180 $DBversion = "3.13.00.020";
7181 if ( CheckVersion($DBversion) ) {
7182 $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')");
7183 $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')");
7184 print "Upgrade to $DBversion done (Bug 7639: system preferences to forgive fines on lost items)\n";
7185 SetVersion($DBversion);
7188 $DBversion ="3.13.00.021";
7189 if ( CheckVersion($DBversion) ) {
7190 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ConfirmFutureHolds','0','Number of days for confirming future holds','','Integer');");
7191 print "Upgrade to $DBversion done (Bug 9761: Add ConfirmFutureHolds pref)\n";
7192 SetVersion($DBversion);
7195 $DBversion = "3.13.00.022";
7196 if ( CheckVersion($DBversion) ) {
7197 $dbh->do("DELETE from auth_tag_structure WHERE tagfield IN ('68a','68b')");
7198 $dbh->do("DELETE from auth_subfield_structure WHERE tagfield IN ('68a','68b')");
7199 print "Upgrade to $DBversion done (Bug 10687 - Delete erroneous tags 68a and 68b on default MARC21 auth framework)\n";
7200 SetVersion($DBversion);
7203 $DBversion = "3.13.00.023";
7204 if ( CheckVersion($DBversion) ) {
7205 $dbh->do("ALTER TABLE borrowers CHANGE password password VARCHAR(60);");
7206 print "Upgrade to $DBversion done (Bug 9611 upgrading password storage system)\n";
7207 SetVersion($DBversion);
7210 $DBversion = "3.13.00.024";
7211 if ( CheckVersion($DBversion) ) {
7212 $dbh->do(q{ALTER TABLE z3950servers ADD COLUMN recordtype VARCHAR(45) NOT NULL DEFAULT 'biblio' AFTER description;});
7213 print "Upgrade to $DBversion done (Bug 10096 - Add a Z39.50 interface for authority searching)\n";
7216 $DBversion = "3.13.00.025";
7217 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7218 $dbh->do("ALTER TABLE oai_sets_mappings ADD COLUMN operator varchar(8) NOT NULL default 'equal' AFTER marcsubfield;");
7219 print "Upgrade to $DBversion done (Bug 9295: OAI notequal: add operator column to OAI mappings table)\n";
7220 SetVersion ($DBversion);
7223 $DBversion = "3.13.00.026";
7224 if ( CheckVersion($DBversion) ) {
7226 ALTER TABLE auth_subfield_structure ADD COLUMN defaultvalue TEXT DEFAULT NULL AFTER frameworkcode
7228 print "Upgrade to $DBversion done (Bug 10602: Add the column auth_subfield_structure.defaultvalue)\n";
7229 SetVersion($DBversion);
7232 $DBversion = "3.13.00.027";
7233 if ( CheckVersion($DBversion) ) {
7234 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AllowOfflineCirculation','0','','If on, enables HTML5 offline circulation functionality.','YesNo')");
7235 print "Upgrade to $DBversion done (Bug 10240: Add syspref AllowOfflineCirculation)\n";
7236 SetVersion ($DBversion);
7239 $DBversion = "3.13.00.028";
7240 if ( CheckVersion($DBversion) ) {
7242 ALTER TABLE export_format ADD type VARCHAR(255) DEFAULT 'marc' AFTER encoding
7245 ALTER TABLE export_format CHANGE marcfields content mediumtext NOT NULL
7247 print "Upgrade to $DBversion done (Bug 10853: Add new field export_format.type and rename export_format.marcfields with export_format.content)\n";
7248 SetVersion($DBversion);
7251 $DBversion = "3.13.00.029";
7252 if ( CheckVersion($DBversion) ) {
7254 INSERT IGNORE INTO export_format( profile, description, content, csv_separator, type )
7255 VALUES ( "issues to claim", "Default CSV export for serial issue claims",
7256 "SUPPLIER=aqbooksellers.name|TITLE=subscription.title|ISSUE NUMBER=serial.serialseq|LATE SINCE=serial.planneddate",
7259 print "Upgrade to $DBversion done (Bug 10854: Add the default CSV profile for claiming issues)\n";
7260 SetVersion($DBversion);
7263 $DBversion = "3.13.00.030";
7264 if ( CheckVersion($DBversion) ) {
7266 DELETE FROM patronimage WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowers.cardnumber = patronimage.cardnumber)
7270 ALTER TABLE patronimage ADD borrowernumber INT( 11 ) NULL FIRST
7273 $dbh->{AutoCommit} = 0;
7274 $dbh->{RaiseError} = 1;
7278 UPDATE patronimage LEFT JOIN borrowers USING ( cardnumber ) SET patronimage.borrowernumber = borrowers.borrowernumber
7284 print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber) failed! Transaction aborted because $@\n";
7285 eval { $dbh->rollback };
7289 ALTER TABLE patronimage DROP FOREIGN KEY patronimage_fk1
7292 ALTER TABLE patronimage DROP PRIMARY KEY, ADD PRIMARY KEY( borrowernumber )
7295 ALTER TABLE patronimage DROP cardnumber
7298 ALTER TABLE patronimage ADD FOREIGN KEY ( borrowernumber ) REFERENCES borrowers ( borrowernumber ) ON DELETE CASCADE ON UPDATE CASCADE
7301 print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber)\n";
7302 SetVersion($DBversion);
7305 $dbh->{AutoCommit} = 1;
7306 $dbh->{RaiseError} = 0;
7309 $DBversion = "3.13.00.031";
7310 if ( CheckVersion($DBversion) ) {
7313 CREATE TABLE IF NOT EXISTS `patron_lists` (
7314 patron_list_id int(11) NOT NULL AUTO_INCREMENT,
7315 name varchar(255) CHARACTER SET utf8 NOT NULL,
7316 owner int(11) NOT NULL,
7317 PRIMARY KEY (patron_list_id),
7319 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7323 ALTER TABLE `patron_lists`
7324 ADD CONSTRAINT patron_lists_ibfk_1 FOREIGN KEY (`owner`) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7328 CREATE TABLE patron_list_patrons (
7329 patron_list_patron_id int(11) NOT NULL AUTO_INCREMENT,
7330 patron_list_id int(11) NOT NULL,
7331 borrowernumber int(11) NOT NULL,
7332 PRIMARY KEY (patron_list_patron_id),
7333 KEY patron_list_id (patron_list_id),
7334 KEY borrowernumber (borrowernumber)
7335 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7339 ALTER TABLE `patron_list_patrons`
7340 ADD CONSTRAINT patron_list_patrons_ibfk_1 FOREIGN KEY (patron_list_id) REFERENCES patron_lists (patron_list_id) ON DELETE CASCADE ON UPDATE CASCADE,
7341 ADD CONSTRAINT patron_list_patrons_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7345 INSERT INTO permissions (module_bit, code, description) VALUES
7346 (13, 'manage_patron_lists', 'Add, edit and delete patron lists and their contents')
7349 print "Upgrade to $DBversion done (Bug 10565 - Add a 'Patron List' feature for storing and manipulating collections of patrons)\n";
7350 SetVersion($DBversion);
7353 $DBversion = "3.13.00.032";
7354 if ( CheckVersion($DBversion) ) {
7355 $dbh->do("ALTER TABLE aqorders ADD COLUMN orderstatus varchar(16) DEFAULT 'new' AFTER parent_ordernumber");
7356 $dbh->do("UPDATE aqorders SET orderstatus='ordered' WHERE basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)");
7358 UPDATE aqorders SET orderstatus='partial'
7359 WHERE quantity > quantityreceived
7360 AND quantityreceived > 0
7361 AND ordernumber IN (
7362 SELECT parent_ordernumber
7364 SELECT DISTINCT(parent_ordernumber)
7366 WHERE ordernumber != parent_ordernumber
7369 AND basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)
7371 $dbh->do("UPDATE aqorders SET orderstatus='complete' WHERE quantity=quantityreceived");
7372 $dbh->do("UPDATE aqorders SET orderstatus='cancelled' WHERE datecancellationprinted IS NOT NULL");
7373 print "Upgrade to $DBversion done (Bug 5336: Add the new column aqorders.orderstatus)\n";
7374 SetVersion($DBversion);
7377 $DBversion = "3.13.00.033";
7378 if ( CheckVersion($DBversion) ) {
7380 DROP TABLE IF EXISTS subscription_frequencies
7383 CREATE TABLE subscription_frequencies (
7384 id INTEGER NOT NULL AUTO_INCREMENT,
7385 description TEXT NOT NULL,
7386 displayorder INT DEFAULT NULL,
7387 unit ENUM('day','week','month','year') DEFAULT NULL,
7388 unitsperissue INTEGER NOT NULL DEFAULT '1',
7389 issuesperunit INTEGER NOT NULL DEFAULT '1',
7391 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7395 DROP TABLE IF EXISTS subscription_numberpatterns
7398 CREATE TABLE subscription_numberpatterns (
7399 id INTEGER NOT NULL AUTO_INCREMENT,
7400 label VARCHAR(255) NOT NULL,
7401 displayorder INTEGER DEFAULT NULL,
7402 description TEXT NOT NULL,
7403 numberingmethod VARCHAR(255) NOT NULL,
7404 label1 VARCHAR(255) DEFAULT NULL,
7405 add1 INTEGER DEFAULT NULL,
7406 every1 INTEGER DEFAULT NULL,
7407 whenmorethan1 INTEGER DEFAULT NULL,
7408 setto1 INTEGER DEFAULT NULL,
7409 numbering1 VARCHAR(255) DEFAULT NULL,
7410 label2 VARCHAR(255) DEFAULT NULL,
7411 add2 INTEGER DEFAULT NULL,
7412 every2 INTEGER DEFAULT NULL,
7413 whenmorethan2 INTEGER DEFAULT NULL,
7414 setto2 INTEGER DEFAULT NULL,
7415 numbering2 VARCHAR(255) DEFAULT NULL,
7416 label3 VARCHAR(255) DEFAULT NULL,
7417 add3 INTEGER DEFAULT NULL,
7418 every3 INTEGER DEFAULT NULL,
7419 whenmorethan3 INTEGER DEFAULT NULL,
7420 setto3 INTEGER DEFAULT NULL,
7421 numbering3 VARCHAR(255) DEFAULT NULL,
7423 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
7427 INSERT INTO subscription_frequencies (description, unit, unitsperissue, issuesperunit, displayorder)
7429 ('2/day', 'day', 1, 2, 1),
7430 ('1/day', 'day', 1, 1, 2),
7431 ('3/week', 'week', 1, 3, 3),
7432 ('1/week', 'week', 1, 1, 4),
7433 ('1/2 weeks', 'week', 2, 1, 5),
7434 ('1/3 weeks', 'week', 3, 1, 6),
7435 ('1/month', 'month', 1, 1, 7),
7436 ('1/2 months', 'month', 2, 1, 8),
7437 ('1/3 months', 'month', 3, 1, 9),
7438 ('2/year', 'month', 6, 1, 10),
7439 ('1/year', 'year', 1, 1, 11),
7440 ('1/2 year', 'year', 2, 1, 12),
7441 ('Irregular', NULL, 1, 1, 13)
7444 # Used to link existing subscription to newly created frequencies
7445 my $frequencies_mapping = { # keys are old frequency numbers, values are the new ones
7446 1 => 2, # daily (n/week)
7451 6 => 8, # 1/2 months (6/year)
7452 7 => 9, # 1/3 months (1/quarter)
7453 8 => 9, # 1/quarter (seasonal)
7456 11 => 12, # 1/2 years
7458 16 => 13, # Without periodicity
7459 32 => 13, # Irregular
7464 INSERT INTO subscription_numberpatterns
7465 (label, displayorder, description, numberingmethod,
7466 label1, add1, every1, whenmorethan1, setto1, numbering1,
7467 label2, add2, every2, whenmorethan2, setto2, numbering2,
7468 label3, add3, every3, whenmorethan3, setto3, numbering3)
7470 ('Number', 1, 'Simple Numbering method', 'No.{X}',
7471 'Number', 1, 1, 99999, 1, NULL,
7472 NULL, NULL, NULL, NULL, NULL, NULL,
7473 NULL, NULL, NULL, NULL, NULL, NULL),
7475 ('Volume, Number, Issue', 2, 'Volume Number Issue 1', 'Vol.{X}, Number {Y}, Issue {Z}',
7476 'Volume', 1, 48, 99999, 1, NULL,
7477 'Number', 1, 4, 12, 1, NULL,
7478 'Issue', 1, 1, 4, 1, NULL),
7480 ('Volume, Number', 3, 'Volume Number 1', 'Vol {X}, No {Y}',
7481 'Volume', 1, 12, 99999, 1, NULL,
7482 'Number', 1, 1, 12, 1, NULL,
7483 NULL, NULL, NULL, NULL, NULL, NULL),
7485 ('Seasonal', 4, 'Season Year', '{X} {Y}',
7486 'Season', 1, 1, 3, 0, 'season',
7487 'Year', 1, 4, 99999, 1, NULL,
7488 NULL, NULL, NULL, NULL, NULL, NULL)
7492 ALTER TABLE subscription
7493 MODIFY COLUMN numberpattern INTEGER DEFAULT NULL,
7494 MODIFY COLUMN periodicity INTEGER DEFAULT NULL
7497 # Update existing subscriptions
7500 SELECT subscriptionid, periodicity, numberingmethod,
7501 add1, every1, whenmorethan1, setto1,
7502 add2, every2, whenmorethan2, setto2,
7503 add3, every3, whenmorethan3, setto3
7505 ORDER BY subscriptionid
7507 my $sth = $dbh->prepare($query);
7509 my $insert_numberpatterns_sth = $dbh->prepare(qq|
7510 INSERT INTO subscription_numberpatterns
7511 (label, displayorder, description, numberingmethod,
7512 label1, add1, every1, whenmorethan1, setto1, numbering1,
7513 label2, add2, every2, whenmorethan2, setto2, numbering2,
7514 label3, add3, every3, whenmorethan3, setto3, numbering3)
7516 (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
7518 my $check_numberpatterns_sth = $dbh->prepare(qq|
7519 SELECT * FROM subscription_numberpatterns
7520 WHERE (add1 = ? OR (add1 IS NULL AND ? IS NULL)) AND (add2 = ? OR (add2 IS NULL AND ? IS NULL))
7521 AND (add3 = ? OR (add3 IS NULL AND ? IS NULL)) AND (every1 = ? OR (every1 IS NULL AND ? IS NULL))
7522 AND (every2 = ? OR (every2 IS NULL AND ? IS NULL)) AND (every3 = ? OR (every3 IS NULL AND ? IS NULL))
7523 AND (whenmorethan1 = ? OR (whenmorethan1 IS NULL AND ? IS NULL)) AND (whenmorethan2 = ? OR (whenmorethan2 IS NULL AND ? IS NULL))
7524 AND (whenmorethan3 = ? OR (whenmorethan3 IS NULL AND ? IS NULL)) AND (setto1 = ? OR (setto1 IS NULL AND ? IS NULL))
7525 AND (setto2 = ? OR (setto2 IS NULL AND ? IS NULL)) AND (setto3 = ? OR (setto3 IS NULL AND ? IS NULL))
7526 AND (numberingmethod = ? OR (numberingmethod IS NULL AND ? IS NULL))
7529 my $update_subscription_sth = $dbh->prepare(qq|
7531 SET numberpattern = ?,
7533 WHERE subscriptionid = ?
7537 while(my $sub = $sth->fetchrow_hashref) {
7538 $check_numberpatterns_sth->execute(
7539 $sub->{add1}, $sub->{add1}, $sub->{add2}, $sub->{add2}, $sub->{add3}, $sub->{add3},
7540 $sub->{every1}, $sub->{every1}, $sub->{every2}, $sub->{every2}, $sub->{every3}, $sub->{every3},
7541 $sub->{whenmorethan1}, $sub->{whenmorethan1}, $sub->{whenmorethan2}, $sub->{whenmorethan2},
7542 $sub->{whenmorethan3}, $sub->{whenmorethan3}, $sub->{setto1}, $sub->{setto1}, $sub->{setto2},
7543 $sub->{setto2}, $sub->{setto3}, $sub->{setto3}, $sub->{numberingmethod}, $sub->{numberingmethod}
7545 my $p = $check_numberpatterns_sth->fetchrow_hashref;
7547 # Pattern already exists, link to it
7548 $update_subscription_sth->execute($p->{id},
7549 $frequencies_mapping->{$sub->{periodicity}},
7550 $sub->{subscriptionid});
7552 # Create a new numbering pattern for this subscription
7553 my $ok = $insert_numberpatterns_sth->execute(
7554 "Backup pattern $i", 4+$i, "Automatically created pattern by updatedatabase", $sub->{numberingmethod},
7555 "X", $sub->{add1}, $sub->{every1}, $sub->{whenmorethan1}, $sub->{setto1}, undef,
7556 "Y", $sub->{add2}, $sub->{every2}, $sub->{whenmorethan2}, $sub->{setto2}, undef,
7557 "Z", $sub->{add3}, $sub->{every3}, $sub->{whenmorethan3}, $sub->{setto3}, undef
7560 my $id = $dbh->last_insert_id(undef, undef, 'subscription_numberpatterns', undef);
7561 # Link to subscription_numberpatterns and subscription_frequencies
7562 $update_subscription_sth->execute($id,
7563 $frequencies_mapping->{$sub->{periodicity}},
7564 $sub->{subscriptionid});
7570 # Remove now useless columns
7572 ALTER TABLE subscription
7573 DROP COLUMN numberingmethod,
7576 DROP COLUMN whenmorethan1,
7580 DROP COLUMN whenmorethan2,
7584 DROP COLUMN whenmorethan3,
7587 DROP COLUMN issuesatonce,
7588 DROP COLUMN hemisphere,
7589 ADD COLUMN countissuesperunit INTEGER NOT NULL DEFAULT 1 AFTER periodicity,
7590 ADD COLUMN skip_serialseq BOOLEAN NOT NULL DEFAULT 0 AFTER irregularity,
7591 ADD COLUMN locale VARCHAR(80) DEFAULT NULL AFTER numberpattern,
7592 ADD CONSTRAINT subscription_ibfk_1 FOREIGN KEY (periodicity) REFERENCES subscription_frequencies (id) ON DELETE SET NULL ON UPDATE CASCADE,
7593 ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY (numberpattern) REFERENCES subscription_numberpatterns (id) ON DELETE SET NULL ON UPDATE CASCADE
7596 # Set firstacquidate if not already set (firstacquidate is now mandatory)
7597 my $get_first_planneddate_sth = $dbh->prepare(qq|
7600 WHERE subscriptionid = ?
7604 my $update_firstacquidate_sth = $dbh->prepare(qq|
7606 SET firstacquidate = ?
7607 WHERE subscriptionid = ?
7609 my $get_subscriptions_sth = $dbh->prepare(qq|
7610 SELECT subscriptionid, startdate
7612 WHERE firstacquidate IS NULL
7613 OR firstacquidate = '0000-00-00'
7615 $get_subscriptions_sth->execute;
7616 while ( my ($subscriptionid, $startdate) = $get_subscriptions_sth->fetchrow ) {
7617 # Try to get the planned date of the first serial
7618 $get_first_planneddate_sth->execute($subscriptionid);
7619 my ($first_planneddate) = $get_first_planneddate_sth->fetchrow;
7620 if ($first_planneddate and $first_planneddate =~ /^\d{4}-\d{2}-\d{2}$/) {
7621 $update_firstacquidate_sth->execute($first_planneddate, $subscriptionid);
7623 # Defaults to subscription start date
7624 $update_firstacquidate_sth->execute($startdate, $subscriptionid);
7628 print "Upgrade to $DBversion done (Bug 7688: add subscription_frequencies and subscription_numberpatterns tables)\n";
7629 SetVersion($DBversion);
7632 $DBversion = "3.13.00.034";
7633 if ( CheckVersion($DBversion) ) {
7635 ALTER TABLE `import_batches`
7636 CHANGE `item_action` `item_action`
7637 ENUM( 'always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore', 'replace' )
7638 NOT NULL DEFAULT 'always_add'
7640 print "Upgrade to $DBversion done (Bug 7131 - way to overlay items in in marc import)\n";
7641 SetVersion($DBversion);
7644 $DBversion ="3.13.00.035";
7645 if ( CheckVersion($DBversion) ) {
7647 CREATE TABLE borrower_debarments (
7648 borrower_debarment_id int(11) NOT NULL AUTO_INCREMENT,
7649 borrowernumber int(11) NOT NULL,
7650 expiration date DEFAULT NULL,
7651 `type` enum('SUSPENSION','OVERDUES','MANUAL') NOT NULL DEFAULT 'MANUAL',
7653 manager_id int(11) DEFAULT NULL,
7654 created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
7655 updated timestamp NULL DEFAULT NULL,
7656 PRIMARY KEY (borrower_debarment_id),
7657 KEY borrowernumber (borrowernumber) ,
7658 CONSTRAINT `borrower_debarments_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
7659 ON DELETE CASCADE ON UPDATE CASCADE
7660 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7663 # debarments with end date
7665 INSERT INTO borrower_debarments ( borrowernumber, expiration, comment ) SELECT borrowernumber, debarred, debarredcomment FROM borrowers WHERE debarred IS NOT NULL AND debarred <> '9999-12-31'
7667 # debarments with no end date
7669 INSERT INTO borrower_debarments ( borrowernumber, comment ) SELECT borrowernumber, debarredcomment FROM borrowers WHERE debarred = '9999-12-31'
7673 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES
7674 ('AutoRemoveOverduesRestrictions','0','Defines whether an OVERDUES debarment should be lifted automatically if all overdue items are returned by the patron.','YesNo')
7677 print "Upgrade to $DBversion done (Bug 2720 - Overdues which debar automatically should undebar automatically when returned)\n";
7678 SetVersion($DBversion);
7681 $DBversion = "3.13.00.036";
7682 if ( CheckVersion($DBversion) ) {
7684 INSERT INTO systempreferences (variable, value, explanation, options, type)
7685 VALUES ('StaffDetailItemSelection', '1', 'Enable item selection in record detail page', NULL, 'YesNo')
7687 print "Upgrade to $DBversion done (Add system preference StaffDetailItemSelection)\n";
7688 SetVersion($DBversion);
7691 $DBversion = "3.13.00.037";
7692 if ( CheckVersion($DBversion) ) {
7693 #add phone if it is not there already (explains the ignore option)
7695 INSERT IGNORE INTO message_transport_types (message_transport_type) values ('phone');
7697 print "Upgrade to $DBversion done (Bug 10572: Add phone to message_transport_types table for new installs)\n";
7698 SetVersion($DBversion);
7701 $DBversion = "3.13.00.038";
7702 if ( CheckVersion($DBversion) ) {
7703 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES(15, 'superserials', 'Manage subscriptions from any branch (only applies when IndependentBranches is used)')");
7704 print "Upgrade to $DBversion done (Bug 8435: Add superserials permission)\n";
7705 SetVersion($DBversion);
7708 $DBversion = "3.13.00.039";
7709 if ( CheckVersion($DBversion) ) {
7711 ALTER TABLE aqbasket ADD branch varchar(10) default NULL
7714 ALTER TABLE aqbasket
7715 ADD CONSTRAINT aqbasket_ibfk_4 FOREIGN KEY (branch)
7716 REFERENCES branches (branchcode)
7717 ON UPDATE CASCADE ON DELETE SET NULL
7720 DROP TABLE IF EXISTS aqbasketusers
7723 CREATE TABLE aqbasketusers (
7724 basketno int(11) NOT NULL,
7725 borrowernumber int(11) NOT NULL,
7726 PRIMARY KEY (basketno,borrowernumber),
7727 CONSTRAINT aqbasketusers_ibfk_1 FOREIGN KEY (basketno) REFERENCES aqbasket (basketno) ON DELETE CASCADE ON UPDATE CASCADE,
7728 CONSTRAINT aqbasketusers_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7729 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7732 INSERT INTO permissions (module_bit, code, description)
7733 VALUES (11, 'order_manage_all', 'Manage all orders and baskets, regardless of restrictions on them')
7736 print "Upgrade to $DBversion done (Add branch and users list to baskets. "
7737 . "New permission order_manage_all)\n";
7738 SetVersion($DBversion);
7741 $DBversion = "3.13.00.040";
7742 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
7743 $dbh->do("CREATE TABLE IF NOT EXISTS marc_modification_templates (
7744 template_id int(11) NOT NULL auto_increment,
7746 PRIMARY KEY (template_id)
7747 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
7751 CREATE TABLE IF NOT EXISTS marc_modification_template_actions (
7752 mmta_id int(11) NOT NULL auto_increment,
7753 template_id int(11) NOT NULL,
7754 ordering int(3) NOT NULL,
7755 action enum('delete_field','update_field','move_field','copy_field') NOT NULL,
7756 field_number smallint(6) NOT NULL default '0',
7757 from_field varchar(3) NOT NULL,
7758 from_subfield varchar(1) NULL,
7759 field_value varchar(100) default NULL,
7760 to_field varchar(3) default NULL,
7761 to_subfield varchar(1) default NULL,
7762 to_regex_search text,
7763 to_regex_replace text,
7764 to_regex_modifiers varchar(8) default '',
7765 conditional enum('if','unless') default NULL,
7766 conditional_field varchar(3) default NULL,
7767 conditional_subfield varchar(1) default NULL,
7768 conditional_comparison enum('exists','not_exists','equals','not_equals') default NULL,
7769 conditional_value text,
7770 conditional_regex tinyint(1) NOT NULL default '0',
7772 PRIMARY KEY (mmta_id),
7773 CONSTRAINT `mmta_ibfk_1` FOREIGN KEY (`template_id`) REFERENCES `marc_modification_templates` (`template_id`) ON DELETE CASCADE ON UPDATE CASCADE
7774 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7777 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('13', 'marc_modification_templates', 'Manage marc modification templates')");
7779 print "Upgrade to $DBversion done ( Bug 8015: Added tables for MARC Modification Framework )\n";
7780 SetVersion($DBversion);
7783 $DBversion = "3.13.00.041";
7784 if(CheckVersion($DBversion)) {
7786 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');
7788 print "Upgrade to $DBversion done (Bug 10986: Added AcqItemSetSubfieldsWhenReceived syspref)\n";
7789 SetVersion($DBversion);
7792 $DBversion = "3.13.00.042";
7793 if(CheckVersion($DBversion)) {
7794 print "Upgrade to $DBversion done (Koha 3.14 beta)\n";
7795 SetVersion($DBversion);
7798 $DBversion = "3.13.00.043";
7799 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
7800 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
7801 print "Upgrade to $DBversion done (Bug 11196: Add system preference SearchEngine if missing )\n";
7802 SetVersion($DBversion);
7805 $DBversion = "3.14.00.000";
7806 if ( CheckVersion($DBversion) ) {
7807 print "Upgrade to $DBversion done (3.14.0 release)\n";
7808 SetVersion ($DBversion);
7811 $DBversion = '3.15.00.000';
7812 if ( CheckVersion($DBversion) ) {
7813 print "Upgrade to $DBversion done (the road goes ever on)\n";
7814 SetVersion ($DBversion);
7817 $DBversion = "3.15.00.001";
7818 if ( CheckVersion($DBversion) ) {
7819 $dbh->do("UPDATE systempreferences SET value='clear' where variable = 'CircAutoPrintQuickSlip' and value = '0'");
7820 $dbh->do("UPDATE systempreferences SET value='qslip' where variable = 'CircAutoPrintQuickSlip' and value = '1'");
7821 $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'");
7822 print "Upgrade to $DBversion done (Bug 11040: Add option to print full slip when checking out a null barcode)\n";
7823 SetVersion($DBversion);
7826 $DBversion = "3.15.00.002";
7827 if(CheckVersion($DBversion)) {
7828 $dbh->do("ALTER TABLE deleteditems MODIFY materials text;");
7829 print "Upgrade to $DBversion done (Bug 11275: alter deleteditems.materials from varchar(10) to text)\n";
7830 SetVersion($DBversion);
7833 $DBversion = "3.15.00.003";
7834 if ( CheckVersion($DBversion) ) {
7837 SET description = ''
7838 WHERE description IN (
7843 ' Account Management fee',
7844 'Payment,thanks', 'Payment,thanks - ',
7848 print "Upgrade to $DBversion done (Bug 2546: Update fine descriptions)\n";
7849 SetVersion($DBversion);
7852 $DBversion = "3.15.00.004";
7853 if ( CheckVersion($DBversion) ) {
7854 if ( C4::Context->preference("marcflavour") eq 'MARC21' ) {
7856 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
7857 kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link,
7858 defaultvalue) VALUES
7859 ('015', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7860 ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7861 ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7862 ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
7863 ('800', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7864 ('810', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7865 ('811', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL),
7866 ('830', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL);
7869 INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
7870 mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
7871 ('', '020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', ''),
7872 ('', '024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', '');
7875 print "Upgrade to $DBversion done (Bug 10970 - Update MARC21 frameworks to Update Nr. 17 - DB update)\n";
7876 SetVersion($DBversion);
7879 $DBversion = "3.15.00.005";
7880 if ( CheckVersion($DBversion) ) {
7881 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('AcquisitionDetails', '1', '', 'Hide/Show acquisition details on the biblio detail page.', 'YesNo');");
7882 print "Upgrade to $DBversion done (Bug 8230: Add AcquisitionDetails system preference)\n";
7883 SetVersion ($DBversion);
7886 $DBversion = "3.15.00.006";
7887 if(CheckVersion($DBversion)) {
7889 ALTER TABLE `borrowers`
7890 ADD KEY `surname_idx` (`surname`(255)),
7891 ADD KEY `firstname_idx` (`firstname`(255)),
7892 ADD KEY `othernames_idx` (`othernames`(255))
7894 print "Upgrade to $DBversion done (Bug 11249 - Add DB indexes on borrower names)\n";
7895 SetVersion($DBversion);
7898 $DBversion = "3.15.00.007";
7899 if ( CheckVersion($DBversion) ) {
7900 $dbh->do("ALTER TABLE items ADD itemlost_on DATETIME NULL AFTER itemlost");
7901 $dbh->do("ALTER TABLE items ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7902 $dbh->do("ALTER TABLE deleteditems ADD itemlost_on DATETIME NULL AFTER itemlost");
7903 $dbh->do("ALTER TABLE deleteditems ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7904 print "Upgrade to $DBversion done (Bug 9673 - Track when items are marked as lost or withdrawn)\n";
7905 SetVersion ($DBversion);
7908 $DBversion = "3.15.00.008";
7909 if ( CheckVersion($DBversion) ) {
7911 ALTER TABLE collections_tracking CHANGE ctId collections_tracking_id integer(11) NOT NULL auto_increment;
7913 print "Upgrade to $DBversion done (Bug 11384) - change name of collections_tracker.ctId column)\n";
7914 SetVersion ($DBversion);
7917 $DBversion = "3.15.00.009";
7918 if ( CheckVersion($DBversion) ) {
7920 ALTER TABLE suggestions MODIFY suggesteddate DATE NOT NULL
7922 print "Upgrade to $DBversion done (Bug 11391) - drop default value on suggestions.suggesteddate column)\n";
7923 SetVersion ($DBversion);
7926 $DBversion = "3.15.00.010";
7927 if(CheckVersion($DBversion)) {
7928 $dbh->do("ALTER TABLE deleteditems DROP COLUMN marc");
7929 print "Upgrade to $DBversion done (Bug 6331: remove obsolete column in deleteditems.marc)\n";
7930 SetVersion ($DBversion);
7933 $DBversion = "3.15.00.011";
7934 if(CheckVersion($DBversion)) {
7935 $dbh->do("UPDATE marc_subfield_structure SET maxlength=9999 WHERE maxlength IS NULL OR maxlength=0;");
7936 print "Upgrade to $DBversion done (Bug 8018: set 9999 as default max length for subfields)\n";
7937 SetVersion ($DBversion);
7940 $DBversion = "3.15.00.012";
7941 if ( CheckVersion($DBversion) ) {
7943 INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'force_checkout', 'Force checkout if a limitation exists')
7946 INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'manage_restrictions', 'Manage restrictions for accounts')
7949 INSERT INTO user_permissions (borrowernumber, module_bit, code)
7950 SELECT user_permissions.borrowernumber, 1, 'force_checkout'
7951 FROM user_permissions
7952 LEFT JOIN borrowers USING(borrowernumber)
7953 WHERE borrowers.flags & (1 << 1)
7956 INSERT INTO user_permissions (borrowernumber, module_bit, code)
7957 SELECT user_permissions.borrowernumber, 1, 'manage_restrictions'
7958 FROM user_permissions
7959 LEFT JOIN borrowers USING(borrowernumber)
7960 WHERE borrowers.flags & (1 << 1)
7963 print "Upgrade to $DBversion done (Bug 10863 - Add permissions force_checkout and manage_restrictions)\n";
7964 SetVersion($DBversion);
7967 $DBversion = "3.15.00.013";
7968 if(CheckVersion($DBversion)) {
7970 UPDATE systempreferences
7971 SET explanation = 'Upon receiving items, update their subfields if they were created when placing an order (e.g. o=5|a="foo bar")'
7972 WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7976 UPDATE systempreferences
7978 WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7981 print "Upgrade to $DBversion done (Bug 11237: Update explanation and default value for AcqItemSetSubfieldsWhenReceived syspref)\n";
7982 SetVersion($DBversion);
7985 $DBversion = "3.15.00.014";
7986 if (CheckVersion($DBversion)) {
7987 $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');");
7988 print "Upgrade to $DBversion done (Bug 11415: add system preference for automatic self checkout receipt printing)\n";
7989 SetVersion($DBversion);
7992 $DBversion = "3.15.00.015";
7993 if (CheckVersion($DBversion)) {
7994 $dbh->do("INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
7995 ('OpacSuggestionManagedBy',1,'','Show the name of the staff member who managed a suggestion in OPAC','YesNo');");
7996 print "Upgrade to $DBversion done (Bug 10907: Add OpacSuggestionManagedBy system preference)\n";
7997 SetVersion($DBversion);
8000 $DBversion = "3.15.00.016";
8001 if (CheckVersion($DBversion)) {
8002 $dbh->do("ALTER TABLE biblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8003 $dbh->do("ALTER TABLE deletedbiblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8004 print "Upgrade to $DBversion done (Bug 11268 - Biblioitems URL field is too small for some URLs)\n";
8005 SetVersion($DBversion);
8008 $DBversion = "3.15.00.017";
8009 if(CheckVersion($DBversion)) {
8011 UPDATE systempreferences
8012 SET explanation = 'Define the contents of UNIMARC authority control field 100 position 08-35'
8013 WHERE variable = "UNIMARCAuthorityField100"
8016 UPDATE systempreferences
8017 SET explanation = 'Define the contents of MARC21 authority control field 008 position 06-39'
8018 WHERE variable = "MARCAuthorityControlField008"
8021 UPDATE systempreferences
8022 SET explanation = 'Define MARC Organization Code for MARC21 records - http://www.loc.gov/marc/organizations/orgshome.html'
8023 WHERE variable = "MARCOrgCode"
8025 print "Upgrade to $DBversion done (Bug 11611 - fix possible confusion between UNIMARC and MARC21 in some sysprefs)\n";
8026 SetVersion($DBversion);
8029 $DBversion = "3.15.00.018";
8030 if ( CheckVersion($DBversion) ) {
8031 $dbh->{AutoCommit} = 0;
8032 $dbh->{RaiseError} = 1;
8035 $dbh->selectcol_arrayref(q|SELECT COUNT(*) FROM roadtype|);
8038 my $av_added = $dbh->do(q|
8039 INSERT INTO authorised_values(category, authorised_value, lib, lib_opac)
8040 SELECT 'ROADTYPE', roadtypeid, road_type, road_type
8044 my $rt_deleted = $dbh->do(q|
8045 DELETE FROM roadtype
8048 if ( $av_added == $rt_deleted or $rt_deleted eq "0E0" ) {
8050 DROP TABLE roadtype;
8053 print "Upgrade to $DBversion done (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values)\n";
8054 SetVersion($DBversion);
8056 print "Upgrade to $DBversion failed (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values.\nTransaction aborted because $@\n)";
8060 $dbh->{AutoCommit} = 1;
8061 $dbh->{RaiseError} = 0;
8064 $DBversion = "3.15.00.019";
8065 if ( CheckVersion($DBversion) ) {
8066 $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')");
8067 print "Upgrade to $DBversion done (Bug 11256: Add system preference OpacMaxItemsToDisplay)\n";
8068 SetVersion($DBversion);
8071 $DBversion = "3.15.00.020";
8072 if ( CheckVersion($DBversion) ) {
8074 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')
8076 print "Upgrade to $DBversion done (Bug 11343: Add system preference MaxItemsForBatch )\n";
8077 SetVersion($DBversion);
8080 $DBversion = "3.15.00.021";
8081 if(CheckVersion($DBversion)) {
8083 ALTER TABLE `action_logs`
8085 ADD KEY `timestamp_idx` (`timestamp`),
8086 ADD KEY `user_idx` (`user`),
8087 ADD KEY `module_idx` (`module`(255)),
8088 ADD KEY `action_idx` (`action`(255)),
8089 ADD KEY `object_idx` (`object`),
8090 ADD KEY `info_idx` (`info`(255))
8092 print "Upgrade to $DBversion done (Bug 3445: Add indexes to action_logs table)\n";
8093 SetVersion($DBversion);
8096 $DBversion = "3.15.00.022";
8097 if (CheckVersion($DBversion)) {
8099 DELETE FROM systempreferences WHERE variable= "memberofinstitution"
8101 print "Upgrade to $DBversion done (Bug 11751: Remove memberofinstitytion system preference)\n";
8102 SetVersion($DBversion);
8105 $DBversion = "3.15.00.023";
8106 if ( CheckVersion($DBversion) ) {
8108 INSERT INTO systempreferences (variable,value,options,explanation,type)
8109 VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free');
8111 print "Upgrade to $DBversion done (Bug 10861: Add CardnumberLength syspref)\n";
8112 SetVersion ($DBversion);
8115 $DBversion = "3.15.00.024";
8116 if ( CheckVersion($DBversion) ) {
8118 DELETE FROM systempreferences WHERE variable = 'NoZebraIndexes'
8120 print "Upgrade to $DBversion done (Bug 10012 - remove last vestiges of NoZebra)\n";
8121 SetVersion($DBversion);
8124 $DBversion = "3.15.00.025";
8125 if ( CheckVersion($DBversion) ) {
8127 DROP TABLE aqorderdelivery;
8129 print "Upgrade to $DBversion done (Bug 11928 - remove unused table)\n";
8130 SetVersion($DBversion);
8133 $DBversion = "3.15.00.026";
8134 if ( CheckVersion($DBversion) ) {
8136 UPDATE language_descriptions SET description = 'Հայերեն' WHERE subtag = 'hy' AND lang = 'hy';
8138 print "Upgrade to $DBversion done (Bug 11973 - Fix Armenian language description)\n";
8139 SetVersion($DBversion);
8142 $DBversion = "3.15.00.027";
8143 if (CheckVersion($DBversion)) {
8145 ALTER TABLE opac_news ADD branchcode varchar(10) DEFAULT NULL
8147 ADD CONSTRAINT opac_news_branchcode_ibfk
8148 FOREIGN KEY (branchcode)
8149 REFERENCES branches (branchcode)
8150 ON DELETE CASCADE ON UPDATE CASCADE;
8152 print "Upgrade to $DBversion done (Bug 7567: Add branchcode to opac_news)\n";
8153 SetVersion($DBversion);
8156 $DBversion = "3.15.00.028";
8157 if(CheckVersion($DBversion)) {
8159 ALTER TABLE issuingrules ADD norenewalbefore int(4) default NULL AFTER renewalperiod
8161 print "Upgrade to $DBversion done (Bug 7413: Allow OPAC renewal x days before due date)\n";
8162 SetVersion($DBversion);
8165 $DBversion = "3.15.00.029";
8166 if ( CheckVersion($DBversion) ) {
8168 UPDATE borrower_debarments SET expiration = NULL WHERE expiration = '9999-12-31'
8170 print "Upgrade to $DBversion done (Bug 11846 - correct borrower_debarments with expiration 9999-12-31)\n";
8171 SetVersion($DBversion);
8174 $DBversion = "3.15.00.030";
8175 if(CheckVersion($DBversion)) {
8177 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')
8179 print "Upgrade to $DBversion done (Bug 12052: Add OPACMySummaryNote syspref)\n";
8180 SetVersion($DBversion);
8183 $DBversion = "3.15.00.031";
8184 if ( CheckVersion($DBversion) ) {
8185 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'writeoff', 'Write off fines and fees')");
8186 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'remaining_permissions', 'Remaining permissions for managing fines and fees')");
8187 print "Upgrade to $DBversion done (Bug 9448 - Add separate permission for writing off fees)\n";
8188 SetVersion ($DBversion);
8191 $DBversion = "3.15.00.032";
8192 if ( CheckVersion($DBversion) ) {
8193 $dbh->do("ALTER TABLE aqorders CHANGE notes order_internalnote MEDIUMTEXT;");
8194 $dbh->do("ALTER TABLE aqorders ADD COLUMN order_vendornote MEDIUMTEXT AFTER order_internalnote;");
8195 print "Upgrade to $DBversion done (Bug 9416 - In each order, add a new note made for the vendor)\n";
8196 SetVersion ($DBversion);
8199 $DBversion = "3.15.00.033";
8200 if ( CheckVersion($DBversion) ) {
8201 $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')");
8202 print "Upgrade to $DBversion done (Bug 10951: Add NoLoginInstructions pref)\n";
8203 SetVersion($DBversion);
8206 $DBversion = "3.15.00.034";
8207 if ( CheckVersion($DBversion) ) {
8208 $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')");
8209 print "Upgrade to $DBversion done (Bug 10986: system preferences to limit languages in advanced search )\n";
8210 SetVersion ($DBversion);
8213 $DBversion = "3.15.00.035";
8214 if ( CheckVersion($DBversion) ) {
8215 #insert a notice for sharing a list and accepting a share
8217 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8218 VALUES ( 'members', 'SHARE_INVITE', '', 'Invitation for sharing a list', '0', 'Share list <<listname>>', 'Dear patron,
8220 One of our patrons, <<borrowers.firstname>> <<borrowers.surname>>, invites you to share a list <<listname>> in our library catalog.
8222 To access this shared list, please click on the following URL or copy-and-paste it into your browser address bar.
8226 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.
8233 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8234 VALUES ( 'members', 'SHARE_ACCEPT', '', 'Notification about an accepted share', '0', 'Share on list <<listname>> accepted', 'Dear patron,
8236 We want to inform you that <<borrowers.firstname>> <<borrowers.surname>> accepted your invitation to share your list <<listname>> in our library catalog.
8242 print "Upgrade to $DBversion done (Bug 9032: Share a list)\n";
8243 SetVersion($DBversion);
8246 $DBversion = "3.15.00.036";
8247 if ( CheckVersion($DBversion) ) {
8249 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
8250 VALUES('AllowMultipleIssuesOnABiblio',1,'Allow/Don\'t allow patrons to check out multiple items from one biblio','','YesNo')
8253 print "Upgrade to $DBversion done (Bug 10859 - Add system preference AllowMultipleIssuesOnABiblio)\n";
8254 SetVersion($DBversion);
8257 $DBversion = "3.15.00.037";
8258 if(CheckVersion($DBversion)) {
8260 ALTER TABLE itemtypes ADD sip_media_type VARCHAR( 3 ) DEFAULT NULL AFTER checkinmsgtype
8263 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
8264 ('SIP_MEDIA_TYPE', '000', 'Other'),
8265 ('SIP_MEDIA_TYPE', '001', 'Book'),
8266 ('SIP_MEDIA_TYPE', '002', 'Magazine'),
8267 ('SIP_MEDIA_TYPE', '003', 'Bound journal'),
8268 ('SIP_MEDIA_TYPE', '004', 'Audio tape'),
8269 ('SIP_MEDIA_TYPE', '005', 'Video tape'),
8270 ('SIP_MEDIA_TYPE', '006', 'CD/CDROM'),
8271 ('SIP_MEDIA_TYPE', '007', 'Diskette'),
8272 ('SIP_MEDIA_TYPE', '008', 'Book with diskette'),
8273 ('SIP_MEDIA_TYPE', '009', 'Book with CD'),
8274 ('SIP_MEDIA_TYPE', '010', 'Book with audio tape')
8276 print "Upgrade to $DBversion done (Bug 11351 - Add support for SIP2 media type)\n";
8277 SetVersion($DBversion);
8280 $DBversion = '3.15.00.038';
8281 if ( CheckVersion($DBversion) ) {
8283 INSERT INTO systempreferences (
8291 'DisplayLibraryFacets', 'holding', 'home|holding|both', 'Defines which library facets to display.', 'Choice'
8294 print "Upgrade to $DBversion done (Bug 11334 - Add facet for home library)\n";
8295 SetVersion ($DBversion);
8298 $DBversion = "3.15.00.039";
8299 if ( CheckVersion($DBversion) ) {
8302 ALTER TABLE letter ADD COLUMN message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email' AFTER content
8306 ALTER TABLE letter ADD CONSTRAINT message_transport_type_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types(message_transport_type);
8310 ALTER TABLE letter DROP PRIMARY KEY, ADD PRIMARY KEY (`module`,`code`,`branchcode`, message_transport_type);
8314 CREATE TABLE overduerules_transport_types(
8315 id INT(11) NOT NULL AUTO_INCREMENT,
8316 branchcode varchar(10) NOT NULL DEFAULT '',
8317 categorycode VARCHAR(10) NOT NULL DEFAULT '',
8318 letternumber INT(1) NOT NULL DEFAULT 1,
8319 message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email',
8321 CONSTRAINT overduerules_fk FOREIGN KEY (branchcode, categorycode) REFERENCES overduerules (branchcode, categorycode) ON DELETE CASCADE ON UPDATE CASCADE,
8322 CONSTRAINT mtt_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types (message_transport_type) ON DELETE CASCADE ON UPDATE CASCADE
8323 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8326 my $sth = $dbh->prepare( q{
8327 SELECT * FROM overduerules;
8331 my $sth_insert_mtt = $dbh->prepare( q{
8332 INSERT INTO overduerules_transport_types (branchcode, categorycode, letternumber, message_transport_type) VALUES ( ?, ?, ?, ? )
8334 while ( my $row = $sth->fetchrow_hashref ) {
8335 my $branchcode = $row->{branchcode};
8336 my $categorycode = $row->{categorycode};
8337 for my $letternumber ( 1 .. 3 ) {
8338 next unless $row->{"letter$letternumber"};
8339 $sth_insert_mtt->execute(
8340 $branchcode, $categorycode, $letternumber, 'email'
8345 print "Upgrade done (Bug 9016: Adds multi transport types management for notices)\n";
8346 SetVersion($DBversion);
8349 $DBversion = "3.15.00.040";
8350 if ( CheckVersion($DBversion) ) {
8352 UPDATE message_transports SET letter_code='HOLD' WHERE letter_code='HOLD_PHONE' OR letter_code='HOLD_PRINT'
8355 UPDATE letter SET code='HOLD', message_transport_type='print' WHERE code='HOLD_PRINT'
8358 UPDATE letter SET code='HOLD', message_transport_type='phone' WHERE code='HOLD_PHONE'
8360 print "Upgrade to $DBversion done (Bug 10845: Multi transport types for holds)\n";
8361 SetVersion($DBversion);
8364 $DBversion = "3.15.00.041";
8365 if ( CheckVersion($DBversion) ) {
8366 my $name = $dbh->selectcol_arrayref(q|
8367 SELECT name FROM letter WHERE code="HOLD"
8373 message_transport_type="phone",
8375 WHERE code="HOLD_PHONE"
8381 message_transport_type="phone",
8383 WHERE code="PREDUE_PHONE"
8389 message_transport_type="phone",
8391 WHERE code="OVERDUE_PHONE"
8394 print "Upgrade to $DBversion done (Bug 11867: Update letters *_PHONE)\n";
8395 SetVersion($DBversion);
8398 $DBversion = "3.15.00.042";
8399 if ( CheckVersion($DBversion) ) {
8401 INSERT INTO systempreferences
8402 (variable,value,explanation,options,type)
8404 ('SpecifyReturnDate',0,'Define whether to display \"Specify Return Date\" form in Circulation','','YesNo')
8406 print "Upgrade to $DBversion done (Bug 10694 - Allow arbitrary backdating of returns)\n";
8407 SetVersion($DBversion);
8410 $DBversion = "3.15.00.043";
8411 if ( CheckVersion($DBversion) ) {
8412 $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')");
8413 print "Upgrade to $DBversion done (Bug 7180: Added MarcFieldsToOrder syspref)\n";
8414 SetVersion ($DBversion);
8417 $DBversion = "3.15.00.044";
8418 if ( CheckVersion($DBversion) ) {
8419 $dbh->do("ALTER TABLE currency ADD isocode VARCHAR(5) default NULL AFTER symbol;");
8420 print "Upgrade to $DBversion done (Added isocode to the currency table)\n";
8421 SetVersion($DBversion);
8424 $DBversion = "3.15.00.045";
8425 if ( CheckVersion($DBversion) ) {
8427 INSERT INTO systempreferences (variable,value,explanation,options,type)
8429 'BlockExpiredPatronOpacActions',
8431 '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',
8436 $dbh->do("ALTER TABLE `categories` ADD COLUMN `BlockExpiredPatronOpacActions` TINYINT(1) DEFAULT -1 NOT NULL AFTER category_type");
8437 print "Upgraded to $DBversion done (Bug 6739 - expired patrons not blocked from opac actions)\n";
8438 SetVersion ($DBversion);
8441 $DBversion = "3.15.00.046";
8442 if ( CheckVersion($DBversion) ) {
8444 ALTER TABLE search_history ADD COLUMN type VARCHAR(16) NOT NULL DEFAULT 'biblio' AFTER query_cgi
8446 print "Upgrade to $DBversion done (Bug 10807 - Add db field search_history.type)\n";
8447 SetVersion($DBversion);
8450 $DBversion = "3.15.00.047";
8451 if ( CheckVersion($DBversion) ) {
8453 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('EnableSearchHistory','0','','Enable or disable search history','YesNo')
8455 print "Upgrade to $DBversion done (Bug 10862: Add EnableSearchHistory syspref)\n";
8456 SetVersion($DBversion);
8459 $DBversion = "3.15.00.048";
8460 if ( CheckVersion($DBversion) ) {
8461 $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')");
8462 $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')");
8463 print "Upgrade to $DBversion done (Bug 10195: Records hidden with OpacSuppression can still be accessed)\n";
8464 SetVersion($DBversion);
8467 $DBversion = "3.15.00.049";
8468 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8469 $dbh->do("ALTER TABLE biblioitems DROP INDEX isbn");
8470 $dbh->do("ALTER TABLE biblioitems DROP INDEX issn");
8471 $dbh->do("ALTER TABLE biblioitems
8472 CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8473 CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8475 $dbh->do("ALTER TABLE biblioitems
8476 ADD INDEX isbn ( isbn ( 255 ) ),
8477 ADD INDEX issn ( issn ( 255 ) )
8480 $dbh->do("ALTER TABLE deletedbiblioitems DROP INDEX isbn");
8481 $dbh->do("ALTER TABLE deletedbiblioitems
8482 CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8483 CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8485 $dbh->do("ALTER TABLE deletedbiblioitems
8486 ADD INDEX isbn ( isbn ( 255 ) )
8489 print "Upgrade to $DBversion done (Bug 5377 - Biblioitems isbn and issn fields too small for multiple ISBN and ISSN)\n";
8490 SetVersion($DBversion);
8493 $DBversion = "3.15.00.050";
8494 if ( CheckVersion($DBversion) ) {
8496 INSERT INTO systempreferences (
8502 'AggressiveMatchOnISBN',
8504 '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',
8509 print "Upgrade to $DBversion done (Bug 10500 - Improve isbn matching when importing records)\n";
8510 SetVersion($DBversion);
8513 $DBversion = "3.15.00.051";
8514 if ( CheckVersion($DBversion) ) {
8515 print "Upgrade to $DBversion done (Koha 3.16 beta)\n";
8516 SetVersion($DBversion);
8519 $DBversion = "3.15.00.052";
8520 if ( CheckVersion($DBversion) ) {
8521 print "Upgrade to $DBversion done (Koha 3.16 RC)\n";
8522 SetVersion($DBversion);
8525 $DBversion = "3.16.00.000";
8526 if ( CheckVersion($DBversion) ) {
8527 print "Upgrade to $DBversion done (3.16.0 release)\n";
8528 SetVersion ($DBversion);
8531 $DBversion = '3.17.00.000';
8532 if ( CheckVersion($DBversion) ) {
8533 print "Upgrade to $DBversion done (there is no time to rest on our laurels)\n";
8534 SetVersion ($DBversion);
8537 $DBversion = '3.17.00.001';
8538 if ( CheckVersion($DBversion) ) {
8539 $dbh->do("UPDATE systempreferences SET variable = 'AuthoritySeparator' WHERE variable = 'authoritysep'");
8540 print "Upgrade to $DBversion done (Bug 10330 - Rename system preference authoritysep to AuthoritySeparator)\n";
8541 SetVersion ($DBversion);
8544 $DBversion = "3.17.00.002";
8545 if (CheckVersion($DBversion)) {
8546 $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')");
8548 CREATE TABLE IF NOT EXISTS `misc_files` (
8549 `file_id` int(11) NOT NULL AUTO_INCREMENT,
8550 `table_tag` varchar(255) NOT NULL,
8551 `record_id` int(11) NOT NULL,
8552 `file_name` varchar(255) NOT NULL,
8553 `file_type` varchar(255) NOT NULL,
8554 `file_description` varchar(255) DEFAULT NULL,
8555 `file_content` longblob NOT NULL, -- file content
8556 `date_uploaded` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
8557 PRIMARY KEY (`file_id`),
8558 KEY `table_tag` (`table_tag`),
8559 KEY `record_id` (`record_id`)
8560 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8562 print "Upgrade to $DBversion done (Bug 3050 - Add an option to upload scanned invoices)\n";
8563 SetVersion($DBversion);
8566 $DBversion = "3.17.00.003";
8567 if (CheckVersion($DBversion)) {
8568 $dbh->do("UPDATE systempreferences SET type = 'Choice', options = '0|1|force' WHERE variable = 'OPACItemHolds'");
8569 print "Upgrade to $DBversion done (Bug 7825 - Changed OPACItemHolds syspref to Choice)\n";
8570 SetVersion($DBversion);
8573 $DBversion = "3.17.00.004";
8574 if (CheckVersion($DBversion)) {
8575 $dbh->do("ALTER TABLE categories ADD default_privacy ENUM( 'default', 'never', 'forever' ) NOT NULL DEFAULT 'default' AFTER category_type");
8576 print "Upgrade to $DBversion done (Bug 6254 - can't set patron privacy by default)\n";
8577 SetVersion($DBversion);
8580 $DBversion = "3.17.00.005";
8581 if (CheckVersion($DBversion)) {
8583 ALTER TABLE issuingrules
8584 ADD maxsuspensiondays INT(11) DEFAULT NULL AFTER finedays;
8586 print "Upgrade to $DBversion done (Bug 12230: Add new issuing rule maxsuspensiondays)\n";
8587 SetVersion($DBversion);
8590 $DBversion = "3.17.00.006";
8591 if ( CheckVersion($DBversion) ) {
8592 $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')");
8593 $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')");
8594 print "Upgrade to $DBversion done (Bug 7720 - Ambiguity in OPAC Details location.)\n";
8595 SetVersion($DBversion);
8598 $DBversion = "3.17.00.007";
8599 if (CheckVersion($DBversion)) {
8600 $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');");
8601 print "Upgrade to $DBversion done (Bug 11629 - Add ability to update not for loan status on checkin)\n";
8602 SetVersion($DBversion);
8605 $DBversion = "3.17.00.008";
8606 if ( CheckVersion($DBversion) ) {
8608 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('OPACAcquisitionDetails','0', '','Show the acquisition details at the OPAC','YesNo')
8610 print "Upgrade to $DBversion done (Bug 11169 - Add OPACAcquisitionDetails syspref)\n";
8611 SetVersion($DBversion);
8614 $DBversion = "3.17.00.009";
8615 if ( CheckVersion($DBversion) ) {
8617 DELETE FROM systempreferences WHERE variable = 'UseTablesortForCirc'
8620 print "Upgrade to $DBversion done (Bug 11703 - Remove UseTablesortForCirc syspref)\n";
8621 SetVersion($DBversion);
8624 $DBversion = "3.17.00.010";
8625 if ( CheckVersion($DBversion) ) {
8626 $dbh->do("DELETE FROM systempreferences WHERE variable='opacsmallimage'");
8627 print "Upgrade to $DBversion done (Bug 11347 - PROG/CCSR deprecation: Remove opacsmallimage system preference)\n";
8628 SetVersion($DBversion);
8631 $DBversion = "3.17.00.011";
8632 if ( CheckVersion($DBversion) ) {
8633 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'hr', 'language', 'Croatian','2014-07-24' )");
8634 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'hr','hrv')");
8635 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'hr', 'Hrvatski')");
8636 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'en', 'Croatian')");
8637 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'fr', 'Croate')");
8638 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'de', 'Kroatisch')");
8639 print "Upgrade to $DBversion done (Bug 12649: Add Croatian language)\n";
8640 SetVersion ($DBversion);
8643 $DBversion = "3.17.00.012";
8644 if ( CheckVersion($DBversion) ) {
8645 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowFiltersPulldownMobile'");
8646 print "Upgrade to $DBversion done ( Bug 12512 - PROG/CCSR deprecation: Remove OpacShowFiltersPulldownMobile system preference )\n";
8647 SetVersion ($DBversion);
8650 $DBversion = "3.17.00.013";
8651 if ( CheckVersion($DBversion) ) {
8652 $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')");
8653 print "Upgrade to $DBversion done (Re-add system preference maxreserves)\n";
8654 SetVersion ($DBversion);
8657 $DBversion = '3.17.00.014';
8658 if ( CheckVersion($DBversion) ) {
8660 INSERT INTO systempreferences (variable,value,explanation,type) VALUES
8661 ('OverdueNoticeCalendar',0,'Take calendar into consideration when working out sending overdue notices','YesNo')
8663 print "Upgrade to $DBversion done (Bug 12529 - Adding a syspref to allow the overdue notices to consider the calendar when generating notices)\n";
8664 SetVersion($DBversion);
8667 $DBversion = "3.17.00.015";
8668 if ( CheckVersion($DBversion) ) {
8670 CREATE TABLE IF NOT EXISTS columns_settings (
8671 module varchar(255) NOT NULL,
8672 page varchar(255) NOT NULL,
8673 tablename varchar(255) NOT NULL,
8674 columnname varchar(255) NOT NULL,
8675 cannot_be_toggled int(1) NOT NULL DEFAULT 0,
8676 is_hidden int(1) NOT NULL DEFAULT 0,
8677 PRIMARY KEY(module, page, tablename, columnname)
8678 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
8680 print "Upgrade to $DBversion done (Bug 10212 - Create new table columns_settings)\n";
8681 SetVersion ($DBversion);
8684 $DBversion = "3.17.00.016";
8685 if ( CheckVersion($DBversion) ) {
8686 $dbh->do("CREATE TABLE aqcontacts (
8687 id int(11) NOT NULL auto_increment,
8688 name varchar(100) default NULL,
8689 position varchar(100) default NULL,
8690 phone varchar(100) default NULL,
8691 altphone varchar(100) default NULL,
8692 fax varchar(100) default NULL,
8693 email varchar(100) default NULL,
8695 claimacquisition BOOLEAN NOT NULL DEFAULT 0,
8696 claimissues BOOLEAN NOT NULL DEFAULT 0,
8697 acqprimary BOOLEAN NOT NULL DEFAULT 0,
8698 serialsprimary BOOLEAN NOT NULL DEFAULT 0,
8699 booksellerid int(11) not NULL,
8701 CONSTRAINT booksellerid_aqcontacts_fk FOREIGN KEY (booksellerid)
8702 REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE
8703 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1;");
8704 $dbh->do("INSERT INTO aqcontacts (name, position, phone, altphone, fax,
8705 email, notes, booksellerid, claimacquisition, claimissues, acqprimary, serialsprimary)
8706 SELECT contact, contpos, contphone, contaltphone, contfax, contemail,
8707 contnotes, id, 1, 1, 1, 1 FROM aqbooksellers;");
8708 $dbh->do("ALTER TABLE aqbooksellers DROP COLUMN contact,
8709 DROP COLUMN contpos, DROP COLUMN contphone,
8710 DROP COLUMN contaltphone, DROP COLUMN contfax,
8711 DROP COLUMN contemail, DROP COLUMN contnotes;");
8712 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contact>>', '<<aqcontacts.name>>')");
8713 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contpos>>', '<<aqcontacts.position>>')");
8714 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contphone>>', '<<aqcontacts.phone>>')");
8715 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contaltphone>>', '<<aqcontacts.altphone>>')");
8716 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contfax>>', '<<aqcontacts.contfax>>')");
8717 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contemail>>', '<<aqcontacts.contemail>>')");
8718 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contnotes>>', '<<aqcontacts.contnotes>>')");
8719 print "Upgrade to $DBversion done (Bug 10402: Move bookseller contacts to separate table)\n";
8720 SetVersion($DBversion);
8723 $DBversion = "3.17.00.017";
8724 if ( CheckVersion($DBversion) ) {
8725 # Correct invalid recordtypes (should be very exceptional)
8727 UPDATE z3950servers set recordtype='biblio' WHERE recordtype NOT IN ('authority','biblio')
8729 # Correct invalid server types (should also be very exceptional)
8731 UPDATE z3950servers set type='zed' WHERE type <> 'zed'
8735 ALTER TABLE z3950servers
8737 DROP COLUMN description,
8738 DROP COLUMN position,
8739 MODIFY COLUMN id int NOT NULL AUTO_INCREMENT FIRST,
8740 MODIFY COLUMN recordtype enum('authority','biblio') NOT NULL DEFAULT 'biblio',
8741 CHANGE COLUMN name servername mediumtext NOT NULL,
8742 CHANGE COLUMN type servertype enum('zed','sru') NOT NULL DEFAULT 'zed',
8743 ADD COLUMN sru_options varchar(255) default NULL,
8744 ADD COLUMN sru_fields mediumtext default NULL,
8745 ADD COLUMN add_xslt mediumtext default NULL
8747 print "Upgrade to $DBversion done (Bug 6536: Z3950 improvements)\n";
8748 SetVersion ($DBversion);
8751 $DBversion = "3.17.00.018";
8752 if ( CheckVersion($DBversion) ) {
8753 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('HoldsInNoissuesCharge', '0', 'Hold charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
8754 print "Upgrade to $DBversion done (Bug 12205: Add HoldsInNoissuesCharge systempreference)\n";
8755 SetVersion($DBversion);
8758 $DBversion = "3.17.00.019";
8759 if ( CheckVersion($DBversion) ) {
8760 $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')"
8762 print "Upgrade to $DBversion done (Bug 6149: Operator highlighted in search results)\n";
8763 SetVersion($DBversion);
8766 $DBversion = "3.17.00.020";
8767 if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8768 $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')");
8769 print "Upgrade to $DBversion done (Bug 8735 - Expire holds waiting only on days the library is open)\n";
8770 SetVersion ($DBversion);
8773 $DBversion = "3.17.00.021";
8774 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
8775 my $pref = C4::Context->preference('HomeOrHoldingBranch');
8776 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
8777 VALUES ('StaffSearchResultsDisplayBranch', ?,'homebranch|holdingbranch','Controls the display of the home or holding branch for staff search results','choice')", undef, $pref);
8778 print "Upgrade to $DBversion done (Bug 12582 - Control of branch displayed in search results linked to HomeOrHoldingBranch)\n";
8779 SetVersion ($DBversion);
8782 $DBversion = '3.17.00.022';
8783 if ( CheckVersion($DBversion) ) {
8784 my @temp= $dbh->selectrow_array(qq|
8786 FROM marc_subfield_structure
8787 WHERE kohafield='permanent_location' OR kohafield='items.permanent_location'
8789 print "Upgrade to $DBversion done (Bug 7817: Check for permanent_location)\n";
8791 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";
8793 SetVersion($DBversion);
8796 $DBversion = "3.17.00.023";
8797 if ( CheckVersion($DBversion) ) {
8799 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')
8801 print "Upgrade to $DBversion done (Bug 11169 - Add AcqItemSetSubfieldsWhenReceiptIsCancelled syspref)\n";
8802 SetVersion($DBversion);
8805 $DBversion = "3.17.00.024";
8806 if(CheckVersion($DBversion)) {
8808 ALTER TABLE issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8811 ALTER TABLE old_issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8814 ALTER TABLE issuingrules ADD auto_renew BOOLEAN default FALSE AFTER norenewalbefore
8816 print "Upgrade to $DBversion done (Bug 11577: [ENH] Automatic renewal feature)\n";
8817 SetVersion($DBversion);
8820 $DBversion = '3.17.00.025';
8821 if ( CheckVersion($DBversion) ) {
8823 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')
8825 print "Upgrade to $DBversion done (Bug 12728: Checked syspref StatisticsFields)\n";
8828 $DBversion = "3.17.00.026";
8829 if ( CheckVersion($DBversion) ) {
8830 if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
8831 $dbh->do("UPDATE marc_subfield_structure SET liblibrarian = 'Encoded bitrate', libopac = 'Encoded bitrate' WHERE tagfield = '347' AND tagsubfield = 'f'");
8832 $dbh->do("UPDATE marc_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','610','611','710','711','810','811') AND tagsubfield = 'c'");
8833 $dbh->do("UPDATE auth_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','410','411','510','511','710','711') AND tagsubfield = 'c'");
8834 print "Upgrade to $DBversion done (Bug 12435 - Update MARC21 frameworks to Update No. 18 (April 2014))\n";
8836 SetVersion($DBversion);
8839 $DBversion = "3.17.00.027";
8840 if ( CheckVersion($DBversion) ) {
8842 DELETE FROM systempreferences WHERE variable = 'SearchEngine'
8844 print "Upgrade to $DBversion done (Bug 12538 - Remove SearchEngine syspref)\n";
8845 SetVersion($DBversion);
8848 $DBversion = "3.17.00.028";
8849 if ( CheckVersion($DBversion) ) {
8851 INSERT INTO systempreferences (variable,value) VALUES('OpacCustomSearch','');
8853 print "Upgrade to $DBversion done (Bug 12296 - search box replaceable with a system preference)\n";
8854 SetVersion($DBversion);
8857 $DBversion = "3.17.00.029";
8858 if ( CheckVersion($DBversion) ) {
8859 $dbh->do("ALTER TABLE `items` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8860 $dbh->do("ALTER TABLE `deleteditems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8861 $dbh->do("ALTER TABLE `biblioitems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8862 $dbh->do("ALTER TABLE `deletedbiblioitems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8863 print "Upgrade to $DBversion done (Bug 12424 - ddc sorting of call numbers truncates long Cutter parts)\n";
8864 SetVersion ($DBversion);
8867 $DBversion = "3.17.00.030";
8868 if ( CheckVersion($DBversion) ) {
8871 INSERT INTO systempreferences (variable, value, options, explanation, type )
8873 ('UsageStatsCountry', '', NULL, 'The country where your library is located, to be shown on the Hea Koha community website', 'YesNo'),
8874 ('UsageStatsID', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8875 ('UsageStatsLastUpdateTime', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8876 ('UsageStatsLibraryName', '', NULL, 'The library name to be shown on Hea Koha community website', 'Free'),
8877 ('UsageStatsLibraryType', 'public', 'public|university', 'The library type to be shown on the Hea Koha community website', 'Choice'),
8878 ('UsageStatsLibraryUrl', '', NULL, 'The library URL to be shown on Hea Koha community website', 'Free'),
8879 ('UsageStats', 0, NULL, 'Share anonymous usage data on the Hea Koha community website.', 'YesNo')
8881 print "Upgrade to $DBversion done (Bug 11926: Add UsageStats systempreferences (HEA))\n";
8882 SetVersion ($DBversion);
8885 $DBversion = "3.17.00.031";
8886 if ( CheckVersion($DBversion) ) {
8887 $dbh->do("ALTER TABLE saved_sql CHANGE report_name report_name VARCHAR( 255 ) NOT NULL DEFAULT '' ");
8888 print "Upgrade to $DBversion done (Bug 2969: Report Name should be mandatory for saved reports)\n";
8889 SetVersion ($DBversion);
8892 $DBversion = "3.17.00.032";
8893 if ( CheckVersion($DBversion) ) {
8895 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReplytoDefault', '', NULL, 'The default email address to be set as replyto.', 'Free')"
8898 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReturnpathDefault', '', NULL, 'The default email address to be set as return-path', 'Free')"
8900 $dbh->do("ALTER TABLE branches ADD branchreplyto mediumtext AFTER branchemail");
8901 $dbh->do("ALTER TABLE branches ADD branchreturnpath mediumtext AFTER branchreplyto");
8902 print "Upgrade to $DBversion done (Bug 9530: Adding replyto and returnpath addresses.)\n";
8903 SetVersion($DBversion);
8906 $DBversion = "3.17.00.033";
8907 if ( CheckVersion($DBversion) ) {
8909 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
8910 VALUES('FacetMaxCount', '20','Specify the max facet count for each category',NULL,'Integer')
8912 print "Upgrade to $DBversion done (Bug 13088 - Allow the user to specify a max amount of facets to show)\n";
8913 SetVersion($DBversion);
8916 $DBversion = "3.17.00.034";
8917 if ( CheckVersion($DBversion) ) {
8919 ALTER TABLE aqorders DROP COLUMN cancelledby;
8922 print "Upgrade to $DBversion done (Bug 11007 - DROP column aqorders.cancelledby)\n";
8923 SetVersion($DBversion);
8926 $DBversion = "3.17.00.035";
8927 if ( CheckVersion($DBversion) ) {
8929 ALTER TABLE serial ADD COLUMN claims_count INT(11) DEFAULT 0 after claimdate
8933 SET claims_count = 1
8934 WHERE claimdate IS NOT NULL
8936 print "Upgrade to $DBversion done (Bug 5342: Add claims_count field in serial table)\n";
8937 SetVersion($DBversion);
8940 $DBversion = "3.17.00.036";
8941 if ( CheckVersion($DBversion) ) {
8942 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowLibrariesPulldownMobile'");
8943 print "Upgrade to $DBversion done ( Bug 12513 - PROG/CCSR deprecation: Remove OpacShowLibrariesPulldownMobile system preference )\n";
8944 SetVersion ($DBversion);
8947 $DBversion = "3.17.00.037";
8948 if ( CheckVersion($DBversion) ) {
8949 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacMainUserBlockMobile'");
8950 print "Upgrade to $DBversion done ( Bug 12246 - PROG/CCSR deprecation: Remove OpacMainUserBlockMobile system preference )\n";
8951 SetVersion ($DBversion);
8954 $DBversion = "3.17.00.038";
8955 if ( CheckVersion($DBversion) ) {
8956 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACMobileUserCSS'");
8957 print "Upgrade to $DBversion done ( Bug 12245 - PROG/CCSR deprecation: Remove OPACMobileUserCSS system preference )\n";
8958 SetVersion ($DBversion);
8961 $DBversion = "3.17.00.039";
8962 if ( CheckVersion($DBversion) ) {
8963 $dbh->do("INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
8964 ('OPACFallback', 'prog', 'bootstrap|prog', 'Define the fallback theme for the OPAC interface.', 'Themes')");
8965 print "Upgrade to $DBversion done (Bug 12539 - PROG/CCSR deprecation: Remove hardcoded theme from C4/Templates.pm)\n";
8966 SetVersion ($DBversion);
8969 $DBversion = "3.17.00.040";
8970 if ( CheckVersion($DBversion) ) {
8971 my $opac_theme = C4::Context->preference( 'opacthemes' );
8972 if ( !defined $opac_theme || $opac_theme eq 'prog' || $opac_theme eq 'ccsr' ) {
8973 $dbh->do("UPDATE systempreferences SET value='bootstrap' WHERE variable='opacthemes'");
8975 print "Upgrade to $DBversion done (Bug 12223: 'prog' and 'ccsr' themes removed)\n";
8976 SetVersion($DBversion);
8979 $DBversion = "3.17.00.041";
8980 if ( CheckVersion($DBversion) ) {
8981 print "Upgrade to $DBversion done (Bug 11346: Deprecate the 'prog' and 'CCSR' themes)\n";
8982 SetVersion($DBversion);
8985 $DBversion = "3.17.00.042";
8986 if ( CheckVersion($DBversion) ) {
8987 $dbh->do("DELETE FROM systempreferences WHERE variable='yuipath'");
8988 print "Upgrade to $DBversion done (Bug 12494: Remove yuipath system preference)\n";
8989 SetVersion ($DBversion);
8992 $DBversion = "3.17.00.043";
8993 if ( CheckVersion($DBversion) ) {
8995 ALTER TABLE aqorders
8996 ADD COLUMN cancellationreason TEXT DEFAULT NULL AFTER datecancellationprinted
8998 print "Upgrade to $DBversion done (Bug 7162: Add aqorders.cancellationreason)\n";
8999 SetVersion ($DBversion);
9002 $DBversion = "3.17.00.044";
9003 if ( CheckVersion($DBversion) ) {
9005 INSERT IGNORE INTO systempreferences
9006 (variable,value,explanation,options,type)
9007 VALUES('OnSiteCheckouts','0','Enable/Disable the on-site checkouts feature','','YesNo');
9010 INSERT IGNORE INTO systempreferences
9011 (variable,value,explanation,options,type)
9012 VALUES('OnSiteCheckoutsForce','0','Enable/Disable the on-site for all cases (Even if a user is debarred, etc.)','','YesNo');
9015 ALTER TABLE issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9018 ALTER TABLE old_issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9020 print "Upgrade to $DBversion done (Bug 10860: Add new system preference OnSiteCheckouts + fields [old_]issues.onsite_checkout)\n";
9021 SetVersion($DBversion);
9024 $DBversion = "3.17.00.045";
9025 if ( CheckVersion($DBversion) ) {
9027 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9028 ('LocalHoldsPriority', '0', NULL, 'Enables the LocalHoldsPriority feature', 'YesNo'),
9029 ('LocalHoldsPriorityItemControl', 'holdingbranch', 'holdingbranch|homebranch', 'decides if the feature operates using the item''s home or holding library.', 'Choice'),
9030 ('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')
9032 print "Upgrade to $DBversion done (Bug 11126 - Make the holds system optionally give precedence to local holds)\n";
9033 SetVersion($DBversion);
9036 $DBversion = "3.17.00.046";
9037 if ( CheckVersion($DBversion) ) {
9039 CREATE TABLE IF NOT EXISTS items_search_fields (
9040 name VARCHAR(255) NOT NULL,
9041 label VARCHAR(255) NOT NULL,
9042 tagfield CHAR(3) NOT NULL,
9043 tagsubfield CHAR(1) NULL DEFAULT NULL,
9044 authorised_values_category VARCHAR(16) NULL DEFAULT NULL,
9046 CONSTRAINT items_search_fields_authorised_values_category
9047 FOREIGN KEY (authorised_values_category) REFERENCES authorised_values (category)
9048 ON DELETE SET NULL ON UPDATE CASCADE
9049 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
9051 print "Upgrade to $DBversion done (Bug 11425: Add items_search_fields table)\n";
9052 SetVersion($DBversion);
9055 $DBversion = "3.17.00.047";
9056 if ( CheckVersion($DBversion) ) {
9058 ALTER TABLE collections
9059 CHANGE colBranchcode colBranchcode VARCHAR( 10 ) NULL DEFAULT NULL,
9060 ADD INDEX ( colBranchcode ),
9061 ADD CONSTRAINT collections_ibfk_1 FOREIGN KEY (colBranchcode) REFERENCES branches (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
9063 print "Upgrade to $DBversion done (Bug 8836 - Resurrect Rotating Collections)\n";
9064 SetVersion($DBversion);
9067 $DBversion = "3.17.00.048";
9068 if ( CheckVersion($DBversion) ) {
9070 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')
9072 print "Upgrade to $DBversion done (Bug 12448 - Add RentalFeesCheckoutConfirmation syspref)\n";
9073 SetVersion($DBversion);
9076 $DBversion = "3.17.00.049";
9077 if ( CheckVersion($DBversion) ) {
9078 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'am', 'language', 'Amharic','2014-10-29')");
9079 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'am','amh')");
9080 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'am', 'አማርኛ')");
9081 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'en', 'Amharic')");
9083 $dbh->do("UPDATE language_descriptions SET description = 'لعربية' WHERE subtag = 'ar' AND type = 'language' AND lang = 'ar'");
9085 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'az', 'language', 'Azerbaijani','2014-10-30')");
9086 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'az','aze')");
9087 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'az', 'Azərbaycan dili')");
9088 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'en', 'Azerbaijani')");
9090 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'be', 'language', 'Byelorussian','2014-10-30')");
9091 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'be','bel')");
9092 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'be', 'Беларуская мова')");
9093 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'en', 'Byelorussian')");
9095 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'bn', 'language', 'Bengali','2014-10-30')");
9096 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'bn','ben')");
9097 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'bn', 'বাংলা')");
9098 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'en', 'Bengali')");
9100 $dbh->do("UPDATE language_descriptions SET description = 'Български' WHERE subtag = 'bg' AND type = 'language' AND lang = 'bg'");
9101 $dbh->do("UPDATE language_descriptions SET description = 'Ceština' WHERE subtag = 'cs' AND type = 'language' AND lang = 'cs'");
9102 $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικά' WHERE subtag = 'el' AND type = 'language' AND lang = 'el'");
9103 $dbh->do("UPDATE language_descriptions SET description = 'Español' WHERE subtag = 'es' AND type = 'language' AND lang = 'es'");
9105 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'eu', 'language', 'Basque','2014-10-30')");
9106 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'eu','eus')");
9107 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'eu', 'Euskera')");
9108 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'en', 'Basque')");
9110 $dbh->do("UPDATE language_descriptions SET description = 'فارسى' WHERE subtag = 'fa' AND type = 'language' AND lang = 'fa'");
9111 $dbh->do("UPDATE language_descriptions SET description = 'Suomi' WHERE subtag = 'fi' AND type = 'language' AND lang = 'fi'");
9113 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'fo', 'language', 'Faroese','2014-10-30')");
9114 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'fo','fao')");
9115 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'fo', 'Føroyskt')");
9116 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'en', 'Faroese')");
9118 $dbh->do("UPDATE language_descriptions SET description = 'Français' WHERE subtag = 'fr' AND type = 'language' AND lang = 'fr'");
9119 $dbh->do("UPDATE language_descriptions SET description = 'עִבְרִית' WHERE subtag = 'he' AND type = 'language' AND lang = 'he'");
9120 $dbh->do("UPDATE language_descriptions SET description = 'हिन्दी' WHERE subtag = 'hi' AND type = 'language' AND lang = 'hi'");
9122 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'is', 'language', 'Icelandic','2014-10-30')");
9123 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'is','ice')");
9124 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'is', 'Íslenska')");
9125 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'en', 'Icelandic')");
9127 $dbh->do("UPDATE language_descriptions SET description = '日本語' WHERE subtag = 'ja' AND type = 'language' AND lang = 'ja'");
9129 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Kannada','2014-10-30')");
9130 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka','kan')");
9131 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ಕನ್ನಡ')");
9132 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Kannada')");
9134 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'km', 'language', 'Khmer','2014-10-30')");
9135 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'km','khm')");
9136 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'km', 'language', 'km', 'ភាសាខ្មែរ')");
9137 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'km', 'language', 'en', 'Khmer')");
9139 $dbh->do("UPDATE language_descriptions SET description = '한국어' WHERE subtag = 'ko' AND type = 'language' AND lang = 'ko'");
9141 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ku', 'language', 'Kurdish','2014-05-13')");
9142 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ku','kur')");
9143 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'ku', 'کوردی')");
9144 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'en', 'Kurdish')");
9145 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'fr', 'Kurde')");
9146 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'de', 'Kurdisch')");
9147 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'es', 'Kurdo')");
9149 $dbh->do("UPDATE language_descriptions SET description = 'ພາສາລາວ' WHERE subtag = 'lo' AND type = 'language' AND lang = 'lo'");
9151 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mi', 'language', 'Maori','2014-10-30')");
9152 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mi','mri')");
9153 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'mi', 'Te Reo Māori')");
9154 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'en', 'Maori')");
9156 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mn', 'language', 'Mongolian','2014-10-30')");
9157 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mn','mon')");
9158 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'mn', 'Mонгол')");
9159 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'en', 'Mongolian')");
9161 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mr', 'language', 'Marathi','2014-10-30')");
9162 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mr','mar')");
9163 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'mr', 'मराठी')");
9164 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'en', 'Marathi')");
9166 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ms', 'language', 'Malay','2014-10-30')");
9167 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ms','may')");
9168 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'ms', 'Bahasa melayu')");
9169 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'en', 'Malay')");
9171 $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'nb'");
9172 $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'en'");
9173 $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'fr'");
9174 $dbh->do("UPDATE language_descriptions SET description = 'Norwegisch bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'de'");
9176 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ne', 'language', 'Nepali','2014-10-30')");
9177 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ne','nep')");
9178 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)VALUES ( 'ne', 'language', 'ne', 'नेपाली')");
9179 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ne', 'language', 'en', 'Nepali')");
9181 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'pbr', 'language', 'Pangwa','2014-10-30')");
9182 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'pbr','pbr')");
9183 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'pbr', 'Ekipangwa')");
9184 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'en', 'Pangwa')");
9186 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'prs', 'language', 'Dari','2014-10-30')");
9187 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'prs','prs')");
9188 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'prs', 'درى')");
9189 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'en', 'Dari')");
9191 $dbh->do("UPDATE language_descriptions SET description = 'Português' WHERE subtag = 'pt' AND type = 'language' AND lang = 'pt'");
9192 $dbh->do("UPDATE language_descriptions SET description = 'Român' WHERE subtag = 'ro' AND type = 'language' AND lang = 'ro'");
9193 $dbh->do("UPDATE language_descriptions SET description = 'Русский' WHERE subtag = 'ru' AND type = 'language' AND lang = 'ru'");
9195 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'rw', 'language', 'Kinyarwanda','2014-10-30')");
9196 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'rw','kin')");
9197 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'rw', 'Ikinyarwanda')");
9198 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'en', 'Kinyarwanda')");
9200 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sd', 'language', 'Sindhi','2014-10-30')");
9201 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sd','snd')");
9202 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'sd', 'سنڌي')");
9203 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'en', 'Sindhi')");
9205 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sk', 'language', 'Slovak','2014-10-30')");
9206 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sk','slk')");
9207 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'sk', 'Slovenčina')");
9208 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'en', 'Slovak')");
9210 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sl', 'language', 'Slovene','2014-10-30')");
9211 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sl','slv')");
9212 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'sl', 'Slovenščina')");
9213 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'en', 'Slovene')");
9215 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sq', 'language', 'Albanian','2014-10-30')");
9216 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sq','sqi')");
9217 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'sq', 'Shqip')");
9218 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'en', 'Albanian')");
9220 $dbh->do("UPDATE language_descriptions SET description = 'Cрпски' WHERE subtag = 'sr' AND type = 'language' AND lang = 'sr'");
9222 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sw', 'language', 'Swahili','2014-10-30')");
9223 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sw','swa')");
9224 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'sw', 'Kiswahili')");
9225 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'en', 'Swahili')");
9227 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ta', 'language', 'Tamil','2014-10-30')");
9228 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ta','tam')");
9229 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'ta', 'தமிழ்')");
9230 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'en', 'Tamil')");
9232 $dbh->do("UPDATE language_descriptions SET description = 'Tetun' WHERE subtag = 'tet' AND type = 'language' AND lang = 'tet'");
9233 $dbh->do("UPDATE language_descriptions SET description = 'ภาษาไทย' WHERE subtag = 'th' AND type = 'language' AND lang = 'th'");
9235 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'tl', 'language', 'Tagalog','2014-10-30')");
9236 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'tl','tgl')");
9237 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'tl', 'Tagalog')");
9238 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'en', 'Tagalog')");
9240 $dbh->do("UPDATE language_descriptions SET description = 'Türkçe' WHERE subtag = 'tr' AND type = 'language' AND lang = 'tr'");
9241 $dbh->do("UPDATE language_descriptions SET description = 'Українська' WHERE subtag = 'uk' AND type = 'language' AND lang = 'uk'");
9242 $dbh->do("UPDATE language_descriptions SET description = 'اردو' WHERE subtag = 'ur' AND type = 'language' AND lang = 'ur'");
9244 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'vi', 'language', 'Vietnamese','2014-10-30')");
9245 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'vi','vie')");
9246 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'vi', '㗂越')");
9247 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'en', 'Vietnamese')");
9249 $dbh->do("UPDATE language_descriptions SET description = '中文' WHERE subtag = 'zh' AND type = 'language' AND lang = 'zh'");
9250 $dbh->do("UPDATE language_descriptions SET description = '' WHERE subtag = 'Arab,script' AND type = 'Arab' AND lang = 'العربية'");
9252 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Armn', 'script', 'Armenian','2014-10-30')");
9253 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Armn', 'script', 'Armn', 'Հայոց այբուբեն')");
9254 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Armn', 'script', 'en', 'Armenian')");
9256 $dbh->do("UPDATE language_descriptions SET description = 'Кирилица' WHERE subtag = 'Cyrl' AND type = 'script' AND lang = 'Cyrl'");
9258 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Ethi', 'script', 'Ethiopic','2014-10-30')");
9259 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Ethi', 'script', 'Ethi', 'ግዕዝ')");
9260 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Ethi', 'script', 'en', 'Ethiopic')");
9262 $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικό αλφάβητο' WHERE subtag = 'Grek' AND type = 'script' AND lang = 'Grek'");
9263 $dbh->do("UPDATE language_descriptions SET description = '简体字' WHERE subtag = 'Hans' AND type = 'script' AND lang = 'Hans'");
9264 $dbh->do("UPDATE language_descriptions SET description = '繁體字' WHERE subtag = 'Hant' AND type = 'script' AND lang = 'Hant'");
9265 $dbh->do("UPDATE language_descriptions SET description = 'אָלֶף־בֵּית עִבְרִי' WHERE subtag = 'Hebr' AND type = 'script' AND lang = 'Hebr'");
9267 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Jpan', 'script', 'Japanese','2014-10-30')");
9268 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Jpan', 'script', 'Jpan', '漢字')");
9269 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Jpan', 'script', 'en', 'Japanese')");
9271 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Knda', 'script', 'Kannada','2014-10-30')");
9272 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Knda', 'script', 'Knda', 'ಕನ್ನಡ ಲಿಪಿ')");
9273 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Knda', 'script', 'en', 'Kannada')");
9275 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Kore', 'script', 'Korean','2014-10-30')");
9276 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Kore', 'script', 'Kore', '한글')");
9277 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Kore', 'script', 'en', 'Korean')");
9279 $dbh->do("UPDATE language_descriptions SET description = 'ອັກສອນລາວ' WHERE subtag = 'Laoo' AND type = 'script' AND lang = 'Laoo'");
9281 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AL', 'region', 'Albania','2014-10-30')");
9282 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'en', 'Albania')");
9283 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'sq', 'Shqipërisë')");
9285 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AZ', 'region', 'Azerbaijan','2014-10-30')");
9286 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'en', 'Azerbaijan')");
9287 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'az', 'Azərbaycan')");
9289 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BE', 'region', 'Belgium','2014-10-30')");
9290 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'en', 'Belgium')");
9291 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'nl', 'België')");
9293 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BR', 'region', 'Brazil','2014-10-30')");
9294 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'en', 'Brazil')");
9295 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'pt', 'Brasil')");
9297 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BY', 'region', 'Belarus','2014-10-30')");
9298 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'en', 'Belarus')");
9299 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'be', 'Беларусь')");
9301 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CA', 'region', 'fr', 'Canada')");
9303 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CH', 'region', 'Switzerland','2014-10-30')");
9304 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'en', 'Switzerland')");
9305 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'de', 'Schweiz')");
9307 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CN', 'region', 'China','2014-10-30')");
9308 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'en', 'China')");
9309 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'zh', '中国')");
9311 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CZ', 'region', 'Czech Republic','2014-10-30')");
9312 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'en', 'Czech Republic')");
9313 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'cs', 'Česká republika')");
9315 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'DE', 'region', 'Germany','2014-10-30')");
9316 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'en', 'Germany')");
9317 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'de', 'Deutschland')");
9319 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DK', 'region', 'en', 'Denmark')");
9321 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ES', 'region', 'Spain','2014-10-30')");
9322 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'en', 'Spain')");
9323 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'es', 'España')");
9325 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FI', 'region', 'Finland','2014-10-30')");
9326 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'en', 'Finland')");
9327 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'fi', 'Suomi')");
9329 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FO', 'region', 'Faroe Islands','2014-10-30')");
9330 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'en', 'Faroe Islands')");
9331 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'fo', 'Føroyar')");
9333 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'GR', 'region', 'Greece','2014-10-30')");
9334 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'en', 'Greece')");
9335 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'el', 'Ελλάδα')");
9337 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HR', 'region', 'Croatia','2014-10-30')");
9338 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'en', 'Croatia')");
9339 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'hr', 'Hrvatska')");
9341 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HU', 'region', 'Hungary','2014-10-30')");
9342 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'en', 'Hungary')");
9343 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'hu', 'Magyarország')");
9345 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ID', 'region', 'Indonesia','2014-10-30')");
9346 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'en', 'Indonesia')");
9347 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'id', 'Indonesia')");
9349 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IS', 'region', 'Iceland','2014-10-30')");
9350 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'en', 'Iceland')");
9351 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'is', 'Ísland')");
9353 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IT', 'region', 'Italy','2014-10-30')");
9354 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'en', 'Italy')");
9355 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'it', 'Italia')");
9357 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'JP', 'region', 'Japan','2014-10-30')");
9358 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'en', 'Japan')");
9359 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'ja', '日本')");
9361 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KE', 'region', 'Kenya','2014-10-30')");
9362 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'en', 'Kenya')");
9363 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'rw', 'Kenya')");
9365 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KH', 'region', 'Cambodia','2014-10-30')");
9366 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'en', 'Cambodia')");
9367 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'km', 'កម្ពុជា')");
9369 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KP', 'region', 'North Korea','2014-10-30')");
9370 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'en', 'North Korea')");
9371 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'ko', '조선민주주의인민공화국')");
9373 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'LK', 'region', 'Sri Lanka','2014-10-30')");
9374 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'en', 'Sri Lanka')");
9375 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'ta', 'இலங்கை')");
9377 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'MY', 'region', 'Malaysia','2014-10-30')");
9378 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'en', 'Malaysia')");
9379 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'ms', 'Malaysia')");
9381 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NE', 'region', 'Niger','2014-10-30')");
9382 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'en', 'Niger')");
9383 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'ne', 'Niger')");
9385 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NL', 'region', 'Netherlands','2014-10-30')");
9386 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'en', 'Netherlands')");
9387 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'nl', 'Nederland')");
9389 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NO', 'region', 'Norway','2014-10-30')");
9390 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'en', 'Norway')");
9391 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'ne', 'Noreg')");
9392 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'nn', 'Noreg')");
9394 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PH', 'region', 'Philippines','2014-10-30')");
9395 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'en', 'Philippines')");
9396 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'tl', 'Pilipinas')");
9398 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PK', 'region', 'Pakistan','2014-10-30')");
9399 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'en', 'Pakistan')");
9400 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'sd', 'پاكستان')");
9402 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PL', 'region', 'Poland','2014-10-30')");
9403 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'en', 'Poland')");
9404 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'pl', 'Polska')");
9406 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PT', 'region', 'Portugal','2014-10-30')");
9407 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'en', 'Portugal')");
9408 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'pt', 'Portugal')");
9410 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RO', 'region', 'Romania','2014-10-30')");
9411 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'en', 'Romania')");
9412 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'ro', 'România')");
9414 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RU', 'region', 'Russia','2014-10-30')");
9415 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'en', 'Russia')");
9416 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'ru', 'Россия')");
9418 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RW', 'region', 'Rwanda','2014-10-30')");
9419 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'en', 'Rwanda')");
9420 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'rw', 'Rwanda')");
9422 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SE', 'region', 'Sweden','2014-10-30')");
9423 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'en', 'Sweden')");
9424 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'sv', 'Sverige')");
9426 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SI', 'region', 'Slovenia','2014-10-30')");
9427 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'en', 'Slovenia')");
9428 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'sl', 'Slovenija')");
9430 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SK', 'region', 'Slovakia','2014-10-30')");
9431 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'en', 'Slovakia')");
9432 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'sk', 'Slovensko')");
9434 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TH', 'region', 'Thailand','2014-10-30')");
9435 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'en', 'Thailand')");
9436 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'th', 'ประเทศไทย')");
9438 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TR', 'region', 'Turkey','2014-10-30')");
9439 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'en', 'Turkey')");
9440 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'tr', 'Türkiye')");
9442 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TW', 'region', 'Taiwan','2014-10-30')");
9443 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'en', 'Taiwan')");
9444 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'zh', '台灣')");
9446 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'UA', 'region', 'Ukraine','2014-10-30')");
9447 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'en', 'Ukraine')");
9448 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'uk', 'Україна')");
9450 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'VN', 'region', 'Vietnam','2014-10-30')");
9451 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'en', 'Vietnam')");
9452 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'vi', 'Việt Nam')");
9454 print "Upgrade to $DBversion done (Bug 12250: Update descriptions for languages, scripts and regions)\n";
9455 SetVersion($DBversion);
9458 $DBversion = "3.17.00.050";
9459 if ( CheckVersion($DBversion) ) {
9461 INSERT INTO permissions (module_bit, code, description) VALUES
9462 (13, 'records_batchdel', 'Perform batch deletion of records (bibliographic or authority)')
9464 print "Upgrade to $DBversion done (Bug 12403: Add permission tools_records_batchdelitem)\n";
9465 SetVersion($DBversion);
9468 $DBversion = "3.17.00.051";
9469 if ( CheckVersion($DBversion) ) {
9470 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('GoogleIndicTransliteration','0','','GoogleIndicTransliteration on the OPAC.','YesNo')");
9471 print "Upgrade to $DBversion done (Bug 13211: Added system preferences GoogleIndicTransliteration on the OPAC)\n";
9472 SetVersion($DBversion);
9475 $DBversion = "3.17.00.052";
9476 if ( CheckVersion($DBversion) ) {
9478 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');
9482 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');
9484 print "Upgrade to $DBversion done (Bug 9043: Add system preference OpacAdvSearchOptions and OpacAdvSearchMoreOptions)\n";
9485 SetVersion ($DBversion);
9488 $DBversion = "3.17.00.053";
9489 if ( CheckVersion($DBversion) ) {
9491 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)');
9495 INSERT INTO permissions (module_bit, code, description) VALUES ('9', 'delete_all_items', 'Delete all items at once');
9499 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)');
9502 # The delete_all_items permission should be added to users having the edit_items permission.
9504 INSERT INTO user_permissions (borrowernumber, module_bit, code) SELECT borrowernumber, module_bit, "delete_all_items" FROM user_permissions WHERE code="edit_items";
9509 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');
9513 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');
9516 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";
9517 SetVersion($DBversion);
9520 $DBversion = "3.17.00.054";
9521 if (CheckVersion($DBversion)) {
9523 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9524 ('AllowRenewalIfOtherItemsAvailable','0',NULL,'If enabled, allow a patron to renew an item with unfilled holds if other available items can fill that hold.','YesNo')
9526 print "Upgrade to $DBversion done (Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds)\n";
9527 SetVersion($DBversion);
9530 $DBversion = "3.17.00.055";
9531 if ( CheckVersion($DBversion) ) {
9532 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEnable', '0', NULL, 'Enable communication with the Norwegian national patron database.', 'YesNo')");
9533 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEndpoint', '', NULL, 'Which NL endpoint to use.', 'Free')");
9534 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBUsername', '', NULL, 'Username for communication with the Norwegian national patron database.', 'Free')");
9535 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBPassword', '', NULL, 'Password for communication with the Norwegian national patron database.', 'Free')");
9536 $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')");
9538 CREATE TABLE borrower_sync (
9539 borrowersyncid int(11) NOT NULL AUTO_INCREMENT,
9540 borrowernumber int(11) NOT NULL,
9541 synctype varchar(32) NOT NULL,
9542 sync tinyint(1) NOT NULL DEFAULT '0',
9543 syncstatus varchar(10) DEFAULT NULL,
9544 lastsync varchar(50) DEFAULT NULL,
9545 hashed_pin varchar(64) DEFAULT NULL,
9546 PRIMARY KEY (borrowersyncid),
9547 KEY borrowernumber (borrowernumber),
9548 CONSTRAINT borrower_sync_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9549 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
9551 print "Upgrade to $DBversion done (Bug 11401 - Add support for Norwegian national library card)\n";
9552 SetVersion($DBversion);
9555 $DBversion = "3.17.00.056";
9556 if ( CheckVersion($DBversion) ) {
9558 UPDATE systempreferences SET value = 'pubdate,itemtype,language,sorting,location' WHERE variable='OpacAdvSearchOptions'
9562 UPDATE systempreferences SET value = 'pubdate,itemtype,language,subtype,sorting,location' WHERE variable='OpacAdvSearchMoreOptions'
9565 print "Upgrade to $DBversion done (Bug 9043 - Update the values for OpacAdvSearchOptions and OpacAdvSearchOptions)\n";
9566 SetVersion($DBversion);
9569 $DBversion = "3.17.00.057";
9570 if ( CheckVersion($DBversion) ) {
9571 print "Upgrade to $DBversion done (Koha 3.18 beta)\n";
9572 SetVersion ($DBversion);
9575 $DBversion = "3.17.00.058";
9576 if( CheckVersion($DBversion) ){
9577 $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')");
9578 $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')");
9579 $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')");
9580 print "Upgrade to $DBversion done (Bug 8337: System preferences for longoverdue cron)\n";
9581 SetVersion($DBversion);
9584 $DBversion = "3.17.00.059";
9585 if ( CheckVersion($DBversion) ) {
9587 UPDATE permissions SET description = "Add and delete budgets (but can't modifiy budgets)" WHERE description = "Add and delete budgets (but cant modify budgets)";
9589 print "Upgrade to $DBversion done (Bug 10749: Fix typo in budget_add_del permission description)\n";
9590 SetVersion ($DBversion);
9593 $DBversion = "3.17.00.060";
9594 if ( CheckVersion($DBversion) ) {
9595 my $count_l = $dbh->selectcol_arrayref(q|
9596 SELECT COUNT(*) FROM letter WHERE message_transport_type='feed'
9598 my $count_mq = $dbh->selectcol_arrayref(q|
9599 SELECT COUNT(*) FROM message_queue WHERE message_transport_type='feed'
9601 my $count_ott = $dbh->selectcol_arrayref(q|
9602 SELECT COUNT(*) FROM overduerules_transport_types WHERE message_transport_type='feed'
9604 my $count_mt = $dbh->selectcol_arrayref(q|
9605 SELECT COUNT(*) FROM message_transports WHERE message_transport_type='feed'
9607 my $count_bmtp = $dbh->selectcol_arrayref(q|
9608 SELECT COUNT(*) FROM borrower_message_transport_preferences WHERE message_transport_type='feed'
9612 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 ) {
9613 $deleted = $dbh->do(q|
9614 DELETE FROM message_transport_types where message_transport_type='feed'
9616 $deleted = $deleted ne '0E0' ? 1 : 0;
9619 print "Upgrade to $DBversion done (Bug 12298: Delete the 'feed' message transport type " . ($deleted ? '(deleted!)' : '(not deleted)') . ")\n";
9620 SetVersion($DBversion);
9623 $DBversion = "3.18.00.000";
9624 if ( CheckVersion($DBversion) ) {
9625 print "Upgrade to $DBversion done (3.18.0 release)\n";
9626 SetVersion($DBversion);
9629 $DBversion = "3.19.00.000";
9630 if ( CheckVersion($DBversion) ) {
9631 print "Upgrade to $DBversion done (there's life after 3.18)\n";
9632 SetVersion ($DBversion);
9635 $DBversion = "3.19.00.001";
9636 if ( CheckVersion($DBversion) ) {
9638 UPDATE systempreferences
9639 SET options = 'public|school|academic|research|private|societyAssociation|corporate|government|religiousOrg|subscription'
9640 WHERE variable = 'UsageStatsLibraryType'
9642 if ( C4::Context->preference("UsageStatsLibraryType") eq "university" ) {
9643 C4::Context->set_preference("UsageStatsLibraryType", "academic")
9645 print "Upgrade to $DBversion done (Bug 13436: Add more options to UsageStatsLibraryType)\n";
9646 SetVersion ($DBversion);
9649 $DBversion = "3.19.00.002";
9650 if ( CheckVersion($DBversion) ) {
9652 UPDATE suggestions SET branchcode="" WHERE branchcode="__ANY__"
9654 print "upgrade to $DBversion done (Bug 10753: replace __ANY__ with empty string in suggestions.branchcode)\n";
9655 SetVersion ($DBversion);
9658 $DBversion = "3.19.00.003";
9659 if ( CheckVersion($DBversion) ) {
9660 my ($count) = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers GROUP BY userid HAVING COUNT(userid) > 1");
9663 print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced) FAILED!\n";
9664 print "Your database has users with duplicate user logins. Please have your administrator deduplicate your user logins.\n";
9665 print "Afterward, your Koha administrator should execute the following database query: ALTER TABLE borrowers DROP INDEX userid, ADD UNIQUE userid (userid)";
9668 ALTER TABLE borrowers
9670 ADD UNIQUE userid (userid)
9672 print "Upgrade to $DBversion done (Bug 1861: Unique patrons logins not (totally) enforced)\n";
9675 SetVersion($DBversion);
9678 $DBversion = "3.19.00.004";
9679 if ( CheckVersion($DBversion) ) {
9680 my $pref_value = C4::Context->preference('OpacExportOptions');
9681 $pref_value =~ s/\|/,/g; # multiple is separated by ,
9683 UPDATE systempreferences
9686 WHERE variable = 'OpacExportOptions'
9687 }, {}, $pref_value );
9688 print "Upgrade to $DBversion done (Bug 13346: OpacExportOptions is now multiple)\n";
9689 SetVersion ($DBversion);
9692 $DBversion = "3.19.00.005";
9693 if(CheckVersion($DBversion)) {
9695 ALTER TABLE authorised_values MODIFY COLUMN category VARCHAR(32) NOT NULL DEFAULT ''
9699 ALTER TABLE borrower_attribute_types MODIFY COLUMN authorised_value_category VARCHAR(32) DEFAULT NULL
9702 print "Upgrade to $DBversion done (Bug 13379: Modify authorised_values.category to varchar(32))\n";
9703 SetVersion($DBversion);
9706 $DBversion = "3.19.00.006";
9707 if ( CheckVersion($DBversion) ) {
9708 $dbh->do(q|SET foreign_key_checks = 0|);
9709 my $sth = $dbh->table_info( '','','','TABLE' );
9710 my ( $cat, $schema, $name, $type, $remarks );
9711 while ( ( $cat, $schema, $name, $type, $remarks ) = $sth->fetchrow_array ) {
9712 my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE $name|);
9713 $table_sth->execute;
9714 my @table = $table_sth->fetchrow_array;
9715 unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables
9716 if ( $name eq 'marc_subfield_structure' ) {
9718 ALTER TABLE marc_subfield_structure
9719 MODIFY COLUMN tagfield varchar(3) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9720 MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT '',
9721 MODIFY COLUMN liblibrarian varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9722 MODIFY COLUMN libopac varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9723 MODIFY COLUMN kohafield varchar(40) COLLATE utf8_unicode_ci DEFAULT NULL,
9724 MODIFY COLUMN authorised_value varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9725 MODIFY COLUMN authtypecode varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL,
9726 MODIFY COLUMN value_builder varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL,
9727 MODIFY COLUMN frameworkcode varchar(4) COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
9728 MODIFY COLUMN seealso varchar(1100) COLLATE utf8_unicode_ci DEFAULT NULL,
9729 MODIFY COLUMN link varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL
9733 $dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
9737 $dbh->do(q|SET foreign_key_checks = 1|);;
9739 print "Upgrade to $DBversion done (Bug 11944: Convert DB tables to utf8_unicode_ci)\n";
9740 SetVersion($DBversion);
9743 $DBversion = "3.19.00.007";
9744 if ( CheckVersion($DBversion) ) {
9745 my $orphan_budgets = $dbh->selectall_arrayref(q|
9746 SELECT budget_id, budget_name, budget_code
9748 WHERE budget_parent_id IS NOT NULL
9749 AND budget_parent_id NOT IN (
9750 SELECT DISTINCT budget_id FROM aqbudgets
9752 |, { Slice => {} } );
9754 if ( @$orphan_budgets ) {
9755 for my $b ( @$orphan_budgets ) {
9756 print "Fund $b->{budget_name} (code:$b->{budget_code}, id:$b->{budget_id}) does not have a parent, it may cause problem\n";
9758 print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: FAIL)\n";
9760 print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: OK)\n";
9762 SetVersion($DBversion);
9765 $DBversion = "3.19.00.008";
9766 if ( CheckVersion($DBversion) ) {
9767 my $number_of_orders_not_linked = $dbh->selectcol_arrayref(q|
9773 WHERE b.budget_id = o.budget_id
9777 if ( $number_of_orders_not_linked->[0] > 0 ) {
9779 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)
9781 my $budget_period_id = $dbh->last_insert_id( undef, undef, 'aqbudgetperiods', undef );
9783 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 );
9785 my $budget_id = $dbh->last_insert_id( undef, undef, 'aqbudgets', undef );
9788 SET budget_id = $budget_id
9792 WHERE b.budget_id = o.budget_id
9798 ALTER TABLE aqorders
9799 ADD CONSTRAINT aqorders_budget_id_fk FOREIGN KEY (budget_id) REFERENCES aqbudgets(budget_id) ON DELETE CASCADE ON UPDATE CASCADE
9802 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";
9803 SetVersion($DBversion);
9806 $DBversion = "3.19.00.009";
9807 if ( CheckVersion($DBversion) ) {
9809 UPDATE suggestions s SET s.budgetid = NULL
9813 WHERE b.budget_id = s.budgetid
9818 ALTER TABLE suggestions
9819 ADD CONSTRAINT suggestions_budget_id_fk FOREIGN KEY (budgetid) REFERENCES aqbudgets(budget_id) ON DELETE SET NULL ON UPDATE CASCADE
9822 print "Upgrade to $DBversion done (Bug 13007: Add new foreign key suggestions.budgetid)\n";
9823 SetVersion($DBversion);
9826 $DBversion = "3.19.00.010";
9827 if ( CheckVersion($DBversion) ) {
9829 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
9830 VALUES('SessionRestrictionByIP','1','Check for Change in Remote IP address for Session Security. Disable when remote ip address changes frequently.','','YesNo')
9832 print "Upgrade to $DBversion done (Bug 5511: SessionRestrictionByIP)\n";
9833 SetVersion ($DBversion);
9836 $DBversion = "3.19.00.011";
9837 if ( CheckVersion($DBversion) ) {
9839 INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES
9840 (20, 'lists', 'Lists', 0)
9843 INSERT INTO permissions (module_bit, code, description) VALUES
9844 (20, 'delete_public_lists', 'Delete public lists')
9846 print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n";
9847 SetVersion ($DBversion);
9850 $DBversion = "3.19.00.012";
9851 if(CheckVersion($DBversion)) {
9853 ALTER TABLE biblioitems MODIFY COLUMN marcxml longtext
9857 ALTER TABLE deletedbiblioitems MODIFY COLUMN marcxml longtext
9860 print "Upgrade to $DBversion done (Bug 13523 Remove NOT NULL restriction on field marcxml due to mysql STRICT_TRANS_TABLES)\n";
9861 SetVersion ($DBversion);
9864 $DBversion = "3.19.00.013";
9865 if ( CheckVersion($DBversion) ) {
9867 INSERT INTO permissions (module_bit, code, description) VALUES
9868 (13, 'records_batchmod', 'Perform batch modification of records (biblios or authorities)')
9870 print "Upgrade to $DBversion done (Bug 11395: Add permission tools_records_batchmod)\n";
9871 SetVersion($DBversion);
9874 $DBversion = "3.19.00.014";
9875 if ( CheckVersion($DBversion) ) {
9877 CREATE TABLE aqorder_users (
9878 ordernumber int(11) NOT NULL,
9879 borrowernumber int(11) NOT NULL,
9880 PRIMARY KEY (ordernumber, borrowernumber),
9881 CONSTRAINT aqorder_users_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber) ON DELETE CASCADE ON UPDATE CASCADE,
9882 CONSTRAINT aqorder_users_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9883 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
9887 INSERT INTO letter(module, code, branchcode, name, title, content, message_transport_type)
9888 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')
9890 print "Upgrade to $DBversion done (Bug 12648: Add letter ACQ_NOTIF_ON_RECEIV )\n";
9891 SetVersion ($DBversion);
9894 $DBversion = "3.19.00.015";
9895 if ( CheckVersion($DBversion) ) {
9897 ALTER TABLE search_history ADD COLUMN id INT(11) NOT NULL AUTO_INCREMENT FIRST, ADD PRIMARY KEY(id);
9899 print "Upgrade to $DBversion done (Bug 11430: Add primary key for search_history)\n";
9900 SetVersion($DBversion);
9903 $DBversion = "3.19.00.016";
9904 if(CheckVersion($DBversion)) {
9905 my @order_cancellation_reason = $dbh->selectrow_array("SELECT count(*) FROM authorised_values WHERE category='ORDER_CANCELLATION_REASON'");
9906 if ($order_cancellation_reason[0] == 0) {
9908 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9909 ('ORDER_CANCELLATION_REASON', 0, 'No reason provided'),
9910 ('ORDER_CANCELLATION_REASON', 1, 'Out of stock'),
9911 ('ORDER_CANCELLATION_REASON', 2, 'Restocking')
9914 my $already_existing_reasons = $dbh->selectcol_arrayref(q{
9915 SELECT DISTINCT( cancellationreason )
9917 }, { Slice => {} });
9919 my $update_orders_sth = $dbh->prepare(q{
9921 SET cancellationreason = ?
9922 WHERE cancellationreason = ?
9925 my $insert_av_sth = $dbh->prepare(q{
9926 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9927 ('ORDER_CANCELLATION_REASON', ?, ?)
9930 for my $reason ( @$already_existing_reasons ) {
9931 next unless $reason;
9932 $insert_av_sth->execute( $i, $reason );
9933 $update_orders_sth->execute( $i, $reason );
9936 print "Upgrade to $DBversion done (Bug 13380: Add the ORDER_CANCELLATION_REASON authorised value)\n";
9939 print "Upgrade to $DBversion done (Bug 13380: ORDER_CANCELLATION_REASON authorised value already existed from earlier update!)\n";
9942 SetVersion($DBversion);
9945 $DBversion = '3.19.00.017';
9946 if ( CheckVersion($DBversion) ) {
9947 # First create the column
9948 $dbh->do("ALTER TABLE issuingrules ADD onshelfholds tinyint(1) default 0 NOT NULL");
9949 # Now update the column
9950 if (C4::Context->preference("AllowOnShelfHolds")){
9951 # Pref is on, set allow for all rules
9952 $dbh->do("UPDATE issuingrules SET onshelfholds=1");
9954 # If the preference is not set, leave off
9955 $dbh->do("UPDATE issuingrules SET onshelfholds=0");
9957 # Remove from the systempreferences table
9958 $dbh->do("DELETE FROM systempreferences WHERE variable = 'AllowOnShelfHolds'");
9960 # First create the column
9961 $dbh->do("ALTER TABLE issuingrules ADD opacitemholds char(1) DEFAULT 'N' NOT NULL");
9962 # Now update the column
9963 my $opacitemholds = C4::Context->preference("OPACItemHolds") || '';
9964 if (lc ($opacitemholds) eq 'force') {
9965 $opacitemholds = 'F';
9968 $opacitemholds = $opacitemholds ? 'Y' : 'N';
9970 # Set allow for all rules
9971 $dbh->do("UPDATE issuingrules SET opacitemholds='$opacitemholds'");
9973 # Remove from the systempreferences table
9974 $dbh->do("DELETE FROM systempreferences WHERE variable = 'OPACItemHolds'");
9976 print "Upgrade to $DBversion done (Bug 5786: Move AllowOnShelfHolds to circulation matrix; Move OPACItemHolds system preference to circulation matrix)\n";
9977 SetVersion ($DBversion);
9980 $DBversion = "3.19.00.018";
9981 if ( CheckVersion($DBversion) ) {
9983 UPDATE systempreferences set variable="OpacAdditionalStylesheet" WHERE variable="opaccolorstylesheet"
9985 print "Upgrade to $DBversion done (Bug 10328: Rename opaccolorstylesheet to OpacAdditionalStylesheet\n";
9986 SetVersion ($DBversion);
9989 $DBversion = "3.19.00.019";
9990 if ( CheckVersion($DBversion) ) {
9992 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
9993 VALUES('Coce','0', 'If on, enables cover retrieval from the configured Coce server', NULL, 'YesNo')
9996 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
9997 VALUES('CoceHost', NULL, 'Coce server URL', NULL,'Free')
10000 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
10001 VALUES('CoceProviders', NULL, 'Coce providers', 'aws,gb,ol', 'multiple')
10003 print "Upgrade to $DBversion done (Bug 9580: Cover image from Coce, a remote image URL cache)\n";
10004 SetVersion($DBversion);
10007 $DBversion = "3.19.00.020";
10008 if ( CheckVersion($DBversion) ) {
10010 ALTER TABLE aqorders DROP COLUMN supplierreference;
10013 print "Upgrade to $DBversion done (Bug 11008: DROP column aqorders.supplierreference)\n";
10014 SetVersion($DBversion);
10017 $DBversion = "3.19.00.021";
10018 if ( CheckVersion($DBversion) ) {
10020 ALTER TABLE issues DROP COLUMN issuingbranch
10023 ALTER TABLE old_issues DROP COLUMN issuingbranch
10025 print "Upgrade to $DBversion done (Bug 2806: Remove issuingbranch columns)\n";
10026 SetVersion ($DBversion);
10029 $DBversion = '3.19.00.022';
10030 if ( CheckVersion($DBversion) ) {
10032 ALTER TABLE suggestions DROP COLUMN mailoverseeing;
10034 print "Upgrade to $DBversion done (Bug 13006: Drop column suggestion.mailoverseeing)\n";
10035 SetVersion($DBversion);
10038 $DBversion = "3.19.00.023";
10039 if ( CheckVersion($DBversion) ) {
10041 DELETE FROM systempreferences where variable = 'AddPatronLists'
10043 print "Upgrade to $DBversion done (Bug 13497: Remove the AddPatronLists system preferences)\n";
10044 SetVersion ($DBversion);
10047 $DBversion = "3.19.00.024";
10048 if ( CheckVersion($DBversion) ) {
10049 $dbh->do(qq|DROP table patroncards;|);
10050 print "Upgrade to $DBversion done (Bug 13539: Remove table patroncards from database as it's no longer in use)\n";
10051 SetVersion ($DBversion);
10054 $DBversion = "3.19.00.025";
10055 if ( CheckVersion($DBversion) ) {
10057 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
10058 ('SearchWithISBNVariations','0',NULL,'If enabled, search on all variations of the ISBN','YesNo')
10060 print "Upgrade to $DBversion done (Bug 13528: Add the SearchWithISBNVariations syspref)\n";
10061 SetVersion ($DBversion);
10064 $DBversion = "3.19.00.026";
10065 if( CheckVersion($DBversion) ) {
10066 if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {
10068 INSERT IGNORE INTO auth_tag_structure (authtypecode, tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value) VALUES
10069 ('', '388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL);
10073 INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10074 mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10075 ('', '388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10076 ('', '388', '2', 'Source of term', 'Source of term', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10077 ('', '388', '3', 'Materials specified', 'Materials specified', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10078 ('', '388', '6', 'Linkage', 'Linkage', 0, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10079 ('', '388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', ''),
10080 ('', '388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, 3, NULL, NULL, NULL, 0, 0, '', '', '');
10084 UPDATE IGNORE auth_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND tagfield IN
10085 ('100','110','111','130','400','410','411','430','500','510','511','530','700','710','730');
10089 INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable,
10090 mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES
10091 ('', '150', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10092 ('', '151', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 1, NULL, NULL, NULL, 0, 0, '', '', ''),
10093 ('', '450', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10094 ('', '451', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 4, NULL, NULL, NULL, 0, 0, '', '', ''),
10095 ('', '550', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10096 ('', '551', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 5, NULL, NULL, NULL, 0, 0, '', '', ''),
10097 ('', '750', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10098 ('', '751', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10099 ('', '748', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10100 ('', '755', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10101 ('', '780', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10102 ('', '781', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10103 ('', '782', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10104 ('', '785', 'i', 'Relationship information', 'Relationship information', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10105 ('', '710', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10106 ('', '730', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10107 ('', '748', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10108 ('', '750', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10109 ('', '751', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10110 ('', '755', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10111 ('', '762', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10112 ('', '780', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10113 ('', '781', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10114 ('', '782', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10115 ('', '785', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', ''),
10116 ('', '788', '4', 'Relationship code', 'Relationship code', 1, 0, 7, NULL, NULL, NULL, 0, 0, '', '', '');
10120 UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship information', libopac = 'Relationship information'
10121 WHERE tagsubfield = 'i' AND tagfield IN ('700','710','730','750','751','762');
10125 UPDATE IGNORE auth_subfield_structure SET liblibrarian = 'Relationship code', libopac = 'Relationship code'
10126 WHERE tagsubfield = '4' AND tagfield IN ('700','710');
10130 INSERT IGNORE INTO marc_tag_structure (tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value, frameworkcode) VALUES
10131 ('370', 'ASSOCIATED PLACE', 'ASSOCIATED PLACE', 1, 0, NULL, ''),
10132 ('388', 'TIME PERIOD OF CREATION', 'TIME PERIOD OF CREATION', 1, 0, NULL, '');
10136 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory,
10137 kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
10138 ('370', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10139 ('370', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10140 ('370', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10141 ('370', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10142 ('370', 'c', 'Associated country', 'Associated country', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10143 ('370', 'f', 'Other associated place', 'Other associated place', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10144 ('370', 'g', 'Place of origin of work', 'Place of origin of work', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10145 ('370', 's', 'Start period', 'Start period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10146 ('370', 't', 'End period', 'End period', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10147 ('370', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10148 ('370', 'v', 'Source of information', 'Source of information', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10149 ('377', 'l', 'Language term', 'Language term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10150 ('382', 's', 'Total number of performers', 'Total number of performers', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10151 ('388', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10152 ('388', '2', 'Source of term', 'Source of term', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10153 ('388', '3', ' Materials specified', ' Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10154 ('388', '6', ' Linkage', ' Linkage', 0, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10155 ('388', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10156 ('388', 'a', 'Time period of creation term', 'Time period of creation term', 1, 0, '', 3, '', '', '', NULL, -6, '', '', '', NULL),
10157 ('650', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL),
10158 ('651', 'g', 'Miscellaneous information', 'Miscellaneous information', 1, 0, '', 6, '', '', '', 0, -1, '', '', '', NULL);
10162 UPDATE IGNORE marc_subfield_structure SET repeatable = 1 WHERE tagsubfield = 'g' AND
10163 tagfield IN ('100','110','111','130','240','243','246','247','600','610','611','630','700','710','711','730','800','810','811','830');
10167 print "Upgrade to $DBversion done (Bug 13322: Update MARC21 frameworks to Update No. 19 - October 2014)\n";
10168 SetVersion($DBversion);
10171 $DBversion = '3.19.00.027';
10172 if ( CheckVersion($DBversion) ) {
10173 $dbh->do("ALTER TABLE items ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10174 $dbh->do("ALTER TABLE deleteditems ADD COLUMN itemnotes_nonpublic MEDIUMTEXT AFTER itemnotes");
10175 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";
10176 SetVersion($DBversion);
10179 $DBversion = "3.19.00.028";
10180 if( CheckVersion($DBversion) ) {
10182 local $dbh->{PrintError} = 0;
10184 ALTER TABLE issues DROP PRIMARY KEY
10189 ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10193 ALTER TABLE old_issues CHANGE issue_id issue_id INT( 11 ) NOT NULL
10197 ALTER TABLE issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10201 UPDATE issues SET issue_id = issue_id + ( SELECT COUNT(*) FROM old_issues ) ORDER BY issue_id DESC
10204 my $max_issue_id = $schema->resultset('Issue')->get_column('issue_id')->max();
10205 if ($max_issue_id) {
10208 ALTER TABLE issues AUTO_INCREMENT = $max_issue_id
10212 print "Upgrade to $DBversion done (Bug 13790: Add unique id issue_id to issues and oldissues tables)\n";
10213 SetVersion($DBversion);
10216 $DBversion = "3.19.00.029";
10217 if ( CheckVersion($DBversion) ) {
10219 ALTER TABLE sessions CHANGE COLUMN a_session a_session MEDIUMTEXT
10221 print "Upgrade to $DBversion done (Bug 13606: Upgrade sessions.a_session to MEDIUMTEXT)\n";
10222 SetVersion($DBversion);
10225 $DBversion = "3.19.00.030";
10226 if ( CheckVersion($DBversion) ) {
10228 UPDATE language_subtag_registry SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10231 UPDATE language_rfc4646_to_iso639 SET rfc4646_subtag = 'kn' WHERE rfc4646_subtag = 'ka' AND iso639_2_code = 'kan';
10234 UPDATE language_descriptions SET subtag = 'kn', lang = 'kn' WHERE subtag = 'ka' AND lang = 'ka' AND description = 'ಕನ್ನಡ';
10237 UPDATE language_descriptions SET subtag = 'kn' WHERE subtag = 'ka' AND description = 'Kannada';
10240 INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Georgian','2015-04-20');
10243 DELETE FROM language_subtag_registry
10246 (SELECT MIN(id) as id,subtag,type,description,added
10247 FROM language_subtag_registry
10248 GROUP BY subtag,type,description,added)
10252 INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka', 'geo');
10255 DELETE FROM language_rfc4646_to_iso639
10258 (SELECT MIN(id) as id,rfc4646_subtag,iso639_2_code
10259 FROM language_rfc4646_to_iso639
10260 GROUP BY rfc4646_subtag,iso639_2_code)
10264 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ქართული');
10267 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Georgian');
10270 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'fr', 'Géorgien');
10273 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'de', 'Georgisch');
10276 INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'es', 'Georgiano');
10279 DELETE FROM language_descriptions
10282 (SELECT MIN(id) as id,subtag,type,lang,description
10283 FROM language_descriptions GROUP BY subtag,type,lang,description)
10286 print "Upgrade to $DBversion done (Bug 14030: Add Georgian language and fix Kannada language code)\n";
10287 SetVersion($DBversion);
10290 $DBversion = "3.19.00.031";
10291 if ( CheckVersion($DBversion) ) {
10293 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10294 VALUES('IdRef','0','Disable/enable the IdRef webservice from the OPAC detail page.',NULL,'YesNo')
10296 print "Upgrade to $DBversion done (Bug 8992: Add system preference IdRef))\n";
10297 SetVersion($DBversion);
10300 $DBversion = "3.19.00.032";
10301 if ( CheckVersion($DBversion) ) {
10303 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10304 VALUES('AddressFormat','us','Choose format to display postal addresses','','Choice')
10306 print "Upgrade to $DBversion done (Bug 4041: Address Format as a I18N/L10N system preference\n";
10307 SetVersion ($DBversion);
10310 $DBversion = "3.19.00.033";
10311 if ( CheckVersion($DBversion) ) {
10313 ALTER TABLE auth_header
10314 CHANGE COLUMN datemodified modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP
10317 ALTER TABLE auth_header
10318 CHANGE COLUMN modification_time modification_time TIMESTAMP NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP
10320 print "Upgrade to $DBversion done (Bug 11165: Update auth_header.datemodified when updated)\n";
10321 SetVersion ($DBversion);
10324 $DBversion = "3.19.00.034";
10325 if ( CheckVersion($DBversion) ) {
10327 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10328 VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free')
10330 print "Upgrade to $DBversion done (Bug 13984: CardnumberLength syspref missing on some setups\n";
10331 SetVersion ($DBversion);
10334 $DBversion = "3.19.00.035";
10335 if ( CheckVersion($DBversion) ) {
10337 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('useDischarge','','Allows librarians to discharge borrowers and borrowers to request a discharge','','YesNo')
10340 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.')
10344 ALTER TABLE borrower_debarments CHANGE type type ENUM('SUSPENSION','OVERDUES','MANUAL','DISCHARGE') NOT NULL DEFAULT 'MANUAL'
10348 CREATE TABLE discharges (
10349 borrower int(11) DEFAULT NULL,
10350 needed timestamp NULL DEFAULT NULL,
10351 validated timestamp NULL DEFAULT NULL,
10352 KEY borrower_discharges_ibfk1 (borrower),
10353 CONSTRAINT borrower_discharges_ibfk1 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
10354 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
10357 print "Upgrade to $DBversion done (Bug 8007: Add System Preferences useDischarge, the discharge notice and the new table discharges)\n";
10358 SetVersion($DBversion);
10361 $DBversion = "3.19.00.036";
10362 if ( CheckVersion($DBversion) ) {
10364 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10365 VALUES ('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo')
10367 print "Upgrade to $DBversion done (Bug 13889: Add cron jobs information to system log)\n";
10368 SetVersion ($DBversion);
10371 $DBversion = "3.19.00.037";
10372 if ( CheckVersion($DBversion) ) {
10374 ALTER TABLE marc_subfield_structure
10375 MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT ''
10377 print "Upgrade to $DBversion done (Bug 13810: Change collate for tagsubfield (utf8_bin))\n";
10378 SetVersion ($DBversion);
10381 $DBversion = "3.19.00.038";
10382 if ( CheckVersion($DBversion) ) {
10384 ALTER TABLE virtualshelves
10385 ADD COLUMN created_on TIMESTAMP NOT NULL AFTER lastmodified
10387 # Set created_on = lastmodified
10388 # I would say it's better than 0000-00-00
10389 # Set modified to the existing value (do not get the current ts!)
10391 UPDATE virtualshelves
10392 SET created_on = lastmodified, lastmodified = lastmodified
10394 print "Upgrade to $DBversion done (Bug 13421: Add DB field virtualshelves.created_on)\n";
10395 SetVersion ($DBversion);
10398 $DBversion = "3.19.00.039";
10399 if ( CheckVersion($DBversion) ) {
10400 print "Upgrade to $DBversion done (Koha 3.20 beta)\n";
10401 SetVersion ($DBversion);
10404 $DBversion = "3.19.00.040";
10405 if ( CheckVersion($DBversion) ) {
10407 ALTER TABLE aqorders DROP COLUMN totalamount
10409 print "Upgrade to $DBversion done (Bug 11006: Drop column aqorders.totalamount)\n";
10410 SetVersion ($DBversion);
10413 $DBversion = "3.19.00.041";
10414 if ( CheckVersion($DBversion) ) {
10416 ALTER IGNORE TABLE suggestions ADD KEY status (STATUS)
10419 ALTER IGNORE TABLE suggestions ADD KEY biblionumber (biblionumber)
10422 ALTER IGNORE TABLE suggestions ADD KEY branchcode (branchcode)
10424 print "Upgrade to $DBversion done (Bug 14132: suggestions table is missing indexes)\n";
10425 SetVersion ($DBversion);
10428 # DEVELOPER PROCESS, search for anything to execute in the db_update directory
10430 # if there is anything in the atomicupdate, read and execute it.
10432 my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10433 opendir( my $dirh, $update_dir );
10434 foreach my $file ( sort readdir $dirh ) {
10435 next if $file !~ /\.(sql|perl)$/; #skip other files
10436 print "DEV atomic update: $file\n";
10437 if ( $file =~ /\.sql$/ ) {
10438 my $installer = C4::Installer->new();
10439 my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10440 } elsif ( $file =~ /\.perl$/ ) {
10441 do $update_dir . $file;
10447 =head2 TableExists($table)
10454 local $dbh->{PrintError} = 0;
10455 local $dbh->{RaiseError} = 1;
10456 $dbh->do(qq{SELECT * FROM $table WHERE 1 = 0 });
10458 return 1 unless $@;
10462 =head2 DropAllForeignKeys($table)
10464 Drop all foreign keys of the table $table
10468 sub DropAllForeignKeys {
10470 # get the table description
10471 my $sth = $dbh->prepare("SHOW CREATE TABLE $table");
10473 my $vsc_structure = $sth->fetchrow;
10474 # split on CONSTRAINT keyword
10475 my @fks = split /CONSTRAINT /,$vsc_structure;
10478 # isolate what is before FOREIGN KEY, if there is something, it's a foreign key to drop
10479 $_ = /(.*) FOREIGN KEY.*/;
10482 # we have found 1 foreign, drop it
10483 $dbh->do("ALTER TABLE $table DROP FOREIGN KEY $id");
10490 =head2 TransformToNum
10492 Transform the Koha version from a 4 parts string
10493 to a number, with just 1 .
10497 sub TransformToNum {
10498 my $version = shift;
10499 # remove the 3 last . to have a Perl number
10500 $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
10501 # three X's at the end indicate that you are testing patch with dbrev
10502 # change it into 999
10503 # prevents error on a < comparison between strings (should be: lt)
10504 $version =~ s/XXX$/999/;
10510 set the DBversion in the systempreferences
10515 return if $_[0]=~ /XXX$/;
10516 #you are testing a patch with a db revision; do not change version
10517 my $kohaversion = TransformToNum($_[0]);
10518 if (C4::Context->preference('Version')) {
10519 my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
10520 $finish->execute($kohaversion);
10522 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')");
10523 $finish->execute($kohaversion);
10525 C4::Context::clear_syspref_cache(); # invalidate cached preferences
10528 =head2 CheckVersion
10530 Check whether a given update should be run when passed the proposed version
10531 number. The update will always be run if the proposed version is greater
10532 than the current database version and less than or equal to the version in
10533 kohaversion.pl. The update is also run if the version contains XXX, though
10534 this behavior will be changed following the adoption of non-linear updates
10535 as implemented in bug 7167.
10540 my ($proposed_version) = @_;
10541 my $version_number = TransformToNum($proposed_version);
10543 # The following line should be deleted when bug 7167 is pushed
10544 return 1 if ( $proposed_version =~ m/XXX/ );
10546 if ( C4::Context->preference("Version") < $version_number
10547 && $version_number <= TransformToNum( $Koha::VERSION ) )