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!
44 use MARC
::File
::XML
( BinaryEncoding
=> 'utf8' );
46 # FIXME - The user might be installing a new database, so can't rely
47 # on /etc/koha.conf anyway.
54 %existingtables, # tables already in database
58 $type, $null, $key, $default, $extra,
59 $prefitem, # preference item in systempreferences table
62 my $schema = Koha
::Database
->new()->schema();
68 my $dbh = C4
::Context
->dbh;
69 $|=1; # flushes output
71 local $dbh->{RaiseError
} = 0;
73 # Record the version we are coming from
75 my $original_version = C4
::Context
->preference("Version");
77 # Deal with virtualshelves
78 my $DBversion = "3.00.00.001";
79 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
80 # update virtualshelves table to
82 $dbh->do("ALTER TABLE `bookshelf` RENAME `virtualshelves`");
83 $dbh->do("ALTER TABLE `shelfcontents` RENAME `virtualshelfcontents`");
84 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD `biblionumber` INT( 11 ) NOT NULL default '0' AFTER shelfnumber");
85 $dbh->do("UPDATE `virtualshelfcontents` SET biblionumber=(SELECT biblionumber FROM items WHERE items.itemnumber=virtualshelfcontents.itemnumber)");
86 # drop all foreign keys : otherwise, we can't drop itemnumber field.
87 DropAllForeignKeys
('virtualshelfcontents');
88 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD KEY biblionumber (biblionumber)");
89 # create the new foreign keys (on biblionumber)
90 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `virtualshelfcontents_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE");
91 # re-create the foreign key on virtualshelf
92 $dbh->do("ALTER TABLE `virtualshelfcontents` ADD CONSTRAINT `shelfcontents_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
93 $dbh->do("ALTER TABLE `virtualshelfcontents` DROP `itemnumber`");
94 print "Upgrade to $DBversion done (virtualshelves)\n";
95 SetVersion
($DBversion);
99 $DBversion = "3.00.00.002";
100 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
101 $dbh->do("DROP TABLE sessions");
102 $dbh->do("CREATE TABLE `sessions` (
103 `id` varchar(32) NOT NULL,
104 `a_session` text NOT NULL,
105 UNIQUE KEY `id` (`id`)
106 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
107 print "Upgrade to $DBversion done (sessions uses CGI::session, new table structure for sessions)\n";
108 SetVersion
($DBversion);
112 $DBversion = "3.00.00.003";
113 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
114 if (C4
::Context
->preference("opaclanguages") eq "fr") {
115 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ReservesNeedReturns','0','Si ce paramètre est mis à 1, une réservation posée sur un exemplaire présent sur le site devra être passée en retour pour être disponible. Sinon, elle sera automatiquement disponible, Koha considère que le bibliothécaire place la réservation en ayant le document en mains','','YesNo')");
117 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ReservesNeedReturns','0','If set, a reserve done on an item available in this branch need a check-in, otherwise, a reserve on a specific item, that is on the branch & available is considered as available','','YesNo')");
119 print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
120 SetVersion
($DBversion);
124 $DBversion = "3.00.00.004";
125 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
126 $dbh->do("INSERT INTO `systempreferences` VALUES ('DebugLevel','2','set the level of error info sent to the browser. 0=none, 1=some, 2=most','0|1|2','Choice')");
127 print "Upgrade to $DBversion done (adding DebugLevel systempref, in 'Admin' tab)\n";
128 SetVersion
($DBversion);
131 $DBversion = "3.00.00.005";
132 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
133 $dbh->do("CREATE TABLE `tags` (
134 `entry` varchar(255) NOT NULL default '',
135 `weight` bigint(20) NOT NULL default 0,
136 PRIMARY KEY (`entry`)
137 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
139 $dbh->do("CREATE TABLE `nozebra` (
140 `server` varchar(20) NOT NULL,
141 `indexname` varchar(40) NOT NULL,
142 `value` varchar(250) NOT NULL,
143 `biblionumbers` longtext NOT NULL,
144 KEY `indexname` (`server`,`indexname`),
145 KEY `value` (`server`,`value`))
146 ENGINE=InnoDB DEFAULT CHARSET=utf8;
148 print "Upgrade to $DBversion done (adding tags and nozebra tables )\n";
149 SetVersion
($DBversion);
152 $DBversion = "3.00.00.006";
153 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
154 $dbh->do("UPDATE issues SET issuedate=timestamp WHERE issuedate='0000-00-00'");
155 print "Upgrade to $DBversion done (filled issues.issuedate with timestamp)\n";
156 SetVersion
($DBversion);
159 $DBversion = "3.00.00.007";
160 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
161 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SessionStorage','mysql','Use mysql or a temporary file for storing session data','mysql|tmp','Choice')");
162 print "Upgrade to $DBversion done (set SessionStorage variable)\n";
163 SetVersion
($DBversion);
166 $DBversion = "3.00.00.008";
167 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
168 $dbh->do("ALTER TABLE `biblio` ADD `datecreated` DATE NOT NULL AFTER `timestamp` ;");
169 $dbh->do("UPDATE biblio SET datecreated=timestamp");
170 print "Upgrade to $DBversion done (biblio creation date)\n";
171 SetVersion
($DBversion);
174 $DBversion = "3.00.00.009";
175 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
177 # Create backups of call number columns
178 # in case default migration needs to be customized
180 # UPGRADE NOTE: temp_upg_biblioitems_call_num should be dropped
181 # after call numbers have been transformed to the new structure
183 # Not bothering to do the same with deletedbiblioitems -- assume
184 # default is good enough.
185 $dbh->do("CREATE TABLE `temp_upg_biblioitems_call_num` AS
186 SELECT `biblioitemnumber`, `biblionumber`,
187 `classification`, `dewey`, `subclass`,
189 FROM `biblioitems`");
191 # biblioitems changes
192 $dbh->do("ALTER TABLE `biblioitems` CHANGE COLUMN `volumeddesc` `volumedesc` TEXT,
193 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
194 ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
195 ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
196 ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
197 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
198 ADD `totalissues` INT(10) AFTER `cn_sort`");
200 # default mapping of call number columns:
201 # cn_class = concatentation of classification + dewey,
202 # trimmed to fit -- assumes that most users do not
203 # populate both classification and dewey in a single record
205 # cn_source = left null
208 # After upgrade, cn_sort will have to be set based on whatever
209 # default call number scheme user sets as a preference. Misc
210 # script will be added at some point to do that.
212 $dbh->do("UPDATE `biblioitems`
213 SET cn_class = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
218 # Now drop the old call number columns
219 $dbh->do("ALTER TABLE `biblioitems` DROP COLUMN `classification`,
221 DROP COLUMN `subclass`,
222 DROP COLUMN `lcsort`,
223 DROP COLUMN `ccode`");
225 # deletedbiblio changes
226 $dbh->do("ALTER TABLE `deletedbiblio` ALTER COLUMN `frameworkcode` SET DEFAULT '',
228 ADD `datecreated` DATE NOT NULL AFTER `timestamp`");
229 $dbh->do("UPDATE deletedbiblio SET datecreated = timestamp");
231 # deletedbiblioitems changes
232 $dbh->do("ALTER TABLE `deletedbiblioitems`
233 MODIFY `publicationyear` TEXT,
234 CHANGE `volumeddesc` `volumedesc` TEXT,
235 MODIFY `collectiontitle` MEDIUMTEXT DEFAULT NULL AFTER `volumedesc`,
236 MODIFY `collectionissn` TEXT DEFAULT NULL AFTER `collectiontitle`,
237 MODIFY `collectionvolume` MEDIUMTEXT DEFAULT NULL AFTER `collectionissn`,
238 MODIFY `editionstatement` TEXT DEFAULT NULL AFTER `collectionvolume`,
239 MODIFY `editionresponsibility` TEXT DEFAULT NULL AFTER `editionstatement`,
240 MODIFY `place` VARCHAR(255) DEFAULT NULL AFTER `size`,
241 MODIFY `marc` LONGBLOB,
242 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `url`,
243 ADD `cn_class` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
244 ADD `cn_item` VARCHAR(10) DEFAULT NULL AFTER `cn_class`,
245 ADD `cn_suffix` VARCHAR(10) DEFAULT NULL AFTER `cn_item`,
246 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_suffix`,
247 ADD `totalissues` INT(10) AFTER `cn_sort`,
248 ADD `marcxml` LONGTEXT NOT NULL AFTER `totalissues`,
249 ADD KEY `isbn` (`isbn`),
250 ADD KEY `publishercode` (`publishercode`)
253 $dbh->do("UPDATE `deletedbiblioitems`
254 SET `cn_class` = SUBSTR(TRIM(CONCAT_WS(' ', `classification`, `dewey`)), 1, 30),
255 `cn_item` = `subclass`,
258 $dbh->do("ALTER TABLE `deletedbiblioitems`
259 DROP COLUMN `classification`,
261 DROP COLUMN `subclass`,
262 DROP COLUMN `lcsort`,
266 # deleteditems changes
267 $dbh->do("ALTER TABLE `deleteditems`
268 MODIFY `barcode` VARCHAR(20) DEFAULT NULL,
269 MODIFY `price` DECIMAL(8,2) DEFAULT NULL,
270 MODIFY `replacementprice` DECIMAL(8,2) DEFAULT NULL,
272 MODIFY `itemcallnumber` VARCHAR(30) DEFAULT NULL AFTER `wthdrawn`,
273 MODIFY `holdingbranch` VARCHAR(10) DEFAULT NULL,
275 MODIFY `timestamp` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER `paidfor`,
277 ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
278 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
279 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
280 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
281 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`,
282 MODIFY `marc` LONGBLOB AFTER `uri`,
284 DROP KEY `itembarcodeidx`,
285 DROP KEY `itembinoidx`,
286 DROP KEY `itembibnoidx`,
287 ADD UNIQUE KEY `delitembarcodeidx` (`barcode`),
288 ADD KEY `delitembinoidx` (`biblioitemnumber`),
289 ADD KEY `delitembibnoidx` (`biblionumber`),
290 ADD KEY `delhomebranch` (`homebranch`),
291 ADD KEY `delholdingbranch` (`holdingbranch`)");
292 $dbh->do("UPDATE deleteditems SET `ccode` = `itype`");
293 $dbh->do("ALTER TABLE deleteditems DROP `itype`");
294 $dbh->do("UPDATE `deleteditems` SET `cn_sort` = `itemcallnumber`");
297 $dbh->do("ALTER TABLE `items` ADD `cn_source` VARCHAR(10) DEFAULT NULL AFTER `onloan`,
298 ADD `cn_sort` VARCHAR(30) DEFAULT NULL AFTER `cn_source`,
299 ADD `ccode` VARCHAR(10) DEFAULT NULL AFTER `cn_sort`,
300 ADD `materials` VARCHAR(10) DEFAULT NULL AFTER `ccode`,
301 ADD `uri` VARCHAR(255) DEFAULT NULL AFTER `materials`
303 $dbh->do("ALTER TABLE `items`
304 DROP KEY `itembarcodeidx`,
305 ADD UNIQUE KEY `itembarcodeidx` (`barcode`)");
307 # map items.itype to items.ccode and
308 # set cn_sort to itemcallnumber -- as with biblioitems.cn_sort,
309 # will have to be subsequently updated per user's default
310 # classification scheme
311 $dbh->do("UPDATE `items` SET `cn_sort` = `itemcallnumber`,
314 $dbh->do("ALTER TABLE `items` DROP `cutterextra`,
317 print "Upgrade to $DBversion done (major changes to biblio, biblioitems, items, and deleted* versions of same\n";
318 SetVersion
($DBversion);
321 $DBversion = "3.00.00.010";
322 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
323 $dbh->do("CREATE INDEX `userid` ON borrowers (`userid`) ");
324 print "Upgrade to $DBversion done (userid index added)\n";
325 SetVersion
($DBversion);
328 $DBversion = "3.00.00.011";
329 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
330 $dbh->do("ALTER TABLE `branchcategories` CHANGE `categorycode` `categorycode` varchar(10) ");
331 $dbh->do("ALTER TABLE `branchcategories` CHANGE `categoryname` `categoryname` varchar(32) ");
332 $dbh->do("ALTER TABLE `branchcategories` ADD COLUMN `categorytype` varchar(16) ");
333 $dbh->do("UPDATE `branchcategories` SET `categorytype` = 'properties'");
334 $dbh->do("ALTER TABLE `branchrelations` CHANGE `categorycode` `categorycode` varchar(10) ");
335 print "Upgrade to $DBversion done (added branchcategory type)\n";
336 SetVersion
($DBversion);
339 $DBversion = "3.00.00.012";
340 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
341 $dbh->do("CREATE TABLE `class_sort_rules` (
342 `class_sort_rule` varchar(10) NOT NULL default '',
343 `description` mediumtext,
344 `sort_routine` varchar(30) NOT NULL default '',
345 PRIMARY KEY (`class_sort_rule`),
346 UNIQUE KEY `class_sort_rule_idx` (`class_sort_rule`)
347 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
348 $dbh->do("CREATE TABLE `class_sources` (
349 `cn_source` varchar(10) NOT NULL default '',
350 `description` mediumtext,
351 `used` tinyint(4) NOT NULL default 0,
352 `class_sort_rule` varchar(10) NOT NULL default '',
353 PRIMARY KEY (`cn_source`),
354 UNIQUE KEY `cn_source_idx` (`cn_source`),
355 KEY `used_idx` (`used`),
356 CONSTRAINT `class_source_ibfk_1` FOREIGN KEY (`class_sort_rule`)
357 REFERENCES `class_sort_rules` (`class_sort_rule`)
358 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
359 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type)
360 VALUES('DefaultClassificationSource','ddc',
361 'Default classification scheme used by the collection. E.g., Dewey, LCC, etc.', NULL,'free')");
362 $dbh->do("INSERT INTO `class_sort_rules` (`class_sort_rule`, `description`, `sort_routine`) VALUES
363 ('dewey', 'Default filing rules for DDC', 'Dewey'),
364 ('lcc', 'Default filing rules for LCC', 'LCC'),
365 ('generic', 'Generic call number filing rules', 'Generic')");
366 $dbh->do("INSERT INTO `class_sources` (`cn_source`, `description`, `used`, `class_sort_rule`) VALUES
367 ('ddc', 'Dewey Decimal Classification', 1, 'dewey'),
368 ('lcc', 'Library of Congress Classification', 1, 'lcc'),
369 ('udc', 'Universal Decimal Classification', 0, 'generic'),
370 ('sudocs', 'SuDoc Classification (U.S. GPO)', 0, 'generic'),
371 ('z', 'Other/Generic Classification Scheme', 0, 'generic')");
372 print "Upgrade to $DBversion done (classification sources added)\n";
373 SetVersion
($DBversion);
376 $DBversion = "3.00.00.013";
377 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
378 $dbh->do("CREATE TABLE `import_batches` (
379 `import_batch_id` int(11) NOT NULL auto_increment,
380 `template_id` int(11) default NULL,
381 `branchcode` varchar(10) default NULL,
382 `num_biblios` int(11) NOT NULL default 0,
383 `num_items` int(11) NOT NULL default 0,
384 `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
385 `overlay_action` enum('replace', 'create_new', 'use_template') NOT NULL default 'create_new',
386 `import_status` enum('staging', 'staged', 'importing', 'imported', 'reverting', 'reverted', 'cleaned') NOT NULL default 'staging',
387 `batch_type` enum('batch', 'z3950') NOT NULL default 'batch',
388 `file_name` varchar(100),
389 `comments` mediumtext,
390 PRIMARY KEY (`import_batch_id`),
391 KEY `branchcode` (`branchcode`)
392 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
393 $dbh->do("CREATE TABLE `import_records` (
394 `import_record_id` int(11) NOT NULL auto_increment,
395 `import_batch_id` int(11) NOT NULL,
396 `branchcode` varchar(10) default NULL,
397 `record_sequence` int(11) NOT NULL default 0,
398 `upload_timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
399 `import_date` DATE default NULL,
400 `marc` longblob NOT NULL,
401 `marcxml` longtext NOT NULL,
402 `marcxml_old` longtext NOT NULL,
403 `record_type` enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio',
404 `overlay_status` enum('no_match', 'auto_match', 'manual_match', 'match_applied') NOT NULL default 'no_match',
405 `status` enum('error', 'staged', 'imported', 'reverted', 'items_reverted') NOT NULL default 'staged',
406 `import_error` mediumtext,
407 `encoding` varchar(40) NOT NULL default '',
408 `z3950random` varchar(40) default NULL,
409 PRIMARY KEY (`import_record_id`),
410 CONSTRAINT `import_records_ifbk_1` FOREIGN KEY (`import_batch_id`)
411 REFERENCES `import_batches` (`import_batch_id`) ON DELETE CASCADE ON UPDATE CASCADE,
412 KEY `branchcode` (`branchcode`),
413 KEY `batch_sequence` (`import_batch_id`, `record_sequence`)
414 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
415 $dbh->do("CREATE TABLE `import_record_matches` (
416 `import_record_id` int(11) NOT NULL,
417 `candidate_match_id` int(11) NOT NULL,
418 `score` int(11) NOT NULL default 0,
419 CONSTRAINT `import_record_matches_ibfk_1` FOREIGN KEY (`import_record_id`)
420 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
421 KEY `record_score` (`import_record_id`, `score`)
422 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
423 $dbh->do("CREATE TABLE `import_biblios` (
424 `import_record_id` int(11) NOT NULL,
425 `matched_biblionumber` int(11) default NULL,
426 `control_number` varchar(25) default NULL,
427 `original_source` varchar(25) default NULL,
428 `title` varchar(128) default NULL,
429 `author` varchar(80) default NULL,
430 `isbn` varchar(14) default NULL,
431 `issn` varchar(9) default NULL,
432 `has_items` tinyint(1) NOT NULL default 0,
433 CONSTRAINT `import_biblios_ibfk_1` FOREIGN KEY (`import_record_id`)
434 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
435 KEY `matched_biblionumber` (`matched_biblionumber`),
436 KEY `title` (`title`),
438 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
439 $dbh->do("CREATE TABLE `import_items` (
440 `import_items_id` int(11) NOT NULL auto_increment,
441 `import_record_id` int(11) NOT NULL,
442 `itemnumber` int(11) default NULL,
443 `branchcode` varchar(10) default NULL,
444 `status` enum('error', 'staged', 'imported', 'reverted') NOT NULL default 'staged',
445 `marcxml` longtext NOT NULL,
446 `import_error` mediumtext,
447 PRIMARY KEY (`import_items_id`),
448 CONSTRAINT `import_items_ibfk_1` FOREIGN KEY (`import_record_id`)
449 REFERENCES `import_records` (`import_record_id`) ON DELETE CASCADE ON UPDATE CASCADE,
450 KEY `itemnumber` (`itemnumber`),
451 KEY `branchcode` (`branchcode`)
452 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
454 $dbh->do("INSERT INTO `import_batches`
455 (`overlay_action`, `import_status`, `batch_type`, `file_name`)
456 SELECT distinct 'create_new', 'staged', 'z3950', `file`
457 FROM `marc_breeding`");
459 $dbh->do("INSERT INTO `import_records`
460 (`import_batch_id`, `import_record_id`, `record_sequence`, `marc`, `record_type`, `status`,
461 `encoding`, `z3950random`, `marcxml`, `marcxml_old`)
462 SELECT `import_batch_id`, `id`, 1, `marc`, 'biblio', 'staged', `encoding`, `z3950random`, '', ''
464 JOIN `import_batches` ON (`file_name` = `file`)");
466 $dbh->do("INSERT INTO `import_biblios`
467 (`import_record_id`, `title`, `author`, `isbn`)
468 SELECT `import_record_id`, `title`, `author`, `isbn`
470 JOIN `import_records` ON (`import_record_id` = `id`)");
472 $dbh->do("UPDATE `import_batches`
473 SET `num_biblios` = (
475 FROM `import_records`
476 WHERE `import_batch_id` = `import_batches`.`import_batch_id`
479 $dbh->do("DROP TABLE `marc_breeding`");
481 print "Upgrade to $DBversion done (import_batches et al. added)\n";
482 SetVersion
($DBversion);
485 $DBversion = "3.00.00.014";
486 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
487 $dbh->do("ALTER TABLE subscription ADD lastbranch VARCHAR(4)");
488 print "Upgrade to $DBversion done (userid index added)\n";
489 SetVersion
($DBversion);
492 $DBversion = "3.00.00.015";
493 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
494 $dbh->do("CREATE TABLE `saved_sql` (
495 `id` int(11) NOT NULL auto_increment,
496 `borrowernumber` int(11) default NULL,
497 `date_created` datetime default NULL,
498 `last_modified` datetime default NULL,
500 `last_run` datetime default NULL,
501 `report_name` varchar(255) default NULL,
502 `type` varchar(255) default NULL,
505 KEY boridx (`borrowernumber`)
506 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
507 $dbh->do("CREATE TABLE `saved_reports` (
508 `id` int(11) NOT NULL auto_increment,
509 `report_id` int(11) default NULL,
511 `date_run` datetime default NULL,
513 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
514 print "Upgrade to $DBversion done (saved_sql and saved_reports added)\n";
515 SetVersion
($DBversion);
518 $DBversion = "3.00.00.016";
519 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
520 $dbh->do(" CREATE TABLE reports_dictionary (
521 id int(11) NOT NULL auto_increment,
522 name varchar(255) default NULL,
524 date_created datetime default NULL,
525 date_modified datetime default NULL,
527 area int(11) default NULL,
529 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
530 print "Upgrade to $DBversion done (reports_dictionary) added)\n";
531 SetVersion
($DBversion);
534 $DBversion = "3.00.00.017";
535 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
536 $dbh->do("ALTER TABLE action_logs DROP PRIMARY KEY");
537 $dbh->do("ALTER TABLE action_logs ADD KEY timestamp (timestamp,user)");
538 $dbh->do("ALTER TABLE action_logs ADD action_id INT(11) NOT NULL FIRST");
539 $dbh->do("UPDATE action_logs SET action_id = if (\@a, \@a:=\@a+1, \@a:=1)");
540 $dbh->do("ALTER TABLE action_logs MODIFY action_id INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY");
541 print "Upgrade to $DBversion done (added column to action_logs)\n";
542 SetVersion
($DBversion);
545 $DBversion = "3.00.00.018";
546 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
547 $dbh->do("ALTER TABLE `zebraqueue`
548 ADD `done` INT NOT NULL DEFAULT '0',
549 ADD `time` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ;
551 print "Upgrade to $DBversion done (adding timestamp and done columns to zebraque table to improve problem tracking) added)\n";
552 SetVersion
($DBversion);
555 $DBversion = "3.00.00.019";
556 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
557 $dbh->do("ALTER TABLE biblio MODIFY biblionumber INT(11) NOT NULL AUTO_INCREMENT");
558 $dbh->do("ALTER TABLE biblioitems MODIFY biblioitemnumber INT(11) NOT NULL AUTO_INCREMENT");
559 $dbh->do("ALTER TABLE items MODIFY itemnumber INT(11) NOT NULL AUTO_INCREMENT");
560 print "Upgrade to $DBversion done (made bib/item PKs auto_increment)\n";
561 SetVersion
($DBversion);
564 $DBversion = "3.00.00.020";
565 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
566 $dbh->do("ALTER TABLE deleteditems
567 DROP KEY `delitembarcodeidx`,
568 ADD KEY `delitembarcodeidx` (`barcode`)");
569 print "Upgrade to $DBversion done (dropped uniqueness of key on deleteditems.barcode)\n";
570 SetVersion
($DBversion);
573 $DBversion = "3.00.00.021";
574 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
575 $dbh->do("ALTER TABLE items CHANGE homebranch homebranch VARCHAR(10)");
576 $dbh->do("ALTER TABLE deleteditems CHANGE homebranch homebranch VARCHAR(10)");
577 $dbh->do("ALTER TABLE statistics CHANGE branch branch VARCHAR(10)");
578 $dbh->do("ALTER TABLE subscription CHANGE lastbranch lastbranch VARCHAR(10)");
579 print "Upgrade to $DBversion done (extended missed branchcode columns to 10 chars)\n";
580 SetVersion
($DBversion);
583 $DBversion = "3.00.00.022";
584 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
585 $dbh->do("ALTER TABLE items
586 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
587 $dbh->do("ALTER TABLE deleteditems
588 ADD `damaged` tinyint(1) default NULL AFTER notforloan");
589 print "Upgrade to $DBversion done (adding damaged column to items table)\n";
590 SetVersion
($DBversion);
593 $DBversion = "3.00.00.023";
594 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
595 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
596 VALUES ('yuipath','http://yui.yahooapis.com/2.3.1/build','Insert the path to YUI libraries','','free')");
597 print "Upgrade to $DBversion done (adding new system preference for controlling YUI path)\n";
598 SetVersion
($DBversion);
600 $DBversion = "3.00.00.024";
601 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
602 $dbh->do("ALTER TABLE biblioitems CHANGE itemtype itemtype VARCHAR(10)");
603 print "Upgrade to $DBversion done (changing itemtype to (10))\n";
604 SetVersion
($DBversion);
607 $DBversion = "3.00.00.025";
608 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
609 $dbh->do("ALTER TABLE items ADD COLUMN itype VARCHAR(10)");
610 $dbh->do("ALTER TABLE deleteditems ADD COLUMN itype VARCHAR(10) AFTER uri");
611 if(C4
::Context
->preference('item-level_itypes')){
612 $dbh->do('update items,biblioitems set items.itype=biblioitems.itemtype where items.biblionumber=biblioitems.biblionumber and itype is null');
614 print "Upgrade to $DBversion done (reintroduce items.itype - fill from itemtype)\n ";
615 SetVersion
($DBversion);
618 $DBversion = "3.00.00.026";
619 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
620 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
621 VALUES ('HomeOrHoldingBranch','homebranch','homebranch|holdingbranch','With independent branches turned on this decides whether to check the items holdingbranch or homebranch at circulatilon','choice')");
622 print "Upgrade to $DBversion done (adding new system preference for choosing whether homebranch or holdingbranch is checked in circulation)\n";
623 SetVersion
($DBversion);
626 $DBversion = "3.00.00.027";
627 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
628 $dbh->do("CREATE TABLE `marc_matchers` (
629 `matcher_id` int(11) NOT NULL auto_increment,
630 `code` varchar(10) NOT NULL default '',
631 `description` varchar(255) NOT NULL default '',
632 `record_type` varchar(10) NOT NULL default 'biblio',
633 `threshold` int(11) NOT NULL default 0,
634 PRIMARY KEY (`matcher_id`),
636 KEY `record_type` (`record_type`)
637 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
638 $dbh->do("CREATE TABLE `matchpoints` (
639 `matcher_id` int(11) NOT NULL,
640 `matchpoint_id` int(11) NOT NULL auto_increment,
641 `search_index` varchar(30) NOT NULL default '',
642 `score` int(11) NOT NULL default 0,
643 PRIMARY KEY (`matchpoint_id`),
644 CONSTRAINT `matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
645 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE
646 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
647 $dbh->do("CREATE TABLE `matchpoint_components` (
648 `matchpoint_id` int(11) NOT NULL,
649 `matchpoint_component_id` int(11) NOT NULL auto_increment,
650 sequence int(11) NOT NULL default 0,
651 tag varchar(3) NOT NULL default '',
652 subfields varchar(40) NOT NULL default '',
653 offset int(4) NOT NULL default 0,
654 length int(4) NOT NULL default 0,
655 PRIMARY KEY (`matchpoint_component_id`),
656 KEY `by_sequence` (`matchpoint_id`, `sequence`),
657 CONSTRAINT `matchpoint_components_ifbk_1` FOREIGN KEY (`matchpoint_id`)
658 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
659 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
660 $dbh->do("CREATE TABLE `matchpoint_component_norms` (
661 `matchpoint_component_id` int(11) NOT NULL,
662 `sequence` int(11) NOT NULL default 0,
663 `norm_routine` varchar(50) NOT NULL default '',
664 KEY `matchpoint_component_norms` (`matchpoint_component_id`, `sequence`),
665 CONSTRAINT `matchpoint_component_norms_ifbk_1` FOREIGN KEY (`matchpoint_component_id`)
666 REFERENCES `matchpoint_components` (`matchpoint_component_id`) ON DELETE CASCADE ON UPDATE CASCADE
667 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
668 $dbh->do("CREATE TABLE `matcher_matchpoints` (
669 `matcher_id` int(11) NOT NULL,
670 `matchpoint_id` int(11) NOT NULL,
671 CONSTRAINT `matcher_matchpoints_ifbk_1` FOREIGN KEY (`matcher_id`)
672 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
673 CONSTRAINT `matcher_matchpoints_ifbk_2` FOREIGN KEY (`matchpoint_id`)
674 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
675 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
676 $dbh->do("CREATE TABLE `matchchecks` (
677 `matcher_id` int(11) NOT NULL,
678 `matchcheck_id` int(11) NOT NULL auto_increment,
679 `source_matchpoint_id` int(11) NOT NULL,
680 `target_matchpoint_id` int(11) NOT NULL,
681 PRIMARY KEY (`matchcheck_id`),
682 CONSTRAINT `matcher_matchchecks_ifbk_1` FOREIGN KEY (`matcher_id`)
683 REFERENCES `marc_matchers` (`matcher_id`) ON DELETE CASCADE ON UPDATE CASCADE,
684 CONSTRAINT `matcher_matchchecks_ifbk_2` FOREIGN KEY (`source_matchpoint_id`)
685 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE,
686 CONSTRAINT `matcher_matchchecks_ifbk_3` FOREIGN KEY (`target_matchpoint_id`)
687 REFERENCES `matchpoints` (`matchpoint_id`) ON DELETE CASCADE ON UPDATE CASCADE
688 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
689 print "Upgrade to $DBversion done (added C4::Matcher serialization tables)\n ";
690 SetVersion
($DBversion);
693 $DBversion = "3.00.00.028";
694 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
695 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
696 VALUES ('canreservefromotherbranches','1','','With Independent branches on, can a user from one library reserve an item from another library','YesNo')");
697 print "Upgrade to $DBversion done (adding new system preference for changing reserve/holds behaviour with independent branches)\n";
698 SetVersion
($DBversion);
702 $DBversion = "3.00.00.029";
703 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
704 $dbh->do("ALTER TABLE `import_batches` ADD `matcher_id` int(11) NULL AFTER `import_batch_id`");
705 print "Upgrade to $DBversion done (adding matcher_id to import_batches)\n";
706 SetVersion
($DBversion);
709 $DBversion = "3.00.00.030";
710 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
712 CREATE TABLE services_throttle (
713 service_type varchar(10) NOT NULL default '',
714 service_count varchar(45) default NULL,
715 PRIMARY KEY (service_type)
716 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
718 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
719 VALUES ('FRBRizeEditions',0,'','If ON, Koha will query one or more ISBN web services for associated ISBNs and display an Editions tab on the details pages','YesNo')");
720 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
721 VALUES ('XISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the OCLC xISBN web service in the Editions tab on the detail pages. See: http://www.worldcat.org/affiliate/webservices/xisbn/app.jsp','YesNo')");
722 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
723 VALUES ('OCLCAffiliateID','','','Use with FRBRizeEditions and XISBN. You can sign up for an AffiliateID here: http://www.worldcat.org/wcpa/do/AffiliateUserServices?method=initSelfRegister','free')");
724 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
725 VALUES ('XISBNDailyLimit',499,'','The xISBN Web service is free for non-commercial use when usage does not exceed 500 requests per day','free')");
726 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
727 VALUES ('PINESISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use PINES OISBN web service in the Editions tab on the detail pages.','YesNo')");
728 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
729 VALUES ('ThingISBN',0,'','Use with FRBRizeEditions. If ON, Koha will use the ThingISBN web service in the Editions tab on the detail pages.','YesNo')");
730 print "Upgrade to $DBversion done (adding services throttle table and sysprefs for xISBN)\n";
731 SetVersion
($DBversion);
734 $DBversion = "3.00.00.031";
735 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
737 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryStemming',1,'If ON, enables query stemming',NULL,'YesNo')");
738 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryFuzzy',1,'If ON, enables fuzzy option for searches',NULL,'YesNo')");
739 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QueryWeightFields',1,'If ON, enables field weighting',NULL,'YesNo')");
740 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('WebBasedSelfCheck',0,'If ON, enables the web-based self-check system',NULL,'YesNo')");
741 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('numSearchResults',20,'Specify the maximum number of results to display on a page of results',NULL,'free')");
742 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACnumSearchResults',20,'Specify the maximum number of results to display on a page of results',NULL,'free')");
743 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxItemsInSearchResults',20,'Specify the maximum number of items to display for each result on a page of results',NULL,'free')");
744 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortField',NULL,'Specify the default field used for sorting','relevance|popularity|call_number|pubdate|acqdate|title|author','Choice')");
745 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('defaultSortOrder',NULL,'Specify the default sort order','asc|dsc|az|za','Choice')");
746 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortField',NULL,'Specify the default field used for sorting','relevance|popularity|call_number|pubdate|acqdate|title|author','Choice')");
747 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACdefaultSortOrder',NULL,'Specify the default sort order','asc|dsc|za|az','Choice')");
748 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('staffClientBaseURL','','Specify the base URL of the staff client',NULL,'free')");
749 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('minPasswordLength',3,'Specify the minimum length of a patron/staff password',NULL,'free')");
750 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('noItemTypeImages',0,'If ON, disables item-type images',NULL,'YesNo')");
751 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('emailLibrarianWhenHoldIsPlaced',0,'If ON, emails the librarian whenever a hold is placed',NULL,'YesNo')");
752 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('holdCancelLength','','Specify how many days before a hold is canceled',NULL,'free')");
753 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('libraryAddress','','The address to use for printing receipts, overdues, etc. if different than physical address',NULL,'free')");
754 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesMode','test','Choose the fines mode, test or production','test|production','Choice')");
755 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('globalDueDate','','If set, allows a global static due date for all checkouts',NULL,'free')");
756 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('itemBarcodeInputFilter','','If set, allows specification of a item barcode input filter','cuecat','Choice')");
757 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('singleBranchMode',0,'Operate in Single-branch mode, hide branch selection in the OPAC',NULL,'YesNo')");
758 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('URLLinkText','','Text to display as the link anchor in the OPAC',NULL,'free')");
759 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACSubscriptionDisplay','economical','Specify how to display subscription information in the OPAC','economical|off|full','Choice')");
760 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACDisplayExtendedSubInfo',1,'If ON, extended subscription information is displayed in the OPAC',NULL,'YesNo')");
761 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACViewOthersSuggestions',0,'If ON, allows all suggestions to be displayed in the OPAC',NULL,'YesNo')");
762 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACURLOpenInNewWindow',0,'If ON, URLs in the OPAC open in a new window',NULL,'YesNo')");
763 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACUserCSS',0,'Add CSS to be included in the OPAC',NULL,'free')");
765 print "Upgrade to $DBversion done (adding additional system preference)\n";
766 SetVersion
($DBversion);
769 $DBversion = "3.00.00.032";
770 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
771 $dbh->do("UPDATE `marc_subfield_structure` SET `kohafield` = 'items.wthdrawn' WHERE `kohafield` = 'items.withdrawn'");
772 print "Upgrade to $DBversion done (fixed MARC framework references to items.withdrawn)\n";
773 SetVersion
($DBversion);
776 $DBversion = "3.00.00.033";
777 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
778 $dbh->do("INSERT INTO `userflags` VALUES(17,'staffaccess','Modify login / permissions for staff users',0)");
779 print "Upgrade to $DBversion done (Adding permissions flag for staff member access modification. )\n";
780 SetVersion
($DBversion);
783 $DBversion = "3.00.00.034";
784 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
785 $dbh->do("ALTER TABLE `virtualshelves` ADD COLUMN `sortfield` VARCHAR(16) ");
786 print "Upgrade to $DBversion done (Adding sortfield for Virtual Shelves. )\n";
787 SetVersion
($DBversion);
790 $DBversion = "3.00.00.035";
791 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
792 $dbh->do("UPDATE marc_subfield_structure
793 SET authorised_value = 'cn_source'
794 WHERE kohafield IN ('items.cn_source', 'biblioitems.cn_source')
795 AND (authorised_value is NULL OR authorised_value = '')");
796 print "Upgrade to $DBversion done (MARC frameworks: make classification source a drop-down)\n";
797 SetVersion
($DBversion);
800 $DBversion = "3.00.00.036";
801 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
802 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACItemsResultsDisplay','statuses','statuses : show only the status of items in result list. itemdisplay : show full location of items (branch+location+callnumber) as in staff interface','statuses|itemdetails','Choice');");
803 print "Upgrade to $DBversion done (OPACItemsResultsDisplay systempreference added)\n";
804 SetVersion
($DBversion);
807 $DBversion = "3.00.00.037";
808 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
809 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactfirstname` varchar(255)");
810 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactsurname` varchar(255)");
811 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress1` varchar(255)");
812 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress2` varchar(255)");
813 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactaddress3` varchar(255)");
814 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactzipcode` varchar(50)");
815 $dbh->do("ALTER TABLE `borrowers` ADD COLUMN `altcontactphone` varchar(50)");
816 print "Upgrade to $DBversion done (Adding Alternative Contact Person information to borrowers table)\n";
817 SetVersion
($DBversion);
820 $DBversion = "3.00.00.038";
821 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
822 $dbh->do("UPDATE `systempreferences` set explanation='Choose the fines mode, off, test (emails admin report) or production (accrue overdue fines). Requires fines cron script' , options='off|test|production' where variable='finesMode'");
823 $dbh->do("DELETE FROM `systempreferences` WHERE variable='hideBiblioNumber'");
824 print "Upgrade to $DBversion done ('alter finesMode systempreference, remove superfluous syspref.')\n";
825 SetVersion
($DBversion);
828 $DBversion = "3.00.00.039";
829 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
830 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('uppercasesurnames',0,'If ON, surnames are converted to upper case in patron entry form',NULL,'YesNo')");
831 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('CircControl','ItemHomeLibrary','Specify the agency that controls the circulation and fines policy','PickupLibrary|PatronLibrary|ItemHomeLibrary','Choice')");
832 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('finesCalendar','noFinesWhenClosed','Specify whether to use the Calendar in calculating duedates and fines','ignoreCalendar|noFinesWhenClosed','Choice')");
833 # $dbh->do("DELETE FROM `systempreferences` WHERE variable='HomeOrHoldingBranch'"); # Bug #2752
834 print "Upgrade to $DBversion done ('add circ sysprefs CircControl, finesCalendar, and uppercasesurnames, and delete HomeOrHoldingBranch.')\n";
835 SetVersion
($DBversion);
838 $DBversion = "3.00.00.040";
839 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
840 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('previousIssuesDefaultSortOrder','asc','Specify the sort order of Previous Issues on the circulation page','asc|desc','Choice')");
841 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('todaysIssuesDefaultSortOrder','desc','Specify the sort order of Todays Issues on the circulation page','asc|desc','Choice')");
842 print "Upgrade to $DBversion done ('add circ sysprefs todaysIssuesDefaultSortOrder and previousIssuesDefaultSortOrder.')\n";
843 SetVersion
($DBversion);
847 $DBversion = "3.00.00.041";
848 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
849 # Strictly speaking it is not necessary to explicitly change
850 # NULL values to 0, because the ALTER TABLE statement will do that.
851 # However, setting them first avoids a warning.
852 $dbh->do("UPDATE items SET notforloan = 0 WHERE notforloan IS NULL");
853 $dbh->do("UPDATE items SET damaged = 0 WHERE damaged IS NULL");
854 $dbh->do("UPDATE items SET itemlost = 0 WHERE itemlost IS NULL");
855 $dbh->do("UPDATE items SET wthdrawn = 0 WHERE wthdrawn IS NULL");
856 $dbh->do("ALTER TABLE items
857 MODIFY notforloan tinyint(1) NOT NULL default 0,
858 MODIFY damaged tinyint(1) NOT NULL default 0,
859 MODIFY itemlost tinyint(1) NOT NULL default 0,
860 MODIFY wthdrawn tinyint(1) NOT NULL default 0");
861 $dbh->do("UPDATE deleteditems SET notforloan = 0 WHERE notforloan IS NULL");
862 $dbh->do("UPDATE deleteditems SET damaged = 0 WHERE damaged IS NULL");
863 $dbh->do("UPDATE deleteditems SET itemlost = 0 WHERE itemlost IS NULL");
864 $dbh->do("UPDATE deleteditems SET wthdrawn = 0 WHERE wthdrawn IS NULL");
865 $dbh->do("ALTER TABLE deleteditems
866 MODIFY notforloan tinyint(1) NOT NULL default 0,
867 MODIFY damaged tinyint(1) NOT NULL default 0,
868 MODIFY itemlost tinyint(1) NOT NULL default 0,
869 MODIFY wthdrawn tinyint(1) NOT NULL default 0");
870 print "Upgrade to $DBversion done (disallow NULL in several item status columns)\n";
871 SetVersion
($DBversion);
874 $DBversion = "3.00.00.04";
875 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
876 $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
877 print "Upgrade to $DBversion done (disallow NULL in aqbooksellers.name; part of fix for bug 1251)\n";
878 SetVersion
($DBversion);
881 $DBversion = "3.00.00.043";
882 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
883 $dbh->do("ALTER TABLE `currency` ADD `symbol` varchar(5) default NULL AFTER currency, ADD `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER symbol");
884 print "Upgrade to $DBversion done (currency table: add symbol and timestamp columns)\n";
885 SetVersion
($DBversion);
888 $DBversion = "3.00.00.044";
889 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
890 $dbh->do("ALTER TABLE deletedborrowers
891 ADD `altcontactfirstname` varchar(255) default NULL,
892 ADD `altcontactsurname` varchar(255) default NULL,
893 ADD `altcontactaddress1` varchar(255) default NULL,
894 ADD `altcontactaddress2` varchar(255) default NULL,
895 ADD `altcontactaddress3` varchar(255) default NULL,
896 ADD `altcontactzipcode` varchar(50) default NULL,
897 ADD `altcontactphone` varchar(50) default NULL
899 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES
900 ('OPACBaseURL',NULL,'Specify the Base URL of the OPAC, e.g., opac.mylibrary.com, the http:// will be added automatically by Koha.',NULL,'Free'),
901 ('language','en','Set the default language in the staff client.',NULL,'Languages'),
902 ('QueryAutoTruncate',1,'If ON, query truncation is enabled by default',NULL,'YesNo'),
903 ('QueryRemoveStopwords',0,'If ON, stopwords listed in the Administration area will be removed from queries',NULL,'YesNo')
905 print "Upgrade to $DBversion done (syncing deletedborrowers table with borrowers table)\n";
906 SetVersion
($DBversion);
909 #-- http://www.w3.org/International/articles/language-tags/
912 $DBversion = "3.00.00.045";
913 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
915 CREATE TABLE language_subtag_registry (
917 type varchar(25), -- language-script-region-variant-extension-privateuse
918 description varchar(25), -- only one of the possible descriptions for ease of reference, see language_descriptions for the complete list
920 KEY `subtag` (`subtag`)
921 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
923 #-- TODO: add suppress_scripts
924 #-- this maps three letter codes defined in iso639.2 back to their
925 #-- two letter equivilents in rfc4646 (LOC maintains iso639+)
926 $dbh->do("CREATE TABLE language_rfc4646_to_iso639 (
927 rfc4646_subtag varchar(25),
928 iso639_2_code varchar(25),
929 KEY `rfc4646_subtag` (`rfc4646_subtag`)
930 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
932 $dbh->do("CREATE TABLE language_descriptions (
936 description varchar(255),
938 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
940 #-- bi-directional support, keyed by script subcode
941 $dbh->do("CREATE TABLE language_script_bidi (
942 rfc4646_subtag varchar(25), -- script subtag, Arab, Hebr, etc.
943 bidi varchar(3), -- rtl ltr
944 KEY `rfc4646_subtag` (`rfc4646_subtag`)
945 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
947 #-- BIDI Stuff, Arabic and Hebrew
948 $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
949 VALUES( 'Arab', 'rtl')");
950 $dbh->do("INSERT INTO language_script_bidi(rfc4646_subtag,bidi)
951 VALUES( 'Hebr', 'rtl')");
953 #-- TODO: need to map language subtags to script subtags for detection
954 #-- of bidi when script is not specified (like ar, he)
955 $dbh->do("CREATE TABLE language_script_mapping (
956 language_subtag varchar(25),
957 script_subtag varchar(25),
958 KEY `language_subtag` (`language_subtag`)
959 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
961 #-- Default mappings between script and language subcodes
962 $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
963 VALUES( 'ar', 'Arab')");
964 $dbh->do("INSERT INTO language_script_mapping(language_subtag,script_subtag)
965 VALUES( 'he', 'Hebr')");
967 print "Upgrade to $DBversion done (adding language subtag registry and basic BiDi support NOTE: You should import the subtag registry SQL)\n";
968 SetVersion
($DBversion);
971 $DBversion = "3.00.00.046";
972 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
973 $dbh->do("ALTER TABLE `subscription` CHANGE `numberlength` `numberlength` int(11) default '0' ,
974 CHANGE `weeklength` `weeklength` int(11) default '0'");
975 $dbh->do("CREATE TABLE `serialitems` (`serialid` int(11) NOT NULL, `itemnumber` int(11) NOT NULL, UNIQUE KEY `serialididx` (`serialid`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
976 $dbh->do("INSERT INTO `serialitems` SELECT `serialid`,`itemnumber` from serial where NOT ISNULL(itemnumber) && itemnumber <> '' && itemnumber NOT LIKE '%,%'");
977 print "Upgrade to $DBversion done (Add serialitems table to link serial issues to items. )\n";
978 SetVersion
($DBversion);
981 $DBversion = "3.00.00.047";
982 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
983 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacRenewalAllowed',0,'If ON, users can renew their issues directly from their OPAC account',NULL,'YesNo');");
984 print "Upgrade to $DBversion done ( Added OpacRenewalAllowed syspref )\n";
985 SetVersion
($DBversion);
988 $DBversion = "3.00.00.048";
989 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
990 $dbh->do("ALTER TABLE `items` ADD `more_subfields_xml` longtext default NULL AFTER `itype`");
991 print "Upgrade to $DBversion done (added items.more_subfields_xml)\n";
992 SetVersion
($DBversion);
995 $DBversion = "3.00.00.049";
996 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
997 $dbh->do("ALTER TABLE `z3950servers` ADD `encoding` text default NULL AFTER type ");
998 print "Upgrade to $DBversion done ( Added encoding field to z3950servers table )\n";
999 SetVersion
($DBversion);
1002 $DBversion = "3.00.00.050";
1003 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1004 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacHighlightedWords','0','If Set, query matched terms are highlighted in OPAC',NULL,'YesNo');");
1005 print "Upgrade to $DBversion done ( Added OpacHighlightedWords syspref )\n";
1006 SetVersion
($DBversion);
1009 $DBversion = "3.00.00.051";
1010 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1011 $dbh->do("UPDATE systempreferences SET explanation = 'Define the current theme for the OPAC interface.' WHERE variable = 'opacthemes';");
1012 print "Upgrade to $DBversion done ( Corrected opacthemes explanation. )\n";
1013 SetVersion
($DBversion);
1016 $DBversion = "3.00.00.052";
1017 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1018 $dbh->do("ALTER TABLE `deleteditems` ADD `more_subfields_xml` LONGTEXT DEFAULT NULL AFTER `itype`");
1019 print "Upgrade to $DBversion done ( Adding missing column to deleteditems table. )\n";
1020 SetVersion
($DBversion);
1023 $DBversion = "3.00.00.053";
1024 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1025 $dbh->do("CREATE TABLE `printers_profile` (
1026 `prof_id` int(4) NOT NULL auto_increment,
1027 `printername` varchar(40) NOT NULL,
1028 `tmpl_id` int(4) NOT NULL,
1029 `paper_bin` varchar(20) NOT NULL,
1030 `offset_horz` float default NULL,
1031 `offset_vert` float default NULL,
1032 `creep_horz` float default NULL,
1033 `creep_vert` float default NULL,
1034 `unit` char(20) NOT NULL default 'POINT',
1035 PRIMARY KEY (`prof_id`),
1036 UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1037 CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1038 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1039 $dbh->do("CREATE TABLE `labels_profile` (
1040 `tmpl_id` int(4) NOT NULL,
1041 `prof_id` int(4) NOT NULL,
1042 UNIQUE KEY `tmpl_id` (`tmpl_id`),
1043 UNIQUE KEY `prof_id` (`prof_id`)
1044 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1045 print "Upgrade to $DBversion done ( Printer Profile tables added )\n";
1046 SetVersion
($DBversion);
1049 $DBversion = "3.00.00.054";
1050 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1051 $dbh->do("UPDATE systempreferences SET options = 'incremental|annual|hbyymmincr|OFF', explanation = 'Used to autogenerate a barcode: incremental will be of the form 1, 2, 3; annual of the form 2007-0001, 2007-0002; hbyymmincr of the form HB08010001 where HB = Home Branch' WHERE variable = 'autoBarcode';");
1052 print "Upgrade to $DBversion done ( Added another barcode autogeneration sequence to barcode.pl. )\n";
1053 SetVersion
($DBversion);
1056 $DBversion = "3.00.00.055";
1057 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1058 $dbh->do("ALTER TABLE `zebraqueue` ADD KEY `zebraqueue_lookup` (`server`, `biblio_auth_number`, `operation`, `done`)");
1059 print "Upgrade to $DBversion done ( Added index on zebraqueue. )\n";
1060 SetVersion
($DBversion);
1062 $DBversion = "3.00.00.056";
1063 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1064 if (C4
::Context
->preference("marcflavour") eq 'UNIMARC') {
1065 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('995', 'v', 'Note sur le N° de périodique','Note sur le N° de périodique', 0, 0, 'items.enumchron', 10, '', '', '', 0, 0, '', '', '', NULL) ");
1067 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('952', 'h', 'Serial Enumeration / chronology','Serial Enumeration / chronology', 0, 0, 'items.enumchron', 10, '', '', '', 0, 0, '', '', '', NULL) ");
1069 $dbh->do("ALTER TABLE `items` ADD `enumchron` VARCHAR(80) DEFAULT NULL;");
1070 print "Upgrade to $DBversion done ( Added item.enumchron column, and framework map to 952h )\n";
1071 SetVersion
($DBversion);
1074 $DBversion = "3.00.00.057";
1075 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1076 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH','0','if ON, OAI-PMH server is enabled',NULL,'YesNo');");
1077 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:archiveID','KOHA-OAI-TEST','OAI-PMH archive identification',NULL,'Free');");
1078 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:MaxCount','50','OAI-PMH maximum number of records by answer to ListRecords and ListIdentifiers queries',NULL,'Integer');");
1079 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:Set','SET,Experimental set\r\nSET:SUBSET,Experimental subset','OAI-PMH exported set, the set name is followed by a comma and a short description, one set by line',NULL,'Free');");
1080 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OAI-PMH:Subset',\"itemtype='BOOK'\",'Restrict answer to matching raws of the biblioitems table (experimental)',NULL,'Free');");
1081 SetVersion
($DBversion);
1084 $DBversion = "3.00.00.058";
1085 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1086 $dbh->do("ALTER TABLE `opac_news`
1087 CHANGE `lang` `lang` VARCHAR( 25 )
1089 COLLATE utf8_general_ci
1090 NOT NULL default ''");
1091 print "Upgrade to $DBversion done ( lang field in opac_news made longer )\n";
1092 SetVersion
($DBversion);
1095 $DBversion = "3.00.00.059";
1096 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1098 $dbh->do("CREATE TABLE IF NOT EXISTS `labels_templates` (
1099 `tmpl_id` int(4) NOT NULL auto_increment,
1100 `tmpl_code` char(100) default '',
1101 `tmpl_desc` char(100) default '',
1102 `page_width` float default '0',
1103 `page_height` float default '0',
1104 `label_width` float default '0',
1105 `label_height` float default '0',
1106 `topmargin` float default '0',
1107 `leftmargin` float default '0',
1108 `cols` int(2) default '0',
1109 `rows` int(2) default '0',
1110 `colgap` float default '0',
1111 `rowgap` float default '0',
1112 `active` int(1) default NULL,
1113 `units` char(20) default 'PX',
1114 `fontsize` int(4) NOT NULL default '3',
1115 PRIMARY KEY (`tmpl_id`)
1116 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1117 $dbh->do("CREATE TABLE IF NOT EXISTS `printers_profile` (
1118 `prof_id` int(4) NOT NULL auto_increment,
1119 `printername` varchar(40) NOT NULL,
1120 `tmpl_id` int(4) NOT NULL,
1121 `paper_bin` varchar(20) NOT NULL,
1122 `offset_horz` float default NULL,
1123 `offset_vert` float default NULL,
1124 `creep_horz` float default NULL,
1125 `creep_vert` float default NULL,
1126 `unit` char(20) NOT NULL default 'POINT',
1127 PRIMARY KEY (`prof_id`),
1128 UNIQUE KEY `printername` (`printername`,`tmpl_id`,`paper_bin`),
1129 CONSTRAINT `printers_profile_pnfk_1` FOREIGN KEY (`tmpl_id`) REFERENCES `labels_templates` (`tmpl_id`) ON DELETE CASCADE ON UPDATE CASCADE
1130 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ");
1131 print "Upgrade to $DBversion done ( Added labels_templates table if it did not exist. )\n";
1132 SetVersion
($DBversion);
1135 $DBversion = "3.00.00.060";
1136 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1137 $dbh->do("CREATE TABLE IF NOT EXISTS `patronimage` (
1138 `cardnumber` varchar(16) NOT NULL,
1139 `mimetype` varchar(15) NOT NULL,
1140 `imagefile` mediumblob NOT NULL,
1141 PRIMARY KEY (`cardnumber`),
1142 CONSTRAINT `patronimage_fk1` FOREIGN KEY (`cardnumber`) REFERENCES `borrowers` (`cardnumber`) ON DELETE CASCADE ON UPDATE CASCADE
1143 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1144 print "Upgrade to $DBversion done ( Added patronimage table. )\n";
1145 SetVersion
($DBversion);
1148 $DBversion = "3.00.00.061";
1149 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1150 $dbh->do("ALTER TABLE labels_templates ADD COLUMN font char(10) NOT NULL DEFAULT 'TR';");
1151 print "Upgrade to $DBversion done ( Added font column to labels_templates )\n";
1152 SetVersion
($DBversion);
1155 $DBversion = "3.00.00.062";
1156 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1157 $dbh->do("CREATE TABLE `old_issues` (
1158 `borrowernumber` int(11) default NULL,
1159 `itemnumber` int(11) default NULL,
1160 `date_due` date default NULL,
1161 `branchcode` varchar(10) default NULL,
1162 `issuingbranch` varchar(18) default NULL,
1163 `returndate` date default NULL,
1164 `lastreneweddate` date default NULL,
1165 `return` varchar(4) default NULL,
1166 `renewals` tinyint(4) default NULL,
1167 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1168 `issuedate` date default NULL,
1169 KEY `old_issuesborridx` (`borrowernumber`),
1170 KEY `old_issuesitemidx` (`itemnumber`),
1171 KEY `old_bordate` (`borrowernumber`,`timestamp`),
1172 CONSTRAINT `old_issues_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1173 ON DELETE SET NULL ON UPDATE SET NULL,
1174 CONSTRAINT `old_issues_ibfk_2` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1175 ON DELETE SET NULL ON UPDATE SET NULL
1176 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1177 $dbh->do("CREATE TABLE `old_reserves` (
1178 `borrowernumber` int(11) default NULL,
1179 `reservedate` date default NULL,
1180 `biblionumber` int(11) default NULL,
1181 `constrainttype` varchar(1) default NULL,
1182 `branchcode` varchar(10) default NULL,
1183 `notificationdate` date default NULL,
1184 `reminderdate` date default NULL,
1185 `cancellationdate` date default NULL,
1186 `reservenotes` mediumtext,
1187 `priority` smallint(6) default NULL,
1188 `found` varchar(1) default NULL,
1189 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1190 `itemnumber` int(11) default NULL,
1191 `waitingdate` date default NULL,
1192 KEY `old_reserves_borrowernumber` (`borrowernumber`),
1193 KEY `old_reserves_biblionumber` (`biblionumber`),
1194 KEY `old_reserves_itemnumber` (`itemnumber`),
1195 KEY `old_reserves_branchcode` (`branchcode`),
1196 CONSTRAINT `old_reserves_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1197 ON DELETE SET NULL ON UPDATE SET NULL,
1198 CONSTRAINT `old_reserves_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`)
1199 ON DELETE SET NULL ON UPDATE SET NULL,
1200 CONSTRAINT `old_reserves_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`)
1201 ON DELETE SET NULL ON UPDATE SET NULL
1202 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1204 # move closed transactions to old_* tables
1205 $dbh->do("INSERT INTO old_issues SELECT * FROM issues WHERE returndate IS NOT NULL");
1206 $dbh->do("DELETE FROM issues WHERE returndate IS NOT NULL");
1207 $dbh->do("INSERT INTO old_reserves SELECT * FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1208 $dbh->do("DELETE FROM reserves WHERE cancellationdate IS NOT NULL OR found = 'F'");
1210 print "Upgrade to $DBversion done ( Added old_issues and old_reserves tables )\n";
1211 SetVersion
($DBversion);
1214 $DBversion = "3.00.00.063";
1215 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1216 $dbh->do("ALTER TABLE deleteditems
1217 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT DEFAULT NULL,
1218 ADD COLUMN enumchron VARCHAR(80) DEFAULT NULL AFTER more_subfields_xml,
1219 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1220 $dbh->do("ALTER TABLE items
1221 CHANGE COLUMN booksellerid booksellerid MEDIUMTEXT,
1222 ADD COLUMN copynumber SMALLINT(6) DEFAULT NULL AFTER enumchron;");
1223 print "Upgrade to $DBversion done ( Changed items.booksellerid and deleteditems.booksellerid to MEDIUMTEXT and added missing items.copynumber and deleteditems.copynumber to fix Bug 1927)\n";
1224 SetVersion
($DBversion);
1227 $DBversion = "3.00.00.064";
1228 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1229 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AmazonLocale','US','Use to set the Locale of your Amazon.com Web Services','US|CA|DE|FR|JP|UK','Choice');");
1230 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSAccessKeyID','','See: http://aws.amazon.com','','free');");
1231 $dbh->do("DELETE FROM `systempreferences` WHERE variable='AmazonDevKey';");
1232 $dbh->do("DELETE FROM `systempreferences` WHERE variable='XISBNAmazonSimilarItems';");
1233 $dbh->do("DELETE FROM `systempreferences` WHERE variable='OPACXISBNAmazonSimilarItems';");
1234 print "Upgrade to $DBversion done (IMPORTANT: Upgrading to Amazon.com Associates Web Service 4.0 ) \n";
1235 SetVersion
($DBversion);
1238 $DBversion = "3.00.00.065";
1239 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1240 $dbh->do("CREATE TABLE `patroncards` (
1241 `cardid` int(11) NOT NULL auto_increment,
1242 `batch_id` varchar(10) NOT NULL default '1',
1243 `borrowernumber` int(11) NOT NULL,
1244 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1245 PRIMARY KEY (`cardid`),
1246 KEY `patroncards_ibfk_1` (`borrowernumber`),
1247 CONSTRAINT `patroncards_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1248 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
1249 print "Upgrade to $DBversion done (Adding patroncards table for patroncards generation feature. ) \n";
1250 SetVersion
($DBversion);
1253 $DBversion = "3.00.00.066";
1254 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1255 $dbh->do("ALTER TABLE `virtualshelfcontents` MODIFY `dateadded` timestamp NOT NULL
1256 DEFAULT CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP;
1258 print "Upgrade to $DBversion done (fix for bug 1873: virtualshelfcontents dateadded column empty. ) \n";
1259 SetVersion
($DBversion);
1262 $DBversion = "3.00.00.067";
1263 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1264 $dbh->do("UPDATE systempreferences SET explanation = 'Enable patron images for the Staff Client', type = 'YesNo' WHERE variable = 'patronimages'");
1265 print "Upgrade to $DBversion done (Updating patronimages syspref to reflect current kohastructure.sql. ) \n";
1266 SetVersion
($DBversion);
1269 $DBversion = "3.00.00.068";
1270 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1271 $dbh->do("CREATE TABLE `permissions` (
1272 `module_bit` int(11) NOT NULL DEFAULT 0,
1273 `code` varchar(30) DEFAULT NULL,
1274 `description` varchar(255) DEFAULT NULL,
1275 PRIMARY KEY (`module_bit`, `code`),
1276 CONSTRAINT `permissions_ibfk_1` FOREIGN KEY (`module_bit`) REFERENCES `userflags` (`bit`)
1277 ON DELETE CASCADE ON UPDATE CASCADE
1278 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1279 $dbh->do("CREATE TABLE `user_permissions` (
1280 `borrowernumber` int(11) NOT NULL DEFAULT 0,
1281 `module_bit` int(11) NOT NULL DEFAULT 0,
1282 `code` varchar(30) DEFAULT NULL,
1283 CONSTRAINT `user_permissions_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1284 ON DELETE CASCADE ON UPDATE CASCADE,
1285 CONSTRAINT `user_permissions_ibfk_2` FOREIGN KEY (`module_bit`, `code`)
1286 REFERENCES `permissions` (`module_bit`, `code`)
1287 ON DELETE CASCADE ON UPDATE CASCADE
1288 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1290 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
1291 (13, 'edit_news', 'Write news for the OPAC and staff interfaces'),
1292 (13, 'label_creator', 'Create printable labels and barcodes from catalog and patron data'),
1293 (13, 'edit_calendar', 'Define days when the library is closed'),
1294 (13, 'moderate_comments', 'Moderate patron comments'),
1295 (13, 'edit_notices', 'Define notices'),
1296 (13, 'edit_notice_status_triggers', 'Set notice/status triggers for overdue items'),
1297 (13, 'view_system_logs', 'Browse the system logs'),
1298 (13, 'inventory', 'Perform inventory (stocktaking) of your catalogue'),
1299 (13, 'stage_marc_import', 'Stage MARC records into the reservoir'),
1300 (13, 'manage_staged_marc', 'Managed staged MARC records, including completing and reversing imports'),
1301 (13, 'export_catalog', 'Export bibliographic and holdings data'),
1302 (13, 'import_patrons', 'Import patron data'),
1303 (13, 'delete_anonymize_patrons', 'Delete old borrowers and anonymize circulation history (deletes borrower reading history)'),
1304 (13, 'batch_upload_patron_images', 'Upload patron images in batch or one at a time'),
1305 (13, 'schedule_tasks', 'Schedule tasks to run')");
1307 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('GranularPermissions','0','Use detailed staff user permissions',NULL,'YesNo')");
1309 print "Upgrade to $DBversion done (adding permissions and user_permissions tables and GranularPermissions syspref) \n";
1310 SetVersion
($DBversion);
1312 $DBversion = "3.00.00.069";
1313 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1314 $dbh->do("ALTER TABLE labels_conf CHANGE COLUMN class classification int(1) DEFAULT NULL;");
1315 print "Upgrade to $DBversion done ( Correcting columname in labels_conf )\n";
1316 SetVersion
($DBversion);
1319 $DBversion = "3.00.00.070";
1320 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1321 $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='yuipath'");
1323 my ($value) = $sth->fetchrow;
1324 $value =~ s/2.3.1/2.5.1/;
1325 $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='yuipath';");
1326 print "Update yuipath syspref to 2.5.1 if necessary\n";
1327 SetVersion
($DBversion);
1330 $DBversion = "3.00.00.071";
1331 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1332 $dbh->do(" ALTER TABLE `subscription` ADD `serialsadditems` TINYINT( 1 ) NOT NULL DEFAULT '0';");
1333 # fill the new field with the previous systempreference value, then drop the syspref
1334 my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='serialsadditems'");
1336 my ($serialsadditems) = $sth->fetchrow();
1337 $dbh->do("UPDATE subscription SET serialsadditems=$serialsadditems");
1338 $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1339 print "Upgrade to $DBversion done ( moving serialsadditems from syspref to subscription )\n";
1340 SetVersion
($DBversion);
1343 $DBversion = "3.00.00.072";
1344 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1345 $dbh->do("ALTER TABLE labels_conf ADD COLUMN formatstring mediumtext DEFAULT NULL AFTER printingtype");
1346 print "Upgrade to $DBversion done ( Adding format string to labels generator. )\n";
1347 SetVersion
($DBversion);
1350 $DBversion = "3.00.00.073";
1351 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1352 $dbh->do("DROP TABLE IF EXISTS `tags_all`;");
1354 CREATE TABLE
`tags_all` (
1355 `tag_id` int(11) NOT NULL auto_increment
,
1356 `borrowernumber` int(11) NOT NULL
,
1357 `biblionumber` int(11) NOT NULL
,
1358 `term` varchar
(255) NOT NULL
,
1359 `language` int(4) default NULL
,
1360 `date_created` datetime NOT NULL
,
1361 PRIMARY KEY
(`tag_id`),
1362 KEY
`tags_borrowers_fk_1` (`borrowernumber`),
1363 KEY
`tags_biblionumber_fk_1` (`biblionumber`),
1364 CONSTRAINT
`tags_borrowers_fk_1` FOREIGN KEY
(`borrowernumber`)
1365 REFERENCES
`borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
,
1366 CONSTRAINT
`tags_biblionumber_fk_1` FOREIGN KEY
(`biblionumber`)
1367 REFERENCES
`biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1368 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
;
1370 $dbh->do("DROP TABLE IF EXISTS `tags_approval`;");
1372 CREATE TABLE
`tags_approval` (
1373 `term` varchar
(255) NOT NULL
,
1374 `approved` int(1) NOT NULL
default '0',
1375 `date_approved` datetime
default NULL
,
1376 `approved_by` int(11) default NULL
,
1377 `weight_total` int(9) NOT NULL
default '1',
1378 PRIMARY KEY
(`term`),
1379 KEY
`tags_approval_borrowers_fk_1` (`approved_by`),
1380 CONSTRAINT
`tags_approval_borrowers_fk_1` FOREIGN KEY
(`approved_by`)
1381 REFERENCES
`borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
1382 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
;
1384 $dbh->do("DROP TABLE IF EXISTS `tags_index`;");
1386 CREATE TABLE
`tags_index` (
1387 `term` varchar
(255) NOT NULL
,
1388 `biblionumber` int(11) NOT NULL
,
1389 `weight` int(9) NOT NULL
default '1',
1390 PRIMARY KEY
(`term`,`biblionumber`),
1391 KEY
`tags_index_biblionumber_fk_1` (`biblionumber`),
1392 CONSTRAINT
`tags_index_term_fk_1` FOREIGN KEY
(`term`)
1393 REFERENCES
`tags_approval` (`term`) ON DELETE CASCADE ON UPDATE CASCADE
,
1394 CONSTRAINT
`tags_index_biblionumber_fk_1` FOREIGN KEY
(`biblionumber`)
1395 REFERENCES
`biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
1396 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
;
1399 INSERT INTO
`systempreferences` VALUES
1400 ('BakerTaylorBookstoreURL','','','URL template for \"My Libary Bookstore\" links, to which the \"key\" value is appended, and \"https://\" is prepended. It should include your hostname and \"Parent Number\". Make this variable empty to turn MLB links off. Example: ocls.mylibrarybookstore.com/MLB/actions/searchHandler.do?nextPage=bookDetails&parentNum=10923&key=',''),
1401 ('BakerTaylorEnabled','0','','Enable or disable all Baker & Taylor features.','YesNo'),
1402 ('BakerTaylorPassword','','','Baker & Taylor Password for Content Cafe (external content)','Textarea'),
1403 ('BakerTaylorUsername','','','Baker & Taylor Username for Content Cafe (external content)','Textarea'),
1404 ('TagsEnabled','1','','Enables or disables all tagging features. This is the main switch for tags.','YesNo'),
1405 ('TagsExternalDictionary',NULL
,'','Path on server to local ispell executable, used to set $Lingua::Ispell::path This dictionary is used as a \"whitelist\" of pre-allowed tags.',''),
1406 ('TagsInputOnDetail','1','','Allow users to input tags from the detail page.', 'YesNo'),
1407 ('TagsInputOnList', '0','','Allow users to input tags from the search results list.', 'YesNo'),
1408 ('TagsModeration', NULL
,'','Require tags from patrons to be approved before becoming visible.','YesNo'),
1409 ('TagsShowOnDetail','10','','Number of tags to display on detail page. 0 is off.', 'Integer'),
1410 ('TagsShowOnList', '6','','Number of tags to display on search results list. 0 is off.','Integer')
1412 print "Upgrade to $DBversion done (Baker/Taylor,Tags: sysprefs and tables (tags_all, tags_index, tags_approval)) \n";
1413 SetVersion
($DBversion);
1416 $DBversion = "3.00.00.074";
1417 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1418 $dbh->do( q
(update itemtypes set imageurl
= concat
( 'npl/', imageurl
)
1419 where imageurl
not like
'http%'
1420 and imageurl is
not NULL
1421 and imageurl
!= '') );
1422 print "Upgrade to $DBversion done (updating imagetype.imageurls to reflect new icon locations.)\n";
1423 SetVersion
($DBversion);
1426 $DBversion = "3.00.00.075";
1427 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1428 $dbh->do( q
(alter table authorised_values add imageurl varchar
(200) default NULL
) );
1429 print "Upgrade to $DBversion done (adding imageurl field to authorised_values table)\n";
1430 SetVersion
($DBversion);
1433 $DBversion = "3.00.00.076";
1434 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1435 $dbh->do("ALTER TABLE import_batches
1436 ADD COLUMN nomatch_action enum('create_new', 'ignore') NOT NULL default 'create_new' AFTER overlay_action");
1437 $dbh->do("ALTER TABLE import_batches
1438 ADD COLUMN item_action enum('always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore')
1439 NOT NULL default 'always_add' AFTER nomatch_action");
1440 $dbh->do("ALTER TABLE import_batches
1441 MODIFY overlay_action enum('replace', 'create_new', 'use_template', 'ignore')
1442 NOT NULL default 'create_new'");
1443 $dbh->do("ALTER TABLE import_records
1444 MODIFY status enum('error', 'staged', 'imported', 'reverted', 'items_reverted',
1445 'ignored') NOT NULL default 'staged'");
1446 $dbh->do("ALTER TABLE import_items
1447 MODIFY status enum('error', 'staged', 'imported', 'reverted', 'ignored') NOT NULL default 'staged'");
1449 print "Upgrade to $DBversion done (changes to import_batches and import_records)\n";
1450 SetVersion
($DBversion);
1453 $DBversion = "3.00.00.077";
1454 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1455 # drop these tables only if they exist and none of them are empty
1456 # these tables are not defined in the packaged 2.2.9, but since it is believed
1457 # that at least one library may be using them in a post-2.2.9 but pre-3.0 Koha,
1458 # some care is taken.
1459 my ($print_error) = $dbh->{PrintError
};
1460 $dbh->{PrintError
} = 0;
1461 my ($raise_error) = $dbh->{RaiseError
};
1462 $dbh->{RaiseError
} = 1;
1466 eval { $count = $dbh->do("SELECT 1 FROM categorytable"); };
1470 eval { $count = $dbh->do("SELECT 1 FROM mediatypetable"); };
1474 eval { $count = $dbh->do("SELECT 1 FROM subcategorytable"); };
1480 $dbh->do("DROP TABLE IF EXISTS `categorytable`");
1481 $dbh->do("DROP TABLE IF EXISTS `mediatypetable`");
1482 $dbh->do("DROP TABLE IF EXISTS `subcategorytable`");
1485 $dbh->{PrintError
} = $print_error;
1486 $dbh->{RaiseError
} = $raise_error;
1487 print "Upgrade to $DBversion done (drop categorytable, subcategorytable, and mediatypetable)\n";
1488 SetVersion
($DBversion);
1491 $DBversion = "3.00.00.078";
1492 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1493 my ($print_error) = $dbh->{PrintError
};
1494 $dbh->{PrintError
} = 0;
1496 unless ($dbh->do("SELECT 1 FROM browser")) {
1497 $dbh->{PrintError
} = $print_error;
1498 $dbh->do("CREATE TABLE `browser` (
1499 `level` int(11) NOT NULL,
1500 `classification` varchar(20) NOT NULL,
1501 `description` varchar(255) NOT NULL,
1502 `number` bigint(20) NOT NULL,
1503 `endnode` tinyint(4) NOT NULL
1504 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1506 $dbh->{PrintError
} = $print_error;
1507 print "Upgrade to $DBversion done (add browser table if not already present)\n";
1508 SetVersion
($DBversion);
1511 $DBversion = "3.00.00.079";
1512 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1513 my ($print_error) = $dbh->{PrintError
};
1514 $dbh->{PrintError
} = 0;
1516 $dbh->do("INSERT INTO `systempreferences` (variable, value,options,type, explanation)VALUES
1517 ('AddPatronLists','categorycode','categorycode|category_type','Choice','Allow user to choose what list to pick up from when adding patrons')");
1518 print "Upgrade to $DBversion done (add browser table if not already present)\n";
1519 SetVersion
($DBversion);
1522 $DBversion = "3.00.00.080";
1523 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1524 $dbh->do("ALTER TABLE subscription CHANGE monthlength monthlength int(11) default '0'");
1525 $dbh->do("ALTER TABLE deleteditems MODIFY marc LONGBLOB AFTER copynumber");
1526 $dbh->do("ALTER TABLE aqbooksellers CHANGE name name mediumtext NOT NULL");
1527 print "Upgrade to $DBversion done (catch up on DB schema changes since alpha and beta)\n";
1528 SetVersion
($DBversion);
1531 $DBversion = "3.00.00.081";
1532 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1533 $dbh->do("CREATE TABLE `borrower_attribute_types` (
1534 `code` varchar(10) NOT NULL,
1535 `description` varchar(255) NOT NULL,
1536 `repeatable` tinyint(1) NOT NULL default 0,
1537 `unique_id` tinyint(1) NOT NULL default 0,
1538 `opac_display` tinyint(1) NOT NULL default 0,
1539 `password_allowed` tinyint(1) NOT NULL default 0,
1540 `staff_searchable` tinyint(1) NOT NULL default 0,
1541 `authorised_value_category` varchar(10) default NULL,
1542 PRIMARY KEY (`code`)
1543 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1544 $dbh->do("CREATE TABLE `borrower_attributes` (
1545 `borrowernumber` int(11) NOT NULL,
1546 `code` varchar(10) NOT NULL,
1547 `attribute` varchar(30) default NULL,
1548 `password` varchar(30) default NULL,
1549 KEY `borrowernumber` (`borrowernumber`),
1550 KEY `code_attribute` (`code`, `attribute`),
1551 CONSTRAINT `borrower_attributes_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
1552 ON DELETE CASCADE ON UPDATE CASCADE,
1553 CONSTRAINT `borrower_attributes_ibfk_2` FOREIGN KEY (`code`) REFERENCES `borrower_attribute_types` (`code`)
1554 ON DELETE CASCADE ON UPDATE CASCADE
1555 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1556 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ExtendedPatronAttributes','0','Use extended patron IDs and attributes',NULL,'YesNo')");
1557 print "Upgrade to $DBversion done (added borrower_attributes and borrower_attribute_types)\n";
1558 SetVersion
($DBversion);
1561 $DBversion = "3.00.00.082";
1562 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1563 $dbh->do( q
(alter table accountlines add column lastincrement decimal
(28,6) default NULL
) );
1564 print "Upgrade to $DBversion done (adding lastincrement column to accountlines table)\n";
1565 SetVersion
($DBversion);
1568 $DBversion = "3.00.00.083";
1569 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1570 $dbh->do( qq(UPDATE systempreferences SET value
='local' where variable
='yuipath' and value like
"%/intranet-tmpl/prog/%"));
1571 print "Upgrade to $DBversion done (Changing yuipath behaviour in managing a local value)\n";
1572 SetVersion
($DBversion);
1574 $DBversion = "3.00.00.084";
1575 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1576 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RenewSerialAddsSuggestion','0','if ON, adds a new suggestion at serial subscription renewal',NULL,'YesNo')");
1577 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('GoogleJackets','0','if ON, displays jacket covers from Google Books API',NULL,'YesNo')");
1578 print "Upgrade to $DBversion done (add new sysprefs)\n";
1579 SetVersion
($DBversion);
1582 $DBversion = "3.00.00.085";
1583 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1584 if (C4
::Context
->preference("marcflavour") eq 'MARC21') {
1585 $dbh->do("UPDATE marc_subfield_structure SET tab = 0 WHERE tab = 9 AND tagfield = '037'");
1586 $dbh->do("UPDATE marc_subfield_structure SET tab = 1 WHERE tab = 6 AND tagfield in ('100', '110', '111', '130')");
1587 $dbh->do("UPDATE marc_subfield_structure SET tab = 2 WHERE tab = 6 AND tagfield in ('240', '243')");
1588 $dbh->do("UPDATE marc_subfield_structure SET tab = 4 WHERE tab = 6 AND tagfield in ('400', '410', '411', '440')");
1589 $dbh->do("UPDATE marc_subfield_structure SET tab = 5 WHERE tab = 9 AND tagfield = '584'");
1590 $dbh->do("UPDATE marc_subfield_structure SET tab = 7 WHERE tab = -6 AND tagfield = '760'");
1592 print "Upgrade to $DBversion done (move editing tab of various MARC21 subfields)\n";
1593 SetVersion
($DBversion);
1596 $DBversion = "3.00.00.086";
1597 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1599 "CREATE TABLE `tmp_holdsqueue` (
1600 `biblionumber` int(11) default NULL,
1601 `itemnumber` int(11) default NULL,
1602 `barcode` varchar(20) default NULL,
1603 `surname` mediumtext NOT NULL,
1606 `borrowernumber` int(11) NOT NULL,
1607 `cardnumber` varchar(16) default NULL,
1608 `reservedate` date default NULL,
1610 `itemcallnumber` varchar(30) default NULL,
1611 `holdingbranch` varchar(10) default NULL,
1612 `pickbranch` varchar(10) default NULL,
1614 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
1616 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RandomizeHoldsQueueWeight','0','if ON, the holds queue in circulation will be randomized, either based on all location codes, or by the location codes specified in StaticHoldsQueueWeight',NULL,'YesNo')");
1617 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaticHoldsQueueWeight','0','Specify a list of library location codes separated by commas -- the list of codes will be traversed and weighted with first values given higher weight for holds fulfillment -- alternatively, if RandomizeHoldsQueueWeight is set, the list will be randomly selective',NULL,'TextArea')");
1619 print "Upgrade to $DBversion done (Table structure for table `tmp_holdsqueue`)\n";
1620 SetVersion
($DBversion);
1623 $DBversion = "3.00.00.087";
1624 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1625 $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailOpacUser','0','','Sends notification emails containing new account details to patrons - when account is created.','YesNo')" );
1626 $dbh->do("INSERT INTO `systempreferences` VALUES ('AutoEmailPrimaryAddress','OFF','email|emailpro|B_email|cardnumber|OFF','Defines the default email address where Account Details emails are sent.','Choice')");
1627 print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1628 SetVersion
($DBversion);
1631 $DBversion = "3.00.00.088";
1632 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1633 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACShelfBrowser','1','','Enable/disable Shelf Browser on item details page','YesNo')");
1634 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('OPACItemHolds','1','Allow OPAC users to place hold on specific items. If OFF, users can only request next available copy.','','YesNo')");
1635 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('XSLTDetailsDisplay','0','','Enable XSL stylesheet control over details page display on OPAC WARNING: MARC21 Only','YesNo')");
1636 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('XSLTResultsDisplay','0','','Enable XSL stylesheet control over results page display on OPAC WARNING: MARC21 Only','YesNo')");
1637 print "Upgrade to $DBversion done (added 2 new 'AutoEmailOpacUser' sysprefs)\n";
1638 SetVersion
($DBversion);
1641 $DBversion = "3.00.00.089";
1642 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1643 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES('AdvancedSearchTypes','itemtypes','itemtypes|ccode','Select which set of fields comprise the Type limit in the advanced search','Choice')");
1644 print "Upgrade to $DBversion done (added new AdvancedSearchTypes syspref)\n";
1645 SetVersion
($DBversion);
1648 $DBversion = "3.00.00.090";
1649 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1651 CREATE TABLE `branch_borrower_circ_rules` (
1652 `branchcode` VARCHAR(10) NOT NULL,
1653 `categorycode` VARCHAR(10) NOT NULL,
1654 `maxissueqty` int(4) default NULL,
1655 PRIMARY KEY (`categorycode`, `branchcode`),
1656 CONSTRAINT `branch_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1657 ON DELETE CASCADE ON UPDATE CASCADE,
1658 CONSTRAINT `branch_borrower_circ_rules_ibfk_2` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1659 ON DELETE CASCADE ON UPDATE CASCADE
1660 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1663 CREATE TABLE `default_borrower_circ_rules` (
1664 `categorycode` VARCHAR(10) NOT NULL,
1665 `maxissueqty` int(4) default NULL,
1666 PRIMARY KEY (`categorycode`),
1667 CONSTRAINT `borrower_borrower_circ_rules_ibfk_1` FOREIGN KEY (`categorycode`) REFERENCES `categories` (`categorycode`)
1668 ON DELETE CASCADE ON UPDATE CASCADE
1669 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1672 CREATE TABLE `default_branch_circ_rules` (
1673 `branchcode` VARCHAR(10) NOT NULL,
1674 `maxissueqty` int(4) default NULL,
1675 PRIMARY KEY (`branchcode`),
1676 CONSTRAINT `default_branch_circ_rules_ibfk_1` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`)
1677 ON DELETE CASCADE ON UPDATE CASCADE
1678 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1681 CREATE TABLE `default_circ_rules` (
1682 `singleton` enum('singleton') NOT NULL default 'singleton',
1683 `maxissueqty` int(4) default NULL,
1684 PRIMARY KEY (`singleton`)
1685 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1687 print "Upgrade to $DBversion done (added several circ rules tables)\n";
1688 SetVersion
($DBversion);
1692 $DBversion = "3.00.00.091";
1693 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
1694 $dbh->do(<<'END_SQL');
1695 ALTER TABLE borrowers
1696 ADD `smsalertnumber` varchar(50) default NULL
1699 $dbh->do(<<'END_SQL
');
1700 CREATE TABLE `message_attributes` (
1701 `message_attribute_id` int(11) NOT NULL auto_increment,
1702 `message_name` varchar(20) NOT NULL default '',
1703 `takes_days` tinyint(1) NOT NULL default '0',
1704 PRIMARY KEY (`message_attribute_id`),
1705 UNIQUE KEY `message_name` (`message_name`)
1706 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1709 $dbh->do(<<'END_SQL');
1710 CREATE TABLE
`message_transport_types` (
1711 `message_transport_type` varchar
(20) NOT NULL
,
1712 PRIMARY KEY
(`message_transport_type`)
1713 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
;
1716 $dbh->do(<<'END_SQL');
1717 CREATE TABLE `message_transports` (
1718 `message_attribute_id` int(11) NOT NULL,
1719 `message_transport_type` varchar(20) NOT NULL,
1720 `is_digest` tinyint(1) NOT NULL default '0',
1721 `letter_module` varchar(20) NOT NULL default '',
1722 `letter_code` varchar(20) NOT NULL default '',
1723 PRIMARY KEY (`message_attribute_id`,`message_transport_type`,`is_digest`),
1724 KEY `message_transport_type` (`message_transport_type`),
1725 KEY `letter_module` (`letter_module`,`letter_code`),
1726 CONSTRAINT `message_transports_ibfk_1` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE,
1727 CONSTRAINT `message_transports_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE,
1728 CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`) REFERENCES `letter` (`module`, `code`) ON DELETE CASCADE ON UPDATE CASCADE
1729 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1732 $dbh->do(<<'END_SQL
');
1733 CREATE TABLE `borrower_message_preferences` (
1734 `borrower_message_preference_id` int(11) NOT NULL auto_increment,
1735 `borrowernumber` int(11) NOT NULL default '0',
1736 `message_attribute_id` int(11) default '0',
1737 `days_in_advance` int(11) default '0',
1738 `wants_digets` tinyint(1) NOT NULL default '0',
1739 PRIMARY KEY (`borrower_message_preference_id`),
1740 KEY `borrowernumber` (`borrowernumber`),
1741 KEY `message_attribute_id` (`message_attribute_id`),
1742 CONSTRAINT `borrower_message_preferences_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1743 CONSTRAINT `borrower_message_preferences_ibfk_2` FOREIGN KEY (`message_attribute_id`) REFERENCES `message_attributes` (`message_attribute_id`) ON DELETE CASCADE ON UPDATE CASCADE
1744 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1747 $dbh->do(<<'END_SQL');
1748 CREATE TABLE
`borrower_message_transport_preferences` (
1749 `borrower_message_preference_id` int(11) NOT NULL
default '0',
1750 `message_transport_type` varchar
(20) NOT NULL
default '0',
1751 PRIMARY KEY
(`borrower_message_preference_id`,`message_transport_type`),
1752 KEY
`message_transport_type` (`message_transport_type`),
1753 CONSTRAINT
`borrower_message_transport_preferences_ibfk_1` FOREIGN KEY
(`borrower_message_preference_id`) REFERENCES
`borrower_message_preferences` (`borrower_message_preference_id`) ON DELETE CASCADE ON UPDATE CASCADE
,
1754 CONSTRAINT
`borrower_message_transport_preferences_ibfk_2` FOREIGN KEY
(`message_transport_type`) REFERENCES
`message_transport_types` (`message_transport_type`) ON DELETE CASCADE ON UPDATE CASCADE
1755 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
1758 $dbh->do(<<'END_SQL');
1759 CREATE TABLE `message_queue` (
1760 `message_id` int(11) NOT NULL auto_increment,
1761 `borrowernumber` int(11) NOT NULL,
1764 `message_transport_type` varchar(20) NOT NULL,
1765 `status` enum('sent','pending','failed','deleted') NOT NULL default 'pending',
1766 `time_queued` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
1767 KEY `message_id` (`message_id`),
1768 KEY `borrowernumber` (`borrowernumber`),
1769 KEY `message_transport_type` (`message_transport_type`),
1770 CONSTRAINT `messageq_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
1771 CONSTRAINT `messageq_ibfk_2` FOREIGN KEY (`message_transport_type`) REFERENCES `message_transport_types` (`message_transport_type`) ON DELETE RESTRICT ON UPDATE CASCADE
1772 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
1775 $dbh->do(<<'END_SQL
');
1776 INSERT INTO `systempreferences`
1777 (variable,value,explanation,options,type)
1779 ('EnhancedMessagingPreferences
',0,'If ON
, allows patrons to
select to receive additional messages about items due
or nearly due
.','','YesNo
')
1782 $dbh->do( <<'END_SQL');
1783 INSERT INTO
`letter`
1784 (module
, code
, name
, title
, content
)
1786 ('circulation','DUE','Item Due Reminder','Item Due Reminder','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item is now due:\r\n\r\n<<biblio.title>> by <<biblio.author>>'),
1787 ('circulation','DUEDGST','Item Due Reminder (Digest)','Item Due Reminder','You have <<count>> items due'),
1788 ('circulation','PREDUE','Advance Notice of Item Due','Advance Notice of Item Due','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item will be due soon:\r\n\r\n<<biblio.title>> by <<biblio.author>>'),
1789 ('circulation','PREDUEDGST','Advance Notice of Item Due (Digest)','Advance Notice of Item Due','You have <<count>> items due soon'),
1790 ('circulation','EVENT','Upcoming Library Event','Upcoming Library Event','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThis is a reminder of an upcoming library event in which you have expressed interest.');
1794 'installer/data/mysql/en/mandatory/message_transport_types.sql',
1795 'installer/data/mysql/en/optional/sample_notices_message_attributes.sql',
1796 'installer/data/mysql/en/optional/sample_notices_message_transports.sql',
1799 my $installer = C4
::Installer
->new();
1800 foreach my $script ( @sql_scripts ) {
1801 my $full_path = $installer->get_file_path_from_name($script);
1802 my $error = $installer->load_sql($full_path);
1803 warn $error if $error;
1806 print "Upgrade to $DBversion done (Table structure for table `message_queue`, `message_transport_types`, `message_attributes`, `message_transports`, `borrower_message_preferences`, and `borrower_message_transport_preferences`. Alter `borrowers` table,\n";
1807 SetVersion ($DBversion);
1810 $DBversion = "3.00.00.092";
1811 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1812 $dbh->do("INSERT INTO `systempreferences
` (variable,value,options,explanation,type) VALUES('AllowOnShelfHolds', '0', '', 'Allow hold requests to be placed on items that are not on loan', 'YesNo')");
1813 $dbh->do("INSERT INTO `systempreferences
` (variable,value,options,explanation,type) VALUES('AllowHoldsOnDamagedItems', '1', '', 'Allow hold requests to be placed on damaged items', 'YesNo')");
1814 print "Upgrade to $DBversion done (added new AllowOnShelfHolds syspref)\n";
1815 SetVersion ($DBversion);
1818 $DBversion = "3.00.00.093";
1819 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1820 $dbh->do("ALTER TABLE `items
` MODIFY COLUMN `copynumber
` VARCHAR(32) DEFAULT NULL");
1821 $dbh->do("ALTER TABLE `deleteditems
` MODIFY COLUMN `copynumber
` VARCHAR(32) DEFAULT NULL");
1822 print "Upgrade to $DBversion done (Change data type of items.copynumber to allow free text)\n";
1823 SetVersion ($DBversion);
1826 $DBversion = "3.00.00.094";
1827 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1828 $dbh->do("ALTER TABLE `marc_subfield_structure
` MODIFY `tagsubfield
` VARCHAR(1) NOT NULL DEFAULT '' COLLATE utf8_bin");
1829 print "Upgrade to $DBversion done (Change Collation of marc_subfield_structure to allow mixed case in subfield labels.)\n";
1830 SetVersion ($DBversion);
1833 $DBversion = "3.00.00.095";
1834 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1835 if (C4::Context->preference("marcflavour") eq 'MARC21') {
1836 $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'MEETI_NAME' WHERE authtypecode = 'Meeting Name'");
1837 $dbh->do("UPDATE marc_subfield_structure SET authtypecode = 'CORPO_NAME' WHERE authtypecode = 'CORP0_NAME'");
1839 print "Upgrade to $DBversion done (fix invalid authority types in MARC21 frameworks [bug 2254])\n";
1840 SetVersion ($DBversion);
1843 $DBversion = "3.00.00.096";
1844 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1845 $sth = $dbh->prepare("SHOW COLUMNS FROM borrower_message_preferences LIKE 'wants_digets'");
1847 if (my $row = $sth->fetchrow_hashref) {
1848 $dbh->do("ALTER TABLE borrower_message_preferences CHANGE wants_digets wants_digest tinyint(1) NOT NULL default 0");
1850 print "Upgrade to $DBversion done (fix name borrower_message_preferences.wants_digest)\n";
1851 SetVersion ($DBversion);
1854 $DBversion = '3.00.00.097';
1855 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1857 $dbh->do('ALTER TABLE message_queue ADD to_address mediumtext default NULL');
1858 $dbh->do('ALTER TABLE message_queue ADD from_address mediumtext default NULL');
1859 $dbh->do('ALTER TABLE message_queue ADD content_type text');
1860 $dbh->do('ALTER TABLE message_queue CHANGE borrowernumber borrowernumber int(11) default NULL');
1862 print "Upgrade to $DBversion done (updating 4 fields in message_queue table)\n";
1863 SetVersion($DBversion);
1866 $DBversion = '3.00.00.098';
1867 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1869 $dbh->do(q(DELETE FROM message_transport_types WHERE message_transport_type = 'rss'));
1870 $dbh->do(q(DELETE FROM message_transports WHERE message_transport_type = 'rss'));
1872 print "Upgrade to $DBversion done (removing unused RSS message_transport_type)\n";
1873 SetVersion($DBversion);
1876 $DBversion = '3.00.00.099';
1877 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1878 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('OpacSuppression', '0', '', 'Turn ON the OPAC Suppression feature, requires further setup, ask your system administrator for details', 'YesNo')");
1879 print "Upgrade to $DBversion done (Adding OpacSuppression syspref)\n";
1880 SetVersion($DBversion);
1883 $DBversion = '3.00.00.100';
1884 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1885 $dbh->do('ALTER TABLE virtualshelves ADD COLUMN lastmodified timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP');
1886 print "Upgrade to $DBversion done (Adding lastmodified column to virtualshelves)\n";
1887 SetVersion($DBversion);
1890 $DBversion = '3.00.00.101';
1891 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1892 $dbh->do('ALTER TABLE `overduerules
` CHANGE `categorycode
` `categorycode
` VARCHAR(10) NOT NULL');
1893 $dbh->do('ALTER TABLE `deletedborrowers
` CHANGE `categorycode
` `categorycode
` VARCHAR(10) NOT NULL');
1894 print "Upgrade to $DBversion done (Updating columnd definitions for patron category codes in notice/statsu triggers and deletedborrowers tables.)\n";
1895 SetVersion($DBversion);
1898 $DBversion = '3.00.00.102';
1899 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1900 $dbh->do('ALTER TABLE serialitems MODIFY `serialid
` int(11) NOT NULL AFTER itemnumber' );
1901 $dbh->do('ALTER TABLE serialitems DROP KEY serialididx' );
1902 $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT UNIQUE KEY serialitemsidx (itemnumber)' );
1903 # before setting constraint, delete any unvalid data
1904 $dbh->do('DELETE from serialitems WHERE serialid not in (SELECT serial.serialid FROM serial)');
1905 $dbh->do('ALTER TABLE serialitems ADD CONSTRAINT serialitems_sfk_1 FOREIGN KEY (serialid) REFERENCES serial (serialid) ON DELETE CASCADE ON UPDATE CASCADE' );
1906 print "Upgrade to $DBversion done (Updating serialitems table to allow for multiple items per serial fixing kohabug 2380)\n";
1907 SetVersion($DBversion);
1910 $DBversion = "3.00.00.103";
1911 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1912 $dbh->do("DELETE FROM systempreferences WHERE variable='serialsadditems'");
1913 print "Upgrade to $DBversion done ( Verifying the removal of serialsadditems from syspref fixing kohabug 2219)\n";
1914 SetVersion ($DBversion);
1917 $DBversion = "3.00.00.104";
1918 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1919 $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1920 print "Upgrade to $DBversion done (remove superseded 'noOPACHolds' system preference per bug 2413)\n";
1921 SetVersion ($DBversion);
1924 $DBversion = '3.00.00.105';
1925 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
1927 # it is possible that this syspref is already defined since the feature was added some time ago.
1928 unless ( $dbh->do(q(SELECT variable FROM systempreferences WHERE variable = 'SMSSendDriver')) ) {
1929 $dbh->do(<<'END_SQL');
1930 INSERT INTO `systempreferences
`
1931 (variable,value,explanation,options,type)
1933 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')
1936 print "Upgrade to $DBversion done (added SMSSendDriver system preference)\n";
1937 SetVersion($DBversion);
1940 $DBversion = "3.00.00.106";
1941 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1942 $dbh->do("DELETE FROM systempreferences WHERE variable='noOPACHolds'");
1944 # db revision 105 didn't apply correctly, so we're rolling this into 106
1945 $dbh->do("INSERT INTO `systempreferences
`
1946 (variable,value,explanation,options,type)
1948 ('SMSSendDriver','','Sets which SMS::Send driver is used to send SMS messages.','','free')");
1950 print "Upgrade to $DBversion done (remove default '0000-00-00' in subscriptionhistory.enddate field)\n";
1951 $dbh->do("ALTER TABLE `subscriptionhistory
` CHANGE `enddate
` `enddate
` DATE NULL DEFAULT NULL ");
1952 $dbh->do("UPDATE subscriptionhistory SET enddate=NULL WHERE enddate='0000-00-00'");
1953 SetVersion ($DBversion);
1956 $DBversion = '3.00.00.107';
1957 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1958 $dbh->do(<<'END_SQL');
1959 UPDATE systempreferences
1960 SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming on collections with large numbers of items.' )
1961 WHERE variable = 'OPACShelfBrowser'
1962 AND explanation NOT LIKE '%WARNING%'
1964 $dbh->do(<<'END_SQL');
1965 UPDATE systempreferences
1966 SET explanation = CONCAT( explanation, '. WARNING: this feature is very resource consuming.' )
1967 WHERE variable = 'CataloguingLog'
1968 AND explanation NOT LIKE '%WARNING%'
1970 $dbh->do(<<'END_SQL');
1971 UPDATE systempreferences
1972 SET explanation = CONCAT( explanation, '. WARNING: using NoZebra on even modest sized collections is very slow.' )
1973 WHERE variable = 'NoZebra'
1974 AND explanation NOT LIKE '%WARNING%'
1976 print "Upgrade to $DBversion done (warning added to OPACShelfBrowser system preference)\n";
1977 SetVersion ($DBversion);
1980 $DBversion = '3.01.00.000';
1981 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
1982 print "Upgrade to $DBversion done (start of 3.1)\n";
1983 SetVersion ($DBversion);
1986 $DBversion = '3.01.00.001';
1987 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
1989 CREATE TABLE hold_fill_targets (
1990 `borrowernumber
` int(11) NOT NULL,
1991 `biblionumber
` int(11) NOT NULL,
1992 `itemnumber
` int(11) NOT NULL,
1993 `source_branchcode
` varchar(10) default NULL,
1994 `item_level_request
` tinyint(4) NOT NULL default 0,
1995 PRIMARY KEY `itemnumber
` (`itemnumber
`),
1996 KEY `bib_branch
` (`biblionumber
`, `source_branchcode
`),
1997 CONSTRAINT `hold_fill_targets_ibfk_1
` FOREIGN KEY (`borrowernumber
`)
1998 REFERENCES `borrowers
` (`borrowernumber
`) ON DELETE CASCADE ON UPDATE CASCADE,
1999 CONSTRAINT `hold_fill_targets_ibfk_2
` FOREIGN KEY (`biblionumber
`)
2000 REFERENCES `biblio
` (`biblionumber
`) ON DELETE CASCADE ON UPDATE CASCADE,
2001 CONSTRAINT `hold_fill_targets_ibfk_3
` FOREIGN KEY (`itemnumber
`)
2002 REFERENCES `items
` (`itemnumber
`) ON DELETE CASCADE ON UPDATE CASCADE,
2003 CONSTRAINT `hold_fill_targets_ibfk_4
` FOREIGN KEY (`source_branchcode
`)
2004 REFERENCES `branches
` (`branchcode
`) ON DELETE CASCADE ON UPDATE CASCADE
2005 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2008 ALTER TABLE tmp_holdsqueue
2009 ADD item_level_request tinyint(4) NOT NULL default 0
2012 print "Upgrade to $DBversion done (add hold_fill_targets table and a column to tmp_holdsqueue)\n";
2013 SetVersion($DBversion);
2016 $DBversion = '3.01.00.002';
2017 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2018 # use statistics where available
2020 ALTER TABLE statistics ADD KEY tmp_stats (type, itemnumber, borrowernumber)
2025 SELECT max(datetime)
2027 WHERE type = 'issue'
2028 AND itemnumber = iss.itemnumber
2029 AND borrowernumber = iss.borrowernumber
2031 WHERE issuedate IS NULL;
2033 $dbh->do("ALTER TABLE statistics DROP KEY tmp_stats");
2035 # default to last renewal date
2038 SET issuedate = lastreneweddate
2039 WHERE issuedate IS NULL
2040 and lastreneweddate IS NOT NULL
2043 my $num_bad_issuedates = $dbh->selectrow_array("SELECT COUNT(*) FROM issues WHERE issuedate IS NULL");
2044 if ($num_bad_issuedates > 0) {
2045 print STDERR "After the upgrade to $DBversion, there are still $num_bad_issuedates loan(s) with a NULL (blank) loan date. ",
2046 "Please check the issues table in your database.";
2048 print "Upgrade to $DBversion done (bug 2582: set null issues.issuedate to lastreneweddate)\n";
2049 SetVersion($DBversion);
2052 $DBversion = "3.01.00.003";
2053 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2054 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowRenewalLimitOverride', '0', 'if ON, allows renewal limits to be overridden on the circulation screen',NULL,'YesNo')");
2055 print "Upgrade to $DBversion done (add new syspref)\n";
2056 SetVersion ($DBversion);
2059 $DBversion = '3.01.00.004';
2060 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2061 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACDisplayRequestPriority','0','Show patrons the priority level on holds in the OPAC','','YesNo')");
2062 print "Upgrade to $DBversion done (added OPACDisplayRequestPriority system preference)\n";
2063 SetVersion ($DBversion);
2066 $DBversion = '3.01.00.005';
2067 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2069 INSERT INTO `letter
` (module, code, name, title, content)
2070 VALUES('reserves', 'HOLD', 'Hold Available for Pickup', 'Hold Available for Pickup at <<branches.branchname>>', 'Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYou have a hold available for pickup as of <<reserves.waitingdate>>:\r\n\r\nTitle: <<biblio.title>>\r\nAuthor: <<biblio.author>>\r\nCopy: <<items.copynumber>>\r\nLocation: <<branches.branchname>>\r\n<<branches.branchaddress1>>\r\n<<branches.branchaddress2>>\r\n<<branches.branchaddress3>>')
2072 $dbh->do("INSERT INTO `message_attributes
` (message_attribute_id, message_name, takes_days) values(4, 'Hold Filled', 0)");
2073 $dbh->do("INSERT INTO `message_transports
` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'sms', 0, 'reserves', 'HOLD')");
2074 $dbh->do("INSERT INTO `message_transports
` (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) values(4, 'email', 0, 'reserves', 'HOLD')");
2075 print "Upgrade to $DBversion done (Add letter for holds notifications)\n";
2076 SetVersion ($DBversion);
2079 $DBversion = '3.01.00.006';
2080 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2081 $dbh->do("ALTER TABLE `biblioitems
` ADD KEY issn (issn)");
2082 print "Upgrade to $DBversion done (add index on biblioitems.issn)\n";
2083 SetVersion ($DBversion);
2086 $DBversion = "3.01.00.007";
2087 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2088 $dbh->do("UPDATE `systempreferences
` SET options='70|10' WHERE variable='intranetmainUserblock'");
2089 $dbh->do("UPDATE `systempreferences
` SET options='70|10' WHERE variable='intranetuserjs'");
2090 $dbh->do("UPDATE `systempreferences
` SET options='70|10' WHERE variable='opacheader'");
2091 $dbh->do("UPDATE `systempreferences
` SET options='70|10' WHERE variable='OpacMainUserBlock'");
2092 $dbh->do("UPDATE `systempreferences
` SET options='70|10' WHERE variable='OpacNav'");
2093 $dbh->do("UPDATE `systempreferences
` SET options='70|10' WHERE variable='opacuserjs'");
2094 $dbh->do("UPDATE `systempreferences
` SET options='30|10', type='Textarea' WHERE variable='OAI-PMH:Set'");
2095 $dbh->do("UPDATE `systempreferences
` SET options='50' WHERE variable='intranetstylesheet'");
2096 $dbh->do("UPDATE `systempreferences
` SET options='50' WHERE variable='intranetcolorstylesheet'");
2097 $dbh->do("UPDATE `systempreferences
` SET options='10' WHERE variable='globalDueDate'");
2098 $dbh->do("UPDATE `systempreferences
` SET type='Integer' WHERE variable='numSearchResults'");
2099 $dbh->do("UPDATE `systempreferences
` SET type='Integer' WHERE variable='OPACnumSearchResults'");
2100 $dbh->do("UPDATE `systempreferences
` SET type='Integer' WHERE variable='ReservesMaxPickupDelay'");
2101 $dbh->do("UPDATE `systempreferences
` SET type='Integer' WHERE variable='TransfersMaxDaysWarning'");
2102 $dbh->do("UPDATE `systempreferences
` SET type='Integer' WHERE variable='StaticHoldsQueueWeight'");
2103 $dbh->do("UPDATE `systempreferences
` SET type='Integer' WHERE variable='holdCancelLength'");
2104 $dbh->do("UPDATE `systempreferences
` SET type='Integer' WHERE variable='XISBNDailyLimit'");
2105 $dbh->do("UPDATE `systempreferences
` SET type='Float' WHERE variable='gist'");
2106 $dbh->do("UPDATE `systempreferences
` SET type='Free' WHERE variable='BakerTaylorUsername'");
2107 $dbh->do("UPDATE `systempreferences
` SET type='Free' WHERE variable='BakerTaylorPassword'");
2108 $dbh->do("UPDATE `systempreferences
` SET type='Textarea', options='70|10' WHERE variable='ISBD'");
2109 $dbh->do("UPDATE `systempreferences
` SET type='Textarea', options='70|10', explanation='Enter a specific hash for NoZebra indexes. Enter : \\\'indexname\\\' => \\\'100a,245a,500*\\\',\\\'index2\\\' => \\\'...\\\'' WHERE variable='NoZebraIndexes'");
2110 print "Upgrade to $DBversion done (fix display of many sysprefs)\n";
2111 SetVersion ($DBversion);
2114 $DBversion = '3.01.00.008';
2115 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2117 $dbh->do("CREATE TABLE branch_transfer_limits (
2118 limitId int(8) NOT NULL auto_increment,
2119 toBranch varchar(4) NOT NULL,
2120 fromBranch varchar(4) NOT NULL,
2121 itemtype varchar(4) NOT NULL,
2122 PRIMARY KEY (limitId)
2123 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
2126 $dbh->do("INSERT INTO `systempreferences
` ( `variable
` , `value
` , `options
` , `explanation
` , `type
` ) VALUES ( 'UseBranchTransferLimits', '0', '', 'If ON, Koha will will use the rules defined in branch_transfer_limits to decide if an item transfer should be allowed.', 'YesNo')");
2128 print "Upgrade to $DBversion done (added branch_transfer_limits table and UseBranchTransferLimits system preference)\n";
2129 SetVersion ($DBversion);
2132 $DBversion = "3.01.00.009";
2133 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2134 $dbh->do("ALTER TABLE permissions MODIFY `code
` varchar(64) DEFAULT NULL");
2135 $dbh->do("ALTER TABLE user_permissions MODIFY `code
` varchar(64) DEFAULT NULL");
2136 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'circulate_remaining_permissions', 'Remaining circulation permissions')");
2137 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'override_renewals', 'Override blocked renewals')");
2138 print "Upgrade to $DBversion done (added subpermissions for circulate permission)\n";
2141 $DBversion = '3.01.00.010';
2142 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2143 $dbh->do("ALTER TABLE `borrower_attributes
` MODIFY COLUMN `attribute
` VARCHAR(64) DEFAULT NULL");
2144 $dbh->do("ALTER TABLE `borrower_attributes
` MODIFY COLUMN `password
` VARCHAR(64) DEFAULT NULL");
2145 print "Upgrade to $DBversion done (bug 2687: increase length of borrower attribute fields)\n";
2146 SetVersion ($DBversion);
2149 $DBversion = '3.01.00.011';
2150 if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
2152 # Yes, the old value was ^M terminated.
2153 my $bad_value = "function prepareEmailPopup(){\r\n if (!document.getElementById) return false;\r\n if (!document.getElementById('reserveemail')) return false;\r\n rsvlink = document.getElementById('reserveemail');\r\n rsvlink.onclick = function() {\r\n doReservePopup();\r\n return false;\r\n }\r\n}\r\n\r\nfunction doReservePopup(){\r\n}\r\n\r\nfunction prepareReserveList(){\r\n}\r\n\r\naddLoadEvent(prepareEmailPopup);\r\naddLoadEvent(prepareReserveList);";
2155 my $intranetuserjs = C4::Context->preference('intranetuserjs');
2156 if ($intranetuserjs and $intranetuserjs eq $bad_value) {
2157 my $sql = <<'END_SQL';
2158 UPDATE systempreferences
2160 WHERE variable = 'intranetuserjs'
2164 print "Upgrade to $DBversion done (removed bogus intranetuserjs syspref)\n";
2165 SetVersion($DBversion);
2168 $DBversion = "3.01.00.012";
2169 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2170 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldPolicyOverride', '0', 'Allow staff to override hold policies when placing holds',NULL,'YesNo')");
2172 CREATE TABLE `branch_item_rules
` (
2173 `branchcode
` varchar(10) NOT NULL,
2174 `itemtype
` varchar(10) NOT NULL,
2175 `holdallowed
` tinyint(1) default NULL,
2176 PRIMARY KEY (`itemtype
`,`branchcode
`),
2177 KEY `branch_item_rules_ibfk_2
` (`branchcode
`),
2178 CONSTRAINT `branch_item_rules_ibfk_1
` FOREIGN KEY (`itemtype
`) REFERENCES `itemtypes
` (`itemtype
`) ON DELETE CASCADE ON UPDATE CASCADE,
2179 CONSTRAINT `branch_item_rules_ibfk_2
` FOREIGN KEY (`branchcode
`) REFERENCES `branches
` (`branchcode
`) ON DELETE CASCADE ON UPDATE CASCADE
2180 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2183 CREATE TABLE `default_branch_item_rules
` (
2184 `itemtype
` varchar(10) NOT NULL,
2185 `holdallowed
` tinyint(1) default NULL,
2186 PRIMARY KEY (`itemtype
`),
2187 CONSTRAINT `default_branch_item_rules_ibfk_1
` FOREIGN KEY (`itemtype
`) REFERENCES `itemtypes
` (`itemtype
`) ON DELETE CASCADE ON UPDATE CASCADE
2188 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
2191 ALTER TABLE default_branch_circ_rules
2192 ADD COLUMN holdallowed tinyint(1) NULL
2195 ALTER TABLE default_circ_rules
2196 ADD COLUMN holdallowed tinyint(1) NULL
2198 print "Upgrade to $DBversion done (Add tables and system preferences for holds policies)\n";
2199 SetVersion ($DBversion);
2202 $DBversion = '3.01.00.013';
2203 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2205 CREATE TABLE item_circulation_alert_preferences (
2206 id int(11) AUTO_INCREMENT,
2207 branchcode varchar(10) NOT NULL,
2208 categorycode varchar(10) NOT NULL,
2209 item_type varchar(10) NOT NULL,
2210 notification varchar(16) NOT NULL,
2212 KEY (branchcode, categorycode, item_type, notification)
2213 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2216 $dbh->do(q{ ALTER TABLE `message_queue
` ADD metadata text DEFAULT NULL AFTER content; });
2217 $dbh->do(q{ ALTER TABLE `message_queue
` ADD letter_code varchar(64) DEFAULT NULL AFTER metadata; });
2220 INSERT INTO `letter
` (`module
`, `code
`, `name
`, `title
`, `content
`) VALUES
2221 ('circulation','CHECKIN','Item Check-in','Check-ins','The following items have been checked in:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you.');
2224 INSERT INTO `letter
` (`module
`, `code
`, `name
`, `title
`, `content
`) VALUES
2225 ('circulation','CHECKOUT','Item Checkout','Checkouts','The following items have been checked out:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you for visiting <<branches.branchname>>.');
2228 $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (5, 'Item Check-in', 0);});
2229 $dbh->do(q{INSERT INTO message_attributes (message_attribute_id, message_name, takes_days) VALUES (6, 'Item Checkout', 0);});
2231 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (5, 'email', 0, 'circulation', 'CHECKIN');});
2232 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (5, 'sms', 0, 'circulation', 'CHECKIN');});
2233 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (6, 'email', 0, 'circulation', 'CHECKOUT');});
2234 $dbh->do(q{INSERT INTO message_transports (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES (6, 'sms', 0, 'circulation', 'CHECKOUT');});
2236 print "Upgrade to $DBversion done (data for Email Checkout Slips project)\n";
2237 SetVersion
($DBversion);
2240 $DBversion = "3.01.00.014";
2241 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2242 $dbh->do("ALTER TABLE `branch_transfer_limits` CHANGE `itemtype` `itemtype` VARCHAR( 4 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL");
2243 $dbh->do("ALTER TABLE `branch_transfer_limits` ADD `ccode` VARCHAR( 10 ) NULL ;");
2244 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2246 'BranchTransferLimitsType', 'ccode', 'itemtype|ccode', 'When using branch transfer limits, choose whether to limit by itemtype or collection code.', 'Choice'
2249 print "Upgrade to $DBversion done ( Updated table for Branch Transfer Limits)\n";
2250 SetVersion
($DBversion);
2253 $DBversion = '3.01.00.015';
2254 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2255 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsClientCode', '0', 'Client Code for using Syndetics Solutions content','','free')");
2257 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEnabled', '0', 'Turn on Syndetics Enhanced Content','','YesNo')");
2259 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImages', '0', 'Display Cover Images from Syndetics','','YesNo')");
2261 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsTOC', '0', 'Display Table of Content information from Syndetics','','YesNo')");
2263 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSummary', '0', 'Display Summary Information from Syndetics','','YesNo')");
2265 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsEditions', '0', 'Display Editions from Syndetics','','YesNo')");
2267 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsExcerpt', '0', 'Display Excerpts and first chapters on OPAC from Syndetics','','YesNo')");
2269 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsReviews', '0', 'Display Reviews on OPAC from Syndetics','','YesNo')");
2271 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAuthorNotes', '0', 'Display Notes about the Author on OPAC from Syndetics','','YesNo')");
2273 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsAwards', '0', 'Display Awards on OPAC from Syndetics','','YesNo')");
2275 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsSeries', '0', 'Display Series information on OPAC from Syndetics','','YesNo')");
2277 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SyndeticsCoverImageSize', 'MC', 'Choose the size of the Syndetics Cover Image to display on the OPAC detail page, MC is Medium, LC is Large','MC|LC','Choice')");
2279 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonCoverImages', '0', 'Display cover images on OPAC from Amazon Web Services','','YesNo')");
2281 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonCoverImages', '0', 'Display Cover Images in Staff Client from Amazon Web Services','','YesNo')");
2283 $dbh->do("UPDATE systempreferences SET variable='AmazonEnabled' WHERE variable = 'AmazonContent'");
2285 $dbh->do("UPDATE systempreferences SET variable='OPACAmazonEnabled' WHERE variable = 'OPACAmazonContent'");
2287 print "Upgrade to $DBversion done (added Syndetics Enhanced Content system preferences)\n";
2288 SetVersion
($DBversion);
2291 $DBversion = "3.01.00.016";
2292 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2293 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('Babeltheque',0,'Turn ON Babeltheque content - See babeltheque.com to subscribe to this service','','YesNo')");
2294 print "Upgrade to $DBversion done (Added Babeltheque syspref)\n";
2295 SetVersion
($DBversion);
2298 $DBversion = "3.01.00.017";
2299 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2300 $dbh->do("ALTER TABLE `subscription` ADD `staffdisplaycount` VARCHAR(10) NULL;");
2301 $dbh->do("ALTER TABLE `subscription` ADD `opacdisplaycount` VARCHAR(10) NULL;");
2302 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2304 'StaffSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the Staff client', 'Integer'
2306 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` )
2308 'OPACSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the OPAC', 'Integer'
2311 print "Upgrade to $DBversion done ( Updated table for Serials Display)\n";
2312 SetVersion
($DBversion);
2315 $DBversion = "3.01.00.018";
2316 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2317 $dbh->do("ALTER TABLE deletedborrowers ADD `smsalertnumber` varchar(50) default NULL");
2318 print "Upgrade to $DBversion done (added deletedborrowers.smsalertnumber, missed in 3.00.00.091)\n";
2319 SetVersion
($DBversion);
2322 $DBversion = "3.01.00.019";
2323 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2324 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowCheckoutName','0','Displays in the OPAC the name of patron who has checked out the material. WARNING: Most sites should leave this off. It is intended for corporate or special sites which need to track who has the item.','','YesNo')");
2325 print "Upgrade to $DBversion done (adding OPACShowCheckoutName systempref)\n";
2326 SetVersion
($DBversion);
2329 $DBversion = "3.01.00.020";
2330 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2331 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesID','','See:http://librarything.com/forlibraries/','','free')");
2332 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesEnabled','0','Enable or Disable Library Thing for Libraries Features','','YesNo')");
2333 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('LibraryThingForLibrariesTabbedView','0','Put LibraryThingForLibraries Content in Tabs.','','YesNo')");
2334 print "Upgrade to $DBversion done (adding LibraryThing for Libraries sysprefs)\n";
2335 SetVersion
($DBversion);
2338 $DBversion = "3.01.00.021";
2339 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2340 my $enable_reviews = C4
::Context
->preference('OPACAmazonEnabled') ?
'1' : '0';
2341 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAmazonReviews', '$enable_reviews', 'Display Amazon readers reviews on OPAC','','YesNo')");
2342 print "Upgrade to $DBversion done (adding OPACAmazonReviews syspref)\n";
2343 SetVersion
($DBversion);
2346 $DBversion = '3.01.00.022';
2347 if ( C4
::Context
->preference('Version') < TransformToNum
($DBversion) ) {
2348 $dbh->do("ALTER TABLE `labels_conf` MODIFY COLUMN `formatstring` mediumtext DEFAULT NULL");
2349 print "Upgrade to $DBversion done (bug 2945: increase size of labels_conf.formatstring)\n";
2350 SetVersion
($DBversion);
2353 $DBversion = '3.01.00.023';
2354 if ( C4
::Context
->preference('Version') < TransformToNum
($DBversion) ) {
2355 $dbh->do("ALTER TABLE biblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2356 $dbh->do("ALTER TABLE deletedbiblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2357 $dbh->do("ALTER TABLE import_biblios MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2358 $dbh->do("ALTER TABLE suggestions MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
2359 print "Upgrade to $DBversion done (bug 2765: increase width of isbn column in several tables)\n";
2360 SetVersion
($DBversion);
2363 $DBversion = "3.01.00.024";
2364 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2365 $dbh->do("ALTER TABLE labels MODIFY COLUMN batch_id int(10) NOT NULL default 1;");
2366 print "Upgrade to $DBversion done (change labels.batch_id from varchar to int)\n";
2367 SetVersion
($DBversion);
2370 $DBversion = '3.01.00.025';
2371 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2372 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'ceilingDueDate', '', '', 'If set, date due will not be past this date. Enter date according to the dateformat System Preference', 'free')");
2374 print "Upgrade to $DBversion done (added ceilingDueDate system preference)\n";
2375 SetVersion
($DBversion);
2378 $DBversion = '3.01.00.026';
2379 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2380 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'numReturnedItemsToShow', '20', '', 'Number of returned items to show on the check-in page', 'Integer')");
2382 print "Upgrade to $DBversion done (added numReturnedItemsToShow system preference)\n";
2383 SetVersion
($DBversion);
2386 $DBversion = '3.01.00.027';
2387 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2388 $dbh->do("ALTER TABLE zebraqueue CHANGE `biblio_auth_number` `biblio_auth_number` bigint(20) unsigned NOT NULL default 0");
2389 print "Upgrade to $DBversion done (Increased size of zebraqueue biblio_auth_number to address bug 3148.)\n";
2390 SetVersion
($DBversion);
2393 $DBversion = '3.01.00.028';
2394 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2395 my $enable_reviews = C4
::Context
->preference('AmazonEnabled') ?
'1' : '0';
2396 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AmazonReviews', '$enable_reviews', 'Display Amazon reviews on staff interface','','YesNo')");
2397 print "Upgrade to $DBversion done (added AmazonReviews)\n";
2398 SetVersion
($DBversion);
2401 $DBversion = '3.01.00.029';
2402 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2403 $dbh->do(q
( UPDATE language_rfc4646_to_iso639
2404 SET iso639_2_code
= 'spa'
2405 WHERE rfc4646_subtag
= 'es'
2406 AND iso639_2_code
= 'rus' )
2408 print "Upgrade to $DBversion done (fixed bug 2599: using Spanish search limit retrieves Russian results)\n";
2409 SetVersion
($DBversion);
2412 $DBversion = "3.01.00.030";
2413 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2414 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'AllowNotForLoanOverride', '0', '', 'If ON, Koha will allow the librarian to loan a not for loan item.', 'YesNo')");
2415 print "Upgrade to $DBversion done (added AllowNotForLoanOverride system preference)\n";
2416 SetVersion
($DBversion);
2419 $DBversion = "3.01.00.031";
2420 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2421 $dbh->do("ALTER TABLE branch_transfer_limits
2422 MODIFY toBranch varchar(10) NOT NULL,
2423 MODIFY fromBranch varchar(10) NOT NULL,
2424 MODIFY itemtype varchar(10) NULL");
2425 print "Upgrade to $DBversion done (fix column widths in branch_transfer_limits)\n";
2426 SetVersion
($DBversion);
2429 $DBversion = "3.01.00.032";
2430 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2431 $dbh->do(<<ENDOFRENEWAL);
2432 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RenewalPeriodBase', 'now', 'Set whether the renewal date should be counted from the date_due or from the moment the Patron asks for renewal ','date_due|now','Choice');
2434 print "Upgrade to $DBversion done (Change the field)\n";
2435 SetVersion
($DBversion);
2438 $DBversion = "3.01.00.033";
2439 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2441 ALTER TABLE borrower_message_preferences
2442 MODIFY borrowernumber
int(11) default NULL
,
2443 ADD categorycode varchar
(10) default NULL AFTER borrowernumber
,
2444 ADD KEY
`categorycode` (`categorycode`),
2445 ADD CONSTRAINT
`borrower_message_preferences_ibfk_3`
2446 FOREIGN KEY
(`categorycode`) REFERENCES
`categories` (`categorycode`)
2447 ON DELETE CASCADE ON UPDATE CASCADE
2449 print "Upgrade to $DBversion done (DB changes to allow patron category defaults for messaging preferences)\n";
2450 SetVersion
($DBversion);
2453 $DBversion = "3.01.00.034";
2454 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2455 $dbh->do("ALTER TABLE `subscription` ADD COLUMN `graceperiod` INT(11) NOT NULL default '0';");
2456 print "Upgrade to $DBversion done (Adding graceperiod column to subscription table)\n";
2457 SetVersion
($DBversion);
2460 $DBversion = '3.01.00.035';
2461 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2462 $dbh->do(q{ ALTER TABLE `subscription` ADD location varchar(80) NULL DEFAULT '' AFTER callnumber; });
2463 print "Upgrade to $DBversion done (Adding location to subscription table)\n";
2464 SetVersion
($DBversion);
2467 $DBversion = '3.01.00.036';
2468 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2469 $dbh->do("UPDATE systempreferences SET explanation = 'Choose the default detail view in the staff interface; choose between normal, labeled_marc, marc or isbd'
2470 WHERE variable = 'IntranetBiblioDefaultView'
2471 AND explanation = 'IntranetBiblioDefaultView'");
2472 $dbh->do("UPDATE systempreferences SET type = 'Choice', options = 'normal|marc|isbd|labeled_marc'
2473 WHERE variable = 'IntranetBiblioDefaultView'");
2474 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewISBD','1','Allow display of ISBD view of bibiographic records','','YesNo')");
2475 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewLabeledMARC','0','Allow display of labeled MARC view of bibiographic records','','YesNo')");
2476 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('viewMARC','1','Allow display of MARC view of bibiographic records','','YesNo')");
2477 print "Upgrade to $DBversion done (new viewISBD, viewLabeledMARC, viewMARC sysprefs and tweak IntranetBiblioDefaultView)\n";
2478 SetVersion
($DBversion);
2481 $DBversion = '3.01.00.037';
2482 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2483 $dbh->do('ALTER TABLE authorised_values ADD KEY `lib` (`lib`)');
2484 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('FilterBeforeOverdueReport','0','Do not run overdue report until filter selected','','YesNo')");
2485 SetVersion
($DBversion);
2486 print "Upgrade to $DBversion done (added FilterBeforeOverdueReport syspref and new index on authorised_values)\n";
2489 $DBversion = "3.01.00.038";
2490 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2491 # update branches table
2493 $dbh->do("ALTER TABLE branches ADD `branchzip` varchar(25) default NULL AFTER `branchaddress3`");
2494 $dbh->do("ALTER TABLE branches ADD `branchcity` mediumtext AFTER `branchzip`");
2495 $dbh->do("ALTER TABLE branches ADD `branchcountry` text AFTER `branchcity`");
2496 $dbh->do("ALTER TABLE branches ADD `branchurl` mediumtext AFTER `branchemail`");
2497 $dbh->do("ALTER TABLE branches ADD `branchnotes` mediumtext AFTER `branchprinter`");
2498 print "Upgrade to $DBversion done (add ZIP, city, country, URL, and notes column to branches)\n";
2499 SetVersion
($DBversion);
2502 $DBversion = '3.01.00.039';
2503 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2504 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('SpineLabelFormat', '<itemcallnumber><copynumber>', '30|10', 'This preference defines the format for the quick spine label printer. Just list the fields you would like to see in the order you would like to see them, surrounded by <>, for example <itemcallnumber>.', 'Textarea')");
2505 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('SpineLabelAutoPrint', '0', '', 'If this setting is turned on, a print dialog will automatically pop up for the quick spine label printer.', 'YesNo')");
2506 SetVersion
($DBversion);
2507 print "Upgrade to $DBversion done (added SpineLabelFormat and SpineLabelAutoPrint sysprefs)\n";
2510 $DBversion = '3.01.00.040';
2511 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2512 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('AllowHoldDateInFuture','0','If set a date field is displayed on the Hold screen of the Staff Interface, allowing the hold date to be set in the future.','','YesNo')");
2513 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('OPACAllowHoldDateInFuture','0','If set, along with the AllowHoldDateInFuture system preference, OPAC users can set the date of a hold to be in the future.','','YesNo')");
2514 SetVersion
($DBversion);
2515 print "Upgrade to $DBversion done (AllowHoldDateInFuture and OPACAllowHoldDateInFuture sysprefs)\n";
2518 $DBversion = '3.01.00.041';
2519 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2520 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AWSPrivateKey','','See: http://aws.amazon.com. Note that this is required after 2009/08/15 in order to retrieve any enhanced content other than book covers from Amazon.','','free')");
2521 SetVersion
($DBversion);
2522 print "Upgrade to $DBversion done (added AWSPrivateKey syspref - note that if you use enhanced content from Amazon, this should be set right away.)\n";
2525 $DBversion = '3.01.00.042';
2526 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2527 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACFineNoRenewals','99999','Fine Limit above which user canmot renew books via OPAC','','Integer')");
2528 SetVersion
($DBversion);
2529 print "Upgrade to $DBversion done (added OPACFineNoRenewals syspref)\n";
2532 $DBversion = '3.01.00.043';
2533 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2534 $dbh->do('ALTER TABLE items ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2535 $dbh->do('UPDATE items SET permanent_location = location');
2536 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'NewItemsDefaultLocation', '', '', 'If set, all new items will have a location of the given Location Code ( Authorized Value type LOC )', '')");
2537 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'InProcessingToShelvingCart', '0', '', 'If set, when any item with a location code of PROC is ''checked in'', it''s location code will be changed to CART.', 'YesNo')");
2538 $dbh->do("INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'ReturnToShelvingCart', '0', '', 'If set, when any item is ''checked in'', it''s location code will be changed to CART.', 'YesNo')");
2539 SetVersion
($DBversion);
2540 print "Upgrade to $DBversion done (amended Item added NewItemsDefaultLocation, InProcessingToShelvingCart, ReturnToShelvingCart sysprefs)\n";
2543 $DBversion = '3.01.00.044';
2544 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2545 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES( 'DisplayClearScreenButton', '0', 'If set to yes, a clear screen button will appear on the circulation page.', 'If set to yes, a clear screen button will appear on the circulation page.', 'YesNo')");
2546 SetVersion
($DBversion);
2547 print "Upgrade to $DBversion done (added DisplayClearScreenButton system preference)\n";
2550 $DBversion = '3.01.00.045';
2551 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2552 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('HidePatronName', '0', '', 'If this is switched on, patron''s cardnumber will be shown instead of their name on the holds and catalog screens', 'YesNo')");
2553 SetVersion
($DBversion);
2554 print "Upgrade to $DBversion done (added a preference to hide the patrons name in the staff catalog)\n";
2557 $DBversion = "3.01.00.046";
2558 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2559 # update borrowers table
2561 $dbh->do("ALTER TABLE borrowers ADD `country` text AFTER zipcode");
2562 $dbh->do("ALTER TABLE borrowers ADD `B_country` text AFTER B_zipcode");
2563 $dbh->do("ALTER TABLE deletedborrowers ADD `country` text AFTER zipcode");
2564 $dbh->do("ALTER TABLE deletedborrowers ADD `B_country` text AFTER B_zipcode");
2565 print "Upgrade to $DBversion done (add country and B_country to borrowers)\n";
2566 SetVersion
($DBversion);
2569 $DBversion = '3.01.00.047';
2570 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2571 $dbh->do("ALTER TABLE items MODIFY itemcallnumber varchar(255);");
2572 $dbh->do("ALTER TABLE deleteditems MODIFY itemcallnumber varchar(255);");
2573 $dbh->do("ALTER TABLE tmp_holdsqueue MODIFY itemcallnumber varchar(255);");
2574 SetVersion
($DBversion);
2575 print " Upgrade to $DBversion done (bug 2761: change max length of itemcallnumber to 255 from 30)\n";
2578 $DBversion = '3.01.00.048';
2579 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2580 $dbh->do("UPDATE userflags SET flagdesc='View Catalog (Librarian Interface)' WHERE bit=2;");
2581 $dbh->do("UPDATE userflags SET flagdesc='Edit Catalog (Modify bibliographic/holdings data)' WHERE bit=9;");
2582 $dbh->do("UPDATE userflags SET flagdesc='Allow to edit authorities' WHERE bit=14;");
2583 $dbh->do("UPDATE userflags SET flagdesc='Allow to access to the reports module' WHERE bit=16;");
2584 $dbh->do("UPDATE userflags SET flagdesc='Allow to manage serials subscriptions' WHERE bit=15;");
2585 SetVersion
($DBversion);
2586 print " Upgrade to $DBversion done (bug 2611: fix spelling/capitalization in permission flag descriptions)\n";
2589 $DBversion = '3.01.00.049';
2590 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2591 $dbh->do("UPDATE permissions SET description = 'Perform inventory (stocktaking) of your catalog' WHERE code = 'inventory';");
2592 SetVersion
($DBversion);
2593 print "Upgrade to $DBversion done (bug 2611: changed catalogue to catalog per the standard)\n";
2596 $DBversion = '3.01.00.050';
2597 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2598 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACSearchForTitleIn','<li class=\"yuimenuitem\">\n<a target=\"_blank\" class=\"yuimenuitemlabel\" href=\"http://worldcat.org/search?q=TITLE\">Other Libraries (WorldCat)</a></li>\n<li class=\"yuimenuitem\">\n<a class=\"yuimenuitemlabel\" href=\"http://www.scholar.google.com/scholar?q=TITLE\" target=\"_blank\">Other Databases (Google Scholar)</a></li>\n<li class=\"yuimenuitem\">\n<a class=\"yuimenuitemlabel\" href=\"http://www.bookfinder.com/search/?author=AUTHOR&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');");
2599 SetVersion
($DBversion);
2600 print "Upgrade to $DBversion done (bug 1934: Add OPACSearchForTitleIn syspref)\n";
2603 $DBversion = '3.01.00.051';
2604 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2605 $dbh->do("UPDATE systempreferences SET explanation='Fine limit above which user cannot renew books via OPAC' WHERE variable='OPACFineNoRenewals';");
2606 $dbh->do("UPDATE systempreferences SET explanation='If set to ON, a clear screen button will appear on the circulation page.' WHERE variable='DisplayClearScreenButton';");
2607 SetVersion
($DBversion);
2608 print "Upgrade to $DBversion done (fixed typos in new sysprefs)\n";
2611 $DBversion = '3.01.00.052';
2612 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2613 $dbh->do('ALTER TABLE deleteditems ADD COLUMN permanent_location VARCHAR(80) DEFAULT NULL AFTER location');
2614 SetVersion
($DBversion);
2615 print "Upgrade to $DBversion done (bug 3481: add permanent_location column to deleteditems)\n";
2618 $DBversion = '3.01.00.053';
2619 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2620 my $upgrade_script = C4
::Context
->config("intranetdir") . "/installer/data/mysql/labels_upgrade.pl";
2621 system("perl $upgrade_script");
2622 print "Upgrade to $DBversion done (Migrated labels tables and data to new schema.) NOTE: All existing label batches have been assigned to the first branch in the list of branches. This is ONLY true of migrated label batches.\n";
2623 SetVersion
($DBversion);
2626 $DBversion = '3.01.00.054';
2627 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2628 $dbh->do("ALTER TABLE borrowers ADD `B_address2` text AFTER B_address");
2629 $dbh->do("ALTER TABLE borrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2630 $dbh->do("ALTER TABLE deletedborrowers ADD `B_address2` text AFTER B_address");
2631 $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactcountry` text AFTER altcontactzipcode");
2632 SetVersion
($DBversion);
2633 print "Upgrade to $DBversion done (bug 1600, bug 3454: add altcontactcountry and B_address2 to borrowers and deletedborrowers)\n";
2636 $DBversion = '3.01.00.055';
2637 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2638 $dbh->do(qq|UPDATE systempreferences set explanation
='Enter the HTML that will appear in the ''Search for this title in'' box on the detail page in the OPAC. Enter {TITLE}, {AUTHOR}, or {ISBN} in place of their respective variables in the URL. Leave blank to disable ''More Searches'' menu.', value
='<li><a href="http://worldcat.org/search?q={TITLE}" target="_blank">Other Libraries (WorldCat)</a></li>\n<li><a href="http://www.scholar.google.com/scholar?q={TITLE}" target="_blank">Other Databases (Google Scholar)</a></li>\n<li><a href="http://www.bookfinder.com/search/?author={AUTHOR}&title={TITLE}&st=xl&ac=qr" target="_blank">Online Stores (Bookfinder.com)</a></li>' WHERE variable
='OPACSearchForTitleIn'|);
2639 SetVersion
($DBversion);
2640 print "Upgrade to $DBversion done (changed OPACSearchForTitleIn per requests in bug 1934)\n";
2643 $DBversion = '3.01.00.056';
2644 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2645 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACPatronDetails','1','If OFF the patron details tab in the OPAC is disabled.','','YesNo');");
2646 SetVersion
($DBversion);
2647 print "Upgrade to $DBversion done (Bug 1172 : Add OPACPatronDetails syspref)\n";
2650 $DBversion = '3.01.00.057';
2651 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2652 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACFinesTab','1','If OFF the patron fines tab in the OPAC is disabled.','','YesNo');");
2653 SetVersion
($DBversion);
2654 print "Upgrade to $DBversion done (Bug 2576 : Add OPACFinesTab syspref)\n";
2657 $DBversion = '3.01.00.058';
2658 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2659 $dbh->do("ALTER TABLE `language_subtag_registry` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2660 $dbh->do("ALTER TABLE `language_rfc4646_to_iso639` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2661 $dbh->do("ALTER TABLE `language_descriptions` ADD `id` INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY;");
2662 SetVersion
($DBversion);
2663 print "Upgrade to $DBversion done (Added primary keys to language tables)\n";
2666 $DBversion = '3.01.00.059';
2667 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2668 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type)VALUES('DisplayOPACiconsXSLT', '1', '', 'If ON, displays the format, audience, type icons in XSLT MARC21 results and display pages.', 'YesNo')");
2669 SetVersion
($DBversion);
2670 print "Upgrade to $DBversion done (added DisplayOPACiconsXSLT sysprefs)\n";
2673 $DBversion = '3.01.00.060';
2674 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2675 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowAllMessageDeletion','0','Allow any Library to delete any message','','YesNo');");
2676 $dbh->do('DROP TABLE IF EXISTS messages');
2677 $dbh->do("CREATE TABLE messages ( `message_id` int(11) NOT NULL auto_increment,
2678 `borrowernumber` int(11) NOT NULL,
2679 `branchcode` varchar(4) default NULL,
2680 `message_type` varchar(1) NOT NULL,
2681 `message` text NOT NULL,
2682 `message_date` TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,
2683 PRIMARY KEY (`message_id`)
2684 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
2686 print "Upgrade to $DBversion done ( Added AllowAllMessageDeletion syspref and messages table )\n";
2687 SetVersion
($DBversion);
2690 $DBversion = '3.01.00.061';
2691 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2692 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('ShowPatronImageInWebBasedSelfCheck', '0', 'If ON, displays patron image when a patron uses web-based self-checkout', '', 'YesNo')");
2693 print "Upgrade to $DBversion done ( Added ShowPatronImageInWebBasedSelfCheck system preference )\n";
2694 SetVersion
($DBversion);
2697 $DBversion = "3.01.00.062";
2698 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2699 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'manage_csv_profiles', 'Manage CSV export profiles')");
2701 CREATE TABLE
`export_format` (
2702 `export_format_id` int(11) NOT NULL auto_increment
,
2703 `profile` varchar
(255) NOT NULL
,
2704 `description` mediumtext NOT NULL
,
2705 `marcfields` mediumtext NOT NULL
,
2706 PRIMARY KEY
(`export_format_id`)
2707 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8 COMMENT
='Used for CSV export';
2709 print "Upgrade to $DBversion done (added csv export profiles)\n";
2712 $DBversion = "3.01.00.063";
2713 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2715 CREATE TABLE `fieldmapping` (
2716 `id` int(11) NOT NULL auto_increment,
2717 `field` varchar(255) NOT NULL,
2718 `frameworkcode` char(4) NOT NULL default '',
2719 `fieldcode` char(3) NOT NULL,
2720 `subfieldcode` char(1) NOT NULL,
2722 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
2724 SetVersion
($DBversion);print "Upgrade to $DBversion done (Created table fieldmapping)\n";print "Upgrade to 3.01.00.064 done (Version number skipped: nothing done)\n";
2727 $DBversion = '3.01.00.065';
2728 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2729 $dbh->do('ALTER TABLE issuingrules ADD COLUMN `renewalsallowed` smallint(6) NOT NULL default "0" AFTER `issuelength`;');
2730 $sth = $dbh->prepare("SELECT itemtype, renewalsallowed FROM itemtypes");
2733 my $sthupd = $dbh->prepare("UPDATE issuingrules SET renewalsallowed = ? WHERE itemtype = ?");
2735 while(my $row = $sth->fetchrow_hashref){
2736 $sthupd->execute($row->{renewalsallowed
}, $row->{itemtype
});
2739 $dbh->do('ALTER TABLE itemtypes DROP COLUMN `renewalsallowed`;');
2741 SetVersion
($DBversion);
2742 print "Upgrade to $DBversion done (Moving allowed renewals from itemtypes to issuingrule)\n";
2745 $DBversion = '3.01.00.066';
2746 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2747 $dbh->do('ALTER TABLE issuingrules ADD COLUMN `reservesallowed` smallint(6) NOT NULL default "0" AFTER `renewalsallowed`;');
2749 my $maxreserves = C4
::Context
->preference('maxreserves');
2750 $sth = $dbh->prepare('UPDATE issuingrules SET reservesallowed = ?;');
2751 $sth->execute($maxreserves);
2753 $dbh->do('DELETE FROM systempreferences WHERE variable = "maxreserves";');
2755 $dbh->do("INSERT INTO systempreferences (variable,value, options, explanation, type) VALUES('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights','Choice')");
2757 SetVersion
($DBversion);
2758 print "Upgrade to $DBversion done (Moving max allowed reserves from system preference to issuingrule)\n";
2761 $DBversion = "3.01.00.067";
2762 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2763 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchmod', 'Perform batch modification of items')");
2764 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'batchdel', 'Perform batch deletion of items')");
2765 print "Upgrade to $DBversion done (added permissions for batch modification and deletion)\n";
2766 SetVersion
($DBversion);
2769 $DBversion = "3.01.00.068";
2770 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2771 $dbh->do("ALTER TABLE issuingrules ADD COLUMN `finedays` int(11) default NULL AFTER `fine` ");
2772 print "Upgrade to $DBversion done (Adding finedays in issuingrules table)\n";
2773 SetVersion
($DBversion);
2777 $DBversion = "3.01.00.069";
2778 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2779 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('EnableOpacSearchHistory', '1', '', 'Enable or disable opac search history', 'YesNo')");
2781 my $create = <<SEARCHHIST;
2782 CREATE TABLE IF NOT EXISTS `search_history` (
2783 `userid` int(11) NOT NULL,
2784 `sessionid` varchar(32) NOT NULL,
2785 `query_desc` varchar(255) NOT NULL,
2786 `query_cgi` varchar(255) NOT NULL,
2787 `total` int(11) NOT NULL,
2788 `time` timestamp NOT NULL default CURRENT_TIMESTAMP,
2789 KEY `userid` (`userid`),
2790 KEY `sessionid` (`sessionid`)
2791 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Opac search history results';
2795 print "Upgrade to $DBversion done (added OPAC search history preference and table)\n";
2798 $DBversion = "3.01.00.070";
2799 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2800 $dbh->do("ALTER TABLE authorised_values ADD COLUMN `lib_opac` VARCHAR(80) default NULL AFTER `lib`");
2801 print "Upgrade to $DBversion done (Added a lib_opac field in authorised_values table)\n";
2804 $DBversion = "3.01.00.071";
2805 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2806 $dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");
2807 $dbh->do("ALTER TABLE subscriptionhistory CHANGE enddate histenddate DATE default NULL");
2808 print "Upgrade to $DBversion done ( Adding enddate to subscription)\n";
2811 # Acquisitions update
2813 $DBversion = "3.01.00.072";
2814 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2815 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacPrivacy', '0', 'if ON, allows patrons to define their privacy rules (reading history)',NULL,'YesNo')");
2816 # create a new syspref for the 'Mr anonymous' patron
2817 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AnonymousPatron', '0', \"Set the identifier (borrowernumber) of the 'Mister anonymous' patron. Used for Suggestion and reading history privacy\",NULL,'')");
2818 # fill AnonymousPatron with AnonymousSuggestion value (copy)
2819 my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='AnonSuggestions'");
2821 my ($value) = $sth->fetchrow() || 0;
2822 $dbh->do("UPDATE systempreferences SET value='$value' WHERE variable='AnonymousPatron'");
2823 # set AnonymousSuggestion do YesNo
2824 # 1st, set the value (1/True if it had a borrowernumber)
2825 $dbh->do("UPDATE systempreferences SET value=1 WHERE variable='AnonSuggestions' AND value>0");
2826 # 2nd, change the type to Choice
2827 $dbh->do("UPDATE systempreferences SET type='YesNo' WHERE variable='AnonSuggestions'");
2828 # borrower reading record privacy : 0 : forever, 1 : laws, 2 : don't keep at all
2829 $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
2830 print "Upgrade to $DBversion done (add new syspref and column in borrowers)\n";
2831 SetVersion
($DBversion);
2834 $DBversion = '3.01.00.073';
2835 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
2836 $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2837 $dbh->do(<<'END_SQL');
2838 CREATE TABLE IF NOT EXISTS `aqcontract` (
2839 `contractnumber` int(11) NOT NULL auto_increment,
2840 `contractstartdate` date default NULL,
2841 `contractenddate` date default NULL,
2842 `contractname` varchar(50) default NULL,
2843 `contractdescription` mediumtext,
2844 `booksellerid` int(11) not NULL,
2845 PRIMARY KEY (`contractnumber`),
2846 CONSTRAINT `booksellerid_fk1` FOREIGN KEY (`booksellerid`)
2847 REFERENCES `aqbooksellers` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
2848 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
2850 $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2851 print "Upgrade to $DBversion done (adding aqcontract table)\n";
2852 SetVersion ($DBversion);
2855 $DBversion = '3.01.00.074';
2856 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2857 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `basketname` varchar(50) default NULL AFTER `basketno`");
2858 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `note` mediumtext AFTER `basketname`");
2859 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `booksellernote` mediumtext AFTER `note`");
2860 $dbh->do("ALTER TABLE `aqbasket` ADD COLUMN `contractnumber` int(11) AFTER `booksellernote`");
2861 $dbh->do("ALTER TABLE `aqbasket` ADD FOREIGN KEY (`contractnumber`) REFERENCES `aqcontract` (`contractnumber`)");
2862 print "Upgrade to $DBversion done (edit aqbasket table done)\n";
2863 SetVersion ($DBversion);
2866 $DBversion = '3.01.00.075';
2867 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2868 $dbh->do("ALTER TABLE `aqorders` ADD COLUMN `uncertainprice` tinyint(1)");
2870 print "Upgrade to $DBversion done (adding uncertainprices)\n";
2871 SetVersion ($DBversion);
2874 $DBversion = '3.01.00.076';
2875 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2876 $dbh->do('SET FOREIGN_KEY_CHECKS=0 ');
2877 $dbh->do("CREATE TABLE IF NOT EXISTS `aqbasketgroups` (
2878 `id` int(11) NOT NULL auto_increment,
2879 `name` varchar(50) default NULL,
2880 `closed` tinyint(1) default NULL,
2881 `booksellerid` int(11) NOT NULL,
2883 KEY `booksellerid` (`booksellerid`),
2884 CONSTRAINT `aqbasketgroups_ibfk_1` FOREIGN KEY (`booksellerid`) REFERENCES `aqbooksellers` (`id`) ON UPDATE CASCADE ON DELETE CASCADE
2885 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
2886 $dbh->do("ALTER TABLE aqbasket ADD COLUMN `basketgroupid` int(11)");
2887 $dbh->do("ALTER TABLE aqbasket ADD FOREIGN KEY (`basketgroupid`) REFERENCES `aqbasketgroups` (`id`) ON UPDATE CASCADE ON DELETE SET NULL");
2888 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('pdfformat','pdfformat::layout2pages','Controls what script is used for printing (basketgroups)','','free')");
2889 $dbh->do('SET FOREIGN_KEY_CHECKS=1 ');
2890 print "Upgrade to $DBversion done (adding basketgroups)\n";
2891 SetVersion ($DBversion);
2893 $DBversion = '3.01.00.077';
2894 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
2896 $dbh->do("SET FOREIGN_KEY_CHECKS=0 ");
2897 # create a mapping table holding the info we need to match orders to budgets
2898 $dbh->do('DROP TABLE IF EXISTS fundmapping');
2900 q|CREATE TABLE fundmapping AS
2901 SELECT aqorderbreakdown.ordernumber, branchcode, bookfundid, budgetdate, entrydate
2902 FROM aqorderbreakdown JOIN aqorders ON aqorderbreakdown.ordernumber = aqorders.ordernumber|);
2903 # match the new type of the corresponding field
2904 $dbh->do('ALTER TABLE fundmapping modify column bookfundid varchar(30)');
2905 # System did not ensure budgetdate was valid historically
2906 $dbh->do(q|UPDATE fundmapping SET budgetdate = entrydate WHERE budgetdate = '0000-00-00' OR budgetdate IS NULL|);
2907 # We save the map in fundmapping in case you need later processing
2908 $dbh->do(q|ALTER TABLE fundmapping add column aqbudgetid integer|);
2909 # these can speed processing up
2910 $dbh->do(q|CREATE INDEX fundmaporder ON fundmapping (ordernumber)|);
2911 $dbh->do(q|CREATE INDEX fundmapid ON fundmapping (bookfundid)|);
2913 $dbh->do("DROP TABLE IF EXISTS `aqbudgetperiods` ");
2916 CREATE TABLE `aqbudgetperiods` (
2917 `budget_period_id` int(11) NOT NULL auto_increment,
2918 `budget_period_startdate` date NOT NULL,
2919 `budget_period_enddate` date NOT NULL,
2920 `budget_period_active` tinyint(1) default '0',
2921 `budget_period_description` mediumtext,
2922 `budget_period_locked` tinyint(1) default NULL,
2923 `sort1_authcat` varchar(10) default NULL,
2924 `sort2_authcat` varchar(10) default NULL,
2925 PRIMARY KEY (`budget_period_id`)
2926 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |);
2928 $dbh->do(<<ADDPERIODS);
2929 INSERT INTO aqbudgetperiods (budget_period_startdate,budget_period_enddate,budget_period_active,budget_period_description,budget_period_locked)
2930 SELECT DISTINCT startdate, enddate, NOW() BETWEEN startdate and enddate, concat(startdate," ",enddate),NOT NOW() BETWEEN startdate AND enddate from aqbudget
2932 # SORRY , NO AQBUDGET/AQBOOKFUND -> AQBUDGETS IMPORT JUST YET,
2933 # BUT A NEW CLEAN AQBUDGETS TABLE CREATE FOR NOW..
2934 # DROP TABLE IF EXISTS `aqbudget`;
2935 #CREATE TABLE `aqbudget` (
2936 # `bookfundid` varchar(10) NOT NULL default ',
2937 # `startdate` date NOT NULL default 0,
2938 # `enddate` date default NULL,
2939 # `budgetamount` decimal(13,2) default NULL,
2940 # `aqbudgetid` tinyint(4) NOT NULL auto_increment,
2941 # `branchcode` varchar(10) default NULL,
2942 DropAllForeignKeys
('aqbudget');
2943 #$dbh->do("drop table aqbudget;");
2946 my $maxbudgetid = $dbh->selectcol_arrayref(<<IDsBUDGET);
2947 SELECT MAX(aqbudgetid) from aqbudget
2950 $$maxbudgetid[0] = 0 if !$$maxbudgetid[0];
2952 $dbh->do(<<BUDGETAUTOINCREMENT);
2953 ALTER TABLE aqbudget AUTO_INCREMENT=$$maxbudgetid[0]
2956 $dbh->do(<<BUDGETNAME);
2957 ALTER TABLE aqbudget RENAME `aqbudgets`
2960 $dbh->do(<<BUDGETS);
2961 ALTER TABLE `aqbudgets`
2962 CHANGE COLUMN aqbudgetid `budget_id` int(11) NOT NULL AUTO_INCREMENT,
2963 CHANGE COLUMN branchcode `budget_branchcode` varchar(10) default NULL,
2964 CHANGE COLUMN budgetamount `budget_amount` decimal(28,6) NOT NULL default '0.00',
2965 CHANGE COLUMN bookfundid `budget_code` varchar(30) default NULL,
2966 ADD COLUMN `budget_parent_id` int(11) default NULL,
2967 ADD COLUMN `budget_name` varchar(80) default NULL,
2968 ADD COLUMN `budget_encumb` decimal(28,6) default '0.00',
2969 ADD COLUMN `budget_expend` decimal(28,6) default '0.00',
2970 ADD COLUMN `budget_notes` mediumtext,
2971 ADD COLUMN `budget_description` mediumtext,
2972 ADD COLUMN `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
2973 ADD COLUMN `budget_amount_sublevel` decimal(28,6) AFTER `budget_amount`,
2974 ADD COLUMN `budget_period_id` int(11) default NULL,
2975 ADD COLUMN `sort1_authcat` varchar(80) default NULL,
2976 ADD COLUMN `sort2_authcat` varchar(80) default NULL,
2977 ADD COLUMN `budget_owner_id` int(11) default NULL,
2978 ADD COLUMN `budget_permission` int(1) default '0';
2981 $dbh->do(<<BUDGETCONSTRAINTS);
2982 ALTER TABLE `aqbudgets`
2983 ADD CONSTRAINT `aqbudgets_ifbk_1` FOREIGN KEY (`budget_period_id`) REFERENCES `aqbudgetperiods` (`budget_period_id`) ON DELETE CASCADE ON UPDATE CASCADE
2985 # $dbh->do(<<BUDGETPKDROP);
2986 #ALTER TABLE `aqbudgets`
2989 # $dbh->do(<<BUDGETPKADD);
2990 #ALTER TABLE `aqbudgets`
2991 # ADD PRIMARY KEY budget_id
2995 my $query_period= $dbh->prepare(qq|SELECT budget_period_id from aqbudgetperiods where budget_period_startdate
=?
and budget_period_enddate
=?
|);
2996 my $query_bookfund= $dbh->prepare(qq|SELECT
* from aqbookfund where bookfundid
=?
|);
2997 my $selectbudgets=$dbh->prepare(qq|SELECT
* from aqbudgets
|);
2998 my $updatebudgets=$dbh->prepare(qq|UPDATE aqbudgets SET budget_period_id
= ?
, budget_name
=?
, budget_branchcode
=? where budget_id
=?
|);
2999 $selectbudgets->execute;
3000 while (my $databudget=$selectbudgets->fetchrow_hashref){
3001 $query_period->execute ($$databudget{startdate
},$$databudget{enddate
});
3002 my ($budgetperiodid)=$query_period->fetchrow;
3003 $query_bookfund->execute ($$databudget{budget_code
});
3004 my $databf=$query_bookfund->fetchrow_hashref;
3005 my $branchcode=$$databudget{budget_branchcode
}||$$databf{branchcode
};
3006 $updatebudgets->execute($budgetperiodid,$$databf{bookfundname
},$branchcode,$$databudget{budget_id
});
3008 $dbh->do(<<BUDGETDROPDATES);
3009 ALTER TABLE `aqbudgets`
3015 $dbh->do("DROP TABLE IF EXISTS `aqbudgets_planning` ");
3016 $dbh->do("CREATE TABLE `aqbudgets_planning` (
3017 `plan_id` int(11) NOT NULL auto_increment,
3018 `budget_id` int(11) NOT NULL,
3019 `budget_period_id` int(11) NOT NULL,
3020 `estimated_amount` decimal(28,6) default NULL,
3021 `authcat` varchar(30) NOT NULL,
3022 `authvalue` varchar(30) NOT NULL,
3023 `display` tinyint(1) DEFAULT 1,
3024 PRIMARY KEY (`plan_id`),
3025 CONSTRAINT `aqbudgets_planning_ifbk_1` FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON DELETE CASCADE ON UPDATE CASCADE
3026 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
3028 $dbh->do("ALTER TABLE `aqorders`
3029 ADD COLUMN `budget_id` tinyint(4) NOT NULL,
3030 ADD COLUMN `budgetgroup_id` int(11) NOT NULL,
3031 ADD COLUMN `sort1_authcat` varchar(10) default NULL,
3032 ADD COLUMN `sort2_authcat` varchar(10) default NULL" );
3033 # We need to map the orders to the budgets
3034 # For Historic reasons this is more complex than it should be on occasions
3035 my $budg_arr = $dbh->selectall_arrayref(
3036 q
|SELECT aqbudgets
.budget_id
, aqbudgets
.budget_code
, aqbudgetperiods
.budget_period_startdate
,
3037 aqbudgetperiods
.budget_period_enddate
3038 FROM aqbudgets JOIN aqbudgetperiods ON aqbudgets
.budget_period_id
= aqbudgetperiods
.budget_period_id
3039 ORDER BY budget_code
, budget_period_startdate
|, { Slice
=> {} });
3040 # We arbitarily order on start date, this means if you have overlapping periods the order will be
3041 # linked to the latest matching budget YMMV
3042 my $b_sth = $dbh->prepare(
3043 'UPDATE fundmapping set aqbudgetid = ? where bookfundid =? AND budgetdate >= ? AND budgetdate <= ?');
3044 for my $b ( @
{$budg_arr}) {
3045 $b_sth->execute($b->{budget_id
}, $b->{budget_code
}, $b->{budget_period_startdate
}, $b->{budget_period_enddate
});
3047 # move the budgetids to aqorders
3048 $dbh->do(q
|UPDATE aqorders
, fundmapping SET aqorders
.budget_id
= fundmapping
.aqbudgetid
3049 WHERE aqorders
.ordernumber
= fundmapping
.ordernumber AND fundmapping
.aqbudgetid IS NOT NULL
|);
3050 # NB fundmapping is left as an accontants trail also if you have budgetids that werent set
3051 # you can decide what to do with them
3054 q
|UPDATE aqorders
, aqbudgets SET aqorders
.budgetgroup_id
= aqbudgets
.budget_period_id
3055 WHERE aqorders
.budget_id
= aqbudgets
.budget_id
|);
3056 # cannot do until aqorderbreakdown removed
3057 # $dbh->do("DROP TABLE aqbookfund ");
3058 # $dbh->do("ALTER TABLE aqorders ADD FOREIGN KEY (`budget_id`) REFERENCES `aqbudgets` (`budget_id`) ON UPDATE CASCADE " ); ????
3059 $dbh->do("SET FOREIGN_KEY_CHECKS=1 ");
3061 print "Upgrade to $DBversion done (Adding new aqbudgetperiods, aqbudgets and aqbudget_planning tables )\n";
3062 SetVersion
($DBversion);
3067 $DBversion = '3.01.00.078';
3068 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
3069 $dbh->do("ALTER TABLE aqbudgetperiods ADD COLUMN budget_period_total decimal(28,6)");
3070 print "Upgrade to $DBversion done (adds 'budget_period_total' column to aqbudgetperiods table)\n";
3071 SetVersion
($DBversion);
3075 $DBversion = '3.01.00.079';
3076 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
3077 $dbh->do("ALTER TABLE currency ADD COLUMN active tinyint(1)");
3079 print "Upgrade to $DBversion done (adds 'active' column to currencies table)\n";
3080 SetVersion
($DBversion);
3083 $DBversion = '3.01.00.080';
3084 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
3085 $dbh->do(<<BUDG_PERM );
3086 INSERT INTO permissions (module_bit, code, description) VALUES
3087 (11, 'vendors_manage', 'Manage vendors'),
3088 (11, 'contracts_manage', 'Manage contracts'),
3089 (11, 'period_manage', 'Manage periods'),
3090 (11, 'budget_manage', 'Manage budgets'),
3091 (11, 'budget_modify', "Modify budget (can't create lines but can modify existing ones)"),
3092 (11, 'planning_manage', 'Manage budget plannings'),
3093 (11, 'order_manage', 'Manage orders & basket'),
3094 (11, 'group_manage', 'Manage orders & basketgroups'),
3095 (11, 'order_receive', 'Manage orders & basket'),
3096 (11, 'budget_add_del', "Add and delete budgets (but can't modify budgets)");
3099 print "Upgrade to $DBversion done (adds permissions for the acquisitions module)\n";
3100 SetVersion($DBversion);
3104 $DBversion = '3.01.00.081';
3105 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3106 $dbh->do("ALTER TABLE aqbooksellers ADD COLUMN `gstrate` decimal(6,4) default NULL");
3107 if (my $gist=C4::Context->preference("gist")){
3108 my $sql=$dbh->prepare("UPDATE aqbooksellers set `gstrate`=? ");
3109 $sql->execute($gist) ;
3111 print "Upgrade to $DBversion done (added per-supplier gstrate setting)\n";
3112 SetVersion($DBversion);
3115 $DBversion = "3.01.00.082";
3116 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3117 if (C4::Context->preference("opaclanguages") eq "fr") {
3118 $dbh->do(qq#INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AcqCreateItem','ordering',"Définit quand l'exemplaire est créé : à la commande, à la livraison, au catalogage",'ordering|receiving|cataloguing','Choice')#);
3120 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AcqCreateItem','ordering','Define when the item is created : when ordering, when receiving, or in cataloguing module','ordering|receiving|cataloguing','Choice')");
3122 print "Upgrade to $DBversion done (adding ReservesNeedReturns systempref, in circulation)\n";
3123 SetVersion ($DBversion);
3126 $DBversion = "3.01.00.083";
3127 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3129 CREATE TABLE `aqorders_items` (
3130 `ordernumber` int(11) NOT NULL,
3131 `itemnumber` int(11) NOT NULL,
3132 `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
3133 PRIMARY KEY (`itemnumber`),
3134 KEY `ordernumber` (`ordernumber`)
3135 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 |
3138 $dbh->do(qq| DROP TABLE aqorderbreakdown |);
3139 $dbh->do('DROP TABLE aqbookfund');
3140 print "Upgrade to $DBversion done (New aqorders_items table for acqui)\n";
3141 SetVersion ($DBversion);
3144 $DBversion = "3.01.00.084";
3145 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3146 $dbh->do( qq# INSERT INTO `systempreferences` VALUES ('CurrencyFormat','US','US|FR','Determines the display format of currencies. eg: ''36000'' is displayed as ''360 000,00'' in ''FR'' or 360,000.00'' in ''US''.','Choice') #);
3148 print "Upgrade to $DBversion done (CurrencyFormat syspref added)\n";
3149 SetVersion ($DBversion);
3152 $DBversion = "3.01.00.085";
3153 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3154 $dbh->do("ALTER table aqorders drop column title");
3155 $dbh->do("ALTER TABLE `aqorders` CHANGE `budget_id` `budget_id` INT( 11 ) NOT NULL");
3156 print "Upgrade to $DBversion done update budget_id size that should not be a tinyint\n";
3157 SetVersion ($DBversion);
3160 $DBversion = "3.01.00.086";
3161 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3162 $dbh->do(<<SUGGESTIONS);
3163 ALTER table suggestions
3164 ADD budgetid INT(11),
3165 ADD branchcode VARCHAR(10) default NULL,
3166 ADD acceptedby INT(11) default NULL,
3167 ADD accepteddate date default NULL,
3168 ADD suggesteddate date default NULL,
3169 ADD manageddate date default NULL,
3170 ADD rejectedby INT(11) default NULL,
3171 ADD rejecteddate date default NULL,
3172 ADD collectiontitle text default NULL,
3173 ADD itemtype VARCHAR(30) default NULL
3176 print "Upgrade to $DBversion done (Suggestions)\n";
3177 SetVersion
($DBversion);
3180 $DBversion = "3.01.00.087";
3181 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3182 $dbh->do("ALTER table aqbudgets drop column budget_amount_sublevel;");
3183 print "Upgrade to $DBversion done (Drop column budget_amount_sublevel from aqbudgets)\n";
3184 SetVersion
($DBversion);
3187 $DBversion = "3.01.00.088";
3188 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3189 $dbh->do( qq# INSERT INTO `systempreferences` VALUES ('intranetbookbag','1','','If ON, enables display of Cart feature in the intranet','YesNo') #);
3191 print "Upgrade to $DBversion done (intranetbookbag syspref added)\n";
3192 SetVersion
($DBversion);
3195 $DBversion = "3.01.00.090";
3196 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3198 INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3199 (16, 'execute_reports', 'Execute SQL reports'),
3200 (16, 'create_reports', 'Create SQL Reports')
3203 print "Upgrade to $DBversion done (granular permissions for guided reports added)\n";
3204 SetVersion
($DBversion);
3207 $DBversion = "3.01.00.091";
3208 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3210 UPDATE `systempreferences` SET `options` = 'holdings|serialcollection|subscriptions'
3211 WHERE `systempreferences`.`variable` = 'opacSerialDefaultTab' LIMIT 1
3214 print "Upgrade to $DBversion done (opac-detail default tag updated)\n";
3215 SetVersion
($DBversion);
3218 $DBversion = "3.01.00.092";
3219 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3220 if (C4
::Context
->preference("opaclanguages") =~ /fr/) {
3222 INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('RoutingListAddReserves','1','Si activé, des reservations sont automatiquement créées pour chaque lecteur de la liste de circulation d''un numéro de périodique','','YesNo');
3226 INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('RoutingListAddReserves','1','If ON the patrons on routing lists are automatically added to holds on the issue.','','YesNo');
3229 print "Upgrade to $DBversion done (Added RoutingListAddReserves syspref)\n";
3230 SetVersion
($DBversion);
3233 $DBversion = "3.01.00.093";
3234 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3236 ALTER TABLE biblioitems ADD INDEX issn_idx
(issn
);
3238 print "Upgrade to $DBversion done (added index to ISSN)\n";
3239 SetVersion
($DBversion);
3242 $DBversion = "3.01.00.094";
3243 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3245 ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR
(10) default NULL
, ADD deliverycomment VARCHAR
(255) default NULL
;
3248 print "Upgrade to $DBversion done (adding deliveryplace deliverycomment to basketgroups)\n";
3249 SetVersion
($DBversion);
3252 $DBversion = "3.01.00.095";
3253 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3255 ALTER TABLE items ADD stocknumber VARCHAR
(32) DEFAULT NULL COMMENT
"stores the inventory number";
3258 ALTER TABLE items ADD UNIQUE INDEX itemsstocknumberidx
(stocknumber
);
3261 ALTER TABLE deleteditems ADD stocknumber VARCHAR
(32) DEFAULT NULL COMMENT
"stores the inventory number of deleted items";
3264 ALTER TABLE deleteditems ADD UNIQUE INDEX deleteditemsstocknumberidx
(stocknumber
);
3266 if (C4
::Context
->preference('marcflavour') eq 'UNIMARC'){
3268 INSERT IGNORE INTO marc_subfield_structure
(frameworkcode
,tagfield
, tagsubfield
, tab
, repeatable
, mandatory
,kohafield
)
3269 SELECT DISTINCT
(frameworkcode
),995,"j",10,0,0,"items.stocknumber" from biblio_framework
;
3271 #Previously, copynumber was used as stocknumber
3273 UPDATE items set stocknumber
=copynumber
;
3276 UPDATE items set copynumber
=NULL
;
3279 print "Upgrade to $DBversion done (stocknumber field added)\n";
3280 SetVersion
($DBversion);
3283 $DBversion = "3.01.00.096";
3284 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3285 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OrderPdfTemplate','','Uploads a PDF template to use for printing baskets','NULL','Upload')");
3286 $dbh->do("UPDATE systempreferences SET variable='OrderPdfFormat' WHERE variable='pdfformat'");
3287 print "Upgrade to $DBversion done (PDF orders system preferences added and updated)\n";
3288 SetVersion
($DBversion);
3291 $DBversion = "3.01.00.097";
3292 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3294 ALTER TABLE aqbasketgroups ADD billingplace VARCHAR
(10) NOT NULL AFTER deliverycomment
;
3297 print "Upgrade to $DBversion done (Adding billingplace to aqbasketgroups)\n";
3298 SetVersion
($DBversion);
3301 $DBversion = "3.01.00.098";
3302 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3304 ALTER TABLE auth_subfield_structure MODIFY frameworkcode VARCHAR
(10) NULL
;
3307 print "Upgrade to $DBversion done (changing frameworkcode length in auth_subfield_structure)\n";
3308 SetVersion
($DBversion);
3311 $DBversion = "3.01.00.099";
3312 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3314 INSERT INTO
`permissions` (`module_bit`, `code`, `description`) VALUES
3315 (9, 'edit_catalogue', 'Edit catalogue'),
3316 (9, 'fast_cataloging', 'Fast cataloging')
3319 print "Upgrade to $DBversion done (granular permissions for cataloging added)\n";
3320 SetVersion
($DBversion);
3323 $DBversion = "3.01.00.100";
3324 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3325 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('casAuthentication', '0', '', 'Enable or disable CAS authentication', 'YesNo'), ('casLogout', '1', '', 'Does a logout from Koha should also log out of CAS ?', 'YesNo'), ('casServerUrl', 'https://localhost:8443/cas', '', 'URL of the cas server', 'Free')");
3326 print "Upgrade to $DBversion done (added CAS authentication system preferences)\n";
3327 SetVersion
($DBversion);
3330 $DBversion = "3.01.00.101";
3331 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3333 "INSERT INTO systempreferences
3334 (variable, value, options, explanation, type)
3336 'OverdueNoticeBcc', '', '',
3337 'Email address to Bcc outgoing notices sent by email',
3340 print "Upgrade to $DBversion done (added OverdueNoticeBcc system preferences)\n";
3341 SetVersion
($DBversion);
3343 $DBversion = "3.01.00.102";
3344 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3346 "UPDATE permissions set description = 'Edit catalog (Modify bibliographic/holdings data)' where module_bit = 9 and code = 'edit_catalogue'"
3348 print "Upgrade to $DBversion done (fixed spelling error in edit_catalogue permission)\n";
3349 SetVersion
($DBversion);
3352 $DBversion = "3.01.00.103";
3353 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3354 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES (13, 'moderate_tags', 'Moderate patron tags')");
3355 print "Upgrade to $DBversion done (adding patron permissions for tags tool)\n";
3356 SetVersion
($DBversion);
3359 $DBversion = "3.01.00.104";
3360 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3362 my ($maninv_count, $borrnotes_count);
3363 eval { $maninv_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='MANUAL_INV'"); };
3364 if ($maninv_count == 0) {
3365 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('MANUAL_INV','Copier Fees','.25')");
3367 eval { $borrnotes_count = $dbh->do("SELECT 1 FROM authorised_values WHERE category='BOR_NOTES'"); };
3368 if ($borrnotes_count == 0) {
3369 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('BOR_NOTES','ADDR','Address Notes')");
3372 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','CART','Book Cart')");
3373 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib) VALUES ('LOC','PROC','Processing Center')");
3375 print "Upgrade to $DBversion done ( add defaults to authorized values for MANUAL_INV and BOR_NOTES and add new default LOC authorized values for shelf to cart processing )\n";
3376 SetVersion
($DBversion);
3380 $DBversion = "3.01.00.105";
3381 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3383 CREATE TABLE `collections` (
3384 `colId` int(11) NOT NULL auto_increment,
3385 `colTitle` varchar(100) NOT NULL default '',
3386 `colDesc` text NOT NULL,
3387 `colBranchcode` varchar(4) default NULL COMMENT 'branchcode for branch where item should be held.',
3388 PRIMARY KEY (`colId`)
3389 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3393 CREATE TABLE `collections_tracking` (
3394 `ctId` int(11) NOT NULL auto_increment,
3395 `colId` int(11) NOT NULL default '0' COMMENT 'collections.colId',
3396 `itemnumber` int(11) NOT NULL default '0' COMMENT 'items.itemnumber',
3397 PRIMARY KEY (`ctId`)
3398 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3401 INSERT INTO permissions (module_bit, code, description)
3402 VALUES ( 13, 'rotating_collections', 'Manage Rotating collections')" );
3403 print "Upgrade to $DBversion done (added collection and collection_tracking tables for rotating collections functionality)\n";
3404 SetVersion
($DBversion);
3406 $DBversion = "3.01.00.106";
3407 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3408 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ( 'OpacAddMastheadLibraryPulldown', '0', '', 'Adds a pulldown menu to select the library to search on the opac masthead.', 'YesNo' )");
3409 print "Upgrade to $DBversion done (added OpacAddMastheadLibraryPulldown system preferences)\n";
3410 SetVersion
($DBversion);
3413 $DBversion = '3.01.00.107';
3414 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3415 my $upgrade_script = C4
::Context
->config("intranetdir") . "/installer/data/mysql/patroncards_upgrade.pl";
3416 system("perl $upgrade_script");
3417 print "Upgrade to $DBversion done (Migrated labels and patroncards tables and data to new schema.)\n";
3418 SetVersion
($DBversion);
3421 $DBversion = '3.01.00.108';
3422 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3424 ALTER TABLE
`export_format` ADD
`csv_separator` VARCHAR
( 2 ) NOT NULL AFTER
`marcfields` ,
3425 ADD
`field_separator` VARCHAR
( 2 ) NOT NULL AFTER
`csv_separator` ,
3426 ADD
`subfield_separator` VARCHAR
( 2 ) NOT NULL AFTER
`field_separator`
3428 print "Upgrade to $DBversion done (added separators for csv export)\n";
3429 SetVersion
($DBversion);
3432 $DBversion = "3.01.00.109";
3433 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3435 ALTER TABLE
`export_format` ADD
`encoding` VARCHAR
(255) NOT NULL AFTER
`subfield_separator`
3437 print "Upgrade to $DBversion done (added encoding for csv export)\n";
3438 SetVersion
($DBversion);
3441 $DBversion = '3.01.00.110';
3442 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3443 $dbh->do('ALTER TABLE `categories` ADD COLUMN `enrolmentperioddate` DATE NULL DEFAULT NULL AFTER `enrolmentperiod`');
3444 print "Upgrade to $DBversion done (Add enrolment period date support)\n";
3445 SetVersion
($DBversion);
3448 $DBversion = '3.01.00.111';
3449 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3450 print "Upgrade to $DBversion done (mark DBrev for 3.2-alpha release)\n";
3451 SetVersion
($DBversion);
3454 $DBversion = '3.01.00.112';
3455 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3456 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('SpineLabelShowPrintOnBibDetails', '0', '', 'If turned on, a \"Print Label\" link will appear for each item on the bib details page in the staff interface.', 'YesNo');");
3457 print "Upgrade to $DBversion done ( added Show Spine Label Printer on Bib Items Details preferences )\n";
3458 SetVersion
($DBversion);
3461 $DBversion = '3.01.00.113';
3462 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3463 my $value = C4
::Context
->preference("XSLTResultsDisplay");
3465 "INSERT INTO systempreferences (variable,value,type)
3466 VALUES('OPACXSLTResultsDisplay',?,'YesNo')", {}, $value ?
1 : 0);
3467 $value = C4
::Context
->preference("XSLTDetailsDisplay");
3469 "INSERT INTO systempreferences (variable,value,type)
3470 VALUES('OPACXSLTDetailsDisplay',?,'YesNo')", {}, $value ?
1 : 0);
3471 print "Upgrade to $DBversion done (added two new syspref: OPACXSLTResultsDisplay and OPACXSLTDetailDisplay). You may have to go in Admin > System preference to tweak XSLT related syspref both in OPAC and Search tabs.\n";
3472 SetVersion
($DBversion);
3475 $DBversion = '3.01.00.114';
3476 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3477 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type)VALUES('AutoSelfCheckAllowed', '0', 'For corporate and special libraries which want web-based self-check available from any PC without the need for a manual staff login. Most libraries will want to leave this turned off. If on, requires self-check ID and password to be entered in AutoSelfCheckID and AutoSelfCheckPass sysprefs.', '', 'YesNo')");
3478 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AutoSelfCheckID','','Staff ID with circulation rights to be used for automatic web-based self-check. Only applies if AutoSelfCheckAllowed syspref is turned on.','','free')");
3479 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AutoSelfCheckPass','','Password to be used for automatic web-based self-check. Only applies if AutoSelfCheckAllowed syspref is turned on.','','free')");
3480 print "Upgrade to $DBversion done ( Added AutoSelfCheckAllowed, AutoSelfCheckID, and AutoShelfCheckPass system preference )\n";
3481 SetVersion
($DBversion);
3484 $DBversion = '3.01.00.115';
3485 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3486 $dbh->do('UPDATE aqorders SET quantityreceived = 0 WHERE quantityreceived IS NULL');
3487 $dbh->do('ALTER TABLE aqorders MODIFY COLUMN quantityreceived smallint(6) NOT NULL DEFAULT 0');
3488 print "Upgrade to $DBversion done ( Default aqorders.quantityreceived to 0 )\n";
3489 SetVersion
($DBversion);
3492 $DBversion = '3.01.00.116';
3493 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3494 if (C4
::Context
->preference('OrderPdfFormat') eq 'pdfformat::example'){
3495 $dbh->do("UPDATE `systempreferences` set value='pdfformat::layout2pages' WHERE variable='OrderPdfFormat'");
3497 print "Upgrade to $DBversion done (corrected default OrderPdfFormat value if still set wrong )\n";
3498 SetVersion
($DBversion);
3501 $DBversion = '3.01.00.117';
3502 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3503 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code = 'por' WHERE rfc4646_subtag='pt' ");
3504 print "Upgrade to $DBversion done (corrected ISO 639-2 language code for Portuguese)\n";
3505 SetVersion
($DBversion);
3508 $DBversion = '3.01.00.118';
3509 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3510 my ($count) = $dbh->selectrow_array("SELECT count(*) FROM information_schema.columns
3511 WHERE table_name = 'aqbudgets_planning'
3512 AND column_name = 'display'");
3514 $dbh->do("ALTER TABLE aqbudgets_planning ADD COLUMN display tinyint(1) DEFAULT 1");
3516 print "Upgrade to $DBversion done (bug 4203: add display column to aqbudgets_planning if missing)\n";
3517 SetVersion
($DBversion);
3520 $DBversion = '3.01.00.119';
3521 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3522 eval{require Locale
::Currency
::Format
};
3524 print "Upgrade to $DBversion done (Locale::Currency::Format installed.)\n";
3525 SetVersion
($DBversion);
3528 print "Upgrade to $DBversion done.\n";
3529 print "NOTICE: The Locale::Currency::Format package is not installed on your system or not found in \@INC.\nThis dependency is required in order to include fine information in overdue notices.\nPlease ask your system administrator to install this package.\n";
3530 SetVersion
($DBversion);
3534 $DBversion = '3.01.00.120';
3535 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3537 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('soundon','0','Enable circulation sounds during checkin and checkout in the staff interface. Not supported by all web browsers yet.','','YesNo');
3539 print "Upgrade to $DBversion done (bug 1080: add soundon system preference for circulation sounds)\n";
3540 SetVersion
($DBversion);
3543 $DBversion = '3.01.00.121';
3544 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3545 $dbh->do("ALTER TABLE `reserves` ADD `expirationdate` DATE DEFAULT NULL");
3546 $dbh->do("ALTER TABLE `reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3547 $dbh->do("ALTER TABLE `old_reserves` ADD `expirationdate` DATE DEFAULT NULL");
3548 $dbh->do("ALTER TABLE `old_reserves` ADD `lowestPriority` tinyint(1) NOT NULL");
3549 print "Upgrade to $DBversion done ( Added Additional Fields to Reserves tables )\n";
3550 SetVersion
($DBversion);
3553 $DBversion = '3.01.00.122';
3554 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3556 INSERT INTO systempreferences (variable,value,explanation,options,type)
3557 VALUES ('OAI-PMH:ConfFile', '', 'If empty, Koha OAI Server operates in normal mode, otherwise it operates in extended mode.','','File');
3559 print "Upgrade to $DBversion done. — Add a new system preference OAI-PMF:ConfFile\n";
3560 SetVersion
($DBversion);
3563 $DBversion = "3.01.00.123";
3564 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3565 $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3566 (6, 'place_holds', 'Place holds for patrons')");
3567 $dbh->do("INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
3568 (6, 'modify_holds_priority', 'Modify holds priority')");
3569 $dbh->do("UPDATE `userflags` SET `flagdesc` = 'Place and modify holds for patrons' WHERE `flag` = 'reserveforothers'");
3570 print "Upgrade to $DBversion done (Add granular permission for holds modification and update description of reserveforothers permission)\n";
3571 SetVersion
($DBversion);
3574 $DBversion = '3.01.00.124';
3575 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3577 INSERT INTO `letter` (module, code, name, title, content) VALUES('reserves', 'HOLDPLACED', 'Hold Placed on Item', 'Hold Placed on Item','A hold has been placed on the following item : <<title>> (<<biblionumber>>) by the user <<firstname>> <<surname>> (<<cardnumber>>).');
3579 print "Upgrade to $DBversion done (bug 3242: add HOLDPLACED letter template, which is used when emailLibrarianWhenHoldIsPlaced is enabled)\n";
3580 SetVersion
($DBversion);
3583 $DBversion = '3.01.00.125';
3584 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3586 INSERT INTO `systempreferences` ( `variable` , `value` , `options` , `explanation` , `type` ) VALUES ( 'PrintNoticesMaxLines', '0', '', 'If greater than 0, sets the maximum number of lines an overdue notice will print. If the number of items is greater than this number, the notice will end with a warning asking the borrower to check their online account for a full list of overdue items.', 'Integer' );
3589 INSERT INTO message_transport_types (message_transport_type) values ('print');
3591 print "Upgrade to $DBversion done (bug 3482: Printable hold and overdue notices)\n";
3592 SetVersion
($DBversion);
3595 $DBversion = "3.01.00.126";
3596 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3597 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ILS-DI','0','Enable ILS-DI services. See http://your.opac.name/cgi-bin/koha/ilsdi.pl for online documentation.','','YesNo')");
3598 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ILS-DI:AuthorizedIPs','127.0.0.1','A comma separated list of IP addresses authorized to access the web services.','','free')");
3600 print "Upgrade to $DBversion done (Adding ILS-DI updates and ILS-DI:AuthorizedIPs)\n";
3601 SetVersion
($DBversion);
3604 $DBversion = '3.01.00.127';
3605 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3606 $dbh->do("ALTER TABLE messages CHANGE branchcode branchcode varchar(10);");
3607 print "Upgrade to $DBversion done (bug 4190: messages in patron account did not work with branchcodes > 4)\n";
3608 SetVersion
($DBversion);
3611 $DBversion = '3.01.00.128';
3612 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3613 $dbh->do('CREATE INDEX budget_id ON aqorders (budget_id );');
3614 print "Upgrade to $DBversion done (bug 4331: index orders by budget_id)\n";
3615 SetVersion
($DBversion);
3618 $DBversion = "3.01.00.129";
3619 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3620 $dbh->do("UPDATE `permissions` SET `code` = 'items_batchdel' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchdel' LIMIT 1 ;");
3621 $dbh->do("UPDATE `permissions` SET `code` = 'items_batchmod' WHERE `permissions`.`module_bit` =13 AND `permissions`.`code` = 'batchmod' LIMIT 1 ;");
3622 print "Upgrade to $DBversion done (Change permissions names for item batch modification / deletion)\n";
3624 SetVersion
($DBversion);
3627 $DBversion = "3.01.00.130";
3628 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3629 $dbh->do("UPDATE reserves SET expirationdate = NULL WHERE expirationdate = '0000-00-00'");
3630 print "Upgrade to $DBversion done (change reserves.expirationdate values of 0000-00-00 to NULL (bug 1532)\n";
3631 SetVersion
($DBversion);
3634 $DBversion = "3.01.00.131";
3635 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3637 INSERT IGNORE INTO message_transport_types (message_transport_type) VALUES ('print'),('feed');
3639 print "Upgrade to $DBversion done (adding print and feed message transport types)\n";
3640 SetVersion
($DBversion);
3643 $DBversion = "3.01.00.132";
3644 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3646 ALTER TABLE language_descriptions ADD INDEX subtag_type_lang (subtag, type, lang);
3648 print "Upgrade to $DBversion done (Adding index to language_descriptions table)\n";
3649 SetVersion
($DBversion);
3652 $DBversion = '3.01.00.133';
3653 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3654 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OverduesBlockCirc','noblock','When checking out an item should overdues block checkout, generate a confirmation dialogue, or allow checkout','noblock|confirmation|block','Choice')");
3655 print "Upgrade to $DBversion done (bug 4405: added OverduesBlockCirc syspref to control whether circulation is blocked if a borrower has overdues)\n";
3656 SetVersion
($DBversion);
3659 $DBversion = '3.01.00.134';
3660 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3661 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('DisplayMultiPlaceHold','1','Display the ability to place multiple holds or not','','YesNo')");
3662 print "Upgrade to $DBversion done (adding syspref DisplayMultiPlaceHold to control whether multiple holds can be placed from the search results page)\n";
3663 SetVersion
($DBversion);
3666 $DBversion = '3.01.00.135';
3667 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3669 INSERT INTO `letter` (module, code, name, title, content) VALUES
3670 ('reserves', 'HOLD_PRINT', 'Hold Available for Pickup (print notice)', 'Hold Available for Pickup (print notice)', '<<branches.branchname>>\r\n<<branches.branchaddress1>>\r\n<<branches.branchaddress2>>\r\n\r\n\r\nChange Service Requested\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>>\r\n<<borrowers.address>>\r\n<<borrowers.city>> <<borrowers.zipcode>>\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>> <<borrowers.cardnumber>>\r\n\r\nYou have a hold available for pickup as of <<reserves.waitingdate>>:\r\n\r\nTitle: <<biblio.title>>\r\nAuthor: <<biblio.author>>\r\nCopy: <<items.copynumber>>\r\n')
3672 print "Upgrade to $DBversion done (bug 4377: added HOLD_PRINT message template)\n";
3673 SetVersion
($DBversion);
3676 $DBversion = '3.01.00.136';
3677 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3679 INSERT INTO permissions
(module_bit
, code
, description
) VALUES
3680 ( 9, 'edit_items', 'Edit Items');});
3681 print "Upgrade to $DBversion done (Adding a new permission to edit items)\n";
3682 SetVersion ($DBversion);
3685 $DBversion = "3.01.00.137";
3686 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
3688 INSERT INTO permissions
(module_bit
, code
, description
) VALUES
3689 (15, 'check_expiration', 'Check the expiration of a serial'),
3690 (15, 'claim_serials', 'Claim missing serials'),
3691 (15, 'create_subscription', 'Create a new subscription'),
3692 (15, 'delete_subscription', 'Delete an existing subscription'),
3693 (15, 'edit_subscription', 'Edit an existing subscription'),
3694 (15, 'receive_serials', 'Serials receiving'),
3695 (15, 'renew_subscription', 'Renew a subscription'),
3696 (15, 'routing', 'Routing');
3698 print "Upgrade to
$DBversion done
(adding granular permissions
for serials
)\n";
3699 SetVersion ($DBversion);
3702 $DBversion = "3.01.00.138";
3703 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
3704 $dbh->do("DELETE FROM systempreferences WHERE variable
= 'GranularPermissions'");
3705 print "Upgrade to
$DBversion done
(bug
4896: removing GranularPermissions syspref
; use of granular permissions is now the
default)\n";
3706 SetVersion ($DBversion);
3709 $DBversion = '3.01.00.139';
3710 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3711 $dbh->do("ALTER TABLE message_attributes CHANGE message_name message_name varchar
(40);");
3712 print "Upgrade to
$DBversion done
(bug
3682: change message_name from varchar
(20) to varchar
(40))\n";
3713 SetVersion ($DBversion);
3716 $DBversion = '3.01.00.140';
3717 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3718 $dbh->do("UPDATE systempreferences SET value
= '0' WHERE variable
= 'TagsModeration' AND value is NULL
");
3719 print "Upgrade to
$DBversion done
(bug
4312 TagsModeration changed from NULL to
0)\n";
3720 SetVersion ($DBversion);
3723 $DBversion = '3.01.00.141';
3724 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3725 $dbh->do(qq{DELETE FROM message_attributes WHERE message_attribute_id=3;});
3726 $dbh->do(qq{DELETE FROM letter WHERE code='EVENT' AND title='Upcoming Library Event';});
3727 print "Upgrade to
$DBversion done Remove upcoming events messaging option
(bug
2434)\n";
3728 SetVersion ($DBversion);
3731 $DBversion = '3.01.00.142';
3732 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3733 $dbh->do(qq{DELETE FROM message_transports WHERE message_attribute_id=3;});
3734 print "Upgrade to
$DBversion done
(Remove upcoming events messaging option part
2 (bug
2434))\n";
3735 SetVersion ($DBversion);
3738 $DBversion = '3.01.00.143';
3739 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3740 $dbh->do(qq{CREATE INDEX auth_value_idx ON authorised_values (authorised_value)});
3741 $dbh->do(qq{CREATE INDEX auth_val_cat_idx ON borrower_attribute_types (authorised_value_category)});
3742 print "Upgrade to
$DBversion done
(Create
index on authorised_values
and borrower_attribute_types
(bug
4139))\n";
3743 SetVersion ($DBversion);
3746 $DBversion = '3.01.00.144';
3747 if (C4::Context->preference('Version') < TransformToNum($DBversion)){
3748 $dbh->do(qq{UPDATE systempreferences SET value='normal' where value='default' and variable='IntranetBiblioDefaultView'});
3749 print "Upgrade to
$DBversion done
(Update the
'default' to
'normal' for the IntranetBiblioDefaultView syspref
(bug
5007))\n";
3750 SetVersion ($DBversion);
3753 $DBversion = "3.01.00.145";
3754 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
3755 $dbh->do("ALTER TABLE borrowers ADD KEY
`guarantorid` (guarantorid
);");
3756 print "Upgrade to
$DBversion done
(Add
index on guarantorid
)\n";
3757 SetVersion ($DBversion);
3760 $DBversion = '3.01.00.999';
3761 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
3762 print "Upgrade to
$DBversion done
(3.2.0 release candidate
)\n";
3763 SetVersion ($DBversion);
3766 $DBversion = "3.02.00.000";
3767 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
3768 my $value = $dbh->selectrow_array("SELECT value FROM systempreferences WHERE variable
= 'HomeOrHoldingBranch'");
3769 $dbh->do("INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('HomeOrHoldingBranchReturn','$value','Used by Circulation to determine which branch of an item to check checking-in items','holdingbranch|homebranch','Choice');");
3770 print "Upgrade to
$DBversion done
(Add HomeOrHoldingBranchReturn
system preference
)\n";
3771 SetVersion ($DBversion);
3774 $DBversion = "3.02.00.001";
3775 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
3776 $dbh->do(q{DELETE FROM systempreferences WHERE variable IN (
3781 'OPACSubscriptionDisplay',
3782 'OPACDisplayExtendedSubInfo',
3793 print "Upgrade to $DBversion done (bug 3756: remove disused system preferences)\n";
3794 SetVersion
($DBversion);
3797 $DBversion = "3.02.00.002";
3798 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3799 $dbh->do(q{DELETE FROM systempreferences WHERE variable = 'OpacPrivacy'});
3800 print "Upgrade to $DBversion done (bug 3881: remove unused OpacPrivacy system preference)\n";
3801 SetVersion
($DBversion);
3804 $DBversion = "3.02.00.003";
3805 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3806 $dbh->do(q{UPDATE systempreferences SET variable = 'ILS-DI:AuthorizedIPs' WHERE variable = 'ILS-DI:Authorized_IPs'});
3807 print "Upgrade to $DBversion done (correct ILS-DI:AuthorizedIPs)\n";
3808 SetVersion
($DBversion);
3811 $DBversion = "3.02.00.004";
3812 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3813 print "Upgrade to $DBversion done (3.2.0 general release)\n";
3814 SetVersion
($DBversion);
3816 # This is the point where 3.2.x and master diverged, we can use $original_version to make sure we don't
3818 # apply updates that have already been done
3820 $DBversion = "3.03.00.001";
3821 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.00.005")) {
3822 $dbh->do("DELETE FROM subscriptionroutinglist WHERE borrowernumber IS NULL;");
3823 $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `borrowernumber` int(11) NOT NULL;");
3824 $dbh->do("DELETE FROM subscriptionroutinglist WHERE subscriptionid IS NULL;");
3825 $dbh->do("ALTER TABLE subscriptionroutinglist MODIFY COLUMN `subscriptionid` int(11) NOT NULL;");
3826 $dbh->do("CREATE TEMPORARY TABLE del_subscriptionroutinglist
3827 SELECT s1.routingid FROM subscriptionroutinglist s1
3828 WHERE EXISTS (SELECT * FROM subscriptionroutinglist s2
3829 WHERE s2.borrowernumber = s1.borrowernumber
3830 AND s2.subscriptionid = s1.subscriptionid
3831 AND s2.routingid < s1.routingid);");
3832 $dbh->do("DELETE FROM subscriptionroutinglist
3833 WHERE routingid IN (SELECT routingid FROM del_subscriptionroutinglist);");
3834 $dbh->do("ALTER TABLE subscriptionroutinglist ADD UNIQUE (subscriptionid, borrowernumber);");
3835 $dbh->do("ALTER TABLE subscriptionroutinglist
3836 ADD CONSTRAINT `subscriptionroutinglist_ibfk_1` FOREIGN KEY (`borrowernumber`)
3837 REFERENCES `borrowers` (`borrowernumber`)
3838 ON DELETE CASCADE ON UPDATE CASCADE");
3839 $dbh->do("ALTER TABLE subscriptionroutinglist
3840 ADD CONSTRAINT `subscriptionroutinglist_ibfk_2` FOREIGN KEY (`subscriptionid`)
3841 REFERENCES `subscription` (`subscriptionid`)
3842 ON DELETE CASCADE ON UPDATE CASCADE");
3843 print "Upgrade to $DBversion done (Make subscriptionroutinglist more strict)\n";
3844 SetVersion
($DBversion);
3847 $DBversion = '3.03.00.002';
3848 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.00.006")) {
3849 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='arm' WHERE rfc4646_subtag='hy';");
3850 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='eng' WHERE rfc4646_subtag='en';");
3851 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'fi','fin');");
3852 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='fre' WHERE rfc4646_subtag='fr';");
3853 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'lo','lao');");
3854 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it';");
3855 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'sr','srp');");
3856 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'tet','tet');");
3857 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ur','urd');");
3859 print "Upgrade to $DBversion done (Correct language mappings)\n";
3860 SetVersion
($DBversion);
3863 $DBversion = '3.03.00.003';
3864 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.00.007")) {
3865 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTablesortForCirc','0','If on, use the JQuery tablesort function on the list of current borrower checkouts on the circulation page. Note that the use of this function may slow down circ for patrons with may checkouts.','','YesNo');");
3866 print "Upgrade to $DBversion done (Add UseTablesortForCirc syspref)\n";
3867 SetVersion
($DBversion);
3870 $DBversion = '3.03.00.004';
3871 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.01.001")) {
3872 my $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ACCEPTED');
3874 INSERT INTO
`letter`
3875 (module
, code
, name
, title
, content
)
3877 ('suggestions','ACCEPTED','Suggestion accepted', 'Purchase suggestion accepted','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nThe library has reviewed your suggestion today. The item will be ordered as soon as possible. You will be notified by mail when the order is completed, and again when the item arrives at the library.\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3878 /) unless $count > 0;
3879 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'AVAILABLE');
3881 INSERT INTO
`letter`
3882 (module
, code
, name
, title
, content
)
3884 ('suggestions','AVAILABLE','Suggestion available', 'Suggested purchase available','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nWe are pleased to inform you that the item you requested is now part of the collection.\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3885 /) unless $count > 0;
3886 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'ORDERED');
3888 INSERT INTO
`letter`
3889 (module
, code
, name
, title
, content
)
3891 ('suggestions','ORDERED','Suggestion ordered', 'Suggested item ordered','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nWe are pleased to inform you that the item you requested has now been ordered. It should arrive soon, at which time it will be processed for addition into the collection.\n\nYou will be notified again when the book is available.\n\nIf you have any questions, please email us at <<branches.branchemail>>\n\nThank you,\n\n<<branches.branchname>>')
3892 /) unless $count > 0;
3893 $count = $dbh->selectrow_array('SELECT COUNT(*) FROM letter WHERE module = ? AND code = ?', {}, 'suggestions', 'REJECTED');
3895 INSERT INTO
`letter`
3896 (module
, code
, name
, title
, content
)
3898 ('suggestions','REJECTED','Suggestion rejected', 'Purchase suggestion declined','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nYou have suggested that the library acquire <<suggestions.title>> by <<suggestions.author>>.\n\nThe library has reviewed your request today, and has decided not to accept the suggestion at this time.\n\nThe reason given is: <<suggestions.reason>>\n\nIf you have any questions, please email us at <<branches.branchemail>>.\n\nThank you,\n\n<<branches.branchname>>')
3899 /) unless $count > 0;
3900 print "Upgrade to $DBversion done (bug 5127: add default templates for suggestion status change notifications)\n";
3901 SetVersion
($DBversion);
3904 $DBversion = '3.03.00.005';
3905 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3906 $dbh->do("update `systempreferences` set options='whitespace|T-prefix|cuecat|libsuite8' where variable='itemBarcodeInputFilter'");
3907 print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice libsuite8)\n";
3910 $DBversion = '3.03.00.006';
3911 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.01.002")) {
3912 $dbh->do("ALTER TABLE deletedborrowers ADD `privacy` int(11) AFTER smsalertnumber;");
3913 $dbh->do("ALTER TABLE deletedborrowers CHANGE `cardnumber` `cardnumber` varchar(16);");
3914 print "Upgrade to $DBversion done (Fix differences between borrowers and deletedborrowers)\n";
3915 SetVersion
($DBversion);
3918 $DBversion = '3.03.00.007';
3919 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3920 $dbh->do("ALTER table suggestions ADD quantity SMALLINT(6) default NULL,
3921 ADD currency VARCHAR(3) default NULL,
3922 ADD price DECIMAL(28,6) default NULL,
3923 ADD total DECIMAL(28,6) default NULL;
3925 print "Upgrade to $DBversion done (Added acq related columns to suggestions)\n";
3926 SetVersion
($DBversion);
3929 $DBversion = '3.03.00.008';
3930 if (C4
::Context
->preference('Version') < TransformToNum
($DBversion)){
3931 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACNoResultsFound','','Display this HTML when no results are found for a search in the OPAC','70|10','Textarea')");
3932 print "Upgrade to $DBversion done (adding syspref OPACNoResultsFound to control what displays when no results are found for a search in the OPAC.)\n";
3933 SetVersion
($DBversion);
3936 $DBversion = '3.03.00.009';
3937 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.01.003")) {
3938 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetUserCSS','','Add CSS to be included in the Intranet',NULL,'free')");
3939 print "Upgrade to $DBversion done (Add IntranetUserCSS syspref)\n";
3940 SetVersion
($DBversion);
3943 $DBversion = "3.03.00.010";
3944 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.02.001")) {
3945 $dbh->do("UPDATE `marc_subfield_structure` SET liblibrarian = 'Distance from earth' WHERE liblibrarian = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3946 $dbh->do("UPDATE `marc_subfield_structure` SET libopac = 'Distance from earth' WHERE libopac = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
3947 print "Upgrade to $DBversion done (Fix misspelled 034r subfield in MARC21 Frameworks)\n";
3948 SetVersion
($DBversion);
3951 $DBversion = "3.03.00.011";
3952 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3953 $dbh->do("UPDATE aqbooksellers SET gstrate=NULL WHERE gstrate=0.0");
3954 print "Upgrade to $DBversion done (Bug 5186: allow GST rate to be set to 0)\n";
3955 SetVersion
($DBversion);
3958 $DBversion = "3.03.00.012";
3959 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3960 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxItemsInSearchResults',20,'Specify the maximum number of items to display for each result on a page of results',NULL,'free')");
3961 print "Upgrade to $DBversion done (Bug 2142: maxItemsInSearchResults syspref resurrected)\n";
3962 SetVersion
($DBversion);
3965 $DBversion = "3.03.00.013";
3966 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3967 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacPublic','1','If set to OFF and user is not logged in, all OPAC pages require authentication, and OPAC searchbar is removed)','','YesNo')");
3968 print "Upgrade to $DBversion done (added 'OpacPublic' syspref)\n";
3969 SetVersion
($DBversion);
3972 $DBversion = "3.03.00.014";
3973 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
3974 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesLocation','1','Use the item location when finding items for the shelf browser.','1','YesNo')");
3975 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesHomeBranch','1','Use the item home branch when finding items for the shelf browser.','1','YesNo')");
3976 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('ShelfBrowserUsesCcode','0','Use the item collection code when finding items for the shelf browser.','1','YesNo')");
3977 print "Upgrade to $DBversion done (Add flexible shelf browser constraints)\n";
3978 SetVersion
($DBversion);
3981 $DBversion = "3.03.00.015";
3982 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
3983 if ( C4
::Context
->preference("marcflavour") eq "MARC21" ) {
3984 my $sth = $dbh->prepare(
3985 "INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`,
3986 `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`)
3987 VALUES ( ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, '', 6, '', '', '', 0, -5, '', '', '', NULL)"
3989 $sth->execute('648');
3990 $sth->execute('654');
3991 $sth->execute('655');
3992 $sth->execute('656');
3993 $sth->execute('657');
3994 $sth->execute('658');
3995 $sth->execute('662');
3998 "Upgrade to $DBversion done (Bug 5619: Add subfield 9 to marc21 648,654,655,656,657,658,662)\n";
4000 SetVersion
($DBversion);
4003 $DBversion = '3.03.00.016';
4004 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4005 # reimplement OpacPrivacy system preference
4006 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacPrivacy', '0', 'if ON, allows patrons to define their privacy rules (reading history)',NULL,'YesNo')");
4007 $dbh->do("ALTER TABLE `borrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4008 $dbh->do("ALTER TABLE `deletedborrowers` ADD `privacy` INTEGER NOT NULL DEFAULT 1;");
4009 print "Upgrade to $DBversion done (OpacPrivacy reimplementation)\n";
4010 SetVersion
($DBversion);
4013 $DBversion = '3.03.00.017';
4014 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.03.001")) {
4015 $dbh->do("ALTER TABLE `currency` CHANGE `rate` `rate` FLOAT( 15, 5 ) NULL DEFAULT NULL;");
4016 print "Upgrade to $DBversion done (Enable currency rates >= 100)\n";
4017 SetVersion
($DBversion);
4020 $DBversion = '3.03.00.018';
4021 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.03.002")) {
4022 $dbh->do( q
|update language_descriptions set description
= 'Nederlands' where lang
= 'nl' and subtag
= 'nl'|);
4023 $dbh->do( q
|update language_descriptions set description
= 'Dansk' where lang
= 'da' and subtag
= 'da'|);
4024 print "Upgrade to $DBversion done (Correct language descriptions)\n";
4025 SetVersion
($DBversion);
4028 $DBversion = '3.03.00.019';
4029 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.03.003")) {
4031 $dbh->do("UPDATE language_subtag_registry SET description = 'Norwegian bokmål' WHERE subtag = 'nb';");
4032 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nb','nob');");
4033 $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND lang = 'nb';");
4034 $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND lang = 'en';");
4035 $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND lang = 'fr';");
4037 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'nn', 'language', 'Norwegian nynorsk','2011-02-14' )");
4038 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'nn','nno')");
4039 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nb', 'Norsk nynorsk')");
4040 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'nn', 'Norsk nynorsk')");
4041 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'en', 'Norwegian nynorsk')");
4042 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'nn', 'language', 'fr', 'Norvégien nynorsk')");
4043 print "Upgrade to $DBversion done (Correct language descriptions for Norwegian)\n";
4044 SetVersion
($DBversion);
4047 $DBversion = '3.03.00.020';
4048 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4049 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowFineOverride','0','If on, staff will be able to issue books to patrons with fines greater than noissuescharge.','0','YesNo')");
4050 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllFinesNeedOverride','1','If on, staff will be asked to override every fine, even if it is below noissuescharge.','0','YesNo')");
4051 print "Upgrade to $DBversion done (Bug 5811: Add sysprefs controlling overriding fines)\n";
4052 SetVersion
($DBversion);
4055 $DBversion = '3.03.00.021';
4056 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.05.001")) {
4057 $dbh->do("ALTER TABLE items MODIFY enumchron TEXT");
4058 $dbh->do("ALTER TABLE deleteditems MODIFY enumchron TEXT");
4059 print "Upgrade to $DBversion done (bug 5642: longer serial enumeration)\n";
4060 SetVersion
($DBversion);
4063 $DBversion = '3.03.00.022';
4064 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4065 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AuthoritiesLog','0','If ON, log edit/create/delete actions on authorities.','','YesNo');");
4066 print "Upgrade to $DBversion done (Add AuthoritiesLog syspref)\n";
4067 SetVersion
($DBversion);
4070 # due to a mismatch in kohastructure.sql some koha will have missing columns in aqbasketgroup
4071 # this attempts to fix that
4072 $DBversion = '3.03.00.023';
4073 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.05.002")) {
4074 my $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'billingplace'");
4076 $dbh->do("ALTER TABLE aqbasketgroups ADD billingplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4077 $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliveryplace'");
4079 $dbh->do("ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10)") if ! $sth->fetchrow_hashref;
4080 $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'aqbasketgroups' AND COLUMN_NAME = 'deliverycomment'");
4082 $dbh->do("ALTER TABLE aqbasketgroups ADD deliverycomment VARCHAR(255)") if ! $sth->fetchrow_hashref;
4083 print "Upgrade to $DBversion done (Reconcile aqbasketgroups)\n";
4084 SetVersion
($DBversion);
4087 $DBversion = '3.03.00.024';
4088 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4089 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('TraceCompleteSubfields','0','Force subject tracings to only match complete subfields.','0','YesNo')");
4090 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('UseAuthoritiesForTracings','1','Use authority record numbers for subject tracings instead of heading strings.','0','YesNo')");
4091 print "Upgrade to $DBversion done (Add syspref to force whole-subfield matching on subject tracings)\n";
4092 SetVersion
($DBversion);
4095 $DBversion = "3.03.00.025";
4096 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4097 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OPACAllowUserToChooseBranch', 1, 'Allow the user to choose the branch they want to pickup their hold from','1','YesNo')");
4098 print "Upgrade to $DBversion done (Add syspref to control if user can choose pickup branch for holds)\n";
4099 SetVersion
($DBversion);
4102 $DBversion = '3.03.00.026';
4103 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion) && $original_version < TransformToNum
("3.02.05.003")) {
4104 $dbh->do("UPDATE `message_attributes` SET message_name='Item Due' WHERE message_attribute_id=1 AND message_name LIKE 'Item DUE'");
4105 print "Upgrade to $DBversion done ( fix capitalization in message type )\n";
4106 SetVersion
($DBversion);
4109 $DBversion = '3.03.00.027';
4110 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4111 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('displayFacetCount', '0', NULL, NULL, 'YesNo')");
4112 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('maxRecordsForFacets', '20', NULL, NULL, 'Integer')");
4113 print "Upgrade to $DBversion done (Preferences for facet count)\n";
4114 SetVersion
($DBversion);
4117 $DBversion = "3.03.00.028";
4118 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4119 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('FacetLabelTruncationLength', 20, 'Truncate facets length to','','free')");
4120 print "Upgrade to $DBversion done (Add FacetLabelTruncationLength syspref to control facets displayed length)\n";
4121 SetVersion
($DBversion);
4124 $DBversion = "3.03.00.029";
4125 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4126 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowPurchaseSuggestionBranchChoice', 0, 'Allow user to choose branch when making a purchase suggestion','1','YesNo')");
4127 print "Upgrade to $DBversion done (Add syspref to control if user can choose branch when making purchase suggestion)\n";
4128 SetVersion
($DBversion);
4131 $DBversion = "3.03.00.030";
4132 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4133 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacFavicon','','Enter a complete URL to an image to replace the default Koha favicon on the OPAC','','free')");
4134 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('IntranetFavicon','','Enter a complete URL to an image to replace the default Koha favicon on the Staff client','','free')");
4135 print "Upgrade to $DBversion done (Add sysprefs to control custom favicons)\n";
4136 SetVersion
($DBversion);
4139 $DBversion = "3.03.00.031";
4140 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4141 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('FineNotifyAtCheckin',0,'If ON notify librarians of overdue fines on the items they are checking in.',NULL,'YesNo');");
4142 print "Upgrade to $DBversion done (Add syspref FineNotifyAtCheckin)\n";
4143 SetVersion
($DBversion);
4146 $DBversion = '3.03.00.032';
4147 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4148 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('TraceSubjectSubdivisions', 1, 'Create searches on all subdivisions for subject tracings.','1','YesNo')");
4149 print "Upgrade to $DBversion done ( include subdivisions when generating subject tracing searches )\n";
4153 $DBversion = '3.03.00.033';
4154 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4155 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('StaffAuthorisedValueImages', '1', '', NULL, 'YesNo')");
4156 print "Upgrade to $DBversion done (System pref StaffAuthorisedValueImages)\n";
4157 SetVersion
($DBversion);
4160 $DBversion = '3.03.00.034';
4161 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4162 $dbh->do("ALTER TABLE `categories` ADD `hidelostitems` tinyint(1) NOT NULL default '0' AFTER `reservefee`");
4163 print "Upgrade to $DBversion done (Add hidelostitems preference to borrower categories)\n";
4164 SetVersion
($DBversion);
4167 $DBversion = '3.03.00.035';
4168 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4169 $dbh->do("ALTER TABLE `issuingrules` ADD hardduedate date default NULL AFTER issuelength");
4170 $dbh->do("ALTER TABLE `issuingrules` ADD hardduedatecompare tinyint NOT NULL default 0 AFTER hardduedate");
4172 if (C4
::Context
->preference("globalDueDate")) {
4173 $duedate = C4
::Dates
::format_date_in_iso
(C4
::Context
->preference("globalDueDate"));
4174 $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = 0");
4175 } elsif (C4
::Context
->preference("ceilingDueDate")) {
4176 $duedate = C4
::Dates
::format_date_in_iso
(C4
::Context
->preference("ceilingDueDate"));
4177 $dbh->do("UPDATE `issuingrules` SET hardduedate = '$duedate', hardduedatecompare = -1");
4179 $dbh->do("DELETE FROM `systempreferences` WHERE variable = 'globalDueDate' OR variable = 'ceilingDueDate'");
4180 print "Upgrade to $DBversion done (Move global and ceiling due dates to Circ Rules level)\n";
4181 SetVersion
($DBversion);
4184 $DBversion = '3.03.00.036';
4185 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4186 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('COinSinOPACResults', 1, 'If ON, use COinS in OPAC search results page. NOTE: this can slow down search response time significantly','','YesNo')");
4187 print "Upgrade to $DBversion done ( Make COinS optional in OPAC search results )\n";
4188 SetVersion
($DBversion);
4191 $DBversion = '3.03.00.037';
4192 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4193 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACDisplay856uAsImage','OFF','Display the URI in the 856u field as an image, the corresponding OPACXSLT option must be on','OFF|Details|Results|Both','Choice')");
4194 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('Display856uAsImage','OFF','Display the URI in the 856u field as an image, the corresponding Staff Client XSLT option must be on','OFF|Details|Results|Both','Choice')");
4195 print "Upgrade to $DBversion done (Add 'Display856uAsImage' and 'OPACDisplay856uAsImage' syspref)\n";
4196 SetVersion
($DBversion);
4199 $DBversion = '3.03.00.038';
4200 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4201 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('SelfCheckTimeout',120,'Define the number of seconds before the Web-based Self Checkout times out a patron','','Integer')");
4202 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowSelfCheckReturns',0,'If enabled, patrons may return items through the Web-based Self Checkout','','YesNo')");
4203 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('SelfCheckHelpMessage','','Enter HTML to include under the basic Web-based Self Checkout instructions on the Help page','70|10','Textarea')");
4204 print "Upgrade to $DBversion done ( Add Self-checkout by Login system preferences )\n";
4207 $DBversion = "3.03.00.039";
4208 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4209 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('ShowReviewer',1,'If ON, name of reviewer will be shown above comments in OPAC',NULL,'YesNo');");
4210 print "Upgrade to $DBversion done (Add syspref ShowReviewer)\n";
4213 $DBversion = "3.03.00.040";
4214 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4215 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseControlNumber',0,'If ON, record control number (w subfields) and control number (001) are used for linking of bibliographic records.','','YesNo');");
4216 print "Upgrade to $DBversion done (Add syspref UseControlNumber)\n";
4219 $DBversion = "3.03.00.041";
4220 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4221 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AlternateHoldingsField','','The MARC field/subfield that contains alternate holdings information for bibs taht do not have items attached (e.g. 852abchi for libraries converting from MARC Magician).',NULL,'free')");
4222 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('AlternateHoldingsSeparator','','The string to use to separate subfields in alternate holdings displays.',NULL,'free')");
4223 print "Upgrade to $DBversion done (Add sysprefs to control alternate holdings information display)\n";
4224 SetVersion
($DBversion);
4227 $DBversion = '3.03.00.042';
4228 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4229 stocknumber_checker
();
4230 print "Upgrade to $DBversion done (5860 Index itemstocknumber)\n";
4231 SetVersion
($DBversion);
4234 sub stocknumber_checker
{ #code reused later on
4236 #drop the obsolete itemSStocknumber idx if it exists
4237 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemsstocknumberidx'");
4238 $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;") if @row;
4240 #check itemstocknumber idx; remove it if it is unique
4241 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx' AND non_unique=0");
4242 $dbh->do("ALTER TABLE `items` DROP INDEX `itemstocknumberidx`;") if @row;
4244 #add itemstocknumber index non-unique IF it still not exists
4245 @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx'");
4246 $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);") unless @row;
4249 $DBversion = "3.03.00.043";
4250 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4252 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','0','No','No')");
4253 $dbh->do("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES ('YES_NO','1','Yes','Yes')");
4255 print "Upgrade to $DBversion done ( add generic boolean YES_NO authorised_values pair )\n";
4256 SetVersion
($DBversion);
4259 $DBversion = '3.03.00.044';
4260 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4261 $dbh->do("ALTER TABLE `aqbasketgroups` ADD `freedeliveryplace` TEXT NULL AFTER `deliveryplace`;");
4262 print "Upgrade to $DBversion done (adding freedeliveryplace to basketgroups)\n";
4265 $DBversion = '3.03.00.045';
4266 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4267 #Remove obsolete columns from aqbooksellers if needed
4268 my $a = $dbh->selectall_hashref('SHOW columns from aqbooksellers','Field');
4269 my $sqldrop="ALTER TABLE aqbooksellers DROP COLUMN ";
4270 foreach(qw
/deliverydays followupdays followupscancel invoicedisc nocalc specialty/) {
4271 $dbh->do($sqldrop.$_) if exists $a->{$_};
4273 #Remove obsolete column from aqbudgets if needed
4274 #The correct column is budget_notes
4275 $a = $dbh->selectall_hashref('SHOW columns from aqbudgets','Field');
4276 if(exists $a->{budget_description
}) {
4277 $dbh->do("ALTER TABLE aqbudgets DROP COLUMN budget_description");
4279 print "Upgrade to $DBversion done (Remove obsolete columns from aqbooksellers and aqbudgets if needed)\n";
4280 SetVersion
($DBversion);
4283 $DBversion = "3.03.00.046";
4284 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4285 $dbh->do("ALTER TABLE overduerules ALTER delay1 SET DEFAULT NULL, ALTER delay2 SET DEFAULT NULL, ALTER delay3 SET DEFAULT NULL");
4286 print "Upgrade to $DBversion done (Setting NULL default value for delayn columns in table overduerules)\n";
4287 SetVersion
($DBversion);
4290 $DBversion = '3.03.00.047';
4291 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4292 $dbh->do("ALTER TABLE borrowers ADD `state` mediumtext AFTER city;");
4293 $dbh->do("ALTER TABLE borrowers ADD `B_state` mediumtext AFTER B_city;");
4294 $dbh->do("ALTER TABLE borrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4295 $dbh->do("ALTER TABLE deletedborrowers ADD `state` mediumtext AFTER city;");
4296 $dbh->do("ALTER TABLE deletedborrowers ADD `B_state` mediumtext AFTER B_city;");
4297 $dbh->do("ALTER TABLE deletedborrowers ADD `altcontactstate` mediumtext AFTER altcontactaddress3;");
4298 print "Upgrade to $DBversion done (Add state field to patron's addresses)\n";
4301 $DBversion = '3.03.00.048';
4302 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4303 $dbh->do("ALTER TABLE branches ADD
`branchstate` mediumtext AFTER
`branchcity`;");
4304 print "Upgrade to
$DBversion done
(Add
state to branch address
)\n";
4305 SetVersion ($DBversion);
4308 $DBversion = '3.03.00.049';
4309 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4310 $dbh->do("ALTER TABLE
`accountlines` ADD
`note` text NULL
default NULL
");
4311 $dbh->do("ALTER TABLE
`accountlines` ADD
`manager_id` int( 11 ) NULL
");
4312 print "Upgrade to
$DBversion done
(adding note
and manager_id fields
in accountlines table
)\n";
4313 SetVersion($DBversion);
4316 $DBversion = "3.03.00.050";
4317 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4319 INSERT IGNORE INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('OpacHiddenItems','','This syspref allows to define custom rules for hiding specific items at opac. See docs/opac/OpacHiddenItems.txt for more informations.','','Textarea');
4321 print "Upgrade to
$DBversion done
(Adding OpacHiddenItems syspref
)\n";
4322 SetVersion($DBversion);
4325 $DBversion = "3.03.00.051";
4326 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4327 print "Upgrade to
$DBversion done
(Remove spaces
and dashes from message_attribute names
)\n";
4328 $dbh->do("UPDATE message_attributes SET message_name
= 'Item_Due' WHERE message_name
='Item Due'");
4329 $dbh->do("UPDATE message_attributes SET message_name
= 'Advance_Notice' WHERE message_name
='Advance Notice'");
4330 $dbh->do("UPDATE message_attributes SET message_name
= 'Hold_Filled' WHERE message_name
='Hold Filled'");
4331 $dbh->do("UPDATE message_attributes SET message_name
= 'Item_Check_in' WHERE message_name
='Item Check-in'");
4332 $dbh->do("UPDATE message_attributes SET message_name
= 'Item_Checkout' WHERE message_name
='Item Checkout'");
4333 SetVersion ($DBversion);
4336 $DBversion = "3.03.00.052";
4337 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4338 $dbh->do("INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('WaitingNotifyAtCheckin',0,'If ON, notify librarians of waiting holds for the patron whose items they are checking in.',NULL
,'YesNo');");
4339 print "Upgrade to
$DBversion done
(Add syspref WaitingNotifyAtCheckin
)\n";
4340 SetVersion ($DBversion);
4343 $DBversion = "3.04.00.000";
4344 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4345 print "Upgrade to
$DBversion done Koha
3.4.0 release
\n";
4346 SetVersion ($DBversion);
4349 $DBversion = "3.05.00.001";
4350 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4352 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('numSearchRSSResults',50,'Specify the maximum number of results to display on a RSS page of results',NULL,'Integer');
4354 print "Upgrade to
$DBversion done
(Adds New System preference numSearchRSSResults
)\n";
4355 SetVersion($DBversion);
4358 $DBversion = '3.05.00.002';
4359 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4360 #follow up fix 5860: some installs already past 3.3.0.42
4361 stocknumber_checker();
4362 print "Upgrade to
$DBversion done
(Fix
for stocknumber
index)\n";
4363 SetVersion ($DBversion);
4366 $DBversion = "3.05.00.003";
4367 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4369 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacRenewalBranch','checkoutbranch','Choose how the branch for an OPAC renewal is recorded in statistics','itemhomebranch|patronhomebranch|checkoutbranch|null','Choice');
4371 print "Upgrade to
$DBversion done
(Adds New System preference OpacRenewalBranch
)\n";
4372 SetVersion($DBversion);
4375 $DBversion = "3.05.00.004";
4376 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4377 $dbh->do("INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('ShowReviewerPhoto',1,'If ON, photo of reviewer will be shown beside comments in OPAC',NULL
,'YesNo');");
4378 print "Upgrade to
$DBversion done
(Add syspref ShowReviewerPhoto
)\n";
4379 SetVersion($DBversion);
4382 $DBversion = "3.05.00.005";
4383 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4384 $dbh->do("INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('BasketConfirmations', '1', 'When closing or reopening a basket,', 'always ask for confirmation.|do not ask for confirmation.', 'Choice');");
4385 print "Upgrade to
$DBversion done
(Adds pref BasketConfirmations
)\n";
4386 SetVersion($DBversion);
4389 $DBversion = "3.05.00.006";
4390 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4391 $dbh->do("INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('MARCAuthorityControlField008', '|| aca||aabn | a|a d', NULL
, NULL
, 'Textarea')");
4392 print "Upgrade to
$DBversion done
(Add syspref MARCAuthorityControlField008
)\n";
4393 SetVersion ($DBversion);
4396 $DBversion = "3.05.00.007";
4397 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4398 $dbh->do("INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('OpenLibraryCovers',0,'If ON Openlibrary book covers will be show',NULL
,'YesNo');");
4399 print "Upgrade to
$DBversion done
(Add syspref OpenLibraryCovers
)\n";
4400 SetVersion($DBversion);
4403 $DBversion = "3.05.00.008";
4404 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4405 $dbh->do("ALTER TABLE
`cities` ADD
`city_state` VARCHAR
( 100 ) NULL DEFAULT NULL AFTER
`city_name`;");
4406 $dbh->do("ALTER TABLE
`cities` ADD
`city_country` VARCHAR
( 100 ) NULL DEFAULT NULL AFTER
`city_zipcode`;");
4407 print "Add
state and country to cities table corresponding to new columns
in borrowers
\n";
4408 SetVersion($DBversion);
4411 $DBversion = "3.05.00.009";
4412 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4413 $dbh->do("INSERT INTO old_issues
(borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate
)
4414 SELECT borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate FROM issues WHERE borrowernumber IS NULL
");
4415 $dbh->do("DELETE FROM issues WHERE borrowernumber IS NULL
");
4417 $dbh->do("INSERT INTO old_issues
(borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate
)
4418 SELECT borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate FROM issues WHERE itemnumber IS NULL
");
4419 $dbh->do("DELETE FROM issues WHERE itemnumber IS NULL
");
4421 $dbh->do("INSERT INTO old_issues
(borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate
)
4422 SELECT borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate FROM issues WHERE NOT EXISTS
(SELECT
* FROM borrowers WHERE borrowernumber
= issues
.borrowernumber
)");
4423 $dbh->do("DELETE FROM issues WHERE NOT EXISTS
(SELECT
* FROM borrowers WHERE borrowernumber
= issues
.borrowernumber
)");
4425 $dbh->do("INSERT INTO old_issues
(borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate
)
4426 SELECT borrowernumber
, itemnumber
, date_due
, branchcode
, issuingbranch
, returndate
, lastreneweddate
, `return`, renewals
, timestamp
, issuedate FROM issues WHERE NOT EXISTS
(SELECT
* FROM items WHERE itemnumber
= issues
.itemnumber
)");
4427 $dbh->do("DELETE FROM issues WHERE NOT EXISTS
(SELECT
* FROM items WHERE itemnumber
= issues
.itemnumber
)");
4429 $dbh->do("ALTER TABLE issues DROP FOREIGN KEY
`issues_ibfk_1`");
4430 $dbh->do("ALTER TABLE issues DROP FOREIGN KEY
`issues_ibfk_2`");
4431 $dbh->do("ALTER TABLE issues ALTER COLUMN borrowernumber DROP DEFAULT
");
4432 $dbh->do("ALTER TABLE issues ALTER COLUMN itemnumber DROP DEFAULT
");
4433 $dbh->do("ALTER TABLE issues MODIFY COLUMN borrowernumber
int(11) NOT NULL
");
4434 $dbh->do("ALTER TABLE issues MODIFY COLUMN itemnumber
int(11) NOT NULL
");
4435 $dbh->do("ALTER TABLE issues DROP KEY
`issuesitemidx`");
4436 $dbh->do("ALTER TABLE issues ADD PRIMARY KEY
(`itemnumber`)");
4437 $dbh->do("ALTER TABLE issues ADD CONSTRAINT
`issues_ibfk_1` FOREIGN KEY
(`borrowernumber`) REFERENCES
`borrowers` (`borrowernumber`) ON DELETE RESTRICT ON UPDATE CASCADE
");
4438 $dbh->do("ALTER TABLE issues ADD CONSTRAINT
`issues_ibfk_2` FOREIGN KEY
(`itemnumber`) REFERENCES
`items` (`itemnumber`) ON DELETE RESTRICT ON UPDATE CASCADE
");
4440 print "Upgrade to
$DBversion done
(issues referential integrity
)\n";
4441 SetVersion ($DBversion);
4444 $DBversion = "3.05.00.010";
4445 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4446 $dbh->do("CREATE INDEX priorityfoundidx ON reserves
(priority
,found
)");
4447 print "Create an
index on reserves to speed up holds awaiting pickup report bug
5866\n";
4448 SetVersion($DBversion);
4452 $DBversion = "3.05.00.011";
4453 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4454 $dbh->do("INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('OPACResultsSidebar','','Define HTML to be included on the search results page, underneath the facets sidebar','70|10','Textarea')");
4455 print "Upgrade to
$DBversion done
(add OPACResultsSidebar syspref
(enh
6165))\n";
4456 SetVersion($DBversion);
4459 $DBversion = "3.05.00.012";
4460 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4461 $dbh->do("INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('RecordLocalUseOnReturn',0,'If ON, statistically record returns of unissued items as local use, instead of return',NULL
,'YesNo')");
4462 print "Upgrade to
$DBversion done
(add RecordLocalUseOnReturn syspref
(enh
6403))\n";
4463 SetVersion($DBversion);
4466 $DBversion = "3.05.00.013";
4467 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4468 $dbh->do(qq|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OpacKohaUrl','0',"Show
'Powered by Koha' text on OPAC footer
.",NULL,NULL)|);
4469 print "Upgrade to
$DBversion done
(Add syspref
'OpacKohaUrl')\n";
4470 SetVersion($DBversion);
4473 $DBversion = "3.05.00.014";
4474 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4475 $dbh->do("ALTER TABLE
`borrowers` MODIFY
`userid` VARCHAR
(75)");
4476 print "Modified userid column
length into
75 in borrowers
\n";
4477 SetVersion($DBversion);
4480 $DBversion = "3.05.00.015";
4481 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4482 $dbh->do("INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('NovelistSelectEnabled',0,'Enable Novelist Select content. Requires Novelist Profile and Password',NULL
,'YesNo')");
4483 $dbh->do("INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('NovelistSelectProfile',NULL
,'Novelist Select user Password',NULL
,'free')");
4484 $dbh->do("INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('NovelistSelectPassword',NULL
,'Enable Novelist user Profile',NULL
,'free')");
4485 $dbh->do("INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('NovelistSelectView','tab','Where to display Novelist Select content','tab|above|below|right','Choice')");
4486 print "Upgrade to
$DBversion done
(Add support
for EBSCO
's NoveList Select (enh 6902))\n";
4487 SetVersion($DBversion);
4490 $DBversion = '3.05.00.016';
4491 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4492 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('EasyAnalyticalRecords
','0','If on
, display
in the catalogue screens tools to easily setup analytical record relationships
','','YesNo
');");
4493 print "Upgrade to $DBversion done (Add EasyAnalyticalRecords syspref)\n";
4494 SetVersion ($DBversion);
4497 $DBversion = '3.05.00.017';
4498 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4499 if (C4::Context->preference("marcflavour") eq 'MARC21
' ||
4500 C4::Context->preference("marcflavour") eq 'NORMARC
'){
4501 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('773', '0', 'Host Biblionumber
', 'Host Biblionumber
', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4502 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('773', '9', 'Host Itemnumber
', 'Host Itemnumber
', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4503 print "Upgrade to $DBversion done (Add 773 subfield 9 and 0 to default framework)\n";
4504 SetVersion ($DBversion);
4505 } elsif (C4::Context->preference("marcflavour") eq 'UNIMARC
'){
4506 $dbh->do("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value` , `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES ('461', '9', 'Host Itemnumber
', 'Host Itemnumber
', 0, 0, NULL, 7, NULL, NULL, '', NULL, -6, '', '', '', NULL)");
4507 print "Upgrade to $DBversion done (Add 461 subfield 9 to default framework)\n";
4508 SetVersion ($DBversion);
4512 $DBversion = "3.05.00.018";
4513 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4514 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OpacNavBottom
','','Links after OpacNav links
','70|10','Textarea
')");
4515 print "Upgrade to $DBversion done (add OpacNavBottom syspref (enh 6825): if appropriate, you can split OpacNav into OpacNav and OpacNavBottom)\n";
4516 SetVersion($DBversion);
4519 $DBversion = "3.05.00.019";
4520 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4521 $dbh->do("UPDATE itemtypes SET imageurl = 'vokal
/Book.png' WHERE imageurl = 'vokal/BOOK
.png
'");
4522 $dbh->do("UPDATE itemtypes SET imageurl = 'vokal
/Book-32px.png' WHERE imageurl = 'vokal/BOOK
-32px
.png
'");
4523 $dbh->do("UPDATE authorised_values SET imageurl = 'vokal
/Book.png' WHERE imageurl = 'vokal/BOOK
.png
'");
4524 $dbh->do("UPDATE authorised_values SET imageurl = 'vokal
/Book-32px.png' WHERE imageurl = 'vokal/BOOK
-32px
.png
'");
4525 print "Upgrade to $DBversion done (remove duplicate VOKAL Book icons, bug 6862)\n";
4526 SetVersion($DBversion);
4529 $DBversion = "3.05.00.020";
4530 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4531 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('AcqViewBaskets
','user
','user
|branch
|all
','Define which baskets a user is allowed to view
: his own only
, any within his branch
or all
','Choice
')");
4532 print "Upgrade to $DBversion done (Add syspref AcqViewBaskets)\n";
4533 SetVersion($DBversion);
4536 $DBversion = "3.05.00.021";
4537 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4538 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN display_checkout TINYINT(1) NOT NULL DEFAULT '0';");
4539 print "Upgrade to $DBversion done (Added a display_checkout field in borrower_attribute_types table)\n";
4540 SetVersion($DBversion);
4543 $DBversion = "3.05.00.022";
4544 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4545 $dbh->do("CREATE TABLE need_merge_authorities (id int NOT NULL auto_increment PRIMARY KEY, authid bigint NOT NULL, done tinyint DEFAULT 0) ENGINE=InnoDB DEFAULT CHARSET=utf8");
4546 print "Upgrade to $DBversion done (6094: Fixing ModAuthority problems, add a need_merge_authorities table)\n";
4547 SetVersion($DBversion);
4550 $DBversion = "3.05.00.023";
4551 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4552 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowRecentComments
',0,'If ON a
link to recent comments will appear
in the OPAC masthead
',NULL,'YesNo
');");
4553 print "Upgrade to $DBversion done (Add syspref OpacShowRecentComments. When the preference is turned on a link to recent comments will appear in the OPAC masthead. )\n";
4554 SetVersion($DBversion);
4557 $DBversion = "3.06.00.000";
4558 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4559 print "Upgrade to $DBversion done Koha 3.6.0 release \n";
4560 SetVersion ($DBversion);
4563 $DBversion = "3.07.00.001";
4564 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4565 my $borrowers = $dbh->selectcol_arrayref( "SELECT borrowernumber from borrowers where debarred =1;", { Columns => [1] } );
4566 $dbh->do("ALTER TABLE borrowers MODIFY debarred DATE DEFAULT NULL;");
4567 $dbh->do( "UPDATE borrowers set debarred='9999-12-31' where borrowernumber IN (" . join( ",", @$borrowers ) . ");" ) if ($borrowers and scalar(@$borrowers)>0);
4568 $dbh->do("ALTER TABLE borrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4569 $dbh->do("ALTER TABLE deletedborrowers MODIFY debarred DATE DEFAULT NULL;");
4570 $dbh->do("ALTER TABLE deletedborrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
4571 print "Upgrade done (Change borrowers.debarred into Date )\n";
4572 SetVersion($DBversion);
4575 $DBversion = "3.07.00.002";
4576 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4577 $dbh->do("UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00';");
4578 print "Setting NULL to debarred where 0000-00-00 is stored (bug 7272)\n";
4579 SetVersion($DBversion);
4582 $DBversion = "3.07.00.003";
4583 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4584 $dbh->do(" UPDATE `message_attributes` SET message_name='Item_Due
' WHERE message_name='Item_DUE
'");
4585 print "Updating message_name in message_attributes\n";
4586 SetVersion($DBversion);
4589 $DBversion = "3.07.00.004";
4590 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
4591 $dbh->do("ALTER TABLE `suggestions` ADD `patronreason` TEXT NULL AFTER `reason`");
4592 print "Upgrade to $DBversion done (Add column to suggestions table to store patrons' reasons
for submitting a suggestion
. )\n";
4593 SetVersion($DBversion);
4596 $DBversion = "3.07.00.005";
4597 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4598 $dbh->do("INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('BorrowerUnwantedField','','Name the fields you don''t need to store for a patron''s account',NULL
,'free')");
4599 print "Upgrade to
$DBversion done
(BorrowerUnwantedField syspref
)\n";
4600 SetVersion ($DBversion);
4603 $DBversion = "3.07.00.006";
4604 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4605 $dbh->do("INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('CircAutoPrintQuickSlip', '1', 'Choose what should happen when an empty barcode field is submitted in circulation: Display a print quick slip window or Clear the screen.',NULL
,'YesNo');");
4606 print "Upgrade to
$DBversion done
(Add syspref CircAutoPrintQuickSlip to control what should happen
when an empty barcode field is submitted
in circulation
: Display a
print quick slip window
(default value
, 3.6 behaviour
) or clear the screen
(previous
3.6 behaviour
). )\n";
4607 SetVersion($DBversion);
4610 $DBversion = "3.07.00.007";
4611 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4612 $dbh->do("ALTER TABLE items MODIFY materials text
;");
4613 print "Upgrade to
$DBversion done alter items
.material from varchar
(10) to text
\n";
4614 SetVersion($DBversion);
4617 $DBversion = '3.07.00.008';
4618 if (C4::Context->preference("Version
") < TransformToNum($DBversion)) {
4619 if (C4::Context->preference("marcflavour
") eq 'MARC21') {
4620 if (C4::Context->preference("opaclanguages
") eq "de
") {
4621 $dbh->do("INSERT INTO
`marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
('545', 'Fußnote zu biografischen oder historischen Daten', 'Fußnote zu biografischen oder historischen Daten', 1, 0, NULL
, '');");
4623 $dbh->do("INSERT INTO
`marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
('545', 'BIOGRAPHICAL OR HISTORICAL DATA', 'BIOGRAPHICAL OR HISTORICAL DATA', 1, 0, NULL
, '');");
4626 print "Upgrade to
$DBversion done
(add MARC21 field
545 to framework
)\n";
4627 SetVersion ($DBversion);
4630 $DBversion = "3.07.00.009";
4631 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4632 $dbh->do("ALTER TABLE
`aqorders` ADD COLUMN
`claims_count` INT
(11) DEFAULT
0, ADD COLUMN
`claimed_date` DATE DEFAULT NULL AFTER
`claims_count`");
4633 print "Upgrade to
$DBversion done
(Add claims_count
and claimed_date fields
in aqorders table
)\n";
4634 SetVersion($DBversion);
4637 $DBversion = "3.07.00.010";
4638 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4640 q|CREATE TABLE `biblioimages` (
4641 `imagenumber` int(11) NOT NULL AUTO_INCREMENT,
4642 `biblionumber` int(11) NOT NULL,
4643 `mimetype` varchar(15) NOT NULL,
4644 `imagefile` mediumblob NOT NULL,
4645 `thumbnail` mediumblob NOT NULL,
4646 PRIMARY KEY (`imagenumber`),
4647 CONSTRAINT `bibliocoverimage_fk1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
4648 ) ENGINE=InnoDB DEFAULT CHARSET=utf8|
4651 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACLocalCoverImages','0','Display local cover images on OPAC search and details pages.','1','YesNo')|
4654 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('LocalCoverImages','0','Display local cover images on intranet search and details pages.','1','YesNo')|
4657 q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowMultipleCovers','0','Allow multiple cover images to be attached to each bibliographic record.','1','YesNo')|
4660 q|INSERT INTO permissions (module_bit, code, description) VALUES (13, 'upload_local_cover_images', 'Upload local cover images')|
4662 print "Upgrade to
$DBversion done
(Added support
for local cover images
)\n";
4663 SetVersion($DBversion);
4666 $DBversion = "3.07.00.011";
4667 if ( C4::Context->preference("Version
") < TransformToNum($DBversion) ) {
4668 $dbh->do(<<ENDOFRENEWAL);
4669 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('BorrowerRenewalPeriodBase', 'now', 'Set whether the borrower renewal date should be counted from the dateexpiry or from the current date ','dateexpiry|now','Choice');
4671 print "Upgrade to $DBversion done (Added a system preference to allow renewal of Patron account either from todays date or from existing expiry date in the patrons account.)\n";
4672 SetVersion
($DBversion);
4675 $DBversion = "3.07.00.012";
4676 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4677 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowItemsOnHoldCheckout',0,'Do not generate RESERVE_WAITING and RESERVED warning when checking out items reserved to someone else. This allows self checkouts for those items.','','YesNo')");
4678 print "Upgrade to $DBversion add 'AllowItemsOnHoldCheckout' syspref \n";
4679 SetVersion
($DBversion);
4682 $DBversion = "3.07.00.013";
4683 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4684 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacExportOptions','bibtex|dc|marcxml|marc8|utf8|marcstd|mods|ris','Define available export options on OPAC detail page.','','free');");
4685 print "Upgrade to $DBversion done (Bug 7345: Add system preference OpacExportOptions.)\n";
4686 SetVersion
($DBversion);
4689 $DBversion = "3.07.00.014";
4690 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4691 print "RELTERMS category available for English-, French-, and Spanish-language relator terms. They are not loaded during upgrade but can be easily inserted using the provided marc21_relatorterms.sql SQL script (MARC21 only, and currently available for en, es, and fr only).\n";
4692 SetVersion
($DBversion);
4695 $DBversion = "3.07.00.015";
4696 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4697 my $sth = $dbh->prepare(q
|
4698 SELECT COUNT
(*) FROM marc_subfield_structure where kohafield
="biblioitems.editionstatement"
4701 my $already_exists = $sth->fetchrow;
4702 if ( not $already_exists ) {
4703 my $field = C4
::Context
->preference("marcflavour") eq "UNIMARC" ?
"205" : "250";
4705 my $sth = $dbh->prepare( q
|
4706 UPDATE marc_subfield_structure SET kohafield
= "biblioitems.editionstatement"
4707 WHERE tagfield
= ? AND tagsubfield
= ?
4709 $sth->execute( $field, $subfield );
4710 print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement.)\n";
4712 print "Upgrade to $DBversion done (Added a mapping for biblioitems.editionstatement (already exists, nothing to do).)\n";
4714 SetVersion
($DBversion);
4717 $DBversion = "3.07.00.016";
4718 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4719 $dbh->do("ALTER TABLE items ADD KEY `itemcallnumber` (itemcallnumber)");
4720 print "Upgrade to $DBversion done (Added index on items.itemcallnumber)\n";
4721 SetVersion
($DBversion);
4724 $DBversion = "3.07.00.017";
4725 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4726 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('TransferWhenCancelAllWaitingHolds','0','Transfer items when cancelling all waiting holds',NULL,'YesNo')");
4727 print "Upgrade to $DBversion done (Add sysprefs to control transfer when cancel all waiting holds)\n";
4728 SetVersion
($DBversion);
4731 $DBversion = "3.07.00.018";
4732 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4733 $dbh->do("CREATE TABLE pending_offline_operations ( operationid int(11) NOT NULL AUTO_INCREMENT, userid varchar(30) NOT NULL, branchcode varchar(10) NOT NULL, timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP, action varchar(10) NOT NULL, barcode varchar(20) NOT NULL, cardnumber varchar(16) DEFAULT NULL, PRIMARY KEY (operationid) ) ENGINE=MyISAM DEFAULT CHARSET=utf8;");
4734 print "Upgrade to $DBversion done ( adding offline operations table )\n";
4735 SetVersion
($DBversion);
4738 $DBversion = "3.07.00.019";
4739 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4740 $dbh->do(" UPDATE `systempreferences` SET `value` = 'none', `options` = 'none|full|first|surname|firstandinitial|username', `explanation` = 'Choose how a commenter''s identity is presented alongside comments in the OPAC', `type` = 'Choice' WHERE `systempreferences`.`variable` = 'ShowReviewer' AND `systempreferences`.`variable` = 0");
4741 $dbh->do(" UPDATE `systempreferences` SET `value` = 'full', `options` = 'none|full|first|surname|firstandinitial|username', `explanation` = 'Choose how a commenter''s identity is presented alongside comments in the OPAC', `type` = 'Choice' WHERE `systempreferences`.`variable` = 'ShowReviewer' AND `systempreferences`.`variable` = 1");
4742 print "Upgrade to $DBversion done ( Adding additional options for the display of commenter's identity in the OPAC: Full name, first name, last name, first name and last name first initial, username, or no information)\n";
4743 SetVersion
($DBversion);
4746 $DBversion = "3.07.00.020";
4747 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4748 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACpatronimages',0,'Enable patron images in the OPAC',NULL,'YesNo');");
4749 print "Upgrade to $DBversion done (Bug 3516: Add the option to show patron images in the OPAC.)\n";
4750 SetVersion
($DBversion);
4753 $DBversion = "3.07.00.021";
4754 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4756 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerModule','Default','Chooses which linker module to use (see documentation).','Default|FirstMatchLastMatch','Choice');"
4759 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerOptions','','A pipe-separated list of options for the linker.','','free');"
4762 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerRelink',1,'If ON the authority linker will relink headings that have previously been linked every time it runs.',NULL,'YesNo');"
4765 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerKeepStale',0,'If ON the authority linker will keep existing authority links for headings where it is unable to find a match.',NULL,'YesNo');"
4768 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AutoCreateAuthorities',0,'Automatically create authorities that do not exist when cataloging records.',NULL,'YesNo');"
4771 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('CatalogModuleRelink',0,'If OFF the linker will never replace the authids that are set in the cataloging module.',NULL,'YesNo');"
4773 print "Upgrade to $DBversion done (Enhancement 7284, improved authority matching, see http://wiki.koha-community.org/wiki/Bug7284_authority_matching_improvement wiki page for configuration update needed)\n";
4774 SetVersion
($DBversion);
4777 $DBversion = "3.07.00.022";
4778 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4779 $dbh->do("DELETE FROM reviews WHERE biblionumber NOT IN (SELECT biblionumber from biblio)");
4780 $dbh->do("UPDATE reviews SET borrowernumber = NULL WHERE borrowernumber NOT IN (SELECT borrowernumber FROM borrowers)");
4781 $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_2 FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE");
4782 $dbh->do("ALTER TABLE reviews ADD CONSTRAINT reviews_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber ) ON UPDATE CASCADE ON DELETE SET NULL");
4783 print "Upgrade to $DBversion done (Bug 7493 - Add constraint linking OPAC comment biblionumber to biblio, OPAC comment borrowernumber to borrowers.)\n";
4784 SetVersion
($DBversion);
4787 $DBversion = "3.07.00.023";
4788 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4789 $dbh->do("ALTER TABLE `message_transports` DROP FOREIGN KEY `message_transports_ibfk_3`");
4790 $dbh->do("ALTER TABLE `letter` DROP PRIMARY KEY");
4791 $dbh->do("ALTER TABLE `letter` ADD `branchcode` varchar(10) default NULL AFTER `code`");
4792 $dbh->do("ALTER TABLE `letter` ADD PRIMARY KEY (`module`,`code`, `branchcode`)");
4793 $dbh->do("ALTER TABLE `message_transports` ADD `branchcode` varchar(10) NOT NULL default ''");
4794 $dbh->do("ALTER TABLE `message_transports` ADD CONSTRAINT `message_transports_ibfk_3` FOREIGN KEY (`letter_module`, `letter_code`, `branchcode`) REFERENCES `letter` (`module`, `code`, `branchcode`) ON DELETE CASCADE ON UPDATE CASCADE");
4795 $dbh->do("ALTER TABLE `letter` ADD `is_html` tinyint(1) default 0 AFTER `name`");
4797 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4798 VALUES ('circulation','ISSUESLIP','Issue Slip','Issue Slip', '<h3><<branches.branchname>></h3>
4799 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4800 (<<borrowers.cardnumber>>) <br />
4804 <h4>Checked Out</h4>
4807 <<biblio.title>> <br />
4808 Barcode: <<items.barcode>><br />
4809 Date due: <<issues.date_due>><br />
4816 <<biblio.title>> <br />
4817 Barcode: <<items.barcode>><br />
4818 Date due: <<issues.date_due>><br />
4824 <h4 style=\"text-align: center; font-style:italic;\">News</h4>
4826 <div class=\"newsitem\">
4827 <h5 style=\"margin-bottom: 1px; margin-top: 1px\"><b><<opac_news.title>></b></h5>
4828 <p style=\"margin-bottom: 1px; margin-top: 1px\"><<opac_news.new>></p>
4829 <p class=\"newsfooter\" style=\"font-size: 8pt; font-style:italic; margin-bottom: 1px; margin-top: 1px\">Posted on <<opac_news.timestamp>></p>
4833 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4834 VALUES ('circulation','ISSUEQSLIP','Issue Quick Slip','Issue Quick Slip', '<h3><<branches.branchname>></h3>
4835 Checked out to <<borrowers.title>> <<borrowers.firstname>> <<borrowers.initials>> <<borrowers.surname>> <br />
4836 (<<borrowers.cardnumber>>) <br />
4840 <h4>Checked Out Today</h4>
4843 <<biblio.title>> <br />
4844 Barcode: <<items.barcode>><br />
4845 Date due: <<issues.date_due>><br />
4847 </checkedout>', 1)");
4848 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4849 VALUES ('circulation','RESERVESLIP','Reserve Slip','Reserve Slip', '<h5>Date: <<today>></h5>
4851 <h3> Transfer to/Hold in <<branches.branchname>></h3>
4853 <h3><<borrowers.surname>>, <<borrowers.firstname>></h3>
4856 <li><<borrowers.cardnumber>></li>
4857 <li><<borrowers.phone>></li>
4858 <li> <<borrowers.address>><br />
4859 <<borrowers.address2>><br />
4860 <<borrowers.city >> <<borrowers.zipcode>>
4862 <li><<borrowers.email>></li>
4865 <h3>ITEM ON HOLD</h3>
4866 <h4><<biblio.title>></h4>
4867 <h5><<biblio.author>></h5>
4869 <li><<items.barcode>></li>
4870 <li><<items.itemcallnumber>></li>
4871 <li><<reserves.waitingdate>></li>
4874 <pre><<reserves.reservenotes>></pre>
4876 $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4877 VALUES ('circulation','TRANSFERSLIP','Transfer Slip','Transfer Slip', '<h5>Date: <<today>></h5>
4878 <h3>Transfer to <<branches.branchname>></h3>
4881 <h4><<biblio.title>></h4>
4882 <h5><<biblio.author>></h5>
4884 <li><<items.barcode>></li>
4885 <li><<items.itemcallnumber>></li>
4888 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NoticeCSS','','Notices CSS url.',NULL,'free')");
4889 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('SlipCSS','','Slips CSS url.',NULL,'free')");
4891 $dbh->do("UPDATE `letter` SET content = replace(content, '<<title>>', '<<biblio.title>>') WHERE code = 'HOLDPLACED'");
4893 print "Upgrade to $DBversion done (Add branchcode and is_html to letter table; Default ISSUESLIP, RESERVESLIP and TRANSFERSLIP letters; Add NoticeCSS and SlipCSS sysprefs)\n";
4894 SetVersion
($DBversion);
4897 $DBversion = "3.07.00.024";
4898 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4899 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesMaxPickUpDelayCharge', '0', NULL , 'If ExpireReservesMaxPickUpDelay is enabled, and this field has a non-zero value, than a borrower whose waiting hold has expired will be charged this amount.', 'free')");
4900 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesMaxPickUpDelay', '0', '', 'Enabling this allows holds to expire automatically if they have not been picked by within the time period specified in ReservesMaxPickUpDelay', 'YesNo')");
4901 print "Upgrade to $DBversion done (Added system preference ExpireReservesMaxPickUpDelay, system preference ExpireReservesMaxPickUpDelayCharge, add reseves.charge_if_expired)\n";
4904 $DBversion = "3.07.00.025";
4905 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4906 if (TableExists
('bibliocoverimage')) {
4907 $dbh->do( q
|DROP TABLE bibliocoverimage
;| );
4909 q
|CREATE TABLE biblioimages
(
4910 imagenumber
int(11) NOT NULL AUTO_INCREMENT
,
4911 biblionumber
int(11) NOT NULL
,
4912 mimetype varchar
(15) NOT NULL
,
4913 imagefile mediumblob NOT NULL
,
4914 thumbnail mediumblob NOT NULL
,
4915 PRIMARY KEY
(imagenumber
),
4916 CONSTRAINT bibliocoverimage_fk1 FOREIGN KEY
(biblionumber
) REFERENCES biblio
(biblionumber
) ON DELETE CASCADE ON UPDATE CASCADE
4917 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
;|
4920 print "Upgrade to $DBversion done (Correct table name for local cover images if needed. )\n";
4921 SetVersion
($DBversion);
4924 $DBversion = "3.07.00.026";
4925 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
4926 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('CalendarFirstDayOfWeek','Sunday','Select the first day of week to use in the calendar.','Sunday|Monday','Choice');");
4927 print "Upgrade to $DBversion done (Add syspref CalendarFirstDayOfWeek used to select the first day of week to use in the calendar. )\n";
4928 SetVersion
($DBversion);
4931 $DBversion = "3.07.00.027";
4932 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4933 $dbh->do(q{INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RoutingListNote','','Define a note to be shown on all routing lists','70|10','Textarea');});
4934 print "Upgrade to $DBversion done (Added system preference RoutingListNote for adding a general note to all routing lists.)\n";
4935 SetVersion
($DBversion);
4938 $DBversion = "3.07.00.028";
4939 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4941 INSERT INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('AllowPKIAuth','None','Use the field from a client-side SSL certificate to look a user in the Koha database','None|Common Name|emailAddress','Choice');
4943 print "Upgrade to $DBversion done (Bug 6296 New System preference AllowPKIAuth)\n";
4946 $DBversion = "3.07.00.029";
4947 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
4948 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_descriptions`;});
4949 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_mappings`;});
4950 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets_biblios`;});
4951 $dbh->do(q{DROP TABLE IF EXISTS `oai_sets`;});
4954 CREATE TABLE `oai_sets` (
4955 `id` int(11) NOT NULL auto_increment,
4956 `spec` varchar(80) NOT NULL UNIQUE,
4957 `name` varchar(80) NOT NULL,
4959 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4963 CREATE TABLE `oai_sets_descriptions` (
4964 `set_id` int(11) NOT NULL,
4965 `description` varchar(255) NOT NULL,
4966 CONSTRAINT `oai_sets_descriptions_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4967 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4971 CREATE TABLE `oai_sets_mappings` (
4972 `set_id` int(11) NOT NULL,
4973 `marcfield` char(3) NOT NULL,
4974 `marcsubfield` char(1) NOT NULL,
4975 `marcvalue` varchar(80) NOT NULL,
4976 CONSTRAINT `oai_sets_mappings_ibfk_1` FOREIGN KEY (`set_id`) REFERENCES `oai_sets` (`id`) ON DELETE CASCADE ON UPDATE CASCADE
4977 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4981 CREATE TABLE `oai_sets_biblios` (
4982 `biblionumber` int(11) NOT NULL,
4983 `set_id` int(11) NOT NULL,
4984 PRIMARY KEY (`biblionumber`, `set_id`),
4985 CONSTRAINT `oai_sets_biblios_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber
`) ON DELETE CASCADE ON UPDATE CASCADE,
4986 CONSTRAINT `oai_sets_biblios_ibfk_2
` FOREIGN KEY (`set_id
`) REFERENCES `oai_sets
` (`id
`) ON DELETE CASCADE ON UPDATE CASCADE
4987 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
4991 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OAI-PMH:AutoUpdateSets','0','Automatically update OAI sets when a bibliographic record is created or updated','','YesNo');
4994 print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
4995 SetVersion
($DBversion);
4998 $DBversion = "3.07.00.030";
4999 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5000 $dbh->do("ALTER TABLE default_circ_rules ADD
5001 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5002 $dbh->do("ALTER TABLE branch_item_rules ADD
5003 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5004 $dbh->do("ALTER TABLE default_branch_circ_rules ADD
5005 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5006 $dbh->do("ALTER TABLE default_branch_item_rules ADD
5007 COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");
5008 # set the default rule to the current value of HomeOrHoldingBranchReturn (default to 'homebranch' if need be)
5009 my $homeorholdingbranchreturn = C4
::Context
->preference('HomeOrHoldingBranchReturn') || 'homebranch';
5010 $dbh->do("UPDATE default_circ_rules SET returnbranch = '$homeorholdingbranchreturn'");
5011 print "Upgrade to $DBversion done (Atomic update for OAI-PMH sets management)\n";
5012 SetVersion
($DBversion);
5015 $DBversion = "3.07.00.031";
5016 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5017 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UseICU', '1', 'Tell Koha if ICU indexing is in use for Zebra or not.','1','YesNo')");
5018 print "Upgrade to $DBversion done (Add syspref to tell Koha if ICU indexing is in use for Zebra or not.)\n";
5019 SetVersion
($DBversion);
5022 $DBversion = "3.07.00.032";
5023 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5024 $dbh->do("ALTER TABLE virtualshelves MODIFY COLUMN owner int"); #should have been int already (fk to borrowers)
5025 $dbh->do("UPDATE virtualshelves vi LEFT JOIN borrowers bo ON bo.borrowernumber=vi.owner SET vi.owner=NULL where bo.borrowernumber IS NULL"); #before adding the constraint on borrowernumber, we need to get rid of deleted owners
5026 $dbh->do("DELETE FROM virtualshelves WHERE owner IS NULL and category=1"); #delete private lists without owner (cascades to shelfcontents)
5027 $dbh->do("ALTER TABLE virtualshelves ADD COLUMN allow_add tinyint(1) DEFAULT 0, ADD COLUMN allow_delete_own tinyint(1) DEFAULT 1, ADD COLUMN allow_delete_other tinyint(1) DEFAULT 0, ADD CONSTRAINT `virtualshelves_ibfk_1` FOREIGN KEY (`owner`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL");
5028 $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=1");
5029 $dbh->do("UPDATE virtualshelves SET allow_add=0, allow_delete_own=1, allow_delete_other=0 WHERE category=2");
5030 $dbh->do("UPDATE virtualshelves SET allow_add=1, allow_delete_own=1, allow_delete_other=1 WHERE category=3");
5031 $dbh->do("UPDATE virtualshelves SET category=2 WHERE category=3");
5033 $dbh->do("ALTER TABLE virtualshelfcontents ADD COLUMN borrowernumber int, ADD CONSTRAINT `shelfcontents_ibfk_3` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL");
5034 $dbh->do("UPDATE virtualshelfcontents co LEFT JOIN virtualshelves sh USING (shelfnumber) SET co.borrowernumber=sh.owner");
5036 $dbh->do("CREATE TABLE virtualshelfshares
5037 (id int AUTO_INCREMENT PRIMARY KEY, shelfnumber int NOT NULL,
5038 borrowernumber int, invitekey varchar(10), sharedate datetime,
5039 CONSTRAINT `virtualshelfshares_ibfk_1` FOREIGN KEY (`shelfnumber`) REFERENCES `virtualshelves` (`shelfnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
5040 CONSTRAINT `virtualshelfshares_ibfk_2` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE SET NULL) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5042 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowPublicListCreation',1,'If set, allows opac users to create public lists',NULL,'YesNo');");
5043 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacAllowSharingPrivateLists',0,'If set, allows opac users to share private lists with other patrons',NULL,'YesNo');");
5045 print "Upgrade to $DBversion done (BZ7310: Improving list permissions)\n";
5046 SetVersion
($DBversion);
5049 $DBversion = "3.07.00.033";
5050 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5051 $dbh->do("ALTER TABLE branches ADD opac_info text;");
5052 print "Upgrade to $DBversion done add opac_info to branches \n";
5053 SetVersion
($DBversion);
5056 $DBversion = "3.07.00.034";
5057 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5058 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN category_code VARCHAR(10) NULL DEFAULT NULL AFTER `display_checkout`");
5059 $dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN class VARCHAR(255) NOT NULL DEFAULT '' AFTER `category_code`");
5060 $dbh->do("ALTER TABLE borrower_attribute_types ADD CONSTRAINT category_code_fk FOREIGN KEY (category_code) REFERENCES categories(categorycode)");
5061 print "Upgrade to $DBversion done (New fields category_code and class in borrower_attribute_types table)\n";
5062 SetVersion
($DBversion);
5065 $DBversion = "3.07.00.035";
5066 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5067 $dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");
5068 $dbh->do("UPDATE issues SET date_due = CONCAT(SUBSTR(date_due,1,11),'23:59:00')");
5069 $dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");
5070 $dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");
5071 $dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");
5072 $dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");
5073 $dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");
5074 $dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");
5075 $dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");
5076 $dbh->do("UPDATE accountlines SET description = CONCAT(description,' 23:59') WHERE accounttype='F' OR accounttype='FU'"); #BUG-8253
5077 print "Upgrade to $DBversion done (Setting up issues and accountlines tables for hourly loans)\n";
5078 SetVersion
($DBversion);
5081 $DBversion = "3.07.00.036";
5082 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5084 ALTER TABLE z3950servers ADD timeout INT
( 11 ) NOT NULL DEFAULT
'0' AFTER syntax
;
5086 print "Upgrade to $DBversion done (New timeout field in z3950servers)\n";
5089 $DBversion = "3.07.00.037";
5090 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5092 ALTER TABLE `marc_subfield_structure` ADD `maxlength` INT( 4 ) NOT NULL DEFAULT '9999';
5095 UPDATE `marc_subfield_structure` SET maxlength=24 WHERE tagfield='000';
5098 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='MARC21','40','9999') WHERE tagfield='008';
5101 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='NORMARC','40','9999') WHERE tagfield='008';
5104 UPDATE marc_subfield_structure SET maxlength = IF ((SELECT value FROM systempreferences WHERE variable = 'marcflavour')='UNIMARC','36','9999') WHERE tagfield='100';
5106 print "Upgrade to $DBversion done (Add new field maxlength to marc_subfield_structure)\n";
5107 SetVersion
($DBversion);
5110 $DBversion = "3.07.00.038";
5111 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5113 INSERT INTO systempreferences
(variable
,value
,explanation
,options
,type
)
5114 VALUES
('UniqueItemFields', 'barcode', 'Space-separated list of fields that should be unique (used in acquisition module for item creation). Fields must be valid SQL column names of items table', '', 'Free')
5116 print "Upgrade to $DBversion done (Added system preference 'UniqueItemFields')\n";
5117 SetVersion
($DBversion);
5120 $DBversion = "3.07.00.039";
5121 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5122 $dbh->do( qq{INSERT IGNORE INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('Babeltheque_url_js','','Url for Babeltheque javascript (e.g. http://www.babeltheque.com/bw_XX.js','','Free')} );
5123 $dbh->do( qq{CREATE TABLE IF NOT EXISTS social_data
5126 num_critics_pro INT
,
5129 score_avg DECIMAL
(5,2),
5132 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
5134 $dbh->do( qq{INSERT IGNORE INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('Babeltheque_url_update', '', 'Url for Babeltheque update (E.G. http://www.babeltheque.com/.../file.csv.bz2)', '', 'Free')} );
5135 print "Upgrade to $DBversion done (added syspref and table for babeltheque (Babeltheque_url_js, babeltheque))\n";
5136 SetVersion
($DBversion);
5139 $DBversion = "3.07.00.040";
5140 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5141 $dbh->do( qq{INSERT IGNORE INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('SocialNetworks','0','Enable/Disable social networks links in opac detail','','YesNo')} );
5142 print "Upgrade to $DBversion done (added syspref SocialNetworks, to display facebook/ggl+ and other buttons)\n";
5143 SetVersion
($DBversion);
5148 $DBversion = "3.07.00.041";
5149 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5150 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('SubscriptionDuplicateDroppedInput','','','List of fields which must not be rewritten when a subscription is duplicated (Separated by pipe |)','Free')");
5151 print "Upgrade to $DBversion done (Add system preference SubscriptionDuplicateDroppedInput)\n";
5152 SetVersion
($DBversion);
5155 $DBversion = "3.07.00.042";
5156 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5157 $dbh->do("ALTER TABLE reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5158 $dbh->do("ALTER TABLE old_reserves ADD suspend BOOLEAN NOT NULL DEFAULT 0");
5160 $dbh->do("ALTER TABLE reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5161 $dbh->do("ALTER TABLE old_reserves ADD suspend_until DATETIME NULL DEFAULT NULL");
5163 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AutoResumeSuspendedHolds', '1', NULL , 'Allow suspended holds to be automatically resumed by a set date.', 'YesNo')");
5165 print "Upgrade to $DBversion done (Add suspend fields to reserves table, add syspref AutoResumeSuspendedHolds)\n";
5166 SetVersion
($DBversion);
5169 $DBversion = "3.07.00.043";
5170 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5171 my $countXSLTDetailsDisplay = 0;
5172 my $valueXSLTDetailsDisplay = "";
5173 my $valueXSLTResultsDisplay = "";
5174 my $valueOPACXSLTDetailsDisplay = "";
5175 my $valueOPACXSLTResultsDisplay = "";
5176 #the line below test if database comes from a BibLibre's branch
5177 $countXSLTDetailsDisplay = $dbh->do('SELECT 1 FROM systempreferences WHERE variable="IntranetXSLTDetailsDisplay"');
5178 if ($countXSLTDetailsDisplay > 0)
5180 #the two lines below will only be used to update the databases from the BibLibre's branch. They will not affect the others
5181 $dbh->do(q
|UPDATE systempreferences SET variable
="XSLTDetailsDisplay" WHERE variable
="IntranetXSLTDetailsDisplay"|);
5182 $dbh->do(q
|UPDATE systempreferences SET variable
="XSLTResultsDisplay" WHERE variable
="IntranetXSLTResultsDisplay"|);
5186 $valueXSLTDetailsDisplay = "default" if (C4
::Context
->preference("XSLTDetailsDisplay"));
5187 $valueXSLTResultsDisplay = "default" if (C4
::Context
->preference("XSLTResultsDisplay"));
5188 $valueOPACXSLTDetailsDisplay = "default" if (C4
::Context
->preference("OPACXSLTDetailsDisplay"));
5189 $valueOPACXSLTResultsDisplay = "default" if (C4
::Context
->preference("OPACXSLTResultsDisplay"));
5190 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTDetailsDisplay\" WHERE variable='XSLTDetailsDisplay'");
5191 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueXSLTResultsDisplay\" WHERE variable='XSLTResultsDisplay'");
5192 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTDetailsDisplay\" WHERE variable='OPACXSLTDetailsDisplay'");
5193 $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTResultsDisplay\" WHERE variable='OPACXSLTResultsDisplay'");
5195 print "Upgrade to $DBversion done (XSLT systempreference takes a path to file rather than YesNo)\n";
5196 SetVersion
($DBversion);
5199 $DBversion = "3.07.00.044";
5200 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5201 $dbh->do("ALTER TABLE aqbooksellers ADD deliverytime INT DEFAULT NULL");
5202 print "Upgrade to $DBversion done (Add deliverytime field in aqbooksellers table)";
5203 SetVersion
($DBversion);
5206 $DBversion = "3.07.00.045";
5207 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5208 $dbh->do("ALTER TABLE import_batches MODIFY COLUMN batch_type ENUM('batch','z3950','webservice') NOT NULL default 'batch'");
5209 print "Upgrade to $DBversion done (Add 'webservice' to batch_type enum)\n";
5210 SetVersion
($DBversion);
5213 $DBversion = "3.07.00.046";
5214 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5215 $dbh->do("ALTER TABLE issuingrules ADD COLUMN lengthunit varchar(10) DEFAULT 'days' AFTER issuelength");
5216 print "Upgrade to $DBversion done (Setting up issues tables for hourly loans (lengthunit fix))\n";
5217 SetVersion
($DBversion);
5220 $DBversion = "3.07.00.047";
5221 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5222 $dbh->do("CREATE INDEX items_location ON items(location)");
5223 $dbh->do("CREATE INDEX items_ccode ON items(ccode)");
5224 print "Upgrade to $DBversion done (items_location and items_ccode indexes added for ShelfBrowser)\n";
5225 SetVersion
($DBversion);
5228 $DBversion = "3.07.00.048";
5229 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5231 q
| CREATE TABLE ratings
(
5232 borrowernumber
int(11) NOT NULL
,
5233 biblionumber
int(11) NOT NULL
,
5234 rating_value tinyint
(1) NOT NULL
,
5235 timestamp timestamp NOT NULL
default CURRENT_TIMESTAMP
,
5236 PRIMARY KEY
(borrowernumber
,biblionumber
),
5237 CONSTRAINT ratings_ibfk_1 FOREIGN KEY
(borrowernumber
) REFERENCES borrowers
(borrowernumber
) ON DELETE CASCADE ON UPDATE CASCADE
,
5238 CONSTRAINT ratings_ibfk_2 FOREIGN KEY
(biblionumber
) REFERENCES biblio
(biblionumber
) ON DELETE CASCADE ON UPDATE CASCADE
5239 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
|
5243 q
/INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacStarRatings','disable',NULL,'disable|all|details','Choice') /
5247 "Upgrade to $DBversion done (Add 'ratings' table and 'OpacStarRatings' syspref)\n";
5248 SetVersion
($DBversion);
5251 $DBversion = "3.07.00.049";
5252 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5253 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacBrowseResults','1','Disable/enable browsing and paging search results from the OPAC detail page.',NULL,'YesNo')");
5254 print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5255 SetVersion
($DBversion);
5258 $DBversion = "3.08.00.000";
5259 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5260 print "Upgrade to $DBversion done\n";
5261 SetVersion
($DBversion);
5264 $DBversion = "3.09.00.001";
5265 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5266 $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 1 ) NULL DEFAULT NULL");
5267 print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table to allow NULL category_code)\n";
5268 SetVersion
($DBversion);
5271 $DBversion = "3.09.00.002";
5272 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5273 $dbh->do("ALTER TABLE saved_sql
5275 cache_expiry INT NOT NULL DEFAULT 300,
5276 public BOOLEAN NOT NULL DEFAULT FALSE
5279 print "Upgrade to $DBversion done (Added cache_expiry and public fields in
5280 saved_reports table.)\n";
5281 SetVersion
($DBversion);
5284 $DBversion = "3.09.00.003";
5285 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5286 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');");
5287 print "Upgrade to $DBversion done (Added SvcMaxReportRows syspref)\n";
5288 SetVersion
($DBversion);
5291 $DBversion = "3.09.00.004";
5292 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5293 $dbh->do("INSERT IGNORE INTO permissions (module_bit, code, description) VALUES('13', 'edit_patrons', 'Perform batch modifivation of patrons')");
5294 print "Upgrade to $DBversion done (Adds permissions flag for access to the patron modifications tool)\n";
5295 SetVersion
($DBversion);
5298 $DBversion = "3.09.00.005";
5299 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5300 unless (TableExists
('quotes')) {
5302 CREATE TABLE
`quotes` (
5303 `id` int(11) NOT NULL AUTO_INCREMENT
,
5304 `source` text DEFAULT NULL
,
5305 `text` mediumtext NOT NULL
,
5306 `timestamp` datetime NOT NULL
,
5308 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
5312 INSERT IGNORE INTO permissions VALUES
(13, "edit_quotes","Edit quotes for quote-of-the-day feature");
5315 INSERT IGNORE INTO
`systempreferences` (variable
,value
,explanation
,options
,type
) VALUES
('QuoteOfTheDay',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL
,'YesNo');
5317 print "Upgrade to $DBversion done (Adding Quote of the Day Option.)\n";
5318 SetVersion
($DBversion);
5321 $DBversion = "3.09.00.006";
5322 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5323 $dbh->do("UPDATE systempreferences SET
5324 variable = 'OPACShowHoldQueueDetails',
5325 value = CASE value WHEN '1' THEN 'priority' ELSE 'none' END,
5326 options = 'none|priority|holds|holds_priority',
5327 explanation = 'Show holds details in OPAC',
5329 WHERE variable = 'OPACDisplayRequestPriority'");
5330 print "Upgrade to $DBversion done (Changed system preference OPACDisplayRequestPriority -> OPACShowHoldQueueDetails)\n";
5331 SetVersion
($DBversion);
5334 $DBversion = "3.09.00.007";
5335 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5336 unless(C4
::Context
->preference('ReservesControlBranch')){
5337 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights.','Choice')");
5339 print "Upgrade to $DBversion done (Insert ReservesControlBranch systempreference into systempreferences table )\n";
5340 SetVersion
($DBversion);
5343 $DBversion = "3.09.00.008";
5344 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5345 $dbh->do("ALTER TABLE sessions ADD PRIMARY KEY (id);");
5346 $dbh->do("ALTER TABLE sessions DROP INDEX `id`;");
5347 print "Upgrade to $DBversion done (redefine the field id as PRIMARY KEY of sessions)\n";
5348 SetVersion
($DBversion);
5351 $DBversion = "3.09.00.009";
5352 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5353 $dbh->do("ALTER TABLE branches ADD PRIMARY KEY (branchcode);");
5354 $dbh->do("ALTER TABLE branches DROP INDEX branchcode;");
5355 print "Upgrade to $DBversion done (redefine the field branchcode as PRIMARY KEY of branches)\n";
5356 SetVersion
($DBversion);
5359 $DBversion = "3.09.00.010";
5360 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5361 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('IssueLostItem', 'alert', 'alert|confirm|nothing', 'Defines what should be done when an attempt is made to issue an item that has been marked as lost.', 'Choice')");
5362 print "Upgrade to $DBversion done (Add system preference issuelostitem ))\n";
5363 SetVersion
($DBversion);
5366 $DBversion = "3.09.00.011";
5367 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5368 $dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5369 $dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) ");
5370 $dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5371 if (C4
::Context
->preference("marcflavour") eq 'UNIMARC') {
5372 $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'");
5374 print "Upgrade to $DBversion done (Adding ean in biblioitems and deletedbiblioitems)\n";
5375 print "If you have records with ean, please run misc/batchRebuildBiblioTables.pl to populate bibliotems.ean\n" if (C4
::Context
->preference("marcflavour") eq 'UNIMARC');
5376 SetVersion
($DBversion);
5379 $DBversion = "3.09.00.012";
5380 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5381 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsIntranet', '1', NULL , 'Allow holds to be suspended from the intranet.', 'YesNo')");
5382 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsOpac', '1', NULL , 'Allow holds to be suspended from the OPAC.', 'YesNo')");
5383 print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";
5384 SetVersion
($DBversion);
5387 $DBversion ="3.09.00.013";
5388 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5389 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('DefaultLanguageField008','','Fill in the default language for field 008 Range 35-37 (e.g. eng, nor, ger, see www.loc.gov/marc/languages/language_code.html)','','Free');");
5390 print "Upgrade to $DBversion done (Add system preference DefaultLanguageField008))\n";
5391 SetVersion
($DBversion);
5394 $DBversion ="3.09.00.014";
5395 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5396 # add phone message transport type
5397 $dbh->do("INSERT INTO message_transport_types (message_transport_type) VALUES ('phone')");
5399 # adds HOLD_PHONE and PREDUE_PHONE letters (as placeholders)
5400 $dbh->do("INSERT INTO letter (module, code, name, title, content) VALUES
5401 ('reserves', 'HOLD_PHONE', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup'),
5402 ('circulation', 'PREDUE_PHONE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon'),
5403 ('circulation', 'OVERDUE_PHONE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue')
5406 # add phone notifications to patron message preferences options
5407 $dbh->do("INSERT INTO message_transports
5408 (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES
5409 (4, 'phone', 0, 'reserves', 'HOLD_PHONE'),
5410 (2, 'phone', 0, 'circulation', 'PREDUE_PHONE')
5413 # add TalkingTechItivaPhoneNotification syspref
5414 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('TalkingTechItivaPhoneNotification',0,'If ON, enables Talking Tech I-tiva phone notifications',NULL,'YesNo');");
5416 print "Upgrade done (Support for Talking Tech i-tiva phone notification system)\n";
5417 SetVersion
($DBversion);
5420 $DBversion = "3.09.00.015";
5421 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5423 INSERT IGNORE INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('StatisticsFields','location|itype|ccode','Define Fields (from the items table) used for statistics members','location|itype|ccode','free')
5425 print "Upgrade to $DBversion done (Add System preference StatisticsFields)\n";
5426 SetVersion
($DBversion);
5429 $DBversion = "3.09.00.016";
5430 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5431 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowBarcode','0','Show items barcode in holding tab','','YesNo')");
5432 print "Upgrade to $DBversion done (Add syspref OPACShowBarcode)\n";
5433 SetVersion
($DBversion);
5436 $DBversion = "3.09.00.017";
5437 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5438 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OpacNavRight', '', '70|10', 'Show the following HTML in the right hand column of the main page under the main login form', 'Textarea');");
5439 print "Upgrade to $DBversion done (Add customizable OpacNavRight region to the OPAC main page)\n";
5440 SetVersion
($DBversion);
5443 $DBversion = "3.09.00.018";
5444 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5445 $dbh->do("DROP TABLE IF EXISTS aqbudgetborrowers");
5447 CREATE TABLE aqbudgetborrowers (
5448 budget_id int(11) NOT NULL,
5449 borrowernumber int(11) NOT NULL,
5450 PRIMARY KEY (budget_id, borrowernumber),
5451 CONSTRAINT aqbudgetborrowers_ibfk_1 FOREIGN KEY (budget_id)
5452 REFERENCES aqbudgets (budget_id)
5453 ON DELETE CASCADE ON UPDATE CASCADE,
5454 CONSTRAINT aqbudgetborrowers_ibfk_2 FOREIGN KEY (borrowernumber)
5455 REFERENCES borrowers (borrowernumber)
5456 ON DELETE CASCADE ON UPDATE CASCADE
5457 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5460 INSERT INTO permissions (module_bit, code, description)
5461 VALUES (11, 'budget_manage_all', 'Manage all budgets')
5463 print "Upgrade to $DBversion done (Add aqbudgetborrowers table)\n";
5464 SetVersion
($DBversion);
5467 $DBversion = "3.09.00.019";
5468 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5469 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACShowUnusedAuthorities','1','','Show authorities that are not being used in the OPAC.','YesNo')");
5470 print "Upgrade to $DBversion done (Add OPACShowUnusedAuthorities system preference)\n";
5471 SetVersion
($DBversion);
5474 $DBversion = "3.09.00.020";
5475 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5476 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('EnableBorrowerFiles','0','If enabled, allows librarians to upload and attach arbitrary files to a borrower record.','YesNo')");
5478 CREATE TABLE IF NOT EXISTS borrower_files (
5479 file_id int(11) NOT NULL AUTO_INCREMENT,
5480 borrowernumber int(11) NOT NULL,
5481 file_name varchar(255) NOT NULL,
5482 file_type varchar(255) NOT NULL,
5483 file_description varchar(255) DEFAULT NULL,
5484 file_content longblob NOT NULL,
5485 date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
5486 PRIMARY KEY (file_id),
5487 KEY borrowernumber (borrowernumber)
5488 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
5490 $dbh->do("ALTER TABLE borrower_files ADD CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE");
5492 print "Upgrade to $DBversion done (Added borrow_files table, EnableBorrowerFiles syspref)\n";
5493 SetVersion
($DBversion);
5496 $DBversion = "3.09.00.021";
5497 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5498 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UpdateTotalIssuesOnCirc','0','Whether to update the totalissues field in the biblio on each circ.',NULL,'YesNo');");
5499 print "Upgrade to $DBversion done (Add syspref UpdateTotalIssuesOnCirc)\n";
5500 SetVersion
($DBversion);
5503 $DBversion = "3.09.00.022";
5504 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5505 $dbh->do("ALTER TABLE search_history MODIFY COLUMN query_cgi text NOT NULL");
5506 print "Upgrade to $DBversion done (Change search_history.query_cgi type to text. bug 5981)\n";
5507 SetVersion
($DBversion);
5510 $DBversion = "3.09.00.023";
5511 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5512 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
5513 print "Upgrade to $DBversion done (Add system preference SearchEngine )\n";
5514 SetVersion
($DBversion);
5517 $DBversion ="3.09.00.024";
5518 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5519 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('IntranetSlipPrinterJS','','Use this JavaScript for printing slips. Define at least function printThenClose(). For use e.g. with Firefox PlugIn jsPrintSetup, see http://jsprintsetup.mozdev.org/','','Free')");
5520 print "Upgrade to $DBversion done (Add system preference IntranetSlipPrinterJS))\n";
5521 SetVersion
($DBversion);
5524 $DBversion = "3.09.00.025";
5525 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5526 $dbh->do('START TRANSACTION');
5527 $dbh->do('CREATE TABLE tmp_reserves AS SELECT * FROM old_reserves LIMIT 0');
5528 $dbh->do('ALTER TABLE tmp_reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5530 INSERT INTO tmp_reserves (
5531 borrowernumber, reservedate, biblionumber,
5532 constrainttype, branchcode, notificationdate,
5533 reminderdate, cancellationdate, reservenotes,
5534 priority, found, timestamp, itemnumber,
5535 waitingdate, expirationdate, lowestPriority,
5536 suspend, suspend_until
5538 borrowernumber, reservedate, biblionumber,
5539 constrainttype, branchcode, notificationdate,
5540 reminderdate, cancellationdate, reservenotes,
5541 priority, found, timestamp, itemnumber,
5542 waitingdate, expirationdate, lowestPriority,
5543 suspend, suspend_until
5544 FROM old_reserves ORDER BY reservedate
5546 $dbh->do('SET @ai = ( SELECT MAX( reserve_id ) FROM tmp_reserves )');
5547 $dbh->do('TRUNCATE old_reserves');
5548 $dbh->do('ALTER TABLE old_reserves ADD reserve_id INT( 11 ) NOT NULL PRIMARY KEY FIRST');
5549 $dbh->do('INSERT INTO old_reserves SELECT * FROM tmp_reserves WHERE reserve_id <= @ai');
5551 INSERT INTO tmp_reserves (
5552 borrowernumber, reservedate, biblionumber,
5553 constrainttype, branchcode, notificationdate,
5554 reminderdate, cancellationdate, reservenotes,
5555 priority, found, timestamp, itemnumber,
5556 waitingdate, expirationdate, lowestPriority,
5557 suspend, suspend_until
5559 borrowernumber, reservedate, biblionumber,
5560 constrainttype, branchcode, notificationdate,
5561 reminderdate, cancellationdate, reservenotes,
5562 priority, found, timestamp, itemnumber,
5563 waitingdate, expirationdate, lowestPriority,
5564 suspend, suspend_until
5565 FROM reserves ORDER BY reservedate
5567 $dbh->do('TRUNCATE reserves');
5568 $dbh->do('ALTER TABLE reserves ADD reserve_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST');
5569 $dbh->do('INSERT INTO reserves SELECT * FROM tmp_reserves WHERE reserve_id > COALESCE(@ai, 0)');
5570 $dbh->do('DROP TABLE tmp_reserves');
5573 my $sth = $dbh->prepare("
5574 SELECT COUNT( * ) AS count
5575 FROM information_schema.COLUMNS
5576 WHERE COLUMN_NAME = 'reserve_id'
5578 TABLE_NAME LIKE 'reserves'
5580 TABLE_NAME LIKE 'old_reserves'
5584 my $row = $sth->fetchrow_hashref();
5585 die("Failed to add reserve_id to reserves tables, please refresh the page to try again.") unless ( $row->{'count'} );
5587 print "Upgrade to $DBversion done (add reserve_id to reserves & old_reserves tables)\n";
5588 SetVersion
($DBversion);
5591 $DBversion = "3.09.00.026";
5592 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5593 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
5594 ( 3, 'parameters_remaining_permissions', 'Remaining system parameters permissions'),
5595 ( 3, 'manage_circ_rules', 'manage circulation rules')");
5596 $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5597 SELECT borrowernumber, 3, 'parameters_remaining_permissions'
5598 FROM borrowers WHERE flags & (1 << 3)");
5599 # Give new subpermissions to all users that have 'parameters' permission flag (bit 3) set
5600 # see userflags table
5601 $dbh->do("INSERT INTO user_permissions (borrowernumber, module_bit, code)
5602 SELECT borrowernumber, 3, 'manage_circ_rules'
5603 FROM borrowers WHERE flags & (1 << 3)");
5604 print "Upgrade to $DBversion done (Added parameters subpermissions)\n";
5605 SetVersion
($DBversion);
5608 $DBversion = '3.09.00.027';
5609 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5610 $dbh->do("ALTER TABLE issuingrules ADD overduefinescap decimal(28,6) DEFAULT NULL");
5611 my $maxfine = C4
::Context
->preference('MaxFine');
5612 if ($maxfine && $maxfine < 900) { # an arbitrary value that tells us it's not "some huge value"
5613 $dbh->do("UPDATE issuingrules SET overduefinescap=?",undef,$maxfine);
5614 $dbh->do("UPDATE systempreferences SET value = NULL WHERE variable = 'MaxFine'");
5616 $dbh->do("UPDATE systempreferences SET explanation = 'Maximum fine a patron can have for all late returns at one moment. Single item caps are specified in the circulation rules matrix.' WHERE variable = 'MaxFine'");
5617 print "Upgrade to $DBversion done (Bug 7420 add overduefinescap to circulation matrix)\n";
5618 SetVersion
($DBversion);
5621 $DBversion = "3.09.00.028";
5622 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5623 unless ( C4
::Context
->preference('marcflavour') eq 'UNIMARC' ) {
5624 my %referencetypes = ( '00' => 'PERSO_NAME',
5625 '10' => 'CORPO_NAME',
5626 '11' => 'MEETI_NAME',
5627 '30' => 'UNIF_TITLE',
5628 '48' => 'CHRON_TERM',
5629 '50' => 'TOPIC_TERM',
5630 '51' => 'GEOGR_NAME',
5631 '55' => 'GENRE/FORM'
5633 my $query = q{SELECT DISTINCT authtypecode, tagfield
5634 FROM auth_subfield_structure
5635 WHERE (tagfield BETWEEN '400' AND '455' OR
5636 tagfield BETWEEN '500' and '555') AND tagsubfield='a' AND
5637 frameworkcode = '' AND ROW(authtypecode, tagfield) NOT IN
5638 (SELECT authtypecode, tagfield FROM auth_subfield_structure
5639 WHERE tagsubfield ='9' )};
5640 $sth = $dbh->prepare($query);
5642 my $sth2 = $dbh->prepare(q{INSERT INTO auth_subfield_structure
5643 (authtypecode, tagfield, tagsubfield, liblibrarian, libopac,
5644 repeatable, mandatory, tab, authorised_value, value_builder,
5645 seealso, isurl, hidden, linkid, kohafield, frameworkcode)
5646 VALUES (?, ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, ?, NULL, NULL,
5647 NULL, 0, 1, '', '', '')});
5648 my $sth3 = $dbh->prepare(q{UPDATE auth_subfield_structure SET
5649 frameworkcode = ? WHERE authtypecode = ? AND
5650 tagfield = ? AND tagsubfield = 'a'});
5651 while (my $row = $sth->fetchrow_arrayref()) {
5652 my ($authtypecode, $field) = @
$row;
5653 $sth2->execute($authtypecode, $field, substr($field, 0, 1));
5654 my $authtypemarker = substr $field, 1, 2;
5655 if ($authtypemarker && $referencetypes{$authtypemarker}) {
5656 $sth3->execute($referencetypes{$authtypemarker}, $authtypecode, $field);
5661 print "Upgrade to $DBversion done (Add thesaurus links for MARC21/NORMARC)\n";
5662 SetVersion
($DBversion);
5665 $DBversion = "3.09.00.029"; # FIXME
5666 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5667 $dbh->do("UPDATE systempreferences SET options=concat(options,'|EAN13') WHERE variable='itemBarcodeInputFilter' AND options NOT LIKE '%EAN13%'");
5668 print "Upgrade to $DBversion done (Add itemBarcodeInputFilter choice EAN13)\n";
5670 $dbh->do("UPDATE systempreferences SET options = concat(options,'|EAN13'), explanation = concat(explanation,'; EAN13 - incremental') WHERE variable = 'autoBarcode' AND options NOT LIKE '%EAN13%'");
5671 print "Upgrade to $DBversion done ( Added EAN13 barcode autogeneration sequence )\n";
5672 SetVersion
($DBversion);
5675 $DBversion ="3.09.00.030";
5676 if(C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5677 my $query = "SELECT value FROM systempreferences WHERE variable='opacstylesheet'";
5678 my $remote= $dbh->selectrow_arrayref($query);
5679 $dbh->do("DELETE from systempreferences WHERE variable='opacstylesheet'");
5680 if($remote && $remote->[0]) {
5681 $query="UPDATE systempreferences SET value=? WHERE variable='opaclayoutstylesheet'";
5682 $dbh->do($query,undef,$remote->[0]);
5683 print "NOTE: The URL of your remote opac css file has been moved to preference opaclayoutstylesheet.\n";
5685 print "Upgrade to $DBversion done (BZ 8263: Make OPAC stylesheet preferences more consistent)\n";
5686 SetVersion
($DBversion);
5689 $DBversion = "3.09.00.031";
5690 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5691 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonReviews'");
5692 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonSimilarItems'");
5693 $dbh->do("DELETE FROM systempreferences WHERE variable='AWSAccessKeyID'");
5694 $dbh->do("DELETE FROM systempreferences WHERE variable='AWSPrivateKey'");
5695 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonReviews'");
5696 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonSimilarItems'");
5697 $dbh->do("DELETE FROM systempreferences WHERE variable='AmazonEnabled'");
5698 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACAmazonEnabled'");
5699 print "Upgrade to $DBversion done ('Remove preferences controlling broken Amazon features (Bug 8679')\n";
5700 SetVersion
($DBversion);
5703 $DBversion = "3.09.00.032";
5704 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5705 $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'defaultSortField' AND value = 'callnumber'");
5706 $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'");
5707 print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n";
5708 SetVersion
($DBversion);
5712 $DBversion = '3.09.00.033';
5713 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5714 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacSuppressionByIPRange','','Restrict the suppression to IP adresses outside of the IP range','','free');");
5715 print "Upgrade to $DBversion done (Add OpacSuppressionByIPRange syspref)\n";
5716 SetVersion
($DBversion);
5719 $DBversion ="3.09.00.034";
5720 if(C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5721 $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'PERSO_NAME' WHERE frameworkcode = 'PERSO_CODE'");
5722 $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'CORPO_NAME' WHERE frameworkcode = 'ORGO_CODE'");
5723 print "Upgrade to $DBversion done (Bug 8207: correct typo in authority types)\n";
5724 SetVersion
($DBversion);
5727 $DBversion = "3.09.00.035";
5728 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5730 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('PrefillItem','0','When a new item is added, should it be prefilled with last created item values?','','YesNo');
5733 "INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('SubfieldsToUseWhenPrefill','','Define a list of subfields to use when prefilling items (separated by space)','','Free');
5735 print "Upgrade to $DBversion done (Adding PrefillItem and SubfieldsToUseWhenPrefill sysprefs)\n";
5736 SetVersion
($DBversion);
5739 $DBversion = "3.09.00.036";
5740 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5741 # biblioitems changes
5742 $dbh->do("ALTER TABLE biblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5743 $dbh->do("ALTER TABLE deletedbiblioitems ADD COLUMN agerestriction VARCHAR(255) DEFAULT NULL AFTER cn_sort");
5744 # preferences changes
5745 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AgeRestrictionMarker','','Markers for age restriction indication, e.g. FSK|PEGI|Age|. See: http://wiki.koha-community.org/wiki/Age_restriction',NULL,'free')");
5746 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AgeRestrictionOverride',0,'Allow staff to check out an item with age restriction.',NULL,'YesNo')");
5748 print "Upgrade to $DBversion done (Add colum agerestriction to biblioitems and deletedbiblioitems, add system preferences AgeRestrictionMarker and AgeRestrictionOverride)\n";
5749 SetVersion
($DBversion);
5752 $DBversion = "3.09.00.037";
5753 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5754 $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('UseTransportCostMatrix',0,'Use Transport Cost Matrix when filling holds','','YesNo')");
5756 $dbh->do("CREATE TABLE `transport_cost` (
5757 `frombranch` varchar(10) NOT NULL,
5758 `tobranch` varchar(10) NOT NULL,
5759 `cost` decimal(6,2) NOT NULL,
5760 `disable_transfer` tinyint(1) NOT NULL DEFAULT 0,
5761 CHECK ( `frombranch` <> `tobranch` ), -- a dud check, mysql does not support that
5762 PRIMARY KEY (`frombranch`, `tobranch`),
5763 CONSTRAINT `transport_cost_ibfk_1` FOREIGN KEY (`frombranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
5764 CONSTRAINT `transport_cost_ibfk_2` FOREIGN KEY (`tobranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
5765 ) ENGINE=InnoDB DEFAULT CHARSET=utf8");
5767 print "Upgrade to $DBversion done (creating `transport_cost` table; adding UseTransportCostMatrix systempref, in circulation)\n";
5768 SetVersion
($DBversion);
5771 $DBversion ="3.09.00.038";
5772 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5773 $dbh->do("ALTER TABLE borrower_attributes CHANGE attribute attribute VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
5774 print "Upgrade to $DBversion done (Increase the maximum size of a borrower attribute value)\n";
5775 SetVersion
($DBversion);
5778 $DBversion ="3.09.00.039";
5779 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5780 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('DidYouMeanFromAuthorities','0','Suggest searches based on authority file.','YesNo');");
5781 print "Upgrade to $DBversion done (Add system preference DidYouMeanFromAuthorities)\n";
5782 SetVersion
($DBversion);
5785 $DBversion = "3.09.00.040";
5786 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5787 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IncludeSeeFromInSearches','0','','Include see-from references in searches.','YesNo');");
5788 print "Upgrade to $DBversion done (Add IncludeSeeFromInSearches system preference)\n";
5789 SetVersion
($DBversion);
5792 $DBversion = "3.09.00.041";
5793 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5795 INSERT IGNORE INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('ExportRemoveFields','','List of fields for non export in circulation.pl (separated by a space)','','');
5797 print "Upgrade to $DBversion done (Add system preference ExportRemoveFields)\n";
5798 SetVersion
($DBversion);
5801 $DBversion = "3.09.00.042";
5802 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5804 INSERT IGNORE INTO systempreferences
(variable
,value
,explanation
,options
,type
) VALUES
('ExportWithCsvProfile','','Set a profile name for CSV export','','');
5806 print "Upgrade to $DBversion done (Adds New System preference ExportWithCsvProfile)\n";
5807 SetVersion
($DBversion)
5810 $DBversion = "3.09.00.043";
5811 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5813 ALTER TABLE aqorders
5814 ADD parent_ordernumber int(11) DEFAULT NULL
5818 SET parent_ordernumber = ordernumber;
5820 print "Upgrade to $DBversion done (Adding parent_ordernumber in aqorders)\n";
5821 SetVersion
($DBversion);
5824 $DBversion = '3.09.00.044';
5825 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5826 $dbh->do("ALTER TABLE statistics ADD COLUMN ccode VARCHAR ( 10 ) NULL AFTER associatedborrower");
5827 $dbh->do("UPDATE statistics SET statistics.ccode = ( SELECT items.ccode FROM items WHERE statistics.itemnumber = items.itemnumber )");
5828 $dbh->do("UPDATE statistics SET statistics.ccode = (
5829 SELECT deleteditems.ccode FROM deleteditems
5830 WHERE statistics.itemnumber = deleteditems.itemnumber
5831 ) WHERE statistics.ccode IS NULL");
5832 print "Upgrade done ( Added Collection Code to Statistics table. )\n";
5833 SetVersion
($DBversion);
5836 $DBversion = "3.09.00.045";
5837 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5838 $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 10 ) NULL DEFAULT NULL");
5839 print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table from varchar(1) to varchar(10) category_code)\nWarning to Koha System Administrators: If you use borrower attributes defined by borrower categories, you have to check your configuration. A bug may have removed your attribute links to borrower categories.\nPlease check, and fix it if necessary.";
5840 SetVersion
($DBversion);
5843 $DBversion = "3.09.00.046";
5844 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5845 $dbh->do("ALTER TABLE `accountlines` ADD `accountlines_id` INT NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST;");
5846 print "Upgrade to $DBversion done (adding accountlines_id field in accountlines table)\n";
5847 SetVersion
($DBversion);
5850 $DBversion = "3.09.00.047";
5851 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5852 # to preserve default behaviour as best as possible, set this new preference differently depending on whether IndependantBranches is set or not
5853 my $prefvalue = 'anywhere';
5854 if (C4
::Context
->preference("IndependantBranches")) { $prefvalue = 'homeorholdingbranch';}
5855 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowReturnToBranch', '$prefvalue', 'Where an item may be returned', 'anywhere|homebranch|holdingbranch|homeorholdingbranch', 'Choice');");
5857 print "Upgrade to $DBversion done: adding AllowReturnToBranch syspref (bug 6151)";
5858 SetVersion
($DBversion);
5861 $DBversion = "3.09.00.048";
5862 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5863 $dbh->do("ALTER TABLE authorised_values MODIFY lib varchar(200)");
5864 $dbh->do("ALTER TABLE authorised_values MODIFY lib_opac varchar(200)");
5866 print "Upgrade to $DBversion done (Raise the length of Authorised Values descriptions)\n";
5867 SetVersion
($DBversion);
5870 $DBversion ="3.09.00.049";
5871 if(C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
5872 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACMobileUserCSS','','Include the following CSS for the mobile view on all pages in the OPAC:',NULL,'free');");
5873 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacMainUserBlockMobile','','Show the following HTML in its own column on the main page of the OPAC (mobile version):',NULL,'free');");
5874 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowLibrariesPulldownMobile','1','Show the libraries pulldown on the mobile version of the OPAC.',NULL,'YesNo');");
5875 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowFiltersPulldownMobile','1','Show the search filters pulldown on the mobile version of the OPAC.',NULL,'YesNo');");
5876 print "Upgrade to $DBversion done (Add OPACMobileUserCSS, OpacMainUserBlockMobile, OpacShowLibrariesPulldownMobile and OpacShowFiltersPulldownMobile sysprefs)\n";
5877 SetVersion
($DBversion);
5880 $DBversion = "3.09.00.050";
5881 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5882 $dbh->do("ALTER TABLE authorised_values MODIFY category varchar(16) NOT NULL DEFAULT '';");
5883 $dbh->do("INSERT INTO authorised_values (category, authorised_value, lib) VALUES
5884 ('REPORT_GROUP', 'CIRC', 'Circulation'),
5885 ('REPORT_GROUP', 'CAT', 'Catalog'),
5886 ('REPORT_GROUP', 'PAT', 'Patrons'),
5887 ('REPORT_GROUP', 'ACQ', 'Acquisitions'),
5888 ('REPORT_GROUP', 'ACC', 'Accounts');");
5890 $dbh->do("ALTER TABLE reports_dictionary ADD report_area varchar(6) DEFAULT NULL;");
5891 $dbh->do("UPDATE reports_dictionary SET report_area = CASE area
5898 $dbh->do("ALTER TABLE reports_dictionary DROP area;");
5899 $dbh->do("ALTER TABLE reports_dictionary ADD KEY dictionary_area_idx (report_area);");
5901 $dbh->do("ALTER TABLE saved_sql ADD report_area varchar(6) DEFAULT NULL;");
5902 $dbh->do("ALTER TABLE saved_sql ADD report_group varchar(80) DEFAULT NULL;");
5903 $dbh->do("ALTER TABLE saved_sql ADD report_subgroup varchar(80) DEFAULT NULL;");
5904 $dbh->do("ALTER TABLE saved_sql ADD KEY sql_area_group_idx (report_group, report_subgroup);");
5906 print "Upgrade to $DBversion done saved_sql new fields report_group and report_area; authorised_values.category 16 char \n";
5907 SetVersion
($DBversion);
5910 $DBversion = "3.09.00.051";
5911 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5913 CREATE TABLE aqinvoices (
5914 invoiceid int(11) NOT NULL AUTO_INCREMENT,
5915 invoicenumber mediumtext NOT NULL,
5916 booksellerid int(11) NOT NULL,
5917 shipmentdate date default NULL,
5918 billingdate date default NULL,
5919 closedate date default NULL,
5920 shipmentcost decimal(28,6) default NULL,
5921 shipmentcost_budgetid int(11) default NULL,
5922 PRIMARY KEY (invoiceid),
5923 CONSTRAINT aqinvoices_fk_aqbooksellerid FOREIGN KEY (booksellerid) REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE,
5924 CONSTRAINT aqinvoices_fk_shipmentcost_budgetid FOREIGN KEY (shipmentcost_budgetid) REFERENCES aqbudgets (budget_id) ON DELETE SET NULL ON UPDATE CASCADE
5925 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
5928 # Fill this new table with existing invoices
5929 my $sth = $dbh->prepare("
5930 SELECT aqorders.booksellerinvoicenumber AS invoicenumber, aqbasket.booksellerid, aqorders.datereceived
5932 LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
5933 WHERE aqorders.booksellerinvoicenumber IS NOT NULL
5934 AND aqorders.booksellerinvoicenumber != ''
5935 GROUP BY aqorders.booksellerinvoicenumber
5938 my $results = $sth->fetchall_arrayref({});
5939 $sth = $dbh->prepare("
5940 INSERT INTO aqinvoices (invoicenumber, booksellerid, shipmentdate) VALUES (?,?,?)
5942 foreach(@
$results) {
5943 $sth->execute($_->{invoicenumber
}, $_->{booksellerid
}, $_->{datereceived
});
5946 # Add the column in aqorders, fill it with correct value
5947 # and then drop booksellerinvoicenumber column
5949 ALTER TABLE aqorders
5950 ADD COLUMN invoiceid int(11) default NULL AFTER booksellerinvoicenumber,
5951 ADD CONSTRAINT aqorders_ibfk_3 FOREIGN KEY (invoiceid) REFERENCES aqinvoices (invoiceid) ON DELETE SET NULL ON UPDATE CASCADE
5955 UPDATE aqorders, aqinvoices
5956 SET aqorders.invoiceid = aqinvoices.invoiceid
5957 WHERE aqorders.booksellerinvoicenumber = aqinvoices.invoicenumber
5961 ALTER TABLE aqorders
5962 DROP COLUMN booksellerinvoicenumber
5965 print "Upgrade to $DBversion done (Add aqinvoices table) \n";
5966 SetVersion
($DBversion);
5969 $DBversion = "3.09.00.052";
5970 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5971 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHolds', NULL, '', 'Decreases the loan period for items with number of holds above the threshold specified in decreaseLoanHighHoldsValue', 'YesNo');");
5972 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHoldsValue', NULL, '', 'Specifies a threshold for the minimum number of holds needed to trigger a reduction in loan duration (used with decreaseLoanHighHolds)', 'Integer');");
5973 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('decreaseLoanHighHoldsDuration', NULL, '', 'Specifies a number of days that a loan is reduced to when used in conjunction with decreaseLoanHighHolds', 'Integer');");
5974 print "Upgrade to $DBversion done (Add systempreferences to decrease loan length on high demand items decreaseLoanHighHolds, decreaseLoanHighHoldsValue and decreaseLoanHighHoldsDuration) \n";
5975 SetVersion
($DBversion);
5978 $DBversion = "3.09.00.053";
5979 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
5981 q
|CREATE TABLE
`import_auths` (
5982 import_record_id
int(11) NOT NULL
,
5983 matched_authid
int(11) default NULL
,
5984 control_number varchar
(25) default NULL
,
5985 authorized_heading varchar
(128) default NULL
,
5986 original_source varchar
(25) default NULL
,
5987 CONSTRAINT import_auths_ibfk_1 FOREIGN KEY
(import_record_id
)
5988 REFERENCES import_records
(import_record_id
) ON DELETE CASCADE ON UPDATE CASCADE
,
5989 KEY matched_authid
(matched_authid
)
5990 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
;|
5992 $dbh->do("ALTER TABLE import_batches
5993 CHANGE COLUMN num_biblios num_records int(11) NOT NULL default 0,
5994 ADD COLUMN record_type enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio'");
5995 $dbh->do("UPDATE import_batches SET record_type='auth' WHERE import_batch_id IN
5996 (SELECT import_batch_id FROM import_records WHERE record_type='auth')");
5998 print "Upgrade to $DBversion done (Added support for staging authorities)\n";
5999 SetVersion
($DBversion);
6002 $DBversion = "3.09.00.054";
6003 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6004 $dbh->do("ALTER TABLE aqorders CHANGE COLUMN gst gstrate DECIMAL(6,4) DEFAULT NULL");
6005 print "Upgrade to $DBversion done (Change column name in aqorders gst --> gstrate)\n";
6006 SetVersion
($DBversion);
6009 $DBversion = "3.09.00.055";
6010 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6011 $dbh->do("ALTER TABLE aqorders ADD discount float(6,4) DEFAULT NULL AFTER gstrate");
6012 print "Upgrade to $DBversion done (Add discount field in aqorders table)\n";
6013 SetVersion
($DBversion);
6016 $DBversion ="3.09.00.056";
6017 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6018 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('AuthDisplayHierarchy','0','Display authority hierarchies','','YesNo')");
6019 print "Upgrade to $DBversion done (Add system preference AuthDisplayHierarchy)\n";
6020 SetVersion
($DBversion);
6023 $DBversion = "3.09.00.057";
6024 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6025 $dbh->do("ALTER TABLE aqbasket ADD deliveryplace VARCHAR(10) default NULL AFTER basketgroupid;");
6026 $dbh->do("ALTER TABLE aqbasket ADD billingplace VARCHAR(10) default NULL AFTER deliveryplace;");
6027 print "Upgrade to $DBversion done (Bug 5356: Added billingplace, deliveryplace to the aqbasket table)\n";
6028 SetVersion
($DBversion);
6031 $DBversion ="3.09.00.058";
6032 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6033 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('OPACdidyoumean',NULL,'Did you mean? configuration for the OPAC. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free');");
6034 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('INTRAdidyoumean',NULL,'Did you mean? configuration for the Intranet. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free');");
6035 print "Upgrade to $DBversion done (Add Did You Mean? configuration)\n";
6036 SetVersion
($DBversion);
6039 $DBversion ="3.09.00.059";
6040 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6041 $dbh->do("INSERT INTO systempreferences (variable, value, options, explanation, type) VALUES ('BlockReturnOfWithdrawnItems', '1', '0', 'If enabled, items that are marked as withdrawn cannot be returned.', 'YesNo');");
6042 print "Upgrade to $DBversion done (Add system preference BlockReturnOfWithdrawnItems)\n";
6043 SetVersion
($DBversion);
6046 $DBversion = "3.09.00.060";
6047 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6048 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HoldsToPullStartDate','2','Set the default start date for the Holds to pull list to this many days ago',NULL,'Integer')");
6049 print "Upgrade to $DBversion done (Added HoldsToPullStartDate syspref)\n";
6050 SetVersion
($DBversion);
6053 $DBversion = "3.09.00.061";
6054 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6055 $dbh->do("UPDATE systempreferences set value=0 WHERE variable='OPACItemsResultsDisplay' AND value='statuses'");
6056 $dbh->do("UPDATE systempreferences set value=1 WHERE variable='OPACItemsResultsDisplay' AND value='itemdetails'");
6057 $dbh->do("UPDATE systempreferences SET explanation='If No, show only the status of items in result list. If Yes, show full location of items (branchlocation+callnumber) as in staff interface',options=NULL,type='YesNo' WHERE variable='OPACItemsResultsDisplay'");
6058 print "Upgrade to $DBversion done (Fixes Bug 5409, Set the syspref value to 1 if it is itemdetails and 0 if it is statuses, leaving it alone if it is already 1 or 0 and change the type of the syspref to YesNo.)\n";
6059 SetVersion
($DBversion);
6062 $DBversion = "3.09.00.062";
6063 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6064 $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='NoZebra'");
6065 $dbh->do("UPDATE systempreferences SET value=0 WHERE variable='QueryRemoveStopwords'");
6066 print "Upgrade to $DBversion done (Disable obsolete NoZebra and QueryRemoveStopwords sysprefs)\n";
6067 SetVersion
($DBversion);
6070 $DBversion = "3.09.00.063";
6071 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6072 my $gst_booksellers = $dbh->selectcol_arrayref("SELECT DISTINCT(gstrate) FROM aqbooksellers");
6073 my $gist_syspref = C4
::Context
->preference("gist");
6074 # remove the undef values and construct and array with the syspref and the supplier values
6075 my @gstrates = map { defined $_ ?
$_ : () } @
$gst_booksellers;
6076 push @gstrates, split ('\|', $gist_syspref);
6077 # we want to compare integer (or float)
6078 $_ = $_ + 0 for @gstrates;
6079 use List
::MoreUtils qw
/uniq/;
6080 # remove duplicate values
6081 @gstrates = uniq
sort @gstrates;
6082 my $new_syspref_value = join '|', @gstrates;
6083 # update the syspref with the new values
6084 my $sth = $dbh->prepare("UPDATE systempreferences set value=? WHERE variable='gist'");
6085 $sth->execute( $new_syspref_value );
6087 print "Upgrade to $DBversion done (Bug 8832, Set the syspref gist with the existing values)\n";
6088 SetVersion
($DBversion);
6091 $DBversion = "3.09.00.064";
6092 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6093 $dbh->do('ALTER TABLE items ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6094 print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the items table)\n";
6095 SetVersion
($DBversion);
6098 $DBversion = "3.09.00.065";
6099 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6100 $dbh->do('ALTER TABLE deleteditems ADD coded_location_qualifier varchar(10) default NULL AFTER itemcallnumber');
6101 print "Upgrade to $DBversion done (Bug 6428: Added coded_location_qualifier to the deleteditems table)\n";
6102 SetVersion
($DBversion);
6105 $DBversion = "3.09.00.066";
6106 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6107 $dbh->do("DELETE FROM systempreferences WHERE variable='DidYouMeanFromAuthorities'");
6108 print "Upgrade to $DBversion done (Bug 9107: remove DidYouMeanFromAuthorities syspref)\n";
6109 SetVersion
($DBversion);
6112 $DBversion = "3.09.00.067";
6113 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6114 $dbh->do("ALTER TABLE statistics CHANGE COLUMN ccode ccode varchar(10) NULL");
6115 print "Upgrade to $DBversion done (Bug 9064: statistics.ccode potentially wrongly defined)\n";
6116 SetVersion
($DBversion);
6119 $DBversion = "3.10.00.00";
6120 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6121 print "Upgrade to $DBversion done (release tag)\n";
6122 SetVersion
($DBversion);
6125 $DBversion = "3.11.00.001";
6126 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6127 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('alphabet','A B C D E F G H I J K L M N O P Q R S T U V W X Y Z','Alphabet that can be expanded into browse links, e.g. on Home > Patrons',NULL,'free')");
6128 print "Upgrade to $DBversion done (Bug 2832 - Add alphabet syspref)\n";
6131 $DBversion = "3.11.00.002";
6132 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6134 DELETE from aqorders_items where ordernumber NOT IN (SELECT ordernumber FROM aqorders);
6137 ALTER TABLE aqorders_items
6138 ADD CONSTRAINT aqorders_items_ibfk_1 FOREIGN KEY (ordernumber) REFERENCES aqorders (ordernumber)
6139 ON DELETE CASCADE ON UPDATE CASCADE;
6141 print "Upgrade to $DBversion done (Bug 9030: Add constraint on aqorders_items.ordernumber)\n";
6142 SetVersion
($DBversion);
6145 $DBversion = "3.11.00.003";
6146 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6147 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('RefundLostItemFeeOnReturn', '1', 'If enabled, the lost item fee charged to a borrower will be refunded when the lost item is returned.', NULL, 'YesNo')");
6148 print "Upgrade to $DBversion done (Bug 7189: Add system preference RefundLostItemFeeOnReturn)\n";
6149 SetVersion
($DBversion);
6152 $DBversion = "3.11.00.004";
6153 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6155 ALTER TABLE subscription ADD COLUMN closed INT
(1) NOT NULL DEFAULT
0 AFTER enddate
;
6158 print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n";
6159 SetVersion
($DBversion);
6162 $DBversion = "3.11.00.005";
6163 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6164 $dbh->do(qq{CREATE TABLE borrower_attribute_types_branches
(bat_code VARCHAR
(10), b_branchcode VARCHAR
(10),FOREIGN KEY
(bat_code
) REFERENCES borrower_attribute_types
(code
) ON DELETE CASCADE
,FOREIGN KEY
(b_branchcode
) REFERENCES branches
(branchcode
) ON DELETE CASCADE
) ENGINE
=INNODB DEFAULT CHARSET
=utf8
;});
6166 $dbh->do(qq{CREATE TABLE categories_branches
(categorycode VARCHAR
(10), branchcode VARCHAR
(10), FOREIGN KEY
(categorycode
) REFERENCES categories
(categorycode
) ON DELETE CASCADE
, FOREIGN KEY
(branchcode
) REFERENCES branches
(branchcode
) ON DELETE CASCADE
) ENGINE
=INNODB DEFAULT CHARSET
=utf8
;});
6168 $dbh->do(qq{CREATE TABLE authorised_values_branches
(av_id INTEGER
, branchcode VARCHAR
(10), FOREIGN KEY
(av_id
) REFERENCES authorised_values
(id
) ON DELETE CASCADE
, FOREIGN KEY
(branchcode
) REFERENCES branches
(branchcode
) ON DELETE CASCADE
) ENGINE
=INNODB DEFAULT CHARSET
=utf8
;});
6170 print "Upgrade to $DBversion done (Bug 7919: Display of values depending on the connexion library)\n";
6171 SetVersion
($DBversion);
6174 $DBversion = "3.11.00.006";
6175 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6177 UPDATE virtualshelves SET sortfield="copyrightdate" where sortfield="year";
6179 print "Upgrade to $DBversion done (Bug 9167: Update the virtualshelves.sortfield column with 'copyrightdate' if needed)\n";
6180 SetVersion
($DBversion);
6183 $DBversion = "3.11.00.007";
6184 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6185 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ar', 'language', 'de', 'Arabisch')");
6186 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hy', 'language', 'de', 'Armenisch')");
6187 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'bg', 'language', 'de', 'Bulgarisch')");
6188 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'zh', 'language', 'de', 'Chinesisch')");
6189 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'cs', 'language', 'de', 'Tschechisch')");
6190 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'da', 'language', 'de', 'Dänisch')");
6191 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nl', 'language', 'de', 'Niederländisch')");
6192 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'en', 'language', 'de', 'Englisch')");
6193 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fi', 'language', 'de', 'Finnisch')");
6194 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fr', 'language', 'de', 'Französisch')");
6195 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'fr', 'Laotien')");
6196 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'lo', 'language', 'de', 'Laotisch')");
6197 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'el', 'language', 'de', 'Griechisch (Nach 1453)')");
6198 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'he', 'language', 'de', 'Hebräisch')");
6199 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hi', 'language', 'de', 'Hindi')");
6200 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'hu', 'language', 'de', 'Ungarisch')");
6201 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'id', 'language', 'de', 'Indonesisch')");
6202 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'it', 'language', 'de', 'Italienisch')");
6203 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ja', 'language', 'de', 'Japanisch')");
6204 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ko', 'language', 'de', 'Koreanisch')");
6205 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'la', 'language', 'de', 'Latein')");
6206 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'fr', 'Galicien')");
6207 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'gl', 'language', 'de', 'Galizisch')");
6208 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nb', 'language', 'de', 'Norwegisch bokmål')");
6209 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'nn', 'language', 'de', 'Norwegisch nynorsk')");
6210 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'fa', 'language', 'de', 'Persisch')");
6211 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pl', 'language', 'de', 'Polnisch')");
6212 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'pt', 'language', 'de', 'Portugiesisch')");
6213 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ro', 'language', 'de', 'Rumänisch')");
6214 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ru', 'language', 'de', 'Russisch')");
6215 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'fr', 'Serbe')");
6216 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sr', 'language', 'de', 'Serbisch')");
6217 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'es', 'language', 'de', 'Spanisch')");
6218 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'sv', 'language', 'de', 'Schwedisch')");
6219 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'fr', 'Tétoum')");
6220 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tet', 'language', 'de', 'Tetum')");
6221 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'th', 'language', 'de', 'Thailändisch')");
6222 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'tr', 'language', 'de', 'Türkisch')");
6223 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'uk', 'language', 'de', 'Ukrainisch')");
6224 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'fr', 'Ourdou')");
6225 $dbh->do("INSERT INTO language_descriptions (subtag, type, lang, description) VALUES( 'ur', 'language', 'de', 'Urdu')");
6226 print "Upgrade to $DBversion done (Bug 9056: add German and a couple of French translations to language_descriptions)\n";
6227 SetVersion
($DBversion);
6230 $DBversion = "3.11.00.008";
6231 if (CheckVersion
($DBversion)) {
6233 CREATE TABLE IF NOT EXISTS `borrower_modifications` (
6234 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6235 `verification_token` varchar(255) NOT NULL DEFAULT '',
6236 `borrowernumber` int(11) NOT NULL DEFAULT '0',
6237 `cardnumber` varchar(16) DEFAULT NULL,
6238 `surname` mediumtext,
6241 `othernames` mediumtext,
6243 `streetnumber` varchar(10) DEFAULT NULL,
6244 `streettype` varchar(50) DEFAULT NULL,
6245 `address` mediumtext,
6249 `zipcode` varchar(25) DEFAULT NULL,
6253 `mobile` varchar(50) DEFAULT NULL,
6257 `B_streetnumber` varchar(10) DEFAULT NULL,
6258 `B_streettype` varchar(50) DEFAULT NULL,
6259 `B_address` varchar(100) DEFAULT NULL,
6261 `B_city` mediumtext,
6263 `B_zipcode` varchar(25) DEFAULT NULL,
6266 `B_phone` mediumtext,
6267 `dateofbirth` date DEFAULT NULL,
6268 `branchcode` varchar(10) DEFAULT NULL,
6269 `categorycode` varchar(10) DEFAULT NULL,
6270 `dateenrolled` date DEFAULT NULL,
6271 `dateexpiry` date DEFAULT NULL,
6272 `gonenoaddress` tinyint(1) DEFAULT NULL,
6273 `lost` tinyint(1) DEFAULT NULL,
6274 `debarred` date DEFAULT NULL,
6275 `debarredcomment` varchar(255) DEFAULT NULL,
6276 `contactname` mediumtext,
6277 `contactfirstname` text,
6278 `contacttitle` text,
6279 `guarantorid` int(11) DEFAULT NULL,
6280 `borrowernotes` mediumtext,
6281 `relationship` varchar(100) DEFAULT NULL,
6282 `ethnicity` varchar(50) DEFAULT NULL,
6283 `ethnotes` varchar(255) DEFAULT NULL,
6284 `sex` varchar(1) DEFAULT NULL,
6285 `password` varchar(30) DEFAULT NULL,
6286 `flags` int(11) DEFAULT NULL,
6287 `userid` varchar(75) DEFAULT NULL,
6288 `opacnote` mediumtext,
6289 `contactnote` varchar(255) DEFAULT NULL,
6290 `sort1` varchar(80) DEFAULT NULL,
6291 `sort2` varchar(80) DEFAULT NULL,
6292 `altcontactfirstname` varchar(255) DEFAULT NULL,
6293 `altcontactsurname` varchar(255) DEFAULT NULL,
6294 `altcontactaddress1` varchar(255) DEFAULT NULL,
6295 `altcontactaddress2` varchar(255) DEFAULT NULL,
6296 `altcontactaddress3` varchar(255) DEFAULT NULL,
6297 `altcontactstate` text,
6298 `altcontactzipcode` varchar(50) DEFAULT NULL,
6299 `altcontactcountry` text,
6300 `altcontactphone` varchar(50) DEFAULT NULL,
6301 `smsalertnumber` varchar(50) DEFAULT NULL,
6302 `privacy` int(11) DEFAULT NULL,
6303 PRIMARY KEY (`verification_token`,`borrowernumber`),
6304 KEY `verification_token` (`verification_token`),
6305 KEY `borrowernumber` (`borrowernumber`)
6306 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6310 INSERT INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES
6311 ('PatronSelfRegistration', '0', NULL, 'If enabled, patrons will be able to register themselves via the OPAC.', 'YesNo'),
6312 ('PatronSelfRegistrationVerifyByEmail', '0', NULL, 'If enabled, any patron attempting to register themselves via the OPAC will be required to verify themselves via email to activate his or her account.', 'YesNo'),
6313 ('PatronSelfRegistrationDefaultCategory', '', '', 'A patron registered via the OPAC will receive a borrower category code set in this system preference.', 'free'),
6314 ('PatronSelfRegistrationExpireTemporaryAccountsDelay', '0', NULL, 'If PatronSelfRegistrationDefaultCategory is enabled, this system preference controls how long a patron can have a temporary status before the account is deleted automatically. It is an integer value representing a number of days to wait before deleting a temporary patron account. Setting it to 0 disables the deleting of temporary accounts.', 'Integer'),
6315 ('PatronSelfRegistrationBorrowerMandatoryField', 'surname|firstname', NULL , 'Choose the mandatory fields for a patron''s account, when registering via the OPAC.', 'free'),
6316 ('PatronSelfRegistrationBorrowerUnwantedField', '', NULL , 'Name the fields you don''t want to display when registering a new patron via the OPAC.', 'free');
6320 INSERT INTO letter ( `module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content` )
6321 VALUES ( 'members', 'OPAC_REG_VERIFY', '', 'Opac Self-Registration Verification Email', '1', 'Verify Your Account', 'Hello!
6323 Your library account has been created. Please verify your email address by clicking this link to complete the signup process:
6325 http://<<OPACBaseURL>>/cgi-bin/koha/opac-registration-verify.pl?token=<<borrower_modifications.verification_token>>
6327 If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly.'
6330 print "Upgrade to $DBversion done (Bug 7067: Add Patron Self Registration)\n";
6331 SetVersion
($DBversion);
6334 $DBversion = "3.11.00.009";
6335 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6337 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
6338 ('SeparateHoldings', '0', 'Separate current branch holdings from other holdings', NULL, 'YesNo'),
6339 ('SeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings', 'homebranch|holdingbranch', 'Choice'),
6340 ('OpacSeparateHoldings', '0', 'Separate current branch holdings from other holdings (OPAC)', NULL, 'YesNo'),
6341 ('OpacSeparateHoldingsBranch', 'homebranch', 'Branch used to separate holdings (OPAC)', 'homebranch|holdingbranch', 'Choice')
6344 print "Upgrade to $DBversion done (Bug 7674: Add systempreferences SeparateHoldings, SeparateHoldingsBranch, OpacSeparateHoldings and OpacSeparateHoldingsBranch) \n";
6345 SetVersion
($DBversion);
6348 $DBversion = "3.11.00.010";
6349 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
6350 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('RenewalSendNotice', '0', '', NULL, 'YesNo')");
6352 INSERT INTO `letter` (`module`, `code`, `name`, `title`, `content`) VALUES
6353 ('circulation','RENEWAL','Item Renewals','Item Renewals','The following items have been renewed:\r\n----\r\n<<biblio.title>>\r\n----\r\nThank you for visiting <<branches.branchname>>.');
6355 print "Upgrade to $DBversion done (Bug 9151 - Renewal notice according to patron alert preferences)\n";
6356 SetVersion($DBversion);
6359 $DBversion = "3.11.00.011";
6360 if ( CheckVersion($DBversion) ) {
6361 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaEnabled','not','Show a HTML5 media player in a tab on opac-detail.pl for media files catalogued in field 856.','not|opac|staff|both','Choice');");
6362 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HTML5MediaExtensions','webm|ogg|ogv|oga|vtt','Media file extensions','','free');");
6363 print "Upgrade to $DBversion done (Bug 8377: Add HTML5MediaEnabled and HTML5MediaExtensions sysprefs)\n";
6364 SetVersion ($DBversion);
6367 $DBversion = "3.11.00.012";
6368 if ( CheckVersion($DBversion) ) {
6369 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldsOnPatronsPossessions', '1', 'Allow holds on records that patron have items of it',NULL,'YesNo')");
6370 print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6371 SetVersion($DBversion);
6374 $DBversion = "3.11.00.013";
6375 if ( CheckVersion($DBversion) ) {
6376 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('NotesBlacklist','','List of notes fields that should not appear in the title notes/description separator of details',NULL,'free')");
6377 print "Upgrade to $DBversion done (Bug 9162 - Add a system preference to set which notes fields appears on title notes/description separator)\n";
6378 SetVersion($DBversion);
6381 $DBversion = "3.11.00.014";
6382 if ( CheckVersion($DBversion) ) {
6383 $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserCSS', '', 'Add CSS to be included in the SCO module in an embedded <style> tag.', 'free' )");
6384 $dbh->do("INSERT INTO systempreferences ( variable, value, explanation, type ) VALUES ( 'SCOUserJS', '', 'Define custom javascript for inclusion in the SCO module', 'free' )");
6385 print "Upgrade to $DBversion done (Bug 9009: Add SCOUserCSS and SCOUserJS sysprefs)\n";
6388 $DBversion = "3.11.00.015";
6389 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6390 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('RentalsInNoissuesCharge', '1', 'Rental charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6391 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('ManInvInNoissuesCharge', '1', 'MANUAL_INV charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
6392 print "Upgrade to $DBversion done (Add sysprefs RentalsInNoissuesCharge and ManInvInNoissuesCharge.)\n";
6393 SetVersion($DBversion);
6396 $DBversion = "3.11.00.016";
6397 if ( CheckVersion($DBversion) ) {
6399 UPDATE userflags SET flagdesc="<b>Required for staff login.</b> Staff access, allows viewing of catalogue in staff client." where flagdesc="Modify login / permissions for staff users";
6402 UPDATE userflags SET flagdesc="Edit Authorities" where flagdesc="Allow to edit authorities";
6405 UPDATE userflags SET flagdesc="Allow access to the reports module" where flagdesc="Allow to access to the reports module";
6408 UPDATE userflags SET flagdesc="Set library management parameters (deprecated)" where flagdesc="Set library management parameters";
6411 UPDATE userflags SET flagdesc="Manage serial subscriptions" where flagdesc="Allow to manage serials subscriptions";
6414 UPDATE userflags SET flagdesc="Manage patrons fines and fees" where flagdesc="Update borrower charges";
6417 UPDATE userflags SET flagdesc="Check out and check in items" where flagdesc="Circulate books";
6420 UPDATE userflags SET flagdesc="Manage Koha system settings (Administration panel)" where flagdesc="Set Koha system parameters";
6423 UPDATE userflags SET flagdesc="Add or modify patrons" where flagdesc="Add or modify borrowers";
6426 UPDATE userflags SET flagdesc="Use all tools (expand for granular tools permissions)" where flagdesc="Use tools (export, import, barcodes)";
6429 UPDATE userflags SET flagdesc="Allow staff members to modify permissions for other staff members" where flagdesc="Set user permissions";
6432 UPDATE permissions SET description="Perform batch modification of patrons" where description="Perform batch modifivation of patrons";
6435 print "Upgrade to $DBversion done (Bug 9382 (updated with bug 9745) - refresh permission descriptions to make more sense)\n";
6436 SetVersion
($DBversion);
6439 $DBversion ="3.11.00.017";
6440 if ( CheckVersion
($DBversion) ) {
6441 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');");
6442 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');");
6443 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');");
6444 print "Upgrade to $DBversion done (Add IDreamBooks enhanced content)\n";
6445 SetVersion
($DBversion);
6448 $DBversion = "3.11.00.018";
6449 if ( CheckVersion
($DBversion) ) {
6450 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACNumbersPreferPhrase','0', NULL, 'Control the use of phr operator in callnumber and standard number OPAC searches', 'YesNo')");
6451 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('IntranetNumbersPreferPhrase','0', NULL, 'Control the use of phr operator in callnumber and standard number staff client searches', 'YesNo')");
6452 print "Upgrade to $DBversion done (Bug 9395: Problem with callnumber and standard number search in OPAC and Staff Client)\n";
6453 SetVersion
($DBversion);
6456 $DBversion = "3.11.00.019";
6457 if ( CheckVersion
($DBversion) ) {
6458 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorityField100', 'afrey50 ba0', NULL, NULL, 'Textarea')");
6459 print "Upgrade to $DBversion done (Bug 9145 - Add syspref UNIMARCAuthorityField100)\n";
6460 SetVersion
($DBversion);
6463 $DBversion = "3.11.00.020";
6464 if ( CheckVersion
($DBversion) ) {
6465 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UNIMARCField100Language', 'fre','UNIMARC field 100 default language',NULL,'short')");
6466 print "Upgrade to $DBversion done (Bug 8347 - Koha forces UNIMARC 100 field code language to 'fre')\n";
6467 SetVersion
($DBversion);
6470 $DBversion ="3.11.00.021";
6471 if ( CheckVersion
($DBversion) ) {
6472 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OPACPopupAuthorsSearch','0','Display the list of authors when clicking on one author.','','YesNo');");
6473 print "Upgrade to $DBversion done (Bug 5888 - Subject search pop-up for the OPAC)\n";
6474 SetVersion
($DBversion);
6477 $DBversion = "3.11.00.022";
6478 if ( CheckVersion
($DBversion) ) {
6480 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('Persona',0,'Use Mozilla Persona for login','','YesNo')"
6482 print "Upgrade to $DBversion done (Bug 9587 - Allow login via Persona)\n";
6483 SetVersion
($DBversion);
6486 $DBversion = "3.11.00.023";
6487 if ( CheckVersion
($DBversion) ) {
6488 $dbh->do("UPDATE z3950servers SET host = 'lx2.loc.gov', port = 210, db = 'LCDB', syntax = 'USMARC', encoding = 'utf8' WHERE name = 'LIBRARY OF CONGRESS'");
6489 print "Upgrade to $DBversion done (Bug 9520 - Update default LOC Z39.50 target)\n";
6490 SetVersion
($DBversion);
6493 $DBversion = "3.11.00.024";
6494 if ( CheckVersion
($DBversion) ) {
6495 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacItemLocation','callnum','Show the shelving location of items in the opac','callnum|ccode|location','Choice');");
6496 print "Upgrade to $DBversion done (Bug 5079: Add OpacItemLocation syspref)\n";
6497 SetVersion
($DBversion);
6500 $DBversion = "3.11.00.025";
6501 if ( CheckVersion
($DBversion) ) {
6503 "CREATE TABLE linktracker (
6504 id int(11) NOT NULL AUTO_INCREMENT,
6505 biblionumber int(11) DEFAULT NULL,
6506 itemnumber int(11) DEFAULT NULL,
6507 borrowernumber int(11) DEFAULT NULL,
6509 timeclicked datetime DEFAULT NULL,
6511 KEY bibidx (biblionumber),
6512 KEY itemidx (itemnumber),
6513 KEY borridx (borrowernumber),
6514 KEY dateidx (timeclicked)
6515 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
6518 INSERT INTO systempreferences (variable,value,explanation,options,type)
6519 VALUES('TrackClicks','0','Track links clicked',NULL,'Integer')" );
6521 "Upgrade to $DBversion done (Adds feature Bug 8917, the ability to track links clicked)\n";
6522 SetVersion
($DBversion);
6525 $DBversion = "3.11.00.026";
6526 if ( CheckVersion
($DBversion) ) {
6528 ALTER TABLE import_records ADD INDEX batch_id_record_type
( import_batch_id
, record_type
);
6530 print "Upgrade to $DBversion done (Bug 9207: Add new index batch_id_record_type to import_records)\n";
6531 SetVersion
($DBversion);
6534 $DBversion = "3.11.00.027";
6535 if ( CheckVersion
($DBversion) ) {
6537 INSERT INTO permissions ( module_bit, code, description )
6538 VALUES ( '1', 'overdues_report', 'Execute overdue items report' )
6540 # add new permission for users with all report permissions and circulation remaining permission
6542 INSERT INTO user_permissions (borrowernumber, module_bit, code)
6543 SELECT user_permissions.borrowernumber, 1, 'overdues_report'
6544 FROM user_permissions
6545 LEFT JOIN borrowers USING(borrowernumber)
6546 WHERE borrowers.flags & (1 << 16)
6547 AND user_permissions.code = 'circulate_remaining_permissions'
6549 print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n";
6550 SetVersion
($DBversion);
6553 $DBversion = "3.11.00.028";
6554 if ( CheckVersion
($DBversion) ) {
6555 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('PatronSelfRegistrationAdditionalInstructions', '', NULL , 'A free text field to display additional instructions to newly self registered patrons.', 'free' );");
6556 print "Upgrade to $DBversion done (Bug 9756 - Patron self registration missing the system preference PatronSelfRegistrationAdditionalInstructions)\n";
6557 SetVersion
($DBversion);
6560 $DBversion = "3.11.00.029";
6561 if (CheckVersion
($DBversion)) {
6562 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseQueryParser', '0', 'If enabled, try to use QueryParser for queries.', NULL, 'YesNo')");
6563 print "Upgrade to $DBversion done (Bug 9239: Make it possible for Koha to use QueryParser)\n";
6564 SetVersion
($DBversion);
6567 $DBversion = "3.11.00.030";
6568 if ( CheckVersion
($DBversion) ) {
6569 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('FinesIncludeGracePeriod','1','If enabled, fines calculations will include the grace period.',NULL,'YesNo');");
6570 print "Upgrade to $DBversion done (Add system preference FinesIncludeGracePeriod)\n";
6571 SetVersion
($DBversion);
6574 $DBversion = "3.11.00.100";
6575 if ( CheckVersion
($DBversion) ) {
6576 print "Upgrade to $DBversion done (3.12-alpha release)\n";
6577 SetVersion
($DBversion);
6580 $DBversion = "3.11.00.101";
6581 if ( CheckVersion
($DBversion) ) {
6582 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorsFacetsSeparator',', ', 'UNIMARC authors facets separator', NULL, 'short')");
6583 print "Upgrade to $DBversion done (Bug 9341: Problem with UNIMARC authors facets)\n";
6584 SetVersion
($DBversion);
6587 $DBversion = "3.11.00.102";
6588 if ( CheckVersion
($DBversion) ) {
6590 DELETE FROM systempreferences WHERE variable='NoZebra'
6593 DELETE FROM systempreferences WHERE variable='QueryRemoveStopwords'
6595 print "Upgrade to $DBversion done (Remove deprecated NoZebra and QueryRemoveStopwords sysprefs)\n";
6596 SetVersion
($DBversion);
6599 $DBversion = "3.11.00.103";
6600 if ( CheckVersion
($DBversion) ) {
6601 $dbh->do("DELETE FROM systempreferences WHERE variable = 'insecure';");
6602 print "Upgrade to $DBversion done (Bug 9827 - Remove 'insecure' system preference)\n";
6603 SetVersion
($DBversion);
6606 $DBversion = "3.11.00.104";
6607 if ( CheckVersion
($DBversion) ) {
6608 print "Upgrade to $DBversion done (3.12-alpha2 release)\n";
6609 SetVersion
($DBversion);
6612 $DBversion = "3.11.00.105";
6613 if ( CheckVersion
($DBversion) ) {
6614 if ( C4
::Context
->preference("marcflavour") eq 'MARC21' ) {
6615 $sth = $dbh->prepare(
6616 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '029'"
6619 my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6621 for my $frameworkcode ( keys %$frameworkcodes ) {
6623 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6624 libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6625 value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6626 ('029', 'a', 'OCLC library identifier', 'OCLC library identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6627 ('029', 'b', 'System control number', 'System control number', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6628 ('029', 'c', 'OAI set name', 'OAI set name', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL),
6629 ('029', 't', 'Content type identifier', 'Content type identifier', 0, 0, '', 0, '', '', '', 0, -6, '$frameworkcode', '', '', NULL)
6633 for my $tag ( '863', '864', '865' ) {
6634 $sth = $dbh->prepare(
6635 "SELECT frameworkcode FROM marc_tag_structure WHERE tagfield = '$tag'"
6638 my $frameworkcodes = $sth->fetchall_hashref('frameworkcode');
6640 for my $frameworkcode ( keys %$frameworkcodes ) {
6642 INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian,
6643 libopac, repeatable, mandatory, kohafield, tab, authorised_value, authtypecode,
6644 value_builder, isurl, hidden, frameworkcode, seealso, link, defaultvalue) VALUES
6645 ('$tag', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6646 ('$tag', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 5, '$frameworkcode', '', '', NULL),
6647 ('$tag', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6648 ('$tag', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6649 ('$tag', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6650 ('$tag', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6651 ('$tag', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6652 ('$tag', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6653 ('$tag', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6654 ('$tag', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6655 ('$tag', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6656 ('$tag', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6657 ('$tag', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6658 ('$tag', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6659 ('$tag', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6660 ('$tag', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6661 ('$tag', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6662 ('$tag', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6663 ('$tag', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6664 ('$tag', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6665 ('$tag', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6666 ('$tag', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6667 ('$tag', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6668 ('$tag', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL),
6669 ('$tag', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 5, '$frameworkcode', '', '', NULL)
6674 print "Upgrade to $DBversion done (Bug 9353: Missing subfields on MARC21 frameworks)\n";
6675 SetVersion
($DBversion);
6679 $DBversion = "3.11.00.106";
6680 if ( CheckVersion
($DBversion) ) {
6681 $dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('19', 'plugins', 'Koha plugins', '0')");
6682 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
6683 ('19', 'manage', 'Manage plugins ( install / uninstall )'),
6684 ('19', 'tool', 'Use tool plugins'),
6685 ('19', 'report', 'Use report plugins'),
6686 ('19', 'configure', 'Configure plugins')
6688 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseKohaPlugins','0','Enable or disable the ability to use Koha Plugins.','','YesNo')");
6691 CREATE TABLE IF NOT EXISTS plugin_data (
6692 plugin_class varchar(255) NOT NULL,
6693 plugin_key varchar(255) NOT NULL,
6695 PRIMARY KEY (plugin_class,plugin_key)
6696 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6699 print "Upgrade to $DBversion done (Bug 7804: Added plugin system.)\n";
6700 SetVersion
($DBversion);
6703 $DBversion = "3.11.00.107";
6704 if ( CheckVersion
($DBversion) ) {
6705 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('TimeFormat','24hr','12hr|24hr','Defines the global time format for visual output.','Choice')");
6706 print "Upgrade to $DBversion done (Bug 9014: Add syspref TimeFormat)\n";
6707 SetVersion
($DBversion);
6710 $DBversion = "3.11.00.108";
6711 if ( CheckVersion
($DBversion) ) {
6712 $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP;");
6713 $dbh->do("UPDATE action_logs SET info=(SELECT itemnumber FROM items WHERE biblionumber= action_logs.info LIMIT 1) WHERE module='CIRCULATION' AND action in ('ISSUE','RETURN');");
6714 $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP;");
6715 print "Upgrade to $DBversion done (Bug 7241: Fix on circulation logs)\n";
6716 print "WARNING about bug 7241: to partially correct the broken logs, the log history is filled with the first found item for each biblio.\n";
6717 SetVersion
($DBversion);
6720 $DBversion = "3.11.00.109";
6721 if ( CheckVersion
($DBversion) ) {
6722 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('DisplayIconsXSLT', '1', '', 'If ON, displays the format, audience, and material type icons in XSLT MARC21 results and detail pages.', 'YesNo');");
6723 print "Upgrade to $DBversion done (Bug 9403: Add DisplayIconsXSLT)\n";
6724 SetVersion
($DBversion);
6727 $DBversion = "3.11.00.110";
6728 if ( CheckVersion
($DBversion) ) {
6729 $dbh->do("ALTER TABLE pending_offline_operations CHANGE barcode barcode VARCHAR( 20 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
6730 $dbh->do("ALTER TABLE pending_offline_operations ADD amount DECIMAL( 28, 6 ) NULL DEFAULT NULL");
6731 print "Upgrade to $DBversion done (Bug 8220 - Allow koc uploads to go to process queue)\n";
6732 SetVersion
($DBversion);
6735 $DBversion = "3.11.00.111";
6736 if ( CheckVersion
($DBversion) ) {
6737 my $sth = $dbh->prepare("
6738 SELECT module, code, branchcode, content
6740 WHERE content LIKE '%<fine>%'
6743 my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?");
6744 while(my $row = $sth->fetchrow_hashref){
6745 $row->{content
} =~ s/<fine>\w+<\/fine>/<<items.fine>>/;
6746 $sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode});
6748 print "Upgrade to $DBversion done (use new <<items.fine
>> syntax
in notices
)\n";
6749 SetVersion($DBversion);
6752 $DBversion = "3.11.00.112";
6753 if ( CheckVersion($DBversion) ) {
6755 ALTER TABLE issuingrules ADD COLUMN renewalperiod int(4) DEFAULT NULL AFTER renewalsallowed
6758 UPDATE issuingrules SET renewalperiod = issuelength
6760 print "Upgrade to
$DBversion done
(Bug
8365: Add colum issuingrules
.renewalperiod
)\n";
6761 SetVersion ($DBversion);
6764 $DBversion = "3.11.00.113";
6765 if ( CheckVersion($DBversion) ) {
6767 ALTER TABLE branchcategories ADD show_in_pulldown BOOLEAN NOT NULL DEFAULT '0',
6768 ADD INDEX ( show_in_pulldown )
6770 print "Upgrade to $DBversion done (Bug 9257 - Add groups to normal search pulldown)\n";
6771 SetVersion
($DBversion);
6774 $DBversion = "3.11.00.115";
6775 if ( CheckVersion
($DBversion) ) {
6776 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his
or her home library will be emphasized
and shown first
in search results
and item details
.','YesNo
')");
6777 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich
','PatronBranch
','PatronBranch
|OpacURLBranch
','Decides which branch
''s items to emphasize
. If PatronBranch
, emphasize the logged
in user
''s library
''s items
. If OpacURLBranch
, highlight the items of the Apache var BRANCHCODE
defined in Koha
''s Apache configuration file
.','Choice
')");
6778 print "Upgrade to $DBversion done (Bug 7740: Add syspref HighlightOwnItemsOnOPAC)\n";
6779 SetVersion ($DBversion);
6782 $DBversion = "3.11.00.116";
6783 if ( CheckVersion($DBversion) ) {
6784 $dbh->do(q{ALTER TABLE aqorders DROP COLUMN serialid;});
6785 $dbh->do(q{ALTER TABLE aqorders DROP COLUMN subscription;});
6786 $dbh->do(q{ALTER TABLE aqorders ADD COLUMN subscriptionid INT(11) DEFAULT NULL;});
6787 $dbh->do(q{ALTER TABLE aqorders ADD CONSTRAINT aqorders_subscriptionid FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE;});
6788 $dbh->do(q{ALTER TABLE subscription ADD COLUMN reneweddate DATE DEFAULT NULL;});
6789 print "Upgrade to $DBversion done (Bug 5343: table aqorders: DROP serialid and subscription fields and ADD subscriptionid, table subscription: ADD reneweddate)\n";
6790 SetVersion
($DBversion);
6793 $DBversion = "3.11.00.200";
6794 if ( CheckVersion
($DBversion) ) {
6795 print "Upgrade to $DBversion done (3.12-beta1 release)\n";
6796 SetVersion
($DBversion);
6799 $DBversion = "3.11.00.201";
6800 if ( CheckVersion
($DBversion) ) {
6801 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS' AND host LIKE 'z3950.bibsys.no'");
6802 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK' AND host LIKE 'z3950.nb.no'");
6803 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK' AND host LIKE 'z3950.nb.no'");
6804 $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN' AND host like 'z3950.deich.folkebibl.no'");
6805 print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n";
6806 SetVersion
($DBversion);
6809 $DBversion = "3.11.00.202";
6810 if ( CheckVersion
($DBversion) ) {
6811 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ca', 'language', 'Catalan','2013-01-12' )");
6812 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ca','cat')");
6813 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'es', 'Catalán')");
6814 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'en', 'Catalan')");
6815 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'fr', 'Catalan')");
6816 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'ca', 'Català')");
6817 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'de', 'Katalanisch')");
6818 print "Upgrade to $DBversion done (Bug 9381: Add Catalan laguage)\n";
6819 SetVersion
($DBversion);
6822 $DBversion = "3.11.00.203";
6823 if ( CheckVersion
($DBversion) ) {
6824 $dbh->do(q{ALTER TABLE suggestions CHANGE COLUMN title title VARCHAR(255) DEFAULT NULL;});
6825 print "Upgrade to $DBversion done (Bug 2046 - increasing title column length for suggestions)\n";
6826 SetVersion
($DBversion);
6829 $DBversion = "3.11.00.300";
6830 if ( CheckVersion
($DBversion) ) {
6831 print "Upgrade to $DBversion done (3.12-beta3 release)\n";
6832 SetVersion
($DBversion);
6835 $DBversion = "3.11.00.301";
6836 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
6839 ALTER TABLE `issues`
6840 ADD KEY `itemnumber_idx` (`itemnumber`),
6841 ADD KEY `branchcode_idx` (`branchcode`),
6842 ADD KEY `issuingbranch_idx` (`issuingbranch`)
6845 ALTER TABLE `old_issues`
6846 ADD KEY `branchcode_idx` (`branchcode`),
6847 ADD KEY `issuingbranch_idx` (`issuingbranch`)
6851 ALTER TABLE `items` ADD KEY `itype_idx` (`itype`)
6854 ALTER TABLE `deleteditems` ADD KEY `itype_idx` (`itype`)
6858 ALTER TABLE `biblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6861 ALTER TABLE `deletedbiblioitems` ADD KEY `itemtype_idx` (`itemtype`)
6865 ALTER TABLE `statistics`
6866 ADD KEY `branch_idx` (`branch`),
6867 ADD KEY `proccode_idx` (`proccode`),
6868 ADD KEY `type_idx` (`type`),
6869 ADD KEY `usercode_idx` (`usercode`),
6870 ADD KEY `itemnumber_idx` (`itemnumber`),
6871 ADD KEY `itemtype_idx` (`itemtype`),
6872 ADD KEY `borrowernumber_idx` (`borrowernumber`),
6873 ADD KEY `associatedborrower_idx` (`associatedborrower`),
6874 ADD KEY `ccode_idx` (`ccode`)
6877 print "Upgrade to $DBversion done (Bug 9681: Add some database indexes)\n";
6878 SetVersion
($DBversion);
6881 $DBversion = "3.12.00.000";
6882 if ( CheckVersion
($DBversion) ) {
6883 print "Upgrade to $DBversion done (3.12.0 release)\n";
6884 SetVersion
($DBversion);
6887 $DBversion = '3.13.00.000';
6888 if ( CheckVersion
($DBversion) ) {
6889 print "Upgrade to $DBversion done (start the journey to Koha Pi)\n";
6890 SetVersion
($DBversion);
6893 $DBversion = "3.13.00.001";
6894 if ( CheckVersion
($DBversion) ) {
6895 $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('UseCourseReserves', '0', NULL, 'Enable the course reserves feature.', 'YesNo')");
6896 $dbh->do("INSERT INTO userflags (bit,flag,flagdesc,defaulton) VALUES ('18','coursereserves','Course Reserves','0')");
6898 CREATE TABLE `courses` (
6899 `course_id` int(11) NOT NULL AUTO_INCREMENT,
6900 `department` varchar(20) DEFAULT NULL,
6901 `course_number` varchar(255) DEFAULT NULL,
6902 `section` varchar(255) DEFAULT NULL,
6903 `course_name` varchar(255) DEFAULT NULL,
6904 `term` varchar(20) DEFAULT NULL,
6905 `staff_note` mediumtext,
6906 `public_note` mediumtext,
6907 `students_count` varchar(20) DEFAULT NULL,
6908 `enabled` enum('yes','no') NOT NULL DEFAULT 'yes',
6909 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6910 PRIMARY KEY (`course_id`)
6911 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6915 CREATE TABLE `course_instructors` (
6916 `course_id` int(11) NOT NULL,
6917 `borrowernumber` int(11) NOT NULL,
6918 PRIMARY KEY (`course_id`,`borrowernumber`),
6919 KEY `borrowernumber` (`borrowernumber`)
6920 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6924 ALTER TABLE `course_instructors`
6925 ADD CONSTRAINT `course_instructors_ibfk_2` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`),
6926 ADD CONSTRAINT `course_instructors_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6930 CREATE TABLE `course_items` (
6931 `ci_id` int(11) NOT NULL AUTO_INCREMENT,
6932 `itemnumber` int(11) NOT NULL,
6933 `itype` varchar(10) DEFAULT NULL,
6934 `ccode` varchar(10) DEFAULT NULL,
6935 `holdingbranch` varchar(10) DEFAULT NULL,
6936 `location` varchar(80) DEFAULT NULL,
6937 `enabled` enum('yes','no') NOT NULL DEFAULT 'no',
6938 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6939 PRIMARY KEY (`ci_id`),
6940 UNIQUE KEY `itemnumber` (`itemnumber`),
6941 KEY `holdingbranch` (`holdingbranch`)
6942 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6946 ALTER TABLE `course_items`
6947 ADD CONSTRAINT `course_items_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE,
6948 ADD CONSTRAINT `course_items_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE;
6952 CREATE TABLE `course_reserves` (
6953 `cr_id` int(11) NOT NULL AUTO_INCREMENT,
6954 `course_id` int(11) NOT NULL,
6955 `ci_id` int(11) NOT NULL,
6956 `staff_note` mediumtext,
6957 `public_note` mediumtext,
6958 `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
6959 PRIMARY KEY (`cr_id`),
6960 UNIQUE KEY `pseudo_key` (`course_id`,`ci_id`),
6961 KEY `course_id` (`course_id`)
6962 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
6966 ALTER TABLE `course_reserves`
6967 ADD CONSTRAINT `course_reserves_ibfk_1` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`);
6971 INSERT INTO permissions (module_bit, code, description) VALUES
6972 (18, 'manage_courses', 'Add, edit and delete courses'),
6973 (18, 'add_reserves', 'Add course reserves'),
6974 (18, 'delete_reserves', 'Remove course reserves')
6979 print "Upgrade to $DBversion done (Add Course Reserves ( system preference UseCourseReserves ))\n";
6980 SetVersion
($DBversion);
6983 $DBversion = "3.13.00.002";
6984 if ( CheckVersion
($DBversion) ) {
6985 $dbh->do("UPDATE systempreferences SET variable = 'IndependentBranches' WHERE variable = 'IndependantBranches'");
6986 print "Upgrade to $DBversion done (Bug 10080 - Change system pref IndependantBranches to IndependentBranches)\n";
6987 SetVersion
($DBversion);
6990 $DBversion = '3.13.00.003';
6991 if ( CheckVersion
($DBversion) ) {
6992 $dbh->do("ALTER TABLE serial DROP itemnumber");
6993 print "Upgrade to $DBversion done (Bug 7718 - Remove itemnumber column from serials table)\n";
6994 SetVersion
($DBversion);
6997 $DBversion = "3.13.00.004";
6998 if(CheckVersion
($DBversion)) {
7000 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowHoldNotes',0,'Show hold notes on OPAC','','YesNo')"
7002 print "Upgrade to $DBversion done (Bug 9722: Allow users to add notes when placing a hold in OPAC)\n";
7003 SetVersion
($DBversion);
7006 $DBversion = "3.13.00.005";
7007 if(CheckVersion
($DBversion)) {
7008 my $intra= C4
::Context
->preference("intranetstylesheet");
7009 #if this pref is not blank or starting with http, https or / [root], then
7010 #add an additional / to the front
7011 if($intra && $intra !~ /^(\/|https?
)/) {
7012 $dbh->do("UPDATE systempreferences SET value=? WHERE variable=?",
7013 undef,('/'.$intra,"intranetstylesheet"));
7014 print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n";
7016 print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n";
7017 SetVersion
($DBversion);
7020 $DBversion = "3.13.00.006";
7021 if ( CheckVersion
($DBversion) ) {
7024 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('CalculateFinesOnReturn','1','Switch to control if overdue fines are calculated on return or not', '', 'YesNo');
7028 "Upgrade to $DBversion done (Bug 10120 - Fines on item return controlled by a systempreference)\n";
7029 SetVersion
($DBversion);
7032 $DBversion = "3.13.00.007";
7033 if ( CheckVersion
($DBversion) ) {
7034 $dbh->do("UPDATE systempreferences SET variable='OpacHoldNotes' WHERE variable='OpacShowHoldNotes'");
7035 print "Upgrade to $DBversion done (Bug 10343: Rename OpacShowHoldNotes to OpacHoldNotes)\n";
7036 SetVersion
($DBversion);
7039 $DBversion = "3.13.00.008";
7040 if ( CheckVersion
($DBversion) ) {
7042 CREATE TABLE IF NOT EXISTS borrower_files (
7043 file_id int(11) NOT NULL AUTO_INCREMENT,
7044 borrowernumber int(11) NOT NULL,
7045 file_name varchar(255) NOT NULL,
7046 file_type varchar(255) NOT NULL,
7047 file_description varchar(255) DEFAULT NULL,
7048 file_content longblob NOT NULL,
7049 date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
7050 PRIMARY KEY (file_id),
7051 KEY borrowernumber (borrowernumber),
7052 CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7053 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7055 print "Upgrade to $DBversion done (Bug 10443: make sure borrower_files table exists)\n";
7056 SetVersion
($DBversion);
7059 $DBversion = "3.13.00.009";
7060 if ( CheckVersion
($DBversion) ) {
7061 $dbh->do("ALTER TABLE aqorders DROP COLUMN biblioitemnumber");
7062 print "Upgrade to $DBversion done (Bug 9987 - Drop column aqorders.biblioitemnumber)\n";
7063 SetVersion
($DBversion);
7066 $DBversion = "3.13.00.010";
7067 if ( CheckVersion
($DBversion) ) {
7070 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('AcqWarnOnDuplicateInvoice','0','Warn librarians when they try to create a duplicate invoice', '', 'YesNo');
7074 "Upgrade to $DBversion done (Bug 10366 - Add system preference to enabling warning librarian when invoice is duplicated)\n";
7075 SetVersion
($DBversion);
7078 $DBversion = "3.13.00.011";
7079 if ( CheckVersion
($DBversion) ) {
7080 $dbh->do("UPDATE language_rfc4646_to_iso639 SET iso639_2_code='ita' WHERE rfc4646_subtag='it'");
7081 print "Upgrade to $DBversion done (Bug 9519: Wrong language code for Italian in the advanced search language limitations)\n";
7082 SetVersion
($DBversion);
7085 $DBversion = "3.13.00.012";
7086 if ( CheckVersion
($DBversion) ) {
7087 $dbh->do("ALTER TABLE issuingrules MODIFY COLUMN overduefinescap decimal(28,6) DEFAULT NULL;");
7088 print "Upgrade to $DBversion done (Bug 10490: Correct datatype for overduefinescap in issuingrules)\n";
7089 SetVersion
($DBversion);
7092 $DBversion ="3.13.00.013";
7093 if ( CheckVersion
($DBversion) ) {
7094 $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');");
7095 print "Upgrade to $DBversion done (Bug 9576: add AllowTooManyOverride syspref to enable or disable issue limit confirmation)\n";
7096 SetVersion
($DBversion);
7099 $DBversion = "3.13.00.014";
7100 if ( CheckVersion
($DBversion) ) {
7101 $dbh->do("ALTER TABLE courses MODIFY COLUMN department varchar(80) DEFAULT NULL;");
7102 $dbh->do("ALTER TABLE courses MODIFY COLUMN term varchar(80) DEFAULT NULL;");
7103 print "Upgrade to $DBversion done (Bug 10604: correct width of courses.department and courses.term)\n";
7104 SetVersion
($DBversion);
7107 $DBversion = "3.13.00.015";
7108 if ( CheckVersion
($DBversion) ) {
7110 "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')"
7112 print "Upgrade to $DBversion done (Bug 7494: Add itemBarcodeFallbackSearch syspref)\n";
7113 SetVersion
($DBversion);
7116 $DBversion = "3.13.00.016";
7117 if ( CheckVersion
($DBversion) ) {
7119 ALTER TABLE items CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
7123 ALTER TABLE deleteditems CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
7127 UPDATE saved_sql SET savedsql = REPLACE(savedsql, 'wthdrawn', 'withdrawn')
7131 UPDATE marc_subfield_structure SET kohafield = 'items.withdrawn' WHERE kohafield = 'items.wthdrawn'
7134 print "Upgrade to $DBversion done (Bug 10550 - Fix database typo wthdrawn)\n";
7135 SetVersion
($DBversion);
7138 $DBversion = "3.13.00.017";
7139 if ( CheckVersion
($DBversion) ) {
7141 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientKey','','Client key for OverDrive integration','30','Free')"
7144 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientSecret','','Client key for OverDrive integration','30','YesNo')"
7147 "INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveLibraryID','','Library ID for OverDrive integration','','Integer')"
7149 print "Upgrade to $DBversion done (Bug 10320 - Show results from library's OverDrive collection in OPAC search)\n";
7150 SetVersion
($DBversion);
7153 $DBversion = "3.13.00.018";
7154 if ( CheckVersion
($DBversion) ) {
7155 $dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers
;});
7157 CREATE TABLE aqorders_transfers
(
7158 ordernumber_from
int(11) NULL
,
7159 ordernumber_to
int(11) NULL
,
7160 timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP
,
7161 UNIQUE KEY ordernumber_from
(ordernumber_from
),
7162 UNIQUE KEY ordernumber_to
(ordernumber_to
),
7163 CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY
(ordernumber_from
) REFERENCES aqorders
(ordernumber
) ON DELETE SET NULL ON UPDATE CASCADE
,
7164 CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY
(ordernumber_to
) REFERENCES aqorders
(ordernumber
) ON DELETE SET NULL ON UPDATE CASCADE
7165 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
;
7167 print "Upgrade to $DBversion done (Bug 5349: Add aqorders_transfers table)\n";
7168 SetVersion
($DBversion);
7171 $DBversion = "3.13.00.019";
7172 if ( CheckVersion
($DBversion) ) {
7173 $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsg VARCHAR(255) AFTER summary;");
7174 $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsgtype CHAR(16) DEFAULT 'message' NOT NULL AFTER checkinmsg;");
7175 print "Upgrade to $DBversion done (Bug 10513 - Light up a warning/message when returning a chosen item type)\n";
7176 SetVersion
($DBversion);
7179 $DBversion = "3.13.00.020";
7180 if ( CheckVersion
($DBversion) ) {
7181 $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')");
7182 $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')");
7183 print "Upgrade to $DBversion done (Bug 7639: system preferences to forgive fines on lost items)\n";
7184 SetVersion
($DBversion);
7187 $DBversion ="3.13.00.021";
7188 if ( CheckVersion
($DBversion) ) {
7189 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ConfirmFutureHolds','0','Number of days for confirming future holds','','Integer');");
7190 print "Upgrade to $DBversion done (Bug 9761: Add ConfirmFutureHolds pref)\n";
7191 SetVersion
($DBversion);
7194 $DBversion = "3.13.00.022";
7195 if ( CheckVersion
($DBversion) ) {
7196 $dbh->do("DELETE from auth_tag_structure WHERE tagfield IN ('68a','68b')");
7197 $dbh->do("DELETE from auth_subfield_structure WHERE tagfield IN ('68a','68b')");
7198 print "Upgrade to $DBversion done (Bug 10687 - Delete erroneous tags 68a and 68b on default MARC21 auth framework)\n";
7199 SetVersion
($DBversion);
7202 $DBversion = "3.13.00.023";
7203 if ( CheckVersion
($DBversion) ) {
7204 $dbh->do("ALTER TABLE borrowers CHANGE password password VARCHAR(60);");
7205 print "Upgrade to $DBversion done (Bug 9611 upgrading password storage system)\n";
7206 SetVersion
($DBversion);
7209 $DBversion = "3.13.00.024";
7210 if ( CheckVersion
($DBversion) ) {
7211 $dbh->do(q{ALTER TABLE z3950servers ADD COLUMN recordtype VARCHAR(45) NOT NULL DEFAULT 'biblio' AFTER description;});
7212 print "Upgrade to $DBversion done (Bug 10096 - Add a Z39.50 interface for authority searching)\n";
7215 $DBversion = "3.13.00.025";
7216 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
7217 $dbh->do("ALTER TABLE oai_sets_mappings ADD COLUMN operator varchar(8) NOT NULL default 'equal' AFTER marcsubfield;");
7218 print "Upgrade to $DBversion done (Bug 9295: OAI notequal: add operator column to OAI mappings table)\n";
7219 SetVersion
($DBversion);
7222 $DBversion = "3.13.00.026";
7223 if ( CheckVersion
($DBversion) ) {
7225 ALTER TABLE auth_subfield_structure ADD COLUMN defaultvalue TEXT DEFAULT NULL AFTER frameworkcode
7227 print "Upgrade to $DBversion done (Bug 10602: Add the column auth_subfield_structure.defaultvalue)\n";
7228 SetVersion
($DBversion);
7231 $DBversion = "3.13.00.027";
7232 if ( CheckVersion
($DBversion) ) {
7233 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AllowOfflineCirculation','0','','If on, enables HTML5 offline circulation functionality.','YesNo')");
7234 print "Upgrade to $DBversion done (Bug 10240: Add syspref AllowOfflineCirculation)\n";
7235 SetVersion
($DBversion);
7238 $DBversion = "3.13.00.028";
7239 if ( CheckVersion
($DBversion) ) {
7241 ALTER TABLE export_format ADD type VARCHAR(255) DEFAULT 'marc' AFTER encoding
7244 ALTER TABLE export_format CHANGE marcfields content mediumtext NOT NULL
7246 print "Upgrade to $DBversion done (Bug 10853: Add new field export_format.type and rename export_format.marcfields with export_format.content)\n";
7247 SetVersion
($DBversion);
7250 $DBversion = "3.13.00.029";
7251 if ( CheckVersion
($DBversion) ) {
7253 INSERT IGNORE INTO export_format( profile, description, content, csv_separator, type )
7254 VALUES ( "issues to claim", "Default CSV export for serial issue claims",
7255 "SUPPLIER=aqbooksellers.name|TITLE=subscription.title|ISSUE NUMBER=serial.serialseq|LATE SINCE=serial.planneddate",
7258 print "Upgrade to $DBversion done (Bug 10854: Add the default CSV profile for claiming issues)\n";
7259 SetVersion
($DBversion);
7262 $DBversion = "3.13.00.030";
7263 if ( CheckVersion
($DBversion) ) {
7265 DELETE FROM patronimage WHERE NOT EXISTS
(SELECT
* FROM borrowers WHERE borrowers
.cardnumber
= patronimage
.cardnumber
)
7269 ALTER TABLE patronimage ADD borrowernumber INT
( 11 ) NULL FIRST
7272 $dbh->{AutoCommit
} = 0;
7273 $dbh->{RaiseError
} = 1;
7277 UPDATE patronimage LEFT JOIN borrowers USING
( cardnumber
) SET patronimage
.borrowernumber
= borrowers
.borrowernumber
7283 print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber) failed! Transaction aborted because $@\n";
7284 eval { $dbh->rollback };
7288 ALTER TABLE patronimage DROP FOREIGN KEY patronimage_fk1
7291 ALTER TABLE patronimage DROP PRIMARY KEY
, ADD PRIMARY KEY
( borrowernumber
)
7294 ALTER TABLE patronimage DROP cardnumber
7297 ALTER TABLE patronimage ADD FOREIGN KEY
( borrowernumber
) REFERENCES borrowers
( borrowernumber
) ON DELETE CASCADE ON UPDATE CASCADE
7300 print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber)\n";
7301 SetVersion
($DBversion);
7304 $dbh->{AutoCommit
} = 1;
7305 $dbh->{RaiseError
} = 0;
7308 $DBversion = "3.13.00.031";
7309 if ( CheckVersion
($DBversion) ) {
7312 CREATE TABLE IF NOT EXISTS `patron_lists` (
7313 patron_list_id int(11) NOT NULL AUTO_INCREMENT,
7314 name varchar(255) CHARACTER SET utf8 NOT NULL,
7315 owner int(11) NOT NULL,
7316 PRIMARY KEY (patron_list_id),
7318 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7322 ALTER TABLE `patron_lists`
7323 ADD CONSTRAINT patron_lists_ibfk_1 FOREIGN KEY (`owner`) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7327 CREATE TABLE patron_list_patrons (
7328 patron_list_patron_id int(11) NOT NULL AUTO_INCREMENT,
7329 patron_list_id int(11) NOT NULL,
7330 borrowernumber int(11) NOT NULL,
7331 PRIMARY KEY (patron_list_patron_id),
7332 KEY patron_list_id (patron_list_id),
7333 KEY borrowernumber (borrowernumber)
7334 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7338 ALTER TABLE `patron_list_patrons`
7339 ADD CONSTRAINT patron_list_patrons_ibfk_1 FOREIGN KEY (patron_list_id) REFERENCES patron_lists (patron_list_id) ON DELETE CASCADE ON UPDATE CASCADE,
7340 ADD CONSTRAINT patron_list_patrons_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
7344 INSERT INTO permissions (module_bit, code, description) VALUES
7345 (13, 'manage_patron_lists', 'Add, edit and delete patron lists and their contents')
7348 print "Upgrade to $DBversion done (Bug 10565 - Add a 'Patron List' feature for storing and manipulating collections of patrons)\n";
7349 SetVersion
($DBversion);
7352 $DBversion = "3.13.00.032";
7353 if ( CheckVersion
($DBversion) ) {
7354 $dbh->do("ALTER TABLE aqorders ADD COLUMN orderstatus varchar(16) DEFAULT 'new' AFTER parent_ordernumber");
7355 $dbh->do("UPDATE aqorders SET orderstatus='ordered' WHERE basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)");
7357 UPDATE aqorders SET orderstatus='partial'
7358 WHERE quantity > quantityreceived
7359 AND quantityreceived > 0
7360 AND ordernumber IN (
7361 SELECT parent_ordernumber
7363 SELECT DISTINCT(parent_ordernumber)
7365 WHERE ordernumber != parent_ordernumber
7368 AND basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)
7370 $dbh->do("UPDATE aqorders SET orderstatus='complete' WHERE quantity=quantityreceived");
7371 $dbh->do("UPDATE aqorders SET orderstatus='cancelled' WHERE datecancellationprinted IS NOT NULL");
7372 print "Upgrade to $DBversion done (Bug 5336: Add the new column aqorders.orderstatus)\n";
7373 SetVersion
($DBversion);
7376 $DBversion = "3.13.00.033";
7377 if ( CheckVersion
($DBversion) ) {
7379 DROP TABLE IF EXISTS subscription_frequencies
7382 CREATE TABLE subscription_frequencies
(
7383 id INTEGER NOT NULL AUTO_INCREMENT
,
7384 description TEXT NOT NULL
,
7385 displayorder INT DEFAULT NULL
,
7386 unit ENUM
('day','week','month','year') DEFAULT NULL
,
7387 unitsperissue INTEGER NOT NULL DEFAULT
'1',
7388 issuesperunit INTEGER NOT NULL DEFAULT
'1',
7390 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
7394 DROP TABLE IF EXISTS subscription_numberpatterns
7397 CREATE TABLE subscription_numberpatterns
(
7398 id INTEGER NOT NULL AUTO_INCREMENT
,
7399 label VARCHAR
(255) NOT NULL
,
7400 displayorder INTEGER DEFAULT NULL
,
7401 description TEXT NOT NULL
,
7402 numberingmethod VARCHAR
(255) NOT NULL
,
7403 label1 VARCHAR
(255) DEFAULT NULL
,
7404 add1 INTEGER DEFAULT NULL
,
7405 every1 INTEGER DEFAULT NULL
,
7406 whenmorethan1 INTEGER DEFAULT NULL
,
7407 setto1 INTEGER DEFAULT NULL
,
7408 numbering1 VARCHAR
(255) DEFAULT NULL
,
7409 label2 VARCHAR
(255) DEFAULT NULL
,
7410 add2 INTEGER DEFAULT NULL
,
7411 every2 INTEGER DEFAULT NULL
,
7412 whenmorethan2 INTEGER DEFAULT NULL
,
7413 setto2 INTEGER DEFAULT NULL
,
7414 numbering2 VARCHAR
(255) DEFAULT NULL
,
7415 label3 VARCHAR
(255) DEFAULT NULL
,
7416 add3 INTEGER DEFAULT NULL
,
7417 every3 INTEGER DEFAULT NULL
,
7418 whenmorethan3 INTEGER DEFAULT NULL
,
7419 setto3 INTEGER DEFAULT NULL
,
7420 numbering3 VARCHAR
(255) DEFAULT NULL
,
7422 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8
7426 INSERT INTO subscription_frequencies
(description
, unit
, unitsperissue
, issuesperunit
, displayorder
)
7428 ('2/day', 'day', 1, 2, 1),
7429 ('1/day', 'day', 1, 1, 2),
7430 ('3/week', 'week', 1, 3, 3),
7431 ('1/week', 'week', 1, 1, 4),
7432 ('1/2 weeks', 'week', 2, 1, 5),
7433 ('1/3 weeks', 'week', 3, 1, 6),
7434 ('1/month', 'month', 1, 1, 7),
7435 ('1/2 months', 'month', 2, 1, 8),
7436 ('1/3 months', 'month', 3, 1, 9),
7437 ('2/year', 'month', 6, 1, 10),
7438 ('1/year', 'year', 1, 1, 11),
7439 ('1/2 year', 'year', 2, 1, 12),
7440 ('Irregular', NULL
, 1, 1, 13)
7443 # Used to link existing subscription to newly created frequencies
7444 my $frequencies_mapping = { # keys are old frequency numbers, values are the new ones
7445 1 => 2, # daily (n/week)
7450 6 => 8, # 1/2 months (6/year)
7451 7 => 9, # 1/3 months (1/quarter)
7452 8 => 9, # 1/quarter (seasonal)
7455 11 => 12, # 1/2 years
7457 16 => 13, # Without periodicity
7458 32 => 13, # Irregular
7463 INSERT INTO subscription_numberpatterns
7464 (label
, displayorder
, description
, numberingmethod
,
7465 label1
, add1
, every1
, whenmorethan1
, setto1
, numbering1
,
7466 label2
, add2
, every2
, whenmorethan2
, setto2
, numbering2
,
7467 label3
, add3
, every3
, whenmorethan3
, setto3
, numbering3
)
7469 ('Number', 1, 'Simple Numbering method', 'No.{X}',
7470 'Number', 1, 1, 99999, 1, NULL
,
7471 NULL
, NULL
, NULL
, NULL
, NULL
, NULL
,
7472 NULL
, NULL
, NULL
, NULL
, NULL
, NULL
),
7474 ('Volume, Number, Issue', 2, 'Volume Number Issue 1', 'Vol.{X}, Number {Y}, Issue {Z}',
7475 'Volume', 1, 48, 99999, 1, NULL
,
7476 'Number', 1, 4, 12, 1, NULL
,
7477 'Issue', 1, 1, 4, 1, NULL
),
7479 ('Volume, Number', 3, 'Volume Number 1', 'Vol {X}, No {Y}',
7480 'Volume', 1, 12, 99999, 1, NULL
,
7481 'Number', 1, 1, 12, 1, NULL
,
7482 NULL
, NULL
, NULL
, NULL
, NULL
, NULL
),
7484 ('Seasonal', 4, 'Season Year', '{X} {Y}',
7485 'Season', 1, 1, 3, 0, 'season',
7486 'Year', 1, 4, 99999, 1, NULL
,
7487 NULL
, NULL
, NULL
, NULL
, NULL
, NULL
)
7491 ALTER TABLE subscription
7492 MODIFY COLUMN numberpattern INTEGER DEFAULT NULL
,
7493 MODIFY COLUMN periodicity INTEGER DEFAULT NULL
7496 # Update existing subscriptions
7499 SELECT subscriptionid
, periodicity
, numberingmethod
,
7500 add1
, every1
, whenmorethan1
, setto1
,
7501 add2
, every2
, whenmorethan2
, setto2
,
7502 add3
, every3
, whenmorethan3
, setto3
7504 ORDER BY subscriptionid
7506 my $sth = $dbh->prepare($query);
7508 my $insert_numberpatterns_sth = $dbh->prepare(qq|
7509 INSERT INTO subscription_numberpatterns
7510 (label
, displayorder
, description
, numberingmethod
,
7511 label1
, add1
, every1
, whenmorethan1
, setto1
, numbering1
,
7512 label2
, add2
, every2
, whenmorethan2
, setto2
, numbering2
,
7513 label3
, add3
, every3
, whenmorethan3
, setto3
, numbering3
)
7515 (?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
, ?
)
7517 my $check_numberpatterns_sth = $dbh->prepare(qq|
7518 SELECT
* FROM subscription_numberpatterns
7519 WHERE
(add1
= ? OR
(add1 IS NULL AND ? IS NULL
)) AND
(add2
= ? OR
(add2 IS NULL AND ? IS NULL
))
7520 AND
(add3
= ? OR
(add3 IS NULL AND ? IS NULL
)) AND
(every1
= ? OR
(every1 IS NULL AND ? IS NULL
))
7521 AND
(every2
= ? OR
(every2 IS NULL AND ? IS NULL
)) AND
(every3
= ? OR
(every3 IS NULL AND ? IS NULL
))
7522 AND
(whenmorethan1
= ? OR
(whenmorethan1 IS NULL AND ? IS NULL
)) AND
(whenmorethan2
= ? OR
(whenmorethan2 IS NULL AND ? IS NULL
))
7523 AND
(whenmorethan3
= ? OR
(whenmorethan3 IS NULL AND ? IS NULL
)) AND
(setto1
= ? OR
(setto1 IS NULL AND ? IS NULL
))
7524 AND
(setto2
= ? OR
(setto2 IS NULL AND ? IS NULL
)) AND
(setto3
= ? OR
(setto3 IS NULL AND ? IS NULL
))
7525 AND
(numberingmethod
= ? OR
(numberingmethod IS NULL AND ? IS NULL
))
7528 my $update_subscription_sth = $dbh->prepare(qq|
7530 SET numberpattern
= ?
,
7532 WHERE subscriptionid
= ?
7536 while(my $sub = $sth->fetchrow_hashref) {
7537 $check_numberpatterns_sth->execute(
7538 $sub->{add1
}, $sub->{add1
}, $sub->{add2
}, $sub->{add2
}, $sub->{add3
}, $sub->{add3
},
7539 $sub->{every1
}, $sub->{every1
}, $sub->{every2
}, $sub->{every2
}, $sub->{every3
}, $sub->{every3
},
7540 $sub->{whenmorethan1
}, $sub->{whenmorethan1
}, $sub->{whenmorethan2
}, $sub->{whenmorethan2
},
7541 $sub->{whenmorethan3
}, $sub->{whenmorethan3
}, $sub->{setto1
}, $sub->{setto1
}, $sub->{setto2
},
7542 $sub->{setto2
}, $sub->{setto3
}, $sub->{setto3
}, $sub->{numberingmethod
}, $sub->{numberingmethod
}
7544 my $p = $check_numberpatterns_sth->fetchrow_hashref;
7546 # Pattern already exists, link to it
7547 $update_subscription_sth->execute($p->{id
},
7548 $frequencies_mapping->{$sub->{periodicity
}},
7549 $sub->{subscriptionid
});
7551 # Create a new numbering pattern for this subscription
7552 my $ok = $insert_numberpatterns_sth->execute(
7553 "Backup pattern $i", 4+$i, "Automatically created pattern by updatedatabase", $sub->{numberingmethod
},
7554 "X", $sub->{add1
}, $sub->{every1
}, $sub->{whenmorethan1
}, $sub->{setto1
}, undef,
7555 "Y", $sub->{add2
}, $sub->{every2
}, $sub->{whenmorethan2
}, $sub->{setto2
}, undef,
7556 "Z", $sub->{add3
}, $sub->{every3
}, $sub->{whenmorethan3
}, $sub->{setto3
}, undef
7559 my $id = $dbh->last_insert_id(undef, undef, 'subscription_numberpatterns', undef);
7560 # Link to subscription_numberpatterns and subscription_frequencies
7561 $update_subscription_sth->execute($id,
7562 $frequencies_mapping->{$sub->{periodicity
}},
7563 $sub->{subscriptionid
});
7569 # Remove now useless columns
7571 ALTER TABLE subscription
7572 DROP COLUMN numberingmethod
,
7575 DROP COLUMN whenmorethan1
,
7579 DROP COLUMN whenmorethan2
,
7583 DROP COLUMN whenmorethan3
,
7586 DROP COLUMN issuesatonce
,
7587 DROP COLUMN hemisphere
,
7588 ADD COLUMN countissuesperunit INTEGER NOT NULL DEFAULT
1 AFTER periodicity
,
7589 ADD COLUMN skip_serialseq BOOLEAN NOT NULL DEFAULT
0 AFTER irregularity
,
7590 ADD COLUMN locale VARCHAR
(80) DEFAULT NULL AFTER numberpattern
,
7591 ADD CONSTRAINT subscription_ibfk_1 FOREIGN KEY
(periodicity
) REFERENCES subscription_frequencies
(id
) ON DELETE SET NULL ON UPDATE CASCADE
,
7592 ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY
(numberpattern
) REFERENCES subscription_numberpatterns
(id
) ON DELETE SET NULL ON UPDATE CASCADE
7595 # Set firstacquidate if not already set (firstacquidate is now mandatory)
7596 my $get_first_planneddate_sth = $dbh->prepare(qq|
7599 WHERE subscriptionid
= ?
7603 my $update_firstacquidate_sth = $dbh->prepare(qq|
7605 SET firstacquidate
= ?
7606 WHERE subscriptionid
= ?
7608 my $get_subscriptions_sth = $dbh->prepare(qq|
7609 SELECT subscriptionid
, startdate
7611 WHERE firstacquidate IS NULL
7612 OR firstacquidate
= '0000-00-00'
7614 $get_subscriptions_sth->execute;
7615 while ( my ($subscriptionid, $startdate) = $get_subscriptions_sth->fetchrow ) {
7616 # Try to get the planned date of the first serial
7617 $get_first_planneddate_sth->execute($subscriptionid);
7618 my ($first_planneddate) = $get_first_planneddate_sth->fetchrow;
7619 if ($first_planneddate and $first_planneddate =~ /^\d{4}-\d{2}-\d{2}$/) {
7620 $update_firstacquidate_sth->execute($first_planneddate, $subscriptionid);
7622 # Defaults to subscription start date
7623 $update_firstacquidate_sth->execute($startdate, $subscriptionid);
7627 print "Upgrade to $DBversion done (Bug 7688: add subscription_frequencies and subscription_numberpatterns tables)\n";
7628 SetVersion
($DBversion);
7631 $DBversion = "3.13.00.034";
7632 if ( CheckVersion
($DBversion) ) {
7634 ALTER TABLE `import_batches`
7635 CHANGE `item_action` `item_action`
7636 ENUM( 'always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore', 'replace' )
7637 NOT NULL DEFAULT 'always_add'
7639 print "Upgrade to $DBversion done (Bug 7131 - way to overlay items in in marc import)\n";
7640 SetVersion
($DBversion);
7643 $DBversion ="3.13.00.035";
7644 if ( CheckVersion
($DBversion) ) {
7646 CREATE TABLE borrower_debarments (
7647 borrower_debarment_id int(11) NOT NULL AUTO_INCREMENT,
7648 borrowernumber int(11) NOT NULL,
7649 expiration date DEFAULT NULL,
7650 `type` enum('SUSPENSION','OVERDUES','MANUAL') NOT NULL DEFAULT 'MANUAL',
7652 manager_id int(11) DEFAULT NULL,
7653 created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
7654 updated timestamp NULL DEFAULT NULL,
7655 PRIMARY KEY (borrower_debarment_id),
7656 KEY borrowernumber (borrowernumber) ,
7657 CONSTRAINT `borrower_debarments_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
7658 ON DELETE CASCADE ON UPDATE CASCADE
7659 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7662 # debarments with end date
7664 INSERT INTO borrower_debarments ( borrowernumber, expiration, comment ) SELECT borrowernumber, debarred, debarredcomment FROM borrowers WHERE debarred IS NOT NULL AND debarred <> '9999-12-31'
7666 # debarments with no end date
7668 INSERT INTO borrower_debarments ( borrowernumber, comment ) SELECT borrowernumber, debarredcomment FROM borrowers WHERE debarred = '9999-12-31'
7672 INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES
7673 ('AutoRemoveOverduesRestrictions','0','Defines whether an OVERDUES debarment should be lifted automatically if all overdue items are returned by the patron.','YesNo')
7676 print "Upgrade to $DBversion done (Bug 2720 - Overdues which debar automatically should undebar automatically when returned)\n";
7677 SetVersion
($DBversion);
7680 $DBversion = "3.13.00.036";
7681 if ( CheckVersion
($DBversion) ) {
7683 INSERT INTO systempreferences
(variable
, value
, explanation
, options
, type
)
7684 VALUES
('StaffDetailItemSelection', '1', 'Enable item selection in record detail page', NULL
, 'YesNo')
7686 print "Upgrade to $DBversion done (Add system preference StaffDetailItemSelection)\n";
7687 SetVersion
($DBversion);
7690 $DBversion = "3.13.00.037";
7691 if ( CheckVersion
($DBversion) ) {
7692 #add phone if it is not there already (explains the ignore option)
7694 INSERT IGNORE INTO message_transport_types (message_transport_type) values ('phone');
7696 print "Upgrade to $DBversion done (Bug 10572: Add phone to message_transport_types table for new installs)\n";
7697 SetVersion
($DBversion);
7700 $DBversion = "3.13.00.038";
7701 if ( CheckVersion
($DBversion) ) {
7702 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES(15, 'superserials', 'Manage subscriptions from any branch (only applies when IndependentBranches is used)')");
7703 print "Upgrade to $DBversion done (Bug 8435: Add superserials permission)\n";
7704 SetVersion
($DBversion);
7707 $DBversion = "3.13.00.039";
7708 if ( CheckVersion
($DBversion) ) {
7710 ALTER TABLE aqbasket ADD branch varchar(10) default NULL
7713 ALTER TABLE aqbasket
7714 ADD CONSTRAINT aqbasket_ibfk_4 FOREIGN KEY (branch)
7715 REFERENCES branches (branchcode)
7716 ON UPDATE CASCADE ON DELETE SET NULL
7719 DROP TABLE IF EXISTS aqbasketusers
7722 CREATE TABLE aqbasketusers (
7723 basketno int(11) NOT NULL,
7724 borrowernumber int(11) NOT NULL,
7725 PRIMARY KEY (basketno,borrowernumber),
7726 CONSTRAINT aqbasketusers_ibfk_1 FOREIGN KEY (basketno) REFERENCES aqbasket (basketno) ON DELETE CASCADE ON UPDATE CASCADE,
7727 CONSTRAINT aqbasketusers_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
7728 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7731 INSERT INTO permissions (module_bit, code, description)
7732 VALUES (11, 'order_manage_all', 'Manage all orders and baskets, regardless of restrictions on them')
7735 print "Upgrade to $DBversion done (Add branch and users list to baskets. "
7736 . "New permission order_manage_all)\n";
7737 SetVersion
($DBversion);
7740 $DBversion = "3.13.00.040";
7741 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
7742 $dbh->do("CREATE TABLE IF NOT EXISTS marc_modification_templates (
7743 template_id int(11) NOT NULL auto_increment,
7745 PRIMARY KEY (template_id)
7746 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;"
7750 CREATE TABLE IF NOT EXISTS marc_modification_template_actions (
7751 mmta_id int(11) NOT NULL auto_increment,
7752 template_id int(11) NOT NULL,
7753 ordering int(3) NOT NULL,
7754 action enum('delete_field','update_field','move_field','copy_field') NOT NULL,
7755 field_number smallint(6) NOT NULL default '0',
7756 from_field varchar(3) NOT NULL,
7757 from_subfield varchar(1) NULL,
7758 field_value varchar(100) default NULL,
7759 to_field varchar(3) default NULL,
7760 to_subfield varchar(1) default NULL,
7761 to_regex_search text,
7762 to_regex_replace text,
7763 to_regex_modifiers varchar(8) default '',
7764 conditional enum('if','unless') default NULL,
7765 conditional_field varchar(3) default NULL,
7766 conditional_subfield varchar(1) default NULL,
7767 conditional_comparison enum('exists','not_exists','equals','not_equals') default NULL,
7768 conditional_value text,
7769 conditional_regex tinyint(1) NOT NULL default '0',
7771 PRIMARY KEY (mmta_id),
7772 CONSTRAINT `mmta_ibfk_1` FOREIGN KEY (`template_id`) REFERENCES `marc_modification_templates` (`template_id`) ON DELETE CASCADE ON UPDATE CASCADE
7773 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7776 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('13', 'marc_modification_templates', 'Manage marc modification templates')");
7778 print "Upgrade to $DBversion done ( Bug 8015: Added tables for MARC Modification Framework )\n";
7779 SetVersion
($DBversion);
7782 $DBversion = "3.13.00.041";
7783 if(CheckVersion
($DBversion)) {
7785 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');
7787 print "Upgrade to $DBversion done (Bug 10986: Added AcqItemSetSubfieldsWhenReceived syspref)\n";
7788 SetVersion
($DBversion);
7791 $DBversion = "3.13.00.042";
7792 if(CheckVersion
($DBversion)) {
7793 print "Upgrade to $DBversion done (Koha 3.14 beta)\n";
7794 SetVersion
($DBversion);
7797 $DBversion = "3.13.00.043";
7798 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
7799 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('SearchEngine','Zebra','Solr|Zebra','Search Engine','Choice')");
7800 print "Upgrade to $DBversion done (Bug 11196: Add system preference SearchEngine if missing )\n";
7801 SetVersion
($DBversion);
7804 $DBversion = "3.14.00.000";
7805 if ( CheckVersion
($DBversion) ) {
7806 print "Upgrade to $DBversion done (3.14.0 release)\n";
7807 SetVersion
($DBversion);
7810 $DBversion = '3.15.00.000';
7811 if ( CheckVersion
($DBversion) ) {
7812 print "Upgrade to $DBversion done (the road goes ever on)\n";
7813 SetVersion
($DBversion);
7816 $DBversion = "3.15.00.001";
7817 if ( CheckVersion
($DBversion) ) {
7818 $dbh->do("UPDATE systempreferences SET value='clear' where variable = 'CircAutoPrintQuickSlip' and value = '0'");
7819 $dbh->do("UPDATE systempreferences SET value='qslip' where variable = 'CircAutoPrintQuickSlip' and value = '1'");
7820 $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'");
7821 print "Upgrade to $DBversion done (Bug 11040: Add option to print full slip when checking out a null barcode)\n";
7822 SetVersion
($DBversion);
7825 $DBversion = "3.15.00.002";
7826 if(CheckVersion
($DBversion)) {
7827 $dbh->do("ALTER TABLE deleteditems MODIFY materials text;");
7828 print "Upgrade to $DBversion done (Bug 11275: alter deleteditems.materials from varchar(10) to text)\n";
7829 SetVersion
($DBversion);
7832 $DBversion = "3.15.00.003";
7833 if ( CheckVersion
($DBversion) ) {
7836 SET description = ''
7837 WHERE description IN (
7842 ' Account Management fee',
7843 'Payment,thanks', 'Payment,thanks - ',
7847 print "Upgrade to $DBversion done (Bug 2546: Update fine descriptions)\n";
7848 SetVersion
($DBversion);
7851 $DBversion = "3.15.00.004";
7852 if ( CheckVersion
($DBversion) ) {
7853 if ( C4
::Context
->preference("marcflavour") eq 'MARC21' ) {
7855 INSERT IGNORE INTO marc_subfield_structure
(tagfield
, tagsubfield
, liblibrarian
, libopac
, repeatable
, mandatory
,
7856 kohafield
, tab
, authorised_value
, authtypecode
, value_builder
, isurl
, hidden
, frameworkcode
, seealso
, link,
7857 defaultvalue
) VALUES
7858 ('015', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL
),
7859 ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL
),
7860 ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL
),
7861 ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL
),
7862 ('800', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL
, -6, '', '', '', NULL
),
7863 ('810', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL
, -6, '', '', '', NULL
),
7864 ('811', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL
, -6, '', '', '', NULL
),
7865 ('830', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL
, -6, '', '', '', NULL
);
7868 INSERT IGNORE INTO auth_subfield_structure
(authtypecode
, tagfield
, tagsubfield
, liblibrarian
, libopac
, repeatable
,
7869 mandatory
, tab
, authorised_value
, value_builder
, seealso
, isurl
, hidden
, linkid
, kohafield
, frameworkcode
) VALUES
7870 ('', '020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL
, NULL
, NULL
, 0, 0, '', '', ''),
7871 ('', '024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL
, NULL
, NULL
, 0, 0, '', '', '');
7874 print "Upgrade to $DBversion done (Bug 10970 - Update MARC21 frameworks to Update Nr. 17 - DB update)\n";
7875 SetVersion
($DBversion);
7878 $DBversion = "3.15.00.005";
7879 if ( CheckVersion
($DBversion) ) {
7880 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('AcquisitionDetails', '1', '', 'Hide/Show acquisition details on the biblio detail page.', 'YesNo');");
7881 print "Upgrade to $DBversion done (Bug 8230: Add AcquisitionDetails system preference)\n";
7882 SetVersion
($DBversion);
7885 $DBversion = "3.15.00.006";
7886 if(CheckVersion
($DBversion)) {
7888 ALTER TABLE `borrowers`
7889 ADD KEY `surname_idx` (`surname`(255)),
7890 ADD KEY `firstname_idx` (`firstname`(255)),
7891 ADD KEY `othernames_idx` (`othernames`(255))
7893 print "Upgrade to $DBversion done (Bug 11249 - Add DB indexes on borrower names)\n";
7894 SetVersion
($DBversion);
7897 $DBversion = "3.15.00.007";
7898 if ( CheckVersion
($DBversion) ) {
7899 $dbh->do("ALTER TABLE items ADD itemlost_on DATETIME NULL AFTER itemlost");
7900 $dbh->do("ALTER TABLE items ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7901 $dbh->do("ALTER TABLE deleteditems ADD itemlost_on DATETIME NULL AFTER itemlost");
7902 $dbh->do("ALTER TABLE deleteditems ADD withdrawn_on DATETIME NULL AFTER withdrawn");
7903 print "Upgrade to $DBversion done (Bug 9673 - Track when items are marked as lost or withdrawn)\n";
7904 SetVersion
($DBversion);
7907 $DBversion = "3.15.00.008";
7908 if ( CheckVersion
($DBversion) ) {
7910 ALTER TABLE collections_tracking CHANGE ctId collections_tracking_id integer(11) NOT NULL auto_increment;
7912 print "Upgrade to $DBversion done (Bug 11384) - change name of collections_tracker.ctId column)\n";
7913 SetVersion
($DBversion);
7916 $DBversion = "3.15.00.009";
7917 if ( CheckVersion
($DBversion) ) {
7919 ALTER TABLE suggestions MODIFY suggesteddate DATE NOT NULL
7921 print "Upgrade to $DBversion done (Bug 11391) - drop default value on suggestions.suggesteddate column)\n";
7922 SetVersion
($DBversion);
7925 $DBversion = "3.15.00.010";
7926 if(CheckVersion
($DBversion)) {
7927 $dbh->do("ALTER TABLE deleteditems DROP COLUMN marc");
7928 print "Upgrade to $DBversion done (Bug 6331: remove obsolete column in deleteditems.marc)\n";
7929 SetVersion
($DBversion);
7932 $DBversion = "3.15.00.011";
7933 if(CheckVersion
($DBversion)) {
7934 $dbh->do("UPDATE marc_subfield_structure SET maxlength=9999 WHERE maxlength IS NULL OR maxlength=0;");
7935 print "Upgrade to $DBversion done (Bug 8018: set 9999 as default max length for subfields)\n";
7936 SetVersion
($DBversion);
7939 $DBversion = "3.15.00.012";
7940 if ( CheckVersion
($DBversion) ) {
7942 INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'force_checkout', 'Force checkout if a limitation exists')
7945 INSERT INTO permissions (module_bit, code, description) VALUES ( 1, 'manage_restrictions', 'Manage restrictions for accounts')
7948 INSERT INTO user_permissions (borrowernumber, module_bit, code)
7949 SELECT user_permissions.borrowernumber, 1, 'force_checkout'
7950 FROM user_permissions
7951 LEFT JOIN borrowers USING(borrowernumber)
7952 WHERE borrowers.flags & (1 << 1)
7955 INSERT INTO user_permissions (borrowernumber, module_bit, code)
7956 SELECT user_permissions.borrowernumber, 1, 'manage_restrictions'
7957 FROM user_permissions
7958 LEFT JOIN borrowers USING(borrowernumber)
7959 WHERE borrowers.flags & (1 << 1)
7962 print "Upgrade to $DBversion done (Bug 10863 - Add permissions force_checkout and manage_restrictions)\n";
7963 SetVersion
($DBversion);
7966 $DBversion = "3.15.00.013";
7967 if(CheckVersion
($DBversion)) {
7969 UPDATE systempreferences
7970 SET explanation = 'Upon receiving items, update their subfields if they were created when placing an order (e.g. o=5|a="foo bar")'
7971 WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7975 UPDATE systempreferences
7977 WHERE variable = "AcqItemSetSubfieldsWhenReceived"
7980 print "Upgrade to $DBversion done (Bug 11237: Update explanation and default value for AcqItemSetSubfieldsWhenReceived syspref)\n";
7981 SetVersion
($DBversion);
7984 $DBversion = "3.15.00.014";
7985 if (CheckVersion
($DBversion)) {
7986 $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');");
7987 print "Upgrade to $DBversion done (Bug 11415: add system preference for automatic self checkout receipt printing)\n";
7988 SetVersion
($DBversion);
7991 $DBversion = "3.15.00.015";
7992 if (CheckVersion
($DBversion)) {
7993 $dbh->do("INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
7994 ('OpacSuggestionManagedBy',1,'','Show the name of the staff member who managed a suggestion in OPAC','YesNo');");
7995 print "Upgrade to $DBversion done (Bug 10907: Add OpacSuggestionManagedBy system preference)\n";
7996 SetVersion
($DBversion);
7999 $DBversion = "3.15.00.016";
8000 if (CheckVersion
($DBversion)) {
8001 $dbh->do("ALTER TABLE biblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8002 $dbh->do("ALTER TABLE deletedbiblioitems CHANGE url url TEXT NULL DEFAULT NULL");
8003 print "Upgrade to $DBversion done (Bug 11268 - Biblioitems URL field is too small for some URLs)\n";
8004 SetVersion
($DBversion);
8007 $DBversion = "3.15.00.017";
8008 if(CheckVersion
($DBversion)) {
8010 UPDATE systempreferences
8011 SET explanation = 'Define the contents of UNIMARC authority control field 100 position 08-35'
8012 WHERE variable = "UNIMARCAuthorityField100"
8015 UPDATE systempreferences
8016 SET explanation = 'Define the contents of MARC21 authority control field 008 position 06-39'
8017 WHERE variable = "MARCAuthorityControlField008"
8020 UPDATE systempreferences
8021 SET explanation = 'Define MARC Organization Code for MARC21 records - http://www.loc.gov/marc/organizations/orgshome.html'
8022 WHERE variable = "MARCOrgCode"
8024 print "Upgrade to $DBversion done (Bug 11611 - fix possible confusion between UNIMARC and MARC21 in some sysprefs)\n";
8025 SetVersion
($DBversion);
8028 $DBversion = "3.15.00.018";
8029 if ( CheckVersion
($DBversion) ) {
8030 $dbh->{AutoCommit
} = 0;
8031 $dbh->{RaiseError
} = 1;
8034 $dbh->selectcol_arrayref(q
|SELECT COUNT
(*) FROM roadtype
|);
8037 my $av_added = $dbh->do(q
|
8038 INSERT INTO authorised_values
(category
, authorised_value
, lib
, lib_opac
)
8039 SELECT
'ROADTYPE', roadtypeid
, road_type
, road_type
8043 my $rt_deleted = $dbh->do(q
|
8044 DELETE FROM roadtype
8047 if ( $av_added == $rt_deleted or $rt_deleted eq "0E0" ) {
8049 DROP TABLE roadtype
;
8052 print "Upgrade to $DBversion done (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values)\n";
8053 SetVersion
($DBversion);
8055 print "Upgrade to $DBversion failed (Bug 7372: Move road types from the roadtype table to the ROADTYPE authorised values.\nTransaction aborted because $@\n)";
8059 $dbh->{AutoCommit
} = 1;
8060 $dbh->{RaiseError
} = 0;
8063 $DBversion = "3.15.00.019";
8064 if ( CheckVersion
($DBversion) ) {
8065 $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')");
8066 print "Upgrade to $DBversion done (Bug 11256: Add system preference OpacMaxItemsToDisplay)\n";
8067 SetVersion
($DBversion);
8070 $DBversion = "3.15.00.020";
8071 if ( CheckVersion
($DBversion) ) {
8073 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')
8075 print "Upgrade to $DBversion done (Bug 11343: Add system preference MaxItemsForBatch )\n";
8076 SetVersion
($DBversion);
8079 $DBversion = "3.15.00.021";
8080 if(CheckVersion
($DBversion)) {
8082 ALTER TABLE `action_logs`
8084 ADD KEY `timestamp_idx` (`timestamp`),
8085 ADD KEY `user_idx` (`user`),
8086 ADD KEY `module_idx` (`module`(255)),
8087 ADD KEY `action_idx` (`action`(255)),
8088 ADD KEY `object_idx` (`object`),
8089 ADD KEY `info_idx` (`info`(255))
8091 print "Upgrade to $DBversion done (Bug 3445: Add indexes to action_logs table)\n";
8092 SetVersion
($DBversion);
8095 $DBversion = "3.15.00.022";
8096 if (CheckVersion
($DBversion)) {
8098 DELETE FROM systempreferences WHERE variable
= "memberofinstitution"
8100 print "Upgrade to $DBversion done (Bug 11751: Remove memberofinstitytion system preference)\n";
8101 SetVersion
($DBversion);
8104 $DBversion = "3.15.00.023";
8105 if ( CheckVersion
($DBversion) ) {
8107 INSERT INTO systempreferences (variable,value,options,explanation,type)
8108 VALUES('CardnumberLength', '', '', 'Set a length for card numbers.', 'Free');
8110 print "Upgrade to $DBversion done (Bug 10861: Add CardnumberLength syspref)\n";
8111 SetVersion
($DBversion);
8114 $DBversion = "3.15.00.024";
8115 if ( CheckVersion
($DBversion) ) {
8117 DELETE FROM systempreferences WHERE variable = 'NoZebraIndexes'
8119 print "Upgrade to $DBversion done (Bug 10012 - remove last vestiges of NoZebra)\n";
8120 SetVersion
($DBversion);
8123 $DBversion = "3.15.00.025";
8124 if ( CheckVersion
($DBversion) ) {
8126 DROP TABLE aqorderdelivery;
8128 print "Upgrade to $DBversion done (Bug 11928 - remove unused table)\n";
8129 SetVersion
($DBversion);
8132 $DBversion = "3.15.00.026";
8133 if ( CheckVersion
($DBversion) ) {
8135 UPDATE language_descriptions SET description = 'Հայերեն' WHERE subtag = 'hy' AND lang = 'hy';
8137 print "Upgrade to $DBversion done (Bug 11973 - Fix Armenian language description)\n";
8138 SetVersion
($DBversion);
8141 $DBversion = "3.15.00.027";
8142 if (CheckVersion
($DBversion)) {
8144 ALTER TABLE opac_news ADD branchcode varchar(10) DEFAULT NULL
8146 ADD CONSTRAINT opac_news_branchcode_ibfk
8147 FOREIGN KEY (branchcode)
8148 REFERENCES branches (branchcode)
8149 ON DELETE CASCADE ON UPDATE CASCADE;
8151 print "Upgrade to $DBversion done (Bug 7567: Add branchcode to opac_news)\n";
8152 SetVersion
($DBversion);
8155 $DBversion = "3.15.00.028";
8156 if(CheckVersion
($DBversion)) {
8158 ALTER TABLE issuingrules ADD norenewalbefore int(4) default NULL AFTER renewalperiod
8160 print "Upgrade to $DBversion done (Bug 7413: Allow OPAC renewal x days before due date)\n";
8161 SetVersion
($DBversion);
8164 $DBversion = "3.15.00.029";
8165 if ( CheckVersion
($DBversion) ) {
8167 UPDATE borrower_debarments SET expiration = NULL WHERE expiration = '9999-12-31'
8169 print "Upgrade to $DBversion done (Bug 11846 - correct borrower_debarments with expiration 9999-12-31)\n";
8170 SetVersion
($DBversion);
8173 $DBversion = "3.15.00.030";
8174 if(CheckVersion
($DBversion)) {
8176 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')
8178 print "Upgrade to $DBversion done (Bug 12052: Add OPACMySummaryNote syspref)\n";
8179 SetVersion
($DBversion);
8182 $DBversion = "3.15.00.031";
8183 if ( CheckVersion
($DBversion) ) {
8184 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'writeoff', 'Write off fines and fees')");
8185 $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ('10', 'remaining_permissions', 'Remaining permissions for managing fines and fees')");
8186 print "Upgrade to $DBversion done (Bug 9448 - Add separate permission for writing off fees)\n";
8187 SetVersion
($DBversion);
8190 $DBversion = "3.15.00.032";
8191 if ( CheckVersion
($DBversion) ) {
8192 $dbh->do("ALTER TABLE aqorders CHANGE notes order_internalnote MEDIUMTEXT;");
8193 $dbh->do("ALTER TABLE aqorders ADD COLUMN order_vendornote MEDIUMTEXT AFTER order_internalnote;");
8194 print "Upgrade to $DBversion done (Bug 9416 - In each order, add a new note made for the vendor)\n";
8195 SetVersion
($DBversion);
8198 $DBversion = "3.15.00.033";
8199 if ( CheckVersion
($DBversion) ) {
8200 $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')");
8201 print "Upgrade to $DBversion done (Bug 10951: Add NoLoginInstructions pref)\n";
8202 SetVersion
($DBversion);
8205 $DBversion = "3.15.00.034";
8206 if ( CheckVersion
($DBversion) ) {
8207 $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')");
8208 print "Upgrade to $DBversion done (Bug 10986: system preferences to limit languages in advanced search )\n";
8209 SetVersion
($DBversion);
8212 $DBversion = "3.15.00.035";
8213 if ( CheckVersion
($DBversion) ) {
8214 #insert a notice for sharing a list and accepting a share
8216 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8217 VALUES ( 'members', 'SHARE_INVITE', '', 'Invitation for sharing a list', '0', 'Share list <<listname>>', 'Dear patron,
8219 One of our patrons, <<borrowers.firstname>> <<borrowers.surname>>, invites you to share a list <<listname>> in our library catalog.
8221 To access this shared list, please click on the following URL or copy-and-paste it into your browser address bar.
8225 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.
8232 INSERT INTO letter (module, code, branchcode, name, is_html, title, content)
8233 VALUES ( 'members', 'SHARE_ACCEPT', '', 'Notification about an accepted share', '0', 'Share on list <<listname>> accepted', 'Dear patron,
8235 We want to inform you that <<borrowers.firstname>> <<borrowers.surname>> accepted your invitation to share your list <<listname>> in our library catalog.
8241 print "Upgrade to $DBversion done (Bug 9032: Share a list)\n";
8242 SetVersion
($DBversion);
8245 $DBversion = "3.15.00.036";
8246 if ( CheckVersion
($DBversion) ) {
8248 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
8249 VALUES('AllowMultipleIssuesOnABiblio',1,'Allow/Don\'t allow patrons to check out multiple items from one biblio','','YesNo')
8252 print "Upgrade to $DBversion done (Bug 10859 - Add system preference AllowMultipleIssuesOnABiblio)\n";
8253 SetVersion($DBversion);
8256 $DBversion = "3.15.00.037";
8257 if(CheckVersion($DBversion)) {
8259 ALTER TABLE itemtypes ADD sip_media_type VARCHAR( 3 ) DEFAULT NULL AFTER checkinmsgtype
8262 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
8263 ('SIP_MEDIA_TYPE', '000', 'Other'),
8264 ('SIP_MEDIA_TYPE', '001', 'Book'),
8265 ('SIP_MEDIA_TYPE', '002', 'Magazine'),
8266 ('SIP_MEDIA_TYPE', '003', 'Bound journal'),
8267 ('SIP_MEDIA_TYPE', '004', 'Audio tape'),
8268 ('SIP_MEDIA_TYPE', '005', 'Video tape'),
8269 ('SIP_MEDIA_TYPE', '006', 'CD/CDROM'),
8270 ('SIP_MEDIA_TYPE', '007', 'Diskette'),
8271 ('SIP_MEDIA_TYPE', '008', 'Book with diskette'),
8272 ('SIP_MEDIA_TYPE', '009', 'Book with CD'),
8273 ('SIP_MEDIA_TYPE', '010', 'Book with audio tape')
8275 print "Upgrade to $DBversion done (Bug 11351 - Add support for SIP2 media type)\n";
8276 SetVersion
($DBversion);
8279 $DBversion = '3.15.00.038';
8280 if ( CheckVersion
($DBversion) ) {
8282 INSERT INTO systempreferences (
8290 'DisplayLibraryFacets', 'holding', 'home|holding|both', 'Defines which library facets to display.', 'Choice'
8293 print "Upgrade to $DBversion done (Bug 11334 - Add facet for home library)\n";
8294 SetVersion
($DBversion);
8297 $DBversion = "3.15.00.039";
8298 if ( CheckVersion
($DBversion) ) {
8301 ALTER TABLE letter ADD COLUMN message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email' AFTER content
8305 ALTER TABLE letter ADD CONSTRAINT message_transport_type_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types(message_transport_type);
8309 ALTER TABLE letter DROP PRIMARY KEY, ADD PRIMARY KEY (`module`,`code`,`branchcode`, message_transport_type);
8313 CREATE TABLE overduerules_transport_types(
8314 id INT(11) NOT NULL AUTO_INCREMENT,
8315 branchcode varchar(10) NOT NULL DEFAULT '',
8316 categorycode VARCHAR(10) NOT NULL DEFAULT '',
8317 letternumber INT(1) NOT NULL DEFAULT 1,
8318 message_transport_type VARCHAR(20) NOT NULL DEFAULT 'email',
8320 CONSTRAINT overduerules_fk FOREIGN KEY (branchcode, categorycode) REFERENCES overduerules (branchcode, categorycode) ON DELETE CASCADE ON UPDATE CASCADE,
8321 CONSTRAINT mtt_fk FOREIGN KEY (message_transport_type) REFERENCES message_transport_types (message_transport_type) ON DELETE CASCADE ON UPDATE CASCADE
8322 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8325 my $sth = $dbh->prepare( q{
8326 SELECT * FROM overduerules;
8330 my $sth_insert_mtt = $dbh->prepare( q{
8331 INSERT INTO overduerules_transport_types (branchcode, categorycode, letternumber, message_transport_type) VALUES ( ?, ?, ?, ? )
8333 while ( my $row = $sth->fetchrow_hashref ) {
8334 my $branchcode = $row->{branchcode
};
8335 my $categorycode = $row->{categorycode
};
8336 for my $letternumber ( 1 .. 3 ) {
8337 next unless $row->{"letter$letternumber"};
8338 $sth_insert_mtt->execute(
8339 $branchcode, $categorycode, $letternumber, 'email'
8344 print "Upgrade done (Bug 9016: Adds multi transport types management for notices)\n";
8345 SetVersion
($DBversion);
8348 $DBversion = "3.15.00.040";
8349 if ( CheckVersion
($DBversion) ) {
8351 UPDATE message_transports SET letter_code
='HOLD' WHERE letter_code
='HOLD_PHONE' OR letter_code
='HOLD_PRINT'
8354 UPDATE letter SET code
='HOLD', message_transport_type
='print' WHERE code
='HOLD_PRINT'
8357 UPDATE letter SET code
='HOLD', message_transport_type
='phone' WHERE code
='HOLD_PHONE'
8359 print "Upgrade to $DBversion done (Bug 10845: Multi transport types for holds)\n";
8360 SetVersion
($DBversion);
8363 $DBversion = "3.15.00.041";
8364 if ( CheckVersion
($DBversion) ) {
8365 my $name = $dbh->selectcol_arrayref(q
|
8366 SELECT name FROM letter WHERE code
="HOLD"
8372 message_transport_type
="phone",
8374 WHERE code
="HOLD_PHONE"
8380 message_transport_type
="phone",
8382 WHERE code
="PREDUE_PHONE"
8388 message_transport_type
="phone",
8390 WHERE code
="OVERDUE_PHONE"
8393 print "Upgrade to $DBversion done (Bug 11867: Update letters *_PHONE)\n";
8394 SetVersion
($DBversion);
8397 $DBversion = "3.15.00.042";
8398 if ( CheckVersion
($DBversion) ) {
8400 INSERT INTO systempreferences
8401 (variable,value,explanation,options,type)
8403 ('SpecifyReturnDate',0,'Define whether to display \"Specify Return Date\" form in Circulation','','YesNo')
8405 print "Upgrade to $DBversion done (Bug 10694 - Allow arbitrary backdating of returns)\n";
8406 SetVersion($DBversion);
8409 $DBversion = "3.15.00.043";
8410 if ( CheckVersion($DBversion) ) {
8411 $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')");
8412 print "Upgrade to $DBversion done (Bug 7180: Added MarcFieldsToOrder syspref)\n";
8413 SetVersion ($DBversion);
8416 $DBversion = "3.15.00.044";
8417 if ( CheckVersion($DBversion) ) {
8418 $dbh->do("ALTER TABLE currency ADD isocode VARCHAR(5) default NULL AFTER symbol;");
8419 print "Upgrade to $DBversion done (Added isocode to the currency table)\n";
8420 SetVersion($DBversion);
8423 $DBversion = "3.15.00.045";
8424 if ( CheckVersion($DBversion) ) {
8426 INSERT INTO systempreferences (variable,value,explanation,options,type)
8428 'BlockExpiredPatronOpacActions',
8430 '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',
8435 $dbh->do("ALTER TABLE `categories` ADD COLUMN `BlockExpiredPatronOpacActions` TINYINT(1) DEFAULT -1 NOT NULL AFTER category_type");
8436 print "Upgraded to $DBversion done (Bug 6739 - expired patrons not blocked from opac actions)\n";
8437 SetVersion ($DBversion);
8440 $DBversion = "3.15.00.046";
8441 if ( CheckVersion($DBversion) ) {
8443 ALTER TABLE search_history ADD COLUMN type VARCHAR(16) NOT NULL DEFAULT 'biblio' AFTER query_cgi
8445 print "Upgrade to $DBversion done (Bug 10807 - Add db field search_history.type)\n";
8446 SetVersion($DBversion);
8449 $DBversion = "3.15.00.047";
8450 if ( CheckVersion($DBversion) ) {
8452 INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('EnableSearchHistory','0','','Enable or disable search history','YesNo')
8454 print "Upgrade to $DBversion done (Bug 10862: Add EnableSearchHistory syspref)\n";
8455 SetVersion($DBversion);
8458 $DBversion = "3.15.00.048";
8459 if ( CheckVersion($DBversion) ) {
8460 $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')");
8461 $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')");
8462 print "Upgrade to $DBversion done (Bug 10195: Records hidden with OpacSuppression can still be accessed)\n";
8463 SetVersion($DBversion);
8466 $DBversion = "3.15.00.049";
8467 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
8468 $dbh->do("ALTER TABLE biblioitems DROP INDEX isbn");
8469 $dbh->do("ALTER TABLE biblioitems DROP INDEX issn");
8470 $dbh->do("ALTER TABLE biblioitems
8471 CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8472 CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8474 $dbh->do("ALTER TABLE biblioitems
8475 ADD INDEX isbn ( isbn ( 255 ) ),
8476 ADD INDEX issn ( issn ( 255 ) )
8479 $dbh->do("ALTER TABLE deletedbiblioitems DROP INDEX isbn");
8480 $dbh->do("ALTER TABLE deletedbiblioitems
8481 CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
8482 CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
8484 $dbh->do("ALTER TABLE deletedbiblioitems
8485 ADD INDEX isbn ( isbn ( 255 ) )
8488 print "Upgrade to $DBversion done (Bug 5377 - Biblioitems isbn and issn fields too small for multiple ISBN and ISSN)\n";
8489 SetVersion($DBversion);
8492 $DBversion = "3.15.00.050";
8493 if ( CheckVersion($DBversion) ) {
8495 INSERT INTO systempreferences (
8501 'AggressiveMatchOnISBN',
8503 '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',
8508 print "Upgrade to $DBversion done (Bug 10500 - Improve isbn matching when importing records)\n";
8509 SetVersion($DBversion);
8512 $DBversion = "3.15.00.051";
8513 if ( CheckVersion($DBversion) ) {
8514 print "Upgrade to $DBversion done (Koha 3.16 beta)\n";
8515 SetVersion($DBversion);
8518 $DBversion = "3.15.00.052";
8519 if ( CheckVersion($DBversion) ) {
8520 print "Upgrade to $DBversion done (Koha 3.16 RC)\n";
8521 SetVersion($DBversion);
8524 $DBversion = "3.16.00.000";
8525 if ( CheckVersion($DBversion) ) {
8526 print "Upgrade to $DBversion done (3.16.0 release)\n";
8527 SetVersion ($DBversion);
8530 $DBversion = '3.17.00.000';
8531 if ( CheckVersion($DBversion) ) {
8532 print "Upgrade to $DBversion done (there is no time to rest on our laurels)\n";
8533 SetVersion ($DBversion);
8536 $DBversion = '3.17.00.001';
8537 if ( CheckVersion($DBversion) ) {
8538 $dbh->do("UPDATE systempreferences SET variable = 'AuthoritySeparator' WHERE variable = 'authoritysep'");
8539 print "Upgrade to $DBversion done (Bug 10330 - Rename system preference authoritysep to AuthoritySeparator)\n";
8540 SetVersion ($DBversion);
8543 $DBversion = "3.17.00.002";
8544 if (CheckVersion($DBversion)) {
8545 $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')");
8547 CREATE TABLE IF NOT EXISTS `misc_files` (
8548 `file_id` int(11) NOT NULL AUTO_INCREMENT,
8549 `table_tag` varchar(255) NOT NULL,
8550 `record_id` int(11) NOT NULL,
8551 `file_name` varchar(255) NOT NULL,
8552 `file_type` varchar(255) NOT NULL,
8553 `file_description` varchar(255) DEFAULT NULL,
8554 `file_content` longblob NOT NULL, -- file content
8555 `date_uploaded` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
8556 PRIMARY KEY (`file_id`),
8557 KEY `table_tag` (`table_tag`),
8558 KEY `record_id` (`record_id`)
8559 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8561 print "Upgrade to $DBversion done (Bug 3050 - Add an option to upload scanned invoices)\n";
8562 SetVersion($DBversion);
8565 $DBversion = "3.17.00.003";
8566 if (CheckVersion($DBversion)) {
8567 $dbh->do("UPDATE systempreferences SET type = 'Choice', options = '0|1|force' WHERE variable = 'OPACItemHolds'");
8568 print "Upgrade to $DBversion done (Bug 7825 - Changed OPACItemHolds syspref to Choice)\n";
8569 SetVersion($DBversion);
8572 $DBversion = "3.17.00.004";
8573 if (CheckVersion($DBversion)) {
8574 $dbh->do("ALTER TABLE categories ADD default_privacy ENUM( 'default', 'never', 'forever' ) NOT NULL DEFAULT 'default' AFTER category_type");
8575 print "Upgrade to $DBversion done (Bug 6254 - can't set patron privacy by default)\n";
8576 SetVersion($DBversion);
8579 $DBversion = "3.17.00.005";
8580 if (CheckVersion($DBversion)) {
8582 ALTER TABLE issuingrules
8583 ADD maxsuspensiondays INT(11) DEFAULT NULL AFTER finedays;
8585 print "Upgrade to $DBversion done (Bug 12230: Add new issuing rule maxsuspensiondays)\n";
8586 SetVersion($DBversion);
8589 $DBversion = "3.17.00.006";
8590 if ( CheckVersion($DBversion) ) {
8591 $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')");
8592 $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')");
8593 print "Upgrade to $DBversion done (Bug 7720 - Ambiguity in OPAC Details location.)\n";
8594 SetVersion($DBversion);
8597 $DBversion = "3.17.00.007";
8598 if (CheckVersion($DBversion)) {
8599 $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');");
8600 print "Upgrade to $DBversion done (Bug 11629 - Add ability to update not for loan status on checkin)\n";
8601 SetVersion($DBversion);
8604 $DBversion = "3.17.00.008";
8605 if ( CheckVersion($DBversion) ) {
8607 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES('OPACAcquisitionDetails','0', '','Show the acquisition details at the OPAC','YesNo')
8609 print "Upgrade to $DBversion done (Bug 11169 - Add OPACAcquisitionDetails syspref)\n";
8610 SetVersion($DBversion);
8613 $DBversion = "3.17.00.009";
8614 if ( CheckVersion($DBversion) ) {
8616 DELETE FROM systempreferences WHERE variable = 'UseTablesortForCirc'
8619 print "Upgrade to $DBversion done (Bug 11703 - Remove UseTablesortForCirc syspref)\n";
8620 SetVersion
($DBversion);
8623 $DBversion = "3.17.00.010";
8624 if ( CheckVersion
($DBversion) ) {
8625 $dbh->do("DELETE FROM systempreferences WHERE variable='opacsmallimage'");
8626 print "Upgrade to $DBversion done (Bug 11347 - PROG/CCSR deprecation: Remove opacsmallimage system preference)\n";
8627 SetVersion
($DBversion);
8630 $DBversion = "3.17.00.011";
8631 if ( CheckVersion
($DBversion) ) {
8632 $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'hr', 'language', 'Croatian','2014-07-24' )");
8633 $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'hr','hrv')");
8634 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'hr', 'Hrvatski')");
8635 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'en', 'Croatian')");
8636 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'fr', 'Croate')");
8637 $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'hr', 'language', 'de', 'Kroatisch')");
8638 print "Upgrade to $DBversion done (Bug 12649: Add Croatian language)\n";
8639 SetVersion
($DBversion);
8642 $DBversion = "3.17.00.012";
8643 if ( CheckVersion
($DBversion) ) {
8644 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowFiltersPulldownMobile'");
8645 print "Upgrade to $DBversion done ( Bug 12512 - PROG/CCSR deprecation: Remove OpacShowFiltersPulldownMobile system preference )\n";
8646 SetVersion
($DBversion);
8649 $DBversion = "3.17.00.013";
8650 if ( CheckVersion
($DBversion) ) {
8651 $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')");
8652 print "Upgrade to $DBversion done (Re-add system preference maxreserves)\n";
8653 SetVersion
($DBversion);
8656 $DBversion = '3.17.00.014';
8657 if ( CheckVersion
($DBversion) ) {
8659 INSERT INTO systempreferences (variable,value,explanation,type) VALUES
8660 ('OverdueNoticeCalendar',0,'Take calendar into consideration when working out sending overdue notices','YesNo')
8662 print "Upgrade to $DBversion done (Bug 12529 - Adding a syspref to allow the overdue notices to consider the calendar when generating notices)\n";
8663 SetVersion
($DBversion);
8666 $DBversion = "3.17.00.015";
8667 if ( CheckVersion
($DBversion) ) {
8669 CREATE TABLE IF NOT EXISTS columns_settings (
8670 module varchar(255) NOT NULL,
8671 page varchar(255) NOT NULL,
8672 tablename varchar(255) NOT NULL,
8673 columnname varchar(255) NOT NULL,
8674 cannot_be_toggled int(1) NOT NULL DEFAULT 0,
8675 is_hidden int(1) NOT NULL DEFAULT 0,
8676 PRIMARY KEY(module, page, tablename, columnname)
8677 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
8679 print "Upgrade to $DBversion done (Bug 10212 - Create new table columns_settings)\n";
8680 SetVersion
($DBversion);
8683 $DBversion = "3.17.00.016";
8684 if ( CheckVersion
($DBversion) ) {
8685 $dbh->do("CREATE TABLE aqcontacts (
8686 id int(11) NOT NULL auto_increment,
8687 name varchar(100) default NULL,
8688 position varchar(100) default NULL,
8689 phone varchar(100) default NULL,
8690 altphone varchar(100) default NULL,
8691 fax varchar(100) default NULL,
8692 email varchar(100) default NULL,
8694 claimacquisition BOOLEAN NOT NULL DEFAULT 0,
8695 claimissues BOOLEAN NOT NULL DEFAULT 0,
8696 acqprimary BOOLEAN NOT NULL DEFAULT 0,
8697 serialsprimary BOOLEAN NOT NULL DEFAULT 0,
8698 booksellerid int(11) not NULL,
8700 CONSTRAINT booksellerid_aqcontacts_fk FOREIGN KEY (booksellerid)
8701 REFERENCES aqbooksellers (id) ON DELETE CASCADE ON UPDATE CASCADE
8702 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1;");
8703 $dbh->do("INSERT INTO aqcontacts (name, position, phone, altphone, fax,
8704 email, notes, booksellerid, claimacquisition, claimissues, acqprimary, serialsprimary)
8705 SELECT contact, contpos, contphone, contaltphone, contfax, contemail,
8706 contnotes, id, 1, 1, 1, 1 FROM aqbooksellers;");
8707 $dbh->do("ALTER TABLE aqbooksellers DROP COLUMN contact,
8708 DROP COLUMN contpos, DROP COLUMN contphone,
8709 DROP COLUMN contaltphone, DROP COLUMN contfax,
8710 DROP COLUMN contemail, DROP COLUMN contnotes;");
8711 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contact>>', '<<aqcontacts.name>>')");
8712 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contpos>>', '<<aqcontacts.position>>')");
8713 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contphone>>', '<<aqcontacts.phone>>')");
8714 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contaltphone>>', '<<aqcontacts.altphone>>')");
8715 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contfax>>', '<<aqcontacts.contfax>>')");
8716 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contemail>>', '<<aqcontacts.contemail>>')");
8717 $dbh->do("UPDATE letter SET content = replace(content, '<<aqbooksellers.contnotes>>', '<<aqcontacts.contnotes>>')");
8718 print "Upgrade to $DBversion done (Bug 10402: Move bookseller contacts to separate table)\n";
8719 SetVersion
($DBversion);
8722 $DBversion = "3.17.00.017";
8723 if ( CheckVersion
($DBversion) ) {
8724 # Correct invalid recordtypes (should be very exceptional)
8726 UPDATE z3950servers set recordtype='biblio' WHERE recordtype NOT IN ('authority','biblio')
8728 # Correct invalid server types (should also be very exceptional)
8730 UPDATE z3950servers set type='zed' WHERE type <> 'zed'
8734 ALTER TABLE z3950servers
8736 DROP COLUMN description,
8737 DROP COLUMN position,
8738 MODIFY COLUMN id int NOT NULL AUTO_INCREMENT FIRST,
8739 MODIFY COLUMN recordtype enum('authority','biblio') NOT NULL DEFAULT 'biblio',
8740 CHANGE COLUMN name servername mediumtext NOT NULL,
8741 CHANGE COLUMN type servertype enum('zed','sru') NOT NULL DEFAULT 'zed',
8742 ADD COLUMN sru_options varchar(255) default NULL,
8743 ADD COLUMN sru_fields mediumtext default NULL,
8744 ADD COLUMN add_xslt mediumtext default NULL
8746 print "Upgrade to $DBversion done (Bug 6536: Z3950 improvements)\n";
8747 SetVersion
($DBversion);
8750 $DBversion = "3.17.00.018";
8751 if ( CheckVersion
($DBversion) ) {
8752 $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('HoldsInNoissuesCharge', '0', 'Hold charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
8753 print "Upgrade to $DBversion done (Bug 12205: Add HoldsInNoissuesCharge systempreference)\n";
8754 SetVersion
($DBversion);
8757 $DBversion = "3.17.00.019";
8758 if ( CheckVersion
($DBversion) ) {
8759 $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')"
8761 print "Upgrade to $DBversion done (Bug 6149: Operator highlighted in search results)\n";
8762 SetVersion
($DBversion);
8765 $DBversion = "3.17.00.020";
8766 if(C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
8767 $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')");
8768 print "Upgrade to $DBversion done (Bug 8735 - Expire holds waiting only on days the library is open)\n";
8769 SetVersion
($DBversion);
8772 $DBversion = "3.17.00.021";
8773 if (C4
::Context
->preference("Version") < TransformToNum
($DBversion)) {
8774 my $pref = C4
::Context
->preference('HomeOrHoldingBranch');
8775 $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type)
8776 VALUES ('StaffSearchResultsDisplayBranch', ?,'homebranch|holdingbranch','Controls the display of the home or holding branch for staff search results','choice')", undef, $pref);
8777 print "Upgrade to $DBversion done (Bug 12582 - Control of branch displayed in search results linked to HomeOrHoldingBranch)\n";
8778 SetVersion
($DBversion);
8781 $DBversion = '3.17.00.022';
8782 if ( CheckVersion
($DBversion) ) {
8783 my @temp= $dbh->selectrow_array(qq|
8785 FROM marc_subfield_structure
8786 WHERE kohafield
='permanent_location' OR kohafield
='items.permanent_location'
8788 print "Upgrade to $DBversion done (Bug 7817: Check for permanent_location)\n";
8790 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";
8792 SetVersion
($DBversion);
8795 $DBversion = "3.17.00.023";
8796 if ( CheckVersion
($DBversion) ) {
8798 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')
8800 print "Upgrade to $DBversion done (Bug 11169 - Add AcqItemSetSubfieldsWhenReceiptIsCancelled syspref)\n";
8801 SetVersion
($DBversion);
8804 $DBversion = "3.17.00.024";
8805 if(CheckVersion
($DBversion)) {
8807 ALTER TABLE issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8810 ALTER TABLE old_issues ADD auto_renew BOOLEAN default FALSE AFTER renewals
8813 ALTER TABLE issuingrules ADD auto_renew BOOLEAN default FALSE AFTER norenewalbefore
8815 print "Upgrade to $DBversion done (Bug 11577: [ENH] Automatic renewal feature)\n";
8816 SetVersion
($DBversion);
8819 $DBversion = '3.17.00.025';
8820 if ( CheckVersion
($DBversion) ) {
8822 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')
8824 print "Upgrade to $DBversion done (Bug 12728: Checked syspref StatisticsFields)\n";
8827 $DBversion = "3.17.00.026";
8828 if ( CheckVersion
($DBversion) ) {
8829 if ( C4
::Context
->preference('marcflavour') eq 'MARC21' ) {
8830 $dbh->do("UPDATE marc_subfield_structure SET liblibrarian = 'Encoded bitrate', libopac = 'Encoded bitrate' WHERE tagfield = '347' AND tagsubfield = 'f'");
8831 $dbh->do("UPDATE marc_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','610','611','710','711','810','811') AND tagsubfield = 'c'");
8832 $dbh->do("UPDATE auth_subfield_structure SET repeatable = 1 WHERE tagfield IN ('110','111','410','411','510','511','710','711') AND tagsubfield = 'c'");
8833 print "Upgrade to $DBversion done (Bug 12435 - Update MARC21 frameworks to Update No. 18 (April 2014))\n";
8835 SetVersion
($DBversion);
8838 $DBversion = "3.17.00.027";
8839 if ( CheckVersion
($DBversion) ) {
8841 DELETE FROM systempreferences WHERE variable = 'SearchEngine'
8843 print "Upgrade to $DBversion done (Bug 12538 - Remove SearchEngine syspref)\n";
8844 SetVersion
($DBversion);
8847 $DBversion = "3.17.00.028";
8848 if ( CheckVersion
($DBversion) ) {
8850 INSERT INTO systempreferences (variable,value) VALUES('OpacCustomSearch','');
8852 print "Upgrade to $DBversion done (Bug 12296 - search box replaceable with a system preference)\n";
8853 SetVersion
($DBversion);
8856 $DBversion = "3.17.00.029";
8857 if ( CheckVersion
($DBversion) ) {
8858 $dbh->do("ALTER TABLE `items` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8859 $dbh->do("ALTER TABLE `deleteditems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8860 $dbh->do("ALTER TABLE `biblioitems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8861 $dbh->do("ALTER TABLE `deletedbiblioitems` CHANGE `cn_sort` `cn_sort` VARCHAR( 255 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
8862 print "Upgrade to $DBversion done (Bug 12424 - ddc sorting of call numbers truncates long Cutter parts)\n";
8863 SetVersion
($DBversion);
8866 $DBversion = "3.17.00.030";
8867 if ( CheckVersion
($DBversion) ) {
8870 INSERT INTO systempreferences (variable, value, options, explanation, type )
8872 ('UsageStatsCountry', '', NULL, 'The country where your library is located, to be shown on the Hea Koha community website', 'YesNo'),
8873 ('UsageStatsID', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8874 ('UsageStatsLastUpdateTime', '', NULL, 'This preference is part of Koha but it should not be deleted or updated manually.', 'Free'),
8875 ('UsageStatsLibraryName', '', NULL, 'The library name to be shown on Hea Koha community website', 'Free'),
8876 ('UsageStatsLibraryType', 'public', 'public|university', 'The library type to be shown on the Hea Koha community website', 'Choice'),
8877 ('UsageStatsLibraryUrl', '', NULL, 'The library URL to be shown on Hea Koha community website', 'Free'),
8878 ('UsageStats', 0, NULL, 'Share anonymous usage data on the Hea Koha community website.', 'YesNo')
8880 print "Upgrade to $DBversion done (Bug 11926: Add UsageStats systempreferences (HEA))\n";
8881 SetVersion
($DBversion);
8884 $DBversion = "3.17.00.031";
8885 if ( CheckVersion
($DBversion) ) {
8886 $dbh->do("ALTER TABLE saved_sql CHANGE report_name report_name VARCHAR( 255 ) NOT NULL DEFAULT '' ");
8887 print "Upgrade to $DBversion done (Bug 2969: Report Name should be mandatory for saved reports)\n";
8888 SetVersion
($DBversion);
8891 $DBversion = "3.17.00.032";
8892 if ( CheckVersion
($DBversion) ) {
8894 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReplytoDefault', '', NULL, 'The default email address to be set as replyto.', 'Free')"
8897 "INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReturnpathDefault', '', NULL, 'The default email address to be set as return-path', 'Free')"
8899 $dbh->do("ALTER TABLE branches ADD branchreplyto mediumtext AFTER branchemail");
8900 $dbh->do("ALTER TABLE branches ADD branchreturnpath mediumtext AFTER branchreplyto");
8901 print "Upgrade to $DBversion done (Bug 9530: Adding replyto and returnpath addresses.)\n";
8902 SetVersion
($DBversion);
8905 $DBversion = "3.17.00.033";
8906 if ( CheckVersion
($DBversion) ) {
8908 INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type)
8909 VALUES('FacetMaxCount', '20','Specify the max facet count for each category',NULL,'Integer')
8911 print "Upgrade to $DBversion done (Bug 13088 - Allow the user to specify a max amount of facets to show)\n";
8912 SetVersion
($DBversion);
8915 $DBversion = "3.17.00.034";
8916 if ( CheckVersion
($DBversion) ) {
8918 ALTER TABLE aqorders DROP COLUMN cancelledby
;
8921 print "Upgrade to $DBversion done (Bug 11007 - DROP column aqorders.cancelledby)\n";
8922 SetVersion
($DBversion);
8925 $DBversion = "3.17.00.035";
8926 if ( CheckVersion
($DBversion) ) {
8928 ALTER TABLE serial ADD COLUMN claims_count INT
(11) DEFAULT
0 after claimdate
8932 SET claims_count
= 1
8933 WHERE claimdate IS NOT NULL
8935 print "Upgrade to $DBversion done (Bug 5342: Add claims_count field in serial table)\n";
8936 SetVersion
($DBversion);
8939 $DBversion = "3.17.00.036";
8940 if ( CheckVersion
($DBversion) ) {
8941 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacShowLibrariesPulldownMobile'");
8942 print "Upgrade to $DBversion done ( Bug 12513 - PROG/CCSR deprecation: Remove OpacShowLibrariesPulldownMobile system preference )\n";
8943 SetVersion
($DBversion);
8946 $DBversion = "3.17.00.037";
8947 if ( CheckVersion
($DBversion) ) {
8948 $dbh->do("DELETE FROM systempreferences WHERE variable='OpacMainUserBlockMobile'");
8949 print "Upgrade to $DBversion done ( Bug 12246 - PROG/CCSR deprecation: Remove OpacMainUserBlockMobile system preference )\n";
8950 SetVersion
($DBversion);
8953 $DBversion = "3.17.00.038";
8954 if ( CheckVersion
($DBversion) ) {
8955 $dbh->do("DELETE FROM systempreferences WHERE variable='OPACMobileUserCSS'");
8956 print "Upgrade to $DBversion done ( Bug 12245 - PROG/CCSR deprecation: Remove OPACMobileUserCSS system preference )\n";
8957 SetVersion
($DBversion);
8960 $DBversion = "3.17.00.039";
8961 if ( CheckVersion
($DBversion) ) {
8962 $dbh->do("INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
8963 ('OPACFallback', 'prog', 'bootstrap|prog', 'Define the fallback theme for the OPAC interface.', 'Themes')");
8964 print "Upgrade to $DBversion done (Bug 12539 - PROG/CCSR deprecation: Remove hardcoded theme from C4/Templates.pm)\n";
8965 SetVersion
($DBversion);
8968 $DBversion = "3.17.00.040";
8969 if ( CheckVersion
($DBversion) ) {
8970 my $opac_theme = C4
::Context
->preference( 'opacthemes' );
8971 if ( !defined $opac_theme || $opac_theme eq 'prog' || $opac_theme eq 'ccsr' ) {
8972 $dbh->do("UPDATE systempreferences SET value='bootstrap' WHERE variable='opacthemes'");
8974 print "Upgrade to $DBversion done (Bug 12223: 'prog' and 'ccsr' themes removed)\n";
8975 SetVersion
($DBversion);
8978 $DBversion = "3.17.00.041";
8979 if ( CheckVersion
($DBversion) ) {
8980 print "Upgrade to $DBversion done (Bug 11346: Deprecate the 'prog' and 'CCSR' themes)\n";
8981 SetVersion
($DBversion);
8984 $DBversion = "3.17.00.042";
8985 if ( CheckVersion
($DBversion) ) {
8986 $dbh->do("DELETE FROM systempreferences WHERE variable='yuipath'");
8987 print "Upgrade to $DBversion done (Bug 12494: Remove yuipath system preference)\n";
8988 SetVersion
($DBversion);
8991 $DBversion = "3.17.00.043";
8992 if ( CheckVersion
($DBversion) ) {
8994 ALTER TABLE aqorders
8995 ADD COLUMN cancellationreason TEXT DEFAULT NULL AFTER datecancellationprinted
8997 print "Upgrade to $DBversion done (Bug 7162: Add aqorders.cancellationreason)\n";
8998 SetVersion
($DBversion);
9001 $DBversion = "3.17.00.044";
9002 if ( CheckVersion
($DBversion) ) {
9004 INSERT IGNORE INTO systempreferences
9005 (variable,value,explanation,options,type)
9006 VALUES('OnSiteCheckouts','0','Enable/Disable the on-site checkouts feature','','YesNo');
9009 INSERT IGNORE INTO systempreferences
9010 (variable,value,explanation,options,type)
9011 VALUES('OnSiteCheckoutsForce','0','Enable/Disable the on-site for all cases (Even if a user is debarred, etc.)','','YesNo');
9014 ALTER TABLE issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9017 ALTER TABLE old_issues ADD COLUMN onsite_checkout INT(1) NOT NULL DEFAULT 0 AFTER issuedate;
9019 print "Upgrade to $DBversion done (Bug 10860: Add new system preference OnSiteCheckouts + fields [old_]issues.onsite_checkout)\n";
9020 SetVersion
($DBversion);
9023 $DBversion = "3.17.00.045";
9024 if ( CheckVersion
($DBversion) ) {
9026 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9027 ('LocalHoldsPriority', '0', NULL, 'Enables the LocalHoldsPriority feature', 'YesNo'),
9028 ('LocalHoldsPriorityItemControl', 'holdingbranch', 'holdingbranch|homebranch', 'decides if the feature operates using the item''s home or holding library.', 'Choice'),
9029 ('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')
9031 print "Upgrade to $DBversion done (Bug 11126 - Make the holds system optionally give precedence to local holds)\n";
9032 SetVersion
($DBversion);
9035 $DBversion = "3.17.00.046";
9036 if ( CheckVersion
($DBversion) ) {
9038 CREATE TABLE IF NOT EXISTS items_search_fields (
9039 name VARCHAR(255) NOT NULL,
9040 label VARCHAR(255) NOT NULL,
9041 tagfield CHAR(3) NOT NULL,
9042 tagsubfield CHAR(1) NULL DEFAULT NULL,
9043 authorised_values_category VARCHAR(16) NULL DEFAULT NULL,
9045 CONSTRAINT items_search_fields_authorised_values_category
9046 FOREIGN KEY (authorised_values_category) REFERENCES authorised_values (category)
9047 ON DELETE SET NULL ON UPDATE CASCADE
9048 ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
9050 print "Upgrade to $DBversion done (Bug 11425: Add items_search_fields table)\n";
9051 SetVersion
($DBversion);
9054 $DBversion = "3.17.00.047";
9055 if ( CheckVersion
($DBversion) ) {
9057 ALTER TABLE collections
9058 CHANGE colBranchcode colBranchcode VARCHAR( 10 ) NULL DEFAULT NULL,
9059 ADD INDEX ( colBranchcode ),
9060 ADD CONSTRAINT collections_ibfk_1 FOREIGN KEY (colBranchcode) REFERENCES branches (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
9062 print "Upgrade to $DBversion done (Bug 8836 - Resurrect Rotating Collections)\n";
9063 SetVersion
($DBversion);
9066 $DBversion = "3.17.00.048";
9067 if ( CheckVersion
($DBversion) ) {
9069 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')
9071 print "Upgrade to $DBversion done (Bug 12448 - Add RentalFeesCheckoutConfirmation syspref)\n";
9072 SetVersion
($DBversion);
9075 $DBversion = "3.17.00.049";
9076 if ( CheckVersion
($DBversion) ) {
9077 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'am', 'language', 'Amharic','2014-10-29')");
9078 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'am','amh')");
9079 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'am', 'አማርኛ')");
9080 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'am', 'language', 'en', 'Amharic')");
9082 $dbh->do("UPDATE language_descriptions SET description = 'لعربية' WHERE subtag = 'ar' AND type = 'language' AND lang = 'ar'");
9084 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'az', 'language', 'Azerbaijani','2014-10-30')");
9085 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'az','aze')");
9086 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'az', 'Azərbaycan dili')");
9087 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'az', 'language', 'en', 'Azerbaijani')");
9089 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'be', 'language', 'Byelorussian','2014-10-30')");
9090 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'be','bel')");
9091 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'be', 'Беларуская мова')");
9092 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'be', 'language', 'en', 'Byelorussian')");
9094 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'bn', 'language', 'Bengali','2014-10-30')");
9095 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'bn','ben')");
9096 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'bn', 'বাংলা')");
9097 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'bn', 'language', 'en', 'Bengali')");
9099 $dbh->do("UPDATE language_descriptions SET description = 'Български' WHERE subtag = 'bg' AND type = 'language' AND lang = 'bg'");
9100 $dbh->do("UPDATE language_descriptions SET description = 'Ceština' WHERE subtag = 'cs' AND type = 'language' AND lang = 'cs'");
9101 $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικά' WHERE subtag = 'el' AND type = 'language' AND lang = 'el'");
9102 $dbh->do("UPDATE language_descriptions SET description = 'Español' WHERE subtag = 'es' AND type = 'language' AND lang = 'es'");
9104 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'eu', 'language', 'Basque','2014-10-30')");
9105 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'eu','eus')");
9106 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'eu', 'Euskera')");
9107 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'eu', 'language', 'en', 'Basque')");
9109 $dbh->do("UPDATE language_descriptions SET description = 'فارسى' WHERE subtag = 'fa' AND type = 'language' AND lang = 'fa'");
9110 $dbh->do("UPDATE language_descriptions SET description = 'Suomi' WHERE subtag = 'fi' AND type = 'language' AND lang = 'fi'");
9112 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'fo', 'language', 'Faroese','2014-10-30')");
9113 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'fo','fao')");
9114 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'fo', 'Føroyskt')");
9115 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'fo', 'language', 'en', 'Faroese')");
9117 $dbh->do("UPDATE language_descriptions SET description = 'Français' WHERE subtag = 'fr' AND type = 'language' AND lang = 'fr'");
9118 $dbh->do("UPDATE language_descriptions SET description = 'עִבְרִית' WHERE subtag = 'he' AND type = 'language' AND lang = 'he'");
9119 $dbh->do("UPDATE language_descriptions SET description = 'हिन्दी' WHERE subtag = 'hi' AND type = 'language' AND lang = 'hi'");
9121 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'is', 'language', 'Icelandic','2014-10-30')");
9122 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'is','ice')");
9123 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'is', 'Íslenska')");
9124 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'is', 'language', 'en', 'Icelandic')");
9126 $dbh->do("UPDATE language_descriptions SET description = '日本語' WHERE subtag = 'ja' AND type = 'language' AND lang = 'ja'");
9128 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ka', 'language', 'Kannada','2014-10-30')");
9129 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ka','kan')");
9130 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'ka', 'ಕನ್ನಡ')");
9131 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ka', 'language', 'en', 'Kannada')");
9133 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'km', 'language', 'Khmer','2014-10-30')");
9134 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'km','khm')");
9135 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'km', 'language', 'km', 'ភាសាខ្មែរ')");
9136 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'km', 'language', 'en', 'Khmer')");
9138 $dbh->do("UPDATE language_descriptions SET description = '한국어' WHERE subtag = 'ko' AND type = 'language' AND lang = 'ko'");
9140 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ku', 'language', 'Kurdish','2014-05-13')");
9141 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ku','kur')");
9142 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'ku', 'کوردی')");
9143 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'en', 'Kurdish')");
9144 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'fr', 'Kurde')");
9145 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'de', 'Kurdisch')");
9146 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ku', 'language', 'es', 'Kurdo')");
9148 $dbh->do("UPDATE language_descriptions SET description = 'ພາສາລາວ' WHERE subtag = 'lo' AND type = 'language' AND lang = 'lo'");
9150 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mi', 'language', 'Maori','2014-10-30')");
9151 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mi','mri')");
9152 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'mi', 'Te Reo Māori')");
9153 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mi', 'language', 'en', 'Maori')");
9155 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mn', 'language', 'Mongolian','2014-10-30')");
9156 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mn','mon')");
9157 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'mn', 'Mонгол')");
9158 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mn', 'language', 'en', 'Mongolian')");
9160 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'mr', 'language', 'Marathi','2014-10-30')");
9161 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'mr','mar')");
9162 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'mr', 'मराठी')");
9163 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'mr', 'language', 'en', 'Marathi')");
9165 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ms', 'language', 'Malay','2014-10-30')");
9166 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ms','may')");
9167 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'ms', 'Bahasa melayu')");
9168 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ms', 'language', 'en', 'Malay')");
9170 $dbh->do("UPDATE language_descriptions SET description = 'Norsk bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'nb'");
9171 $dbh->do("UPDATE language_descriptions SET description = 'Norwegian bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'en'");
9172 $dbh->do("UPDATE language_descriptions SET description = 'Norvégien bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'fr'");
9173 $dbh->do("UPDATE language_descriptions SET description = 'Norwegisch bokmål' WHERE subtag = 'nb' AND type = 'language' AND lang = 'de'");
9175 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ne', 'language', 'Nepali','2014-10-30')");
9176 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ne','nep')");
9177 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)VALUES ( 'ne', 'language', 'ne', 'नेपाली')");
9178 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ne', 'language', 'en', 'Nepali')");
9180 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'pbr', 'language', 'Pangwa','2014-10-30')");
9181 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'pbr','pbr')");
9182 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'pbr', 'Ekipangwa')");
9183 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'pbr', 'language', 'en', 'Pangwa')");
9185 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'prs', 'language', 'Dari','2014-10-30')");
9186 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'prs','prs')");
9187 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'prs', 'درى')");
9188 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'prs', 'language', 'en', 'Dari')");
9190 $dbh->do("UPDATE language_descriptions SET description = 'Português' WHERE subtag = 'pt' AND type = 'language' AND lang = 'pt'");
9191 $dbh->do("UPDATE language_descriptions SET description = 'Român' WHERE subtag = 'ro' AND type = 'language' AND lang = 'ro'");
9192 $dbh->do("UPDATE language_descriptions SET description = 'Русский' WHERE subtag = 'ru' AND type = 'language' AND lang = 'ru'");
9194 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'rw', 'language', 'Kinyarwanda','2014-10-30')");
9195 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'rw','kin')");
9196 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'rw', 'Ikinyarwanda')");
9197 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'rw', 'language', 'en', 'Kinyarwanda')");
9199 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sd', 'language', 'Sindhi','2014-10-30')");
9200 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sd','snd')");
9201 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'sd', 'سنڌي')");
9202 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sd', 'language', 'en', 'Sindhi')");
9204 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sk', 'language', 'Slovak','2014-10-30')");
9205 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sk','slk')");
9206 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'sk', 'Slovenčina')");
9207 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sk', 'language', 'en', 'Slovak')");
9209 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sl', 'language', 'Slovene','2014-10-30')");
9210 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sl','slv')");
9211 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'sl', 'Slovenščina')");
9212 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sl', 'language', 'en', 'Slovene')");
9214 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sq', 'language', 'Albanian','2014-10-30')");
9215 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sq','sqi')");
9216 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'sq', 'Shqip')");
9217 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sq', 'language', 'en', 'Albanian')");
9219 $dbh->do("UPDATE language_descriptions SET description = 'Cрпски' WHERE subtag = 'sr' AND type = 'language' AND lang = 'sr'");
9221 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'sw', 'language', 'Swahili','2014-10-30')");
9222 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'sw','swa')");
9223 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'sw', 'Kiswahili')");
9224 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'sw', 'language', 'en', 'Swahili')");
9226 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ta', 'language', 'Tamil','2014-10-30')");
9227 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'ta','tam')");
9228 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'ta', 'தமிழ்')");
9229 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ta', 'language', 'en', 'Tamil')");
9231 $dbh->do("UPDATE language_descriptions SET description = 'Tetun' WHERE subtag = 'tet' AND type = 'language' AND lang = 'tet'");
9232 $dbh->do("UPDATE language_descriptions SET description = 'ภาษาไทย' WHERE subtag = 'th' AND type = 'language' AND lang = 'th'");
9234 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'tl', 'language', 'Tagalog','2014-10-30')");
9235 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'tl','tgl')");
9236 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'tl', 'Tagalog')");
9237 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'tl', 'language', 'en', 'Tagalog')");
9239 $dbh->do("UPDATE language_descriptions SET description = 'Türkçe' WHERE subtag = 'tr' AND type = 'language' AND lang = 'tr'");
9240 $dbh->do("UPDATE language_descriptions SET description = 'Українська' WHERE subtag = 'uk' AND type = 'language' AND lang = 'uk'");
9241 $dbh->do("UPDATE language_descriptions SET description = 'اردو' WHERE subtag = 'ur' AND type = 'language' AND lang = 'ur'");
9243 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'vi', 'language', 'Vietnamese','2014-10-30')");
9244 $dbh->do("INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES ( 'vi','vie')");
9245 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'vi', '㗂越')");
9246 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'vi', 'language', 'en', 'Vietnamese')");
9248 $dbh->do("UPDATE language_descriptions SET description = '中文' WHERE subtag = 'zh' AND type = 'language' AND lang = 'zh'");
9249 $dbh->do("UPDATE language_descriptions SET description = '' WHERE subtag = 'Arab,script' AND type = 'Arab' AND lang = 'العربية'");
9251 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Armn', 'script', 'Armenian','2014-10-30')");
9252 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Armn', 'script', 'Armn', 'Հայոց այբուբեն')");
9253 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Armn', 'script', 'en', 'Armenian')");
9255 $dbh->do("UPDATE language_descriptions SET description = 'Кирилица' WHERE subtag = 'Cyrl' AND type = 'script' AND lang = 'Cyrl'");
9257 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Ethi', 'script', 'Ethiopic','2014-10-30')");
9258 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Ethi', 'script', 'Ethi', 'ግዕዝ')");
9259 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Ethi', 'script', 'en', 'Ethiopic')");
9261 $dbh->do("UPDATE language_descriptions SET description = 'Ελληνικό αλφάβητο' WHERE subtag = 'Grek' AND type = 'script' AND lang = 'Grek'");
9262 $dbh->do("UPDATE language_descriptions SET description = '简体字' WHERE subtag = 'Hans' AND type = 'script' AND lang = 'Hans'");
9263 $dbh->do("UPDATE language_descriptions SET description = '繁體字' WHERE subtag = 'Hant' AND type = 'script' AND lang = 'Hant'");
9264 $dbh->do("UPDATE language_descriptions SET description = 'אָלֶף־בֵּית עִבְרִי' WHERE subtag = 'Hebr' AND type = 'script' AND lang = 'Hebr'");
9266 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Jpan', 'script', 'Japanese','2014-10-30')");
9267 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Jpan', 'script', 'Jpan', '漢字')");
9268 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Jpan', 'script', 'en', 'Japanese')");
9270 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Knda', 'script', 'Kannada','2014-10-30')");
9271 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Knda', 'script', 'Knda', 'ಕನ್ನಡ ಲಿಪಿ')");
9272 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Knda', 'script', 'en', 'Kannada')");
9274 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'Kore', 'script', 'Korean','2014-10-30')");
9275 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'Kore', 'script', 'Kore', '한글')");
9276 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES( 'Kore', 'script', 'en', 'Korean')");
9278 $dbh->do("UPDATE language_descriptions SET description = 'ອັກສອນລາວ' WHERE subtag = 'Laoo' AND type = 'script' AND lang = 'Laoo'");
9280 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AL', 'region', 'Albania','2014-10-30')");
9281 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'en', 'Albania')");
9282 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AL', 'region', 'sq', 'Shqipërisë')");
9284 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'AZ', 'region', 'Azerbaijan','2014-10-30')");
9285 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'en', 'Azerbaijan')");
9286 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'AZ', 'region', 'az', 'Azərbaycan')");
9288 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BE', 'region', 'Belgium','2014-10-30')");
9289 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'en', 'Belgium')");
9290 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BE', 'region', 'nl', 'België')");
9292 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BR', 'region', 'Brazil','2014-10-30')");
9293 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'en', 'Brazil')");
9294 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BR', 'region', 'pt', 'Brasil')");
9296 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'BY', 'region', 'Belarus','2014-10-30')");
9297 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'en', 'Belarus')");
9298 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'BY', 'region', 'be', 'Беларусь')");
9300 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CA', 'region', 'fr', 'Canada')");
9302 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CH', 'region', 'Switzerland','2014-10-30')");
9303 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'en', 'Switzerland')");
9304 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CH', 'region', 'de', 'Schweiz')");
9306 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CN', 'region', 'China','2014-10-30')");
9307 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'en', 'China')");
9308 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CN', 'region', 'zh', '中国')");
9310 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'CZ', 'region', 'Czech Republic','2014-10-30')");
9311 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'en', 'Czech Republic')");
9312 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'CZ', 'region', 'cs', 'Česká republika')");
9314 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'DE', 'region', 'Germany','2014-10-30')");
9315 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'en', 'Germany')");
9316 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DE', 'region', 'de', 'Deutschland')");
9318 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'DK', 'region', 'en', 'Denmark')");
9320 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ES', 'region', 'Spain','2014-10-30')");
9321 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'en', 'Spain')");
9322 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ES', 'region', 'es', 'España')");
9324 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FI', 'region', 'Finland','2014-10-30')");
9325 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'en', 'Finland')");
9326 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FI', 'region', 'fi', 'Suomi')");
9328 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'FO', 'region', 'Faroe Islands','2014-10-30')");
9329 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'en', 'Faroe Islands')");
9330 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'FO', 'region', 'fo', 'Føroyar')");
9332 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'GR', 'region', 'Greece','2014-10-30')");
9333 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'en', 'Greece')");
9334 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'GR', 'region', 'el', 'Ελλάδα')");
9336 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HR', 'region', 'Croatia','2014-10-30')");
9337 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'en', 'Croatia')");
9338 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HR', 'region', 'hr', 'Hrvatska')");
9340 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'HU', 'region', 'Hungary','2014-10-30')");
9341 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'en', 'Hungary')");
9342 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'HU', 'region', 'hu', 'Magyarország')");
9344 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ID', 'region', 'Indonesia','2014-10-30')");
9345 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'en', 'Indonesia')");
9346 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'ID', 'region', 'id', 'Indonesia')");
9348 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IS', 'region', 'Iceland','2014-10-30')");
9349 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'en', 'Iceland')");
9350 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IS', 'region', 'is', 'Ísland')");
9352 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'IT', 'region', 'Italy','2014-10-30')");
9353 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'en', 'Italy')");
9354 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'IT', 'region', 'it', 'Italia')");
9356 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'JP', 'region', 'Japan','2014-10-30')");
9357 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'en', 'Japan')");
9358 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'JP', 'region', 'ja', '日本')");
9360 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KE', 'region', 'Kenya','2014-10-30')");
9361 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'en', 'Kenya')");
9362 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KE', 'region', 'rw', 'Kenya')");
9364 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KH', 'region', 'Cambodia','2014-10-30')");
9365 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'en', 'Cambodia')");
9366 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KH', 'region', 'km', 'កម្ពុជា')");
9368 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'KP', 'region', 'North Korea','2014-10-30')");
9369 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'en', 'North Korea')");
9370 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'KP', 'region', 'ko', '조선민주주의인민공화국')");
9372 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'LK', 'region', 'Sri Lanka','2014-10-30')");
9373 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'en', 'Sri Lanka')");
9374 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'LK', 'region', 'ta', 'இலங்கை')");
9376 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'MY', 'region', 'Malaysia','2014-10-30')");
9377 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'en', 'Malaysia')");
9378 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'MY', 'region', 'ms', 'Malaysia')");
9380 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NE', 'region', 'Niger','2014-10-30')");
9381 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'en', 'Niger')");
9382 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NE', 'region', 'ne', 'Niger')");
9384 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NL', 'region', 'Netherlands','2014-10-30')");
9385 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'en', 'Netherlands')");
9386 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NL', 'region', 'nl', 'Nederland')");
9388 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'NO', 'region', 'Norway','2014-10-30')");
9389 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'en', 'Norway')");
9390 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'ne', 'Noreg')");
9391 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'NO', 'region', 'nn', 'Noreg')");
9393 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PH', 'region', 'Philippines','2014-10-30')");
9394 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'en', 'Philippines')");
9395 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PH', 'region', 'tl', 'Pilipinas')");
9397 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PK', 'region', 'Pakistan','2014-10-30')");
9398 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'en', 'Pakistan')");
9399 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PK', 'region', 'sd', 'پاكستان')");
9401 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PL', 'region', 'Poland','2014-10-30')");
9402 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'en', 'Poland')");
9403 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PL', 'region', 'pl', 'Polska')");
9405 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'PT', 'region', 'Portugal','2014-10-30')");
9406 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'en', 'Portugal')");
9407 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'PT', 'region', 'pt', 'Portugal')");
9409 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RO', 'region', 'Romania','2014-10-30')");
9410 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'en', 'Romania')");
9411 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RO', 'region', 'ro', 'România')");
9413 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RU', 'region', 'Russia','2014-10-30')");
9414 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'en', 'Russia')");
9415 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RU', 'region', 'ru', 'Россия')");
9417 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'RW', 'region', 'Rwanda','2014-10-30')");
9418 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'en', 'Rwanda')");
9419 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'RW', 'region', 'rw', 'Rwanda')");
9421 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SE', 'region', 'Sweden','2014-10-30')");
9422 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'en', 'Sweden')");
9423 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SE', 'region', 'sv', 'Sverige')");
9425 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SI', 'region', 'Slovenia','2014-10-30')");
9426 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'en', 'Slovenia')");
9427 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SI', 'region', 'sl', 'Slovenija')");
9429 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'SK', 'region', 'Slovakia','2014-10-30')");
9430 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'en', 'Slovakia')");
9431 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'SK', 'region', 'sk', 'Slovensko')");
9433 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TH', 'region', 'Thailand','2014-10-30')");
9434 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'en', 'Thailand')");
9435 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TH', 'region', 'th', 'ประเทศไทย')");
9437 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TR', 'region', 'Turkey','2014-10-30')");
9438 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'en', 'Turkey')");
9439 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TR', 'region', 'tr', 'Türkiye')");
9441 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'TW', 'region', 'Taiwan','2014-10-30')");
9442 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'en', 'Taiwan')");
9443 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'TW', 'region', 'zh', '台灣')");
9445 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'UA', 'region', 'Ukraine','2014-10-30')");
9446 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'en', 'Ukraine')");
9447 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'UA', 'region', 'uk', 'Україна')");
9449 $dbh->do("INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'VN', 'region', 'Vietnam','2014-10-30')");
9450 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'en', 'Vietnam')");
9451 $dbh->do("INSERT IGNORE INTO language_descriptions(subtag, type, lang, description) VALUES ( 'VN', 'region', 'vi', 'Việt Nam')");
9453 print "Upgrade to $DBversion done (Bug 12250: Update descriptions for languages, scripts and regions)\n";
9454 SetVersion
($DBversion);
9457 $DBversion = "3.17.00.050";
9458 if ( CheckVersion
($DBversion) ) {
9460 INSERT INTO permissions
(module_bit
, code
, description
) VALUES
9461 (13, 'records_batchdel', 'Perform batch deletion of records (bibliographic or authority)')
9463 print "Upgrade to $DBversion done (Bug 12403: Add permission tools_records_batchdelitem)\n";
9464 SetVersion
($DBversion);
9467 $DBversion = "3.17.00.051";
9468 if ( CheckVersion
($DBversion) ) {
9469 $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('GoogleIndicTransliteration','0','','GoogleIndicTransliteration on the OPAC.','YesNo')");
9470 print "Upgrade to $DBversion done (Bug 13211: Added system preferences GoogleIndicTransliteration on the OPAC)\n";
9471 SetVersion
($DBversion);
9474 $DBversion = "3.17.00.052";
9475 if ( CheckVersion
($DBversion) ) {
9477 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');
9481 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');
9483 print "Upgrade to $DBversion done (Bug 9043: Add system preference OpacAdvSearchOptions and OpacAdvSearchMoreOptions)\n";
9484 SetVersion
($DBversion);
9487 $DBversion = "3.17.00.053";
9488 if ( CheckVersion
($DBversion) ) {
9490 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)');
9494 INSERT INTO permissions (module_bit, code, description) VALUES ('9', 'delete_all_items', 'Delete all items at once');
9498 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)');
9501 # The delete_all_items permission should be added to users having the edit_items permission.
9503 INSERT INTO user_permissions (borrowernumber, module_bit, code) SELECT borrowernumber, module_bit, "delete_all_items" FROM user_permissions WHERE code="edit_items";
9508 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');
9512 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');
9515 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";
9516 SetVersion($DBversion);
9519 $DBversion = "3.17.00.054";
9520 if (CheckVersion($DBversion)) {
9522 INSERT INTO systempreferences ( variable, value, options, explanation, type ) VALUES
9523 ('AllowRenewalIfOtherItemsAvailable','0',NULL,'If enabled, allow a patron to renew an item with unfilled holds if other available items can fill that hold.','YesNo')
9525 print "Upgrade to $DBversion done (Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds)\n";
9526 SetVersion
($DBversion);
9529 $DBversion = "3.17.00.055";
9530 if ( CheckVersion
($DBversion) ) {
9531 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEnable', '0', NULL, 'Enable communication with the Norwegian national patron database.', 'YesNo')");
9532 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBEndpoint', '', NULL, 'Which NL endpoint to use.', 'Free')");
9533 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBUsername', '', NULL, 'Username for communication with the Norwegian national patron database.', 'Free')");
9534 $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('NorwegianPatronDBPassword', '', NULL, 'Password for communication with the Norwegian national patron database.', 'Free')");
9535 $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')");
9537 CREATE TABLE borrower_sync (
9538 borrowersyncid int(11) NOT NULL AUTO_INCREMENT,
9539 borrowernumber int(11) NOT NULL,
9540 synctype varchar(32) NOT NULL,
9541 sync tinyint(1) NOT NULL DEFAULT '0',
9542 syncstatus varchar(10) DEFAULT NULL,
9543 lastsync varchar(50) DEFAULT NULL,
9544 hashed_pin varchar(64) DEFAULT NULL,
9545 PRIMARY KEY (borrowersyncid),
9546 KEY borrowernumber (borrowernumber),
9547 CONSTRAINT borrower_sync_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
9548 ) ENGINE=InnoDB DEFAULT CHARSET=utf8"
9550 print "Upgrade to $DBversion done (Bug 11401 - Add support for Norwegian national library card)\n";
9551 SetVersion
($DBversion);
9554 $DBversion = "3.17.00.056";
9555 if ( CheckVersion
($DBversion) ) {
9557 UPDATE systempreferences SET value = 'pubdate,itemtype,language,sorting,location' WHERE variable='OpacAdvSearchOptions'
9561 UPDATE systempreferences SET value = 'pubdate,itemtype,language,subtype,sorting,location' WHERE variable='OpacAdvSearchMoreOptions'
9564 print "Upgrade to $DBversion done (Bug 9043 - Update the values for OpacAdvSearchOptions and OpacAdvSearchOptions)\n";
9565 SetVersion
($DBversion);
9568 $DBversion = "3.17.00.057";
9569 if ( CheckVersion
($DBversion) ) {
9570 print "Upgrade to $DBversion done (Koha 3.18 beta)\n";
9571 SetVersion
($DBversion);
9574 $DBversion = "3.17.00.058";
9575 if( CheckVersion
($DBversion) ){
9576 $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')");
9577 $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')");
9578 $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')");
9579 print "Upgrade to $DBversion done (Bug 8337: System preferences for longoverdue cron)\n";
9580 SetVersion
($DBversion);
9583 $DBversion = "3.17.00.059";
9584 if ( CheckVersion
($DBversion) ) {
9586 UPDATE permissions SET description = "Add and delete budgets (but can't modifiy budgets)" WHERE description = "Add and delete budgets (but cant modify budgets)";
9588 print "Upgrade to $DBversion done (Bug 10749: Fix typo in budget_add_del permission description)\n";
9589 SetVersion
($DBversion);
9592 $DBversion = "3.17.00.060";
9593 if ( CheckVersion
($DBversion) ) {
9594 my $count_l = $dbh->selectcol_arrayref(q
|
9595 SELECT COUNT
(*) FROM letter WHERE message_transport_type
='feed'
9597 my $count_mq = $dbh->selectcol_arrayref(q
|
9598 SELECT COUNT
(*) FROM message_queue WHERE message_transport_type
='feed'
9600 my $count_ott = $dbh->selectcol_arrayref(q
|
9601 SELECT COUNT
(*) FROM overduerules_transport_types WHERE message_transport_type
='feed'
9603 my $count_mt = $dbh->selectcol_arrayref(q
|
9604 SELECT COUNT
(*) FROM message_transports WHERE message_transport_type
='feed'
9606 my $count_bmtp = $dbh->selectcol_arrayref(q
|
9607 SELECT COUNT
(*) FROM borrower_message_transport_preferences WHERE message_transport_type
='feed'
9611 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 ) {
9612 $deleted = $dbh->do(q
|
9613 DELETE FROM message_transport_types where message_transport_type
='feed'
9615 $deleted = $deleted ne '0E0' ?
1 : 0;
9618 print "Upgrade to $DBversion done (Bug 12298: Delete the 'feed' message transport type " . ($deleted ?
'(deleted!)' : '(not deleted)') . ")\n";
9619 SetVersion
($DBversion);
9622 $DBversion = "3.18.00.000";
9623 if ( CheckVersion
($DBversion) ) {
9624 print "Upgrade to $DBversion done (3.18.0 release)\n";
9625 SetVersion
($DBversion);
9628 $DBversion = "3.19.00.000";
9629 if ( CheckVersion
($DBversion) ) {
9630 print "Upgrade to $DBversion done (there's life after 3.18)\n";
9631 SetVersion
($DBversion);
9634 $DBversion = "3.19.00.001";
9635 if ( CheckVersion
($DBversion) ) {
9637 UPDATE systempreferences
9638 SET options = 'public|school|academic|research|private|societyAssociation|corporate|government|religiousOrg|subscription'
9639 WHERE variable = 'UsageStatsLibraryType'
9641 if ( C4
::Context
->preference("UsageStatsLibraryType") eq "university" ) {
9642 C4
::Context
->set_preference("UsageStatsLibraryType", "academic")
9644 print "Upgrade to $DBversion done (Bug 13436: Add more options to UsageStatsLibraryType)\n";
9645 SetVersion
($DBversion);
9648 $DBversion = "3.19.00.002";
9649 if ( CheckVersion
($DBversion) ) {
9651 UPDATE suggestions SET branchcode
="" WHERE branchcode
="__ANY__"
9653 print "upgrade to $DBversion done (Bug 10753: replace __ANY__ with empty string in suggestions.branchcode)\n";
9654 SetVersion
($DBversion);
9657 $DBversion = "3.19.00.003";
9658 if ( CheckVersion
($DBversion) ) {
9659 my ($count) = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers GROUP BY userid HAVING COUNT(userid) > 1");
9662 print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced) FAILED!\n";
9663 print "Your database has users with duplicate user logins. Please have your administrator deduplicate your user logins.\n";
9664 print "Afterward, your Koha administrator should execute the following database query: ALTER TABLE borrowers DROP INDEX userid, ADD UNIQUE userid (userid)";
9667 ALTER TABLE borrowers
9669 ADD UNIQUE userid (userid)
9671 print "Upgrade to $DBversion done (Bug 1861: Unique patrons logins not (totally) enforced)\n";
9674 SetVersion
($DBversion);
9677 $DBversion = "3.19.00.004";
9678 if ( CheckVersion
($DBversion) ) {
9679 my $pref_value = C4
::Context
->preference('OpacExportOptions');
9680 $pref_value =~ s/\|/,/g; # multiple is separated by ,
9682 UPDATE systempreferences
9685 WHERE variable = 'OpacExportOptions'
9686 }, {}, $pref_value );
9687 print "Upgrade to $DBversion done (Bug 13346: OpacExportOptions is now multiple)\n";
9688 SetVersion
($DBversion);
9691 $DBversion = "3.19.00.005";
9692 if(CheckVersion
($DBversion)) {
9694 ALTER TABLE authorised_values MODIFY COLUMN category VARCHAR(32) NOT NULL DEFAULT ''
9698 ALTER TABLE borrower_attribute_types MODIFY COLUMN authorised_value_category VARCHAR(32) DEFAULT NULL
9701 print "Upgrade to $DBversion done (Bug 13379: Modify authorised_values.category to varchar(32))\n";
9702 SetVersion
($DBversion);
9705 $DBversion = "3.19.00.006";
9706 if ( CheckVersion
($DBversion) ) {
9707 $dbh->do(q
|SET foreign_key_checks
= 0|);
9708 my $sth = $dbh->table_info( '','','','TABLE' );
9709 my ( $cat, $schema, $name, $type, $remarks );
9710 while ( ( $cat, $schema, $name, $type, $remarks ) = $sth->fetchrow_array ) {
9711 my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE
$name|);
9712 $table_sth->execute;
9713 my @table = $table_sth->fetchrow_array;
9714 unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables
9715 if ( $name eq 'marc_subfield_structure' ) {
9717 ALTER TABLE marc_subfield_structure
9718 MODIFY COLUMN tagfield varchar
(3) COLLATE utf8_unicode_ci NOT NULL DEFAULT
'',
9719 MODIFY COLUMN tagsubfield varchar
(1) COLLATE utf8_bin NOT NULL DEFAULT
'',
9720 MODIFY COLUMN liblibrarian varchar
(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT
'',
9721 MODIFY COLUMN libopac varchar
(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT
'',
9722 MODIFY COLUMN kohafield varchar
(40) COLLATE utf8_unicode_ci DEFAULT NULL
,
9723 MODIFY COLUMN authorised_value varchar
(20) COLLATE utf8_unicode_ci DEFAULT NULL
,
9724 MODIFY COLUMN authtypecode varchar
(20) COLLATE utf8_unicode_ci DEFAULT NULL
,
9725 MODIFY COLUMN value_builder varchar
(80) COLLATE utf8_unicode_ci DEFAULT NULL
,
9726 MODIFY COLUMN frameworkcode varchar
(4) COLLATE utf8_unicode_ci NOT NULL DEFAULT
'',
9727 MODIFY COLUMN seealso varchar
(1100) COLLATE utf8_unicode_ci DEFAULT NULL
,
9728 MODIFY COLUMN
link varchar
(80) COLLATE utf8_unicode_ci DEFAULT NULL
9732 $dbh->do(qq|ALTER TABLE
$name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci
|);
9736 $dbh->do(q
|SET foreign_key_checks
= 1|);;
9738 print "Upgrade to $DBversion done (Bug 11944: Convert DB tables to utf8_unicode_ci)\n";
9739 SetVersion
($DBversion);
9742 $DBversion = "3.19.00.007";
9743 if ( CheckVersion
($DBversion) ) {
9744 my $orphan_budgets = $dbh->selectall_arrayref(q
|
9745 SELECT budget_id
, budget_name
, budget_code
9747 WHERE budget_parent_id IS NOT NULL
9748 AND budget_parent_id NOT IN
(
9749 SELECT DISTINCT budget_id FROM aqbudgets
9751 |, { Slice
=> {} } );
9753 if ( @
$orphan_budgets ) {
9754 for my $b ( @
$orphan_budgets ) {
9755 print "Fund $b->{budget_name} (code:$b->{budget_code}, id:$b->{budget_id}) does not have a parent, it may cause problem\n";
9757 print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: FAIL)\n";
9759 print "Upgrade to $DBversion done (Bug 12905: Check budget integrity: OK)\n";
9761 SetVersion
($DBversion);
9764 $DBversion = "3.19.00.008";
9765 if ( CheckVersion
($DBversion) ) {
9766 my $number_of_orders_not_linked = $dbh->selectcol_arrayref(q
|
9772 WHERE b
.budget_id
= o
.budget_id
9776 if ( $number_of_orders_not_linked->[0] > 0 ) {
9778 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)
9780 my $budget_period_id = $dbh->last_insert_id( undef, undef, 'aqbudgetperiods', undef );
9782 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 );
9784 my $budget_id = $dbh->last_insert_id( undef, undef, 'aqbudgets', undef );
9787 SET budget_id
= $budget_id
9791 WHERE b
.budget_id
= o
.budget_id
9797 ALTER TABLE aqorders
9798 ADD CONSTRAINT aqorders_budget_id_fk FOREIGN KEY
(budget_id
) REFERENCES aqbudgets
(budget_id
) ON DELETE CASCADE ON UPDATE CASCADE
9801 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";
9802 SetVersion
($DBversion);
9805 $DBversion = "3.19.00.009";
9806 if ( CheckVersion
($DBversion) ) {
9808 UPDATE suggestions s SET s
.budgetid
= NULL
9812 WHERE b
.budget_id
= s
.budgetid
9817 ALTER TABLE suggestions
9818 ADD CONSTRAINT suggestions_budget_id_fk FOREIGN KEY
(budgetid
) REFERENCES aqbudgets
(budget_id
) ON DELETE SET NULL ON UPDATE CASCADE
9821 print "Upgrade to $DBversion done (Bug 13007: Add new foreign key suggestions.budgetid)\n";
9822 SetVersion
($DBversion);
9825 $DBversion = "3.19.00.010";
9826 if ( CheckVersion
($DBversion) ) {
9828 INSERT IGNORE INTO systempreferences
(variable
,value
,explanation
,options
,type
)
9829 VALUES
('SessionRestrictionByIP','1','Check for Change in Remote IP address for Session Security. Disable when remote ip address changes frequently.','','YesNo')
9831 print "Upgrade to $DBversion done (Bug 5511: SessionRestrictionByIP)\n";
9832 SetVersion
($DBversion);
9835 $DBversion = "3.19.00.011";
9836 if ( CheckVersion
($DBversion) ) {
9838 INSERT INTO userflags
(bit
, flag
, flagdesc
, defaulton
) VALUES
9839 (20, 'lists', 'Lists', 0)
9842 INSERT INTO permissions
(module_bit
, code
, description
) VALUES
9843 (20, 'delete_public_lists', 'Delete public lists')
9845 print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n";
9846 SetVersion
($DBversion);
9849 $DBversion = "3.19.00.012";
9850 if(CheckVersion
($DBversion)) {
9852 ALTER TABLE biblioitems MODIFY COLUMN marcxml longtext
9856 ALTER TABLE deletedbiblioitems MODIFY COLUMN marcxml longtext
9859 print "Upgrade to $DBversion done (Bug 13523 Remove NOT NULL restriction on field marcxml due to mysql STRICT_TRANS_TABLES)\n";
9860 SetVersion
($DBversion);
9863 $DBversion = "3.19.00.013";
9864 if ( CheckVersion
($DBversion) ) {
9866 INSERT INTO permissions
(module_bit
, code
, description
) VALUES
9867 (13, 'records_batchmod', 'Perform batch modification of records (biblios or authorities)')
9869 print "Upgrade to $DBversion done (Bug 11395: Add permission tools_records_batchmod)\n";
9870 SetVersion
($DBversion);
9873 $DBversion = "3.19.00.014";
9874 if ( CheckVersion
($DBversion) ) {
9876 CREATE TABLE aqorder_users
(
9877 ordernumber
int(11) NOT NULL
,
9878 borrowernumber
int(11) NOT NULL
,
9879 PRIMARY KEY
(ordernumber
, borrowernumber
),
9880 CONSTRAINT aqorder_users_ibfk_1 FOREIGN KEY
(ordernumber
) REFERENCES aqorders
(ordernumber
) ON DELETE CASCADE ON UPDATE CASCADE
,
9881 CONSTRAINT aqorder_users_ibfk_2 FOREIGN KEY
(borrowernumber
) REFERENCES borrowers
(borrowernumber
) ON DELETE CASCADE ON UPDATE CASCADE
9882 ) ENGINE
=InnoDB DEFAULT CHARSET
=utf8 COLLATE
=utf8_unicode_ci
;
9886 INSERT INTO letter
(module
, code
, branchcode
, name
, title
, content
, message_transport_type
)
9887 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')
9889 print "Upgrade to $DBversion done (Bug 12648: Add letter ACQ_NOTIF_ON_RECEIV )\n";
9890 SetVersion
($DBversion);
9893 $DBversion = "3.19.00.015";
9894 if ( CheckVersion
($DBversion) ) {
9896 ALTER TABLE search_history ADD COLUMN id INT
(11) NOT NULL AUTO_INCREMENT FIRST
, ADD PRIMARY KEY
(id
);
9898 print "Upgrade to $DBversion done (Bug 11430: Add primary key for search_history)\n";
9899 SetVersion
($DBversion);
9902 $DBversion = "3.19.00.016";
9903 if(CheckVersion
($DBversion)) {
9904 my @order_cancellation_reason = $dbh->selectrow_array("SELECT count(*) FROM authorised_values WHERE category='ORDER_CANCELLATION_REASON'");
9905 if ($order_cancellation_reason[0] == 0) {
9907 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9908 ('ORDER_CANCELLATION_REASON', 0, 'No reason provided'),
9909 ('ORDER_CANCELLATION_REASON', 1, 'Out of stock'),
9910 ('ORDER_CANCELLATION_REASON', 2, 'Restocking')
9913 my $already_existing_reasons = $dbh->selectcol_arrayref(q{
9914 SELECT DISTINCT( cancellationreason )
9916 }, { Slice
=> {} });
9918 my $update_orders_sth = $dbh->prepare(q{
9920 SET cancellationreason = ?
9921 WHERE cancellationreason = ?
9924 my $insert_av_sth = $dbh->prepare(q{
9925 INSERT INTO authorised_values (category, authorised_value, lib) VALUES
9926 ('ORDER_CANCELLATION_REASON', ?, ?)
9929 for my $reason ( @
$already_existing_reasons ) {
9930 next unless $reason;
9931 $insert_av_sth->execute( $i, $reason );
9932 $update_orders_sth->execute( $i, $reason );
9935 print "Upgrade to $DBversion done (Bug 13380: Add the ORDER_CANCELLATION_REASON authorised value)\n";
9938 print "Upgrade to $DBversion done (Bug 13380: ORDER_CANCELLATION_REASON authorised value already existed from earlier update!)\n";
9941 SetVersion
($DBversion);
9944 $DBversion = '3.19.00.017';
9945 if ( CheckVersion
($DBversion) ) {
9946 # First create the column
9947 $dbh->do("ALTER TABLE issuingrules ADD onshelfholds tinyint(1) default 0 NOT NULL");
9948 # Now update the column
9949 if (C4
::Context
->preference("AllowOnShelfHolds")){
9950 # Pref is on, set allow for all rules
9951 $dbh->do("UPDATE issuingrules SET onshelfholds=1");
9953 # If the preference is not set, leave off
9954 $dbh->do("UPDATE issuingrules SET onshelfholds=0");
9956 # Remove from the systempreferences table
9957 $dbh->do("DELETE FROM systempreferences WHERE variable = 'AllowOnShelfHolds'");
9959 # First create the column
9960 $dbh->do("ALTER TABLE issuingrules ADD opacitemholds char(1) DEFAULT 'N' NOT NULL");
9961 # Now update the column
9962 my $opacitemholds = C4
::Context
->preference("OPACItemHolds") || '';
9963 if (lc ($opacitemholds) eq 'force') {
9964 $opacitemholds = 'F';
9967 $opacitemholds = $opacitemholds ?
'Y' : 'N';
9969 # Set allow for all rules
9970 $dbh->do("UPDATE issuingrules SET opacitemholds='$opacitemholds'");
9972 # Remove from the systempreferences table
9973 $dbh->do("DELETE FROM systempreferences WHERE variable = 'OPACItemHolds'");
9975 print "Upgrade to $DBversion done (Bug 5786: Move AllowOnShelfHolds to circulation matrix; Move OPACItemHolds system preference to circulation matrix)\n";
9976 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 $DBversion = "3.19.00.042";
10429 if ( CheckVersion
($DBversion) ) {
10432 FROM auth_subfield_structure AS ass
10433 LEFT JOIN auth_types USING(authtypecode)
10434 WHERE auth_types.authtypecode IS NULL
10438 ALTER IGNORE TABLE auth_subfield_structure
10439 ADD CONSTRAINT auth_subfield_structure_ibfk_1
10440 FOREIGN KEY (authtypecode) REFERENCES auth_types(authtypecode)
10441 ON DELETE CASCADE ON UPDATE CASCADE
10444 print "Upgrade to $DBversion done (Bug 8480: Add foreign key on auth_subfield_structure.authtypecode)\n";
10445 SetVersion
($DBversion);
10448 $DBversion = "3.19.00.043";
10449 if ( CheckVersion
($DBversion) ) {
10451 INSERT IGNORE INTO authorised_values
(category
, authorised_value
, lib
) VALUES
10452 ('REPORT_GROUP', 'SER', 'Serials')
10455 print "Upgrade to $DBversion done (Bug 5338: Add Serial to the report groups if does not exist)\n";
10456 SetVersion
($DBversion);
10459 $DBversion = "3.20.00.000";
10460 if ( CheckVersion
($DBversion) ) {
10461 print "Upgrade to $DBversion done (Koha 3.20)\n";
10462 SetVersion
($DBversion);
10465 $DBversion = "3.21.00.000";
10466 if ( CheckVersion
($DBversion) ) {
10467 print "Upgrade to $DBversion done (El tiempo vuela, un nuevo ciclo comienza.)\n";
10468 SetVersion
($DBversion);
10471 $DBversion = "3.21.00.001";
10472 if ( CheckVersion
($DBversion) ) {
10474 UPDATE systempreferences SET variable
='IntranetUserJS' where variable
='intranetuserjs'
10476 print "Upgrade to $DBversion done (Bug 12160: Rename intranetuserjs to IntranetUserJS)\n";
10477 SetVersion
($DBversion);
10480 $DBversion = "3.21.00.002";
10481 if ( CheckVersion
($DBversion) ) {
10483 UPDATE systempreferences SET variable
='OPACUserJS' where variable
='opacuserjs'
10485 print "Upgrade to $DBversion done (Bug 12160: Rename opacuserjs to OPACUserJS)\n";
10486 SetVersion
($DBversion);
10489 $DBversion = "3.21.00.003";
10490 if ( CheckVersion
($DBversion) ) {
10492 INSERT IGNORE INTO language_subtag_registry
( subtag
, type
, description
, added
)
10493 VALUES
( 'IN', 'region', 'India','2015-05-28');
10496 INSERT IGNORE INTO language_descriptions
(subtag
, type
, lang
, description
)
10497 VALUES
( 'IN', 'region', 'en', 'India');
10500 INSERT IGNORE INTO language_descriptions
(subtag
, type
, lang
, description
)
10501 VALUES
( 'IN', 'region', 'bn', 'ভারত');
10503 print "Upgrade to $DBversion done (Bug 14285: Add new region India)\n";
10504 SetVersion
($DBversion);
10507 $DBversion = '3.21.00.004';
10508 if ( CheckVersion
($DBversion) ) {
10509 my $OPACBaseURL = C4
::Context
->preference('OPACBaseURL');
10510 if (defined($OPACBaseURL) && substr($OPACBaseURL,0,4) ne "http") {
10511 my $explanation = q{Specify the Base URL of the OPAC, e.g., http://opac.mylibrary.com, including the protocol (http:// or https://). Otherwise, the http:// will be added automatically by Koha upon saving.};
10512 $OPACBaseURL = 'http://' . $OPACBaseURL;
10513 my $sth_OPACBaseURL = $dbh->prepare( q{
10514 UPDATE systempreferences SET value=?,explanation=?
10515 WHERE variable='OPACBaseURL'; } );
10516 $sth_OPACBaseURL->execute($OPACBaseURL,$explanation);
10518 if (defined($OPACBaseURL)) {
10519 $dbh->do( q{ UPDATE letter
10520 SET content=replace(content,
10521 'http://<<OPACBaseURL>>',
10523 WHERE content LIKE "%http://<<OPACBaseURL>>%"; } );
10526 print "Upgrade to $DBversion done (Bug 5010: Fix OPACBaseURL to include protocol
)\n";
10527 SetVersion($DBversion);
10530 $DBversion = "3.21.00.005";
10531 if ( CheckVersion($DBversion) ) {
10533 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10534 VALUES ('ReportsLog','0',NULL,'If ON, log information about reports.','YesNo')
10536 print "Upgrade to
$DBversion done
(Bug
14024: Add reports to action logs
)\n";
10537 SetVersion ($DBversion);
10540 $DBversion = "3.21.00.006";
10541 if ( CheckVersion($DBversion) ) {
10542 # Remove the borrow permission flag (bit 7)
10545 SET flags = flags - ( flags & (1<<7) )
10546 WHERE flags IS NOT NULL
10550 DELETE FROM userflags WHERE bit=7;
10552 print "Upgrade to
$DBversion done
(Bug
7976: Remove the
'borrow' permission
)\n";
10553 SetVersion($DBversion);
10556 $DBversion = "3.21.00.007";
10557 if ( CheckVersion($DBversion) ) {
10559 ALTER IGNORE TABLE aqbasket
10560 ADD KEY authorisedby (authorisedby)
10563 ALTER IGNORE TABLE aqbooksellers
10564 ADD KEY name (name(255))
10567 ALTER IGNORE TABLE aqbudgets
10568 ADD KEY budget_parent_id (budget_parent_id),
10569 ADD KEY budget_code (budget_code),
10570 ADD KEY budget_branchcode (budget_branchcode),
10571 ADD KEY budget_period_id (budget_period_id),
10572 ADD KEY budget_owner_id (budget_owner_id)
10575 ALTER IGNORE TABLE aqbudgets_planning
10576 ADD KEY budget_period_id (budget_period_id)
10579 ALTER IGNORE TABLE aqorders
10580 ADD KEY parent_ordernumber (parent_ordernumber),
10581 ADD KEY orderstatus (orderstatus)
10583 print "Upgrade to
$DBversion done
(Bug
14053: Acquisition db tables are missing indexes
)\n";
10584 SetVersion ($DBversion);
10587 $DBversion = "3.21.00.008";
10588 if ( CheckVersion($DBversion) ) {
10590 DELETE IGNORE FROM systempreferences
10591 WHERE variable = 'HomeOrHoldingBranchReturn';
10593 print "Upgrade to $DBversion done (Bug 7981: Transfer message on return. HomeOrHoldingBranchReturn syspref removed in favour of circulation rules.)\n";
10594 SetVersion
($DBversion);
10597 $DBversion = "3.21.00.009";
10598 if ( CheckVersion
($DBversion) ) {
10600 UPDATE aqorders SET orderstatus
='cancelled'
10601 WHERE
(datecancellationprinted IS NOT NULL OR
10602 datecancellationprinted
<>'0000-00-00');
10604 print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n";
10605 SetVersion
($DBversion);
10608 $DBversion = "3.21.00.010";
10609 if ( CheckVersion
($DBversion) ) {
10611 ALTER TABLE message_queue
10615 ALTER TABLE message_queue
10616 ADD message_id INT
( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10618 print "Upgrade to $DBversion done (Bug 7793: redefine the field message_id as PRIMARY KEY of message_queue)\n";
10619 SetVersion
($DBversion);
10622 $DBversion = "3.21.00.011";
10623 if ( CheckVersion
($DBversion) ) {
10625 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10626 VALUES ('OpacLangSelectorMode','footer','top|both|footer','Select the location to display the language selector','Choice')
10628 print "Upgrade to $DBversion done (Bug 14252: Make the OPAC language switcher available in the masthead navbar, footer, or both)\n";
10629 SetVersion
($DBversion);
10632 $DBversion = "3.21.00.012";
10633 if ( CheckVersion
($DBversion) ) {
10635 INSERT INTO letter
(module
, code
, name
, title
, content
, message_transport_type
)
10637 ('suggestions','TO_PROCESS','Notify budget owner', 'A suggestion is ready to be processed','Dear <<borrowers.firstname>> <<borrowers.surname>>,\n\nA new suggestion is ready to be processed: <<suggestions.title>> by <<suggestions.autho r>>.\n\nThank you,\n\n<<branches.branchname>>', 'email')
10639 print "Upgrade to $DBversion done (Bug 13014: Add the TO_PROCESS letter code)\n";
10640 SetVersion
($DBversion);
10643 $DBversion = "3.21.00.013";
10644 if ( CheckVersion
($DBversion) ) {
10646 if ( C4
::Context
->preference('OPACPrivacy') ) {
10647 if ( my $anonymous_patron = C4
::Context
->preference('AnonymousPatron') ) {
10648 my $anonymous_patron_exists = $dbh->selectcol_arrayref(q
|
10651 WHERE borrowernumber
=?
10652 |, {}, $anonymous_patron);
10653 unless ( $anonymous_patron_exists->[0] ) {
10654 $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not linked to an existing patron";
10658 $msg = "Configuration WARNING: OPACPrivacy is set but AnonymousPatron is not";
10662 my $patrons_have_required_anonymity = $dbh->selectcol_arrayref(q
|
10667 if ( $patrons_have_required_anonymity->[0] ) {
10668 $msg = "Configuration WARNING: OPACPrivacy is not set but $patrons_have_required_anonymity->[0] patrons have required anonymity (perhaps in a previous configuration). You should fix that asap.";
10672 $msg //= "Privacy is correctly set";
10673 print "Upgrade to $DBversion done (Bug 9942: $msg)\n";
10674 SetVersion
($DBversion);
10677 $DBversion = "3.21.00.014";
10678 if ( CheckVersion
($DBversion) ) {
10680 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10681 VALUES ('OAI-PMH:DeletedRecord','persistent','Koha\'s deletedbiblio table will never be deleted (persistent) or might be deleted (transient)','transient|persistent','Choice')
10684 ALTER TABLE oai_sets_biblios DROP FOREIGN KEY oai_sets_biblios_ibfk_1
10686 print "Upgrade to $DBversion done (Bug 3206: OAI repository deleted record support)\n";
10687 SetVersion ($DBversion);
10690 $DBversion = "3.21.00.015";
10691 if ( CheckVersion($DBversion) ) {
10693 UPDATE systempreferences SET value='0' WHERE variable='CalendarFirstDayOfWeek' AND value='Sunday';
10696 UPDATE systempreferences SET value='1' WHERE variable='CalendarFirstDayOfWeek' AND value='Monday';
10699 UPDATE systempreferences SET options='0|1|2|3|4|5|6' WHERE variable='CalendarFirstDayOfWeek';
10702 print "Upgrade to $DBversion done (Bug 12137: Extend functionality of CalendarFirstDayOfWeek to be any day)\n";
10703 SetVersion
($DBversion);
10706 $DBversion = "3.21.00.016";
10707 if ( CheckVersion
($DBversion) ) {
10708 my $rs = $schema->resultset('Systempreference');
10709 $rs->find_or_create(
10711 variable
=> 'DumpTemplateVarsIntranet',
10713 explanation
=> 'If enabled, dump all Template Toolkit variable to a comment in the html source for the staff intranet.',
10717 $rs->find_or_create(
10719 variable
=> 'DumpTemplateVarsOpac',
10721 explanation
=> 'If enabled, dump all Template Toolkit variable to a comment in the html source for the opac.',
10725 print "Upgrade to $DBversion done (Bug 13948: Add ability to dump template toolkit variables to html comment)\n";
10726 SetVersion
($DBversion);
10729 $DBversion = "3.21.00.017";
10730 if ( CheckVersion
($DBversion) ) {
10732 CREATE TABLE uploaded_files (
10733 id int(11) NOT NULL AUTO_INCREMENT,
10734 hashvalue CHAR(40) NOT NULL,
10735 filename TEXT NOT NULL,
10738 dtcreated timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
10739 categorycode tinytext,
10742 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10745 print "Upgrade to $DBversion done (Bug 6874: New cataloging plugin upload.pl)\n";
10746 print "This plugin comes with a new config variable (upload_path) and a new table (uploaded_files)\n";
10747 print "To use it, set 'upload_path' config variable and 'OPACBaseURL' system preference and link this plugin to a subfield (856\$u for instance)\n";
10748 SetVersion
($DBversion);
10751 $DBversion = "3.21.00.018";
10752 if ( CheckVersion
($DBversion) ) {
10754 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10756 ('RestrictedPageLocalIPs','',NULL,'Beginning of IP addresses considered as local (comma separated ex: \"127.0.0,127.0.2\")','Free'),
10757 ('RestrictedPageContent','',NULL,'HTML content of the restricted page','TextArea'),
10758 ('RestrictedPageTitle','',NULL,'Title of the restricted page (breadcrumb and header)','Free')
10760 print "Upgrade to $DBversion done (Bug 13485: Add a page to display links to restricted sites)\n";
10761 SetVersion ($DBversion);
10764 $DBversion = "3.21.00.019";
10765 if ( CheckVersion($DBversion) ) {
10767 ALTER TABLE reserves DROP constrainttype
10770 ALTER TABLE old_reserves DROP constrainttype
10773 DROP TABLE IF EXISTS reserveconstraints
10775 print "Upgrade to $DBversion done (Bug 9809: Get rid of reserveconstraints)\n";
10776 SetVersion
($DBversion);
10779 $DBversion = "3.21.00.020";
10780 if ( CheckVersion
($DBversion) ) {
10782 INSERT IGNORE INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`)
10783 VALUES ('FeeOnChangePatronCategory','1','','If set, when a patron changes to a category with enrolment fee, a fee is charged','YesNo')
10785 print "Upgrade to $DBversion done (Bug 13697: Option to don't charge a fee, if the patron changes to a category with enrolment fee)\n";
10786 SetVersion
($DBversion);
10789 $DBversion = "3.21.00.021";
10790 if ( CheckVersion
($DBversion) ) {
10792 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
10793 VALUES ('UseWYSIWYGinSystemPreferences','0','','Show WYSIWYG editor when editing certain HTML system preferences.','YesNo')
10795 print "Upgrade to $DBversion done (Bug 11584: Add wysiwyg editor to system preferences dealing with HTML)\n";
10796 SetVersion
($DBversion);
10799 $DBversion = "3.21.00.022";
10800 if ( CheckVersion
($DBversion) ) {
10803 FROM course_reserves AS cr
10804 LEFT JOIN course_items USING(ci_id)
10805 WHERE course_items.ci_id IS NULL
10808 ALTER IGNORE TABLE course_reserves
10809 add CONSTRAINT course_reserves_ibfk_2
10810 FOREIGN KEY (ci_id) REFERENCES course_items (ci_id)
10811 ON DELETE CASCADE ON UPDATE CASCADE
10813 print "Upgrade to $DBversion done (Bug 14205: Deleting an Item/Record does not remove link to course reserve)\n";
10814 SetVersion
($DBversion);
10817 $DBversion = "3.21.00.023";
10818 if ( CheckVersion
($DBversion) ) {
10820 UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00'
10823 UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00'
10826 UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00'
10829 UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00'
10831 print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n";
10832 SetVersion
($DBversion);
10835 $DBversion = "3.21.00.024";
10836 if ( CheckVersion
($DBversion) ) {
10838 ALTER TABLE marc_modification_template_actions
10839 MODIFY COLUMN action
10840 ENUM('delete_field','update_field','move_field','copy_field','copy_and_replace_field')
10842 print "Upgrade to $DBversion done (Bug 14098: Regression in Marc Modification Templates)\n";
10843 SetVersion
($DBversion);
10846 $DBversion = "3.21.00.025";
10847 if ( CheckVersion
($DBversion) ) {
10849 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10850 VALUES ('RisExportAdditionalFields', '', NULL , 'Define additional RIS tags to export from MARC records in YAML format as an associative array with either a marc tag/subfield combination as the value, or a list of tag/subfield combinations.', 'textarea')
10853 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10854 VALUES ('BibtexExportAdditionalFields', '', NULL , 'Define additional BibTex tags to export from MARC records in YAML format as an associative array with either a marc tag/subfield combination as the value, or a list of tag/subfield combinations.', 'textarea')
10856 print "Upgrade to $DBversion done (Bug 12357: Enhancements to RIS and BibTeX exporting)\n";
10857 SetVersion
($DBversion);
10860 $DBversion = "3.21.00.026";
10861 if ( CheckVersion
($DBversion) ) {
10864 SET search_index='issn'
10865 WHERE matcher_id IN (SELECT matcher_id FROM marc_matchers WHERE code = 'ISSN')
10867 print "Upgrade to $DBversion done (Bug 14472: Wrong ISSN search index in record matching rules)\n";
10868 SetVersion
($DBversion);
10871 $DBversion = "3.21.00.027";
10872 if ( CheckVersion
($DBversion) ) {
10874 INSERT INTO permissions
(module_bit
, code
, description
)
10875 VALUES
(1, 'self_checkout', 'Perform self checkout at the OPAC. It should be used for the patron matching the AutoSelfCheckID')
10878 my $AutoSelfCheckID = C4
::Context
->preference('AutoSelfCheckID');
10884 |, undef, $AutoSelfCheckID);
10887 DELETE FROM user_permissions
10888 WHERE borrowernumber
=(SELECT borrowernumber FROM borrowers WHERE userid
=?
)
10889 |, undef, $AutoSelfCheckID);
10892 INSERT INTO user_permissions
(borrowernumber
, module_bit
, code
)
10893 SELECT borrowernumber
, 1, 'self_checkout' FROM borrowers WHERE userid
=?
10894 |, undef, $AutoSelfCheckID);
10895 print "Upgrade to $DBversion done (Bug 14298: AutoSelfCheckID user should only be able to access SCO)\n";
10896 SetVersion
($DBversion);
10899 $DBversion = "3.21.00.028";
10900 if ( CheckVersion
($DBversion) ) {
10902 ALTER TABLE uploaded_files
10903 ADD COLUMN public tinyint,
10904 ADD COLUMN permanent tinyint
10907 UPDATE uploaded_files SET public=1, permanent=1
10910 ALTER TABLE uploaded_files
10911 CHANGE COLUMN categorycode uploadcategorycode tinytext
10913 print "Upgrade to $DBversion done (Bug 14321: Merge UploadedFile and UploadedFiles into Koha::Upload)\n";
10914 SetVersion
($DBversion);
10917 $DBversion = "3.21.00.029";
10918 if ( CheckVersion
($DBversion) ) {
10920 ALTER IGNORE TABLE discharges
10921 ADD COLUMN discharge_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10923 print "Upgrade to $DBversion done (Bug 14368: Add discharges history)\n";
10924 SetVersion
($DBversion);
10927 $DBversion = "3.21.00.030";
10928 if ( CheckVersion
($DBversion) ) {
10930 UPDATE marc_subfield_structure
10931 SET value_builder='marc21_leader.pl'
10932 WHERE value_builder='marc21_leader_book.pl'
10935 UPDATE marc_subfield_structure
10936 SET value_builder='marc21_leader.pl'
10937 WHERE value_builder='marc21_leader_computerfile.pl'
10940 UPDATE marc_subfield_structure
10941 SET value_builder='marc21_leader.pl'
10942 WHERE value_builder='marc21_leader_video.pl'
10944 print "Upgrade to $DBversion done (Bug 14201: Remove unused code or template from some MARC21 leader plugins )\n";
10945 SetVersion
($DBversion);
10948 $DBversion = "3.21.00.031";
10949 if ( CheckVersion
($DBversion) ) {
10951 INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
10953 ('SMSSendPassword', '', '', 'Password used to send SMS messages', 'free'),
10954 ('SMSSendUsername', '', '', 'Username/Login used to send SMS messages', 'free')
10956 print "Upgrade to $DBversion done (Bug 14820: SMSSendUsername and SMSSendPassword are not listed in the system preferences)\n";
10957 SetVersion
($DBversion);
10960 $DBversion = "3.21.00.032";
10961 if ( CheckVersion
($DBversion) ) {
10963 CREATE TABLE additional_fields (
10964 id int(11) NOT NULL AUTO_INCREMENT,
10965 tablename varchar(255) NOT NULL DEFAULT '',
10966 name varchar(255) NOT NULL DEFAULT '',
10967 authorised_value_category varchar(16) NOT NULL DEFAULT '',
10968 marcfield varchar(16) NOT NULL DEFAULT '',
10969 searchable tinyint(1) NOT NULL DEFAULT '0',
10971 UNIQUE KEY fields_uniq (tablename,name)
10972 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10975 CREATE TABLE additional_field_values (
10976 id int(11) NOT NULL AUTO_INCREMENT,
10977 field_id int(11) NOT NULL,
10978 record_id int(11) NOT NULL,
10979 value varchar(255) NOT NULL DEFAULT '',
10981 UNIQUE KEY field_record (field_id,record_id),
10982 CONSTRAINT afv_fk FOREIGN KEY (field_id) REFERENCES additional_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
10983 ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
10985 print "Upgrade to $DBversion done (Bug 10855: Additional fields for subscriptions)\n";
10986 SetVersion
($DBversion);
10989 $DBversion = "3.21.00.033";
10990 if ( CheckVersion
($DBversion) ) {
10993 my $count_ethnicity = $dbh->selectrow_arrayref(q
|
10994 SELECT COUNT
(*) FROM ethnicity
10996 my $count_borrower_modifications = $dbh->selectrow_arrayref(q
|
10998 FROM borrower_modifications
10999 WHERE ethnicity IS NOT NULL
11000 OR ethnotes IS NOT NULL
11002 my $count_borrowers = $dbh->selectrow_arrayref(q
|
11005 WHERE ethnicity IS NOT NULL
11006 OR ethnotes IS NOT NULL
11008 # We don't care about the ethnicity of the deleted borrowers, right?
11009 if ( $count_ethnicity->[0] == 0
11010 and $count_borrower_modifications->[0] == 0
11011 and $count_borrowers->[0] == 0
11014 DROP TABLE ethnicity
11017 ALTER TABLE borrower_modifications
11018 DROP COLUMN ethnicity
,
11019 DROP COLUMN ethnotes
11022 ALTER TABLE borrowers
11023 DROP COLUMN ethnicity
,
11024 DROP COLUMN ethnotes
11027 ALTER TABLE deletedborrowers
11028 DROP COLUMN ethnicity
,
11029 DROP COLUMN ethnotes
11034 print "Upgrade to $DBversion done (Bug 10020: Drop table ethnicity and columns ethnicity and ethnotes)\n";
11037 print "Upgrade to $DBversion done (Bug 10020: This database contains data related to 'ethnicity'. No change will be done on the DB structure but note that the Koha codebase does not use it)\n";
11040 SetVersion
($DBversion);
11043 $DBversion = "3.21.00.034";
11044 if ( CheckVersion
($DBversion) ) {
11046 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11047 VALUES('MembershipExpiryDaysNotice',NULL,'Send an account expiration notice that a patron''s card is about to expire after',NULL,'Integer')
11050 INSERT IGNORE INTO letter (module, code, branchcode, name, title, content, message_transport_type)
11051 VALUES('members','MEMBERSHIP_EXPIRY','','Account expiration','Account expiration','Dear <<borrowers.title>> <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYour library card will expire soon, on:\r\n\r\n<<borrowers.dateexpiry>>\r\n\r\nThank you,\r\n\r\nLibrarian\r\n\r\n<<branches.branchname>>', 'email')
11053 print "Upgrade to $DBversion done (Bug 6810: Send membership expiry reminder notices)\n";
11054 SetVersion($DBversion);
11057 $DBversion = "3.21.00.035";
11058 if ( CheckVersion($DBversion) ) {
11060 ALTER TABLE branch_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11063 UPDATE branch_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11066 ALTER TABLE default_borrower_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11069 UPDATE default_borrower_circ_rules SET maxonsiteissueqty = maxissueqty;
11072 ALTER TABLE default_branch_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11075 UPDATE default_branch_circ_rules SET maxonsiteissueqty = maxissueqty;
11078 ALTER TABLE default_circ_rules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11081 UPDATE default_circ_rules SET maxonsiteissueqty = maxissueqty;
11084 ALTER TABLE issuingrules ADD COLUMN maxonsiteissueqty int(4) DEFAULT NULL AFTER maxissueqty;
11087 UPDATE issuingrules SET maxonsiteissueqty = maxissueqty;
11090 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11091 VALUES ('ConsiderOnSiteCheckoutsAsNormalCheckouts','1',NULL,'Consider on-site checkouts as normal checkouts','YesNo');
11094 print "Upgrade to $DBversion done (Bug 14045: Add DB fields maxonsiteissueqty and pref ConsiderOnSiteCheckoutsAsNormalCheckouts)\n";
11095 SetVersion ($DBversion);
11098 $DBversion = "3.21.00.036";
11099 if ( CheckVersion($DBversion) ) {
11101 ALTER TABLE authorised_values_branches
11102 CHANGE av_id av_id INT( 11 ) NOT NULL,
11103 CHANGE branchcode branchcode VARCHAR( 10 ) NOT NULL
11105 print "Upgrade to $DBversion done (Bug 10363: There is no package for authorised values)\n";
11106 SetVersion
($DBversion);
11109 $DBversion = "3.21.00.037";
11110 if ( CheckVersion
($DBversion) ) {
11112 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11113 VALUES ('OverduesBlockRenewing','allow','If any of a patron checked out documents is late, should renewal be allowed, blocked only on overdue items or blocked on whatever checked out document','allow|blockitem|block','Choice')
11116 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
11117 VALUES ('RestrictionBlockRenewing','0','If patron is restricted, should renewal be allowed or blocked',NULL,'YesNo')
11119 print "Upgrade to $DBversion done (Bug 8236: Prevent renewing if overdue or restriction)\n";
11120 SetVersion
($DBversion);
11123 $DBversion = "3.21.00.XXX";
11124 if ( C4
::Context
->preference("Version") < TransformToNum
($DBversion) ) {
11126 INSERT IGNORE INTO systempreferences
( variable
, value
, options
, explanation
, type
)
11127 VALUES
('batch_checkouts','','','Allow patron categories allowed to checkout in a batch','Free')
11129 print "Upgrade to $DBversion done (Bug 11759: Add batch_checkouts system preference)\n";
11130 SetVersion
($DBversion);
11133 # DEVELOPER PROCESS, search for anything to execute in the db_update directory
11135 # if there is anything in the atomicupdate, read and execute it.
11137 my $update_dir = C4
::Context
->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
11138 opendir( my $dirh, $update_dir );
11139 foreach my $file ( sort readdir $dirh ) {
11140 next if $file !~ /\.(sql|perl)$/; #skip other files
11141 print "DEV atomic update: $file\n";
11142 if ( $file =~ /\.sql$/ ) {
11143 my $installer = C4
::Installer
->new();
11144 my $rv = $installer->load_sql( $update_dir . $file ) ?
0 : 1;
11145 } elsif ( $file =~ /\.perl$/ ) {
11146 do $update_dir . $file;
11152 =head2 TableExists($table)
11159 local $dbh->{PrintError
} = 0;
11160 local $dbh->{RaiseError
} = 1;
11161 $dbh->do(qq{SELECT
* FROM
$table WHERE
1 = 0 });
11163 return 1 unless $@
;
11167 =head2 DropAllForeignKeys($table)
11169 Drop all foreign keys of the table $table
11173 sub DropAllForeignKeys
{
11175 # get the table description
11176 my $sth = $dbh->prepare("SHOW CREATE TABLE $table");
11178 my $vsc_structure = $sth->fetchrow;
11179 # split on CONSTRAINT keyword
11180 my @fks = split /CONSTRAINT /,$vsc_structure;
11183 # isolate what is before FOREIGN KEY, if there is something, it's a foreign key to drop
11184 $_ = /(.*) FOREIGN KEY.*/;
11187 # we have found 1 foreign, drop it
11188 $dbh->do("ALTER TABLE $table DROP FOREIGN KEY $id");
11195 =head2 TransformToNum
11197 Transform the Koha version from a 4 parts string
11198 to a number, with just 1 .
11202 sub TransformToNum
{
11203 my $version = shift;
11204 # remove the 3 last . to have a Perl number
11205 $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
11206 # three X's at the end indicate that you are testing patch with dbrev
11207 # change it into 999
11208 # prevents error on a < comparison between strings (should be: lt)
11209 $version =~ s/XXX$/999/;
11215 set the DBversion in the systempreferences
11220 return if $_[0]=~ /XXX$/;
11221 #you are testing a patch with a db revision; do not change version
11222 my $kohaversion = TransformToNum
($_[0]);
11223 if (C4
::Context
->preference('Version')) {
11224 my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
11225 $finish->execute($kohaversion);
11227 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')");
11228 $finish->execute($kohaversion);
11230 C4
::Context
::clear_syspref_cache
(); # invalidate cached preferences
11233 =head2 CheckVersion
11235 Check whether a given update should be run when passed the proposed version
11236 number. The update will always be run if the proposed version is greater
11237 than the current database version and less than or equal to the version in
11238 kohaversion.pl. The update is also run if the version contains XXX, though
11239 this behavior will be changed following the adoption of non-linear updates
11240 as implemented in bug 7167.
11245 my ($proposed_version) = @_;
11246 my $version_number = TransformToNum
($proposed_version);
11248 # The following line should be deleted when bug 7167 is pushed
11249 return 1 if ( $proposed_version =~ m/XXX/ );
11251 if ( C4
::Context
->preference("Version") < $version_number
11252 && $version_number <= TransformToNum
( $Koha::VERSION
) )