use strict;
use warnings;
+use feature 'say';
+
# CPAN modules
use DBI;
use Getopt::Long;
use File::Path qw[remove_tree]; # perl core module
use File::Spec;
+use File::Slurp;
# FIXME - The user might be installing a new database, so can't rely
# on /etc/koha.conf anyway.
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
$dbh->do("ALTER TABLE biblioitems DROP INDEX isbn");
$dbh->do("ALTER TABLE biblioitems DROP INDEX issn");
+ $dbh->do("ALTER TABLE biblioitems DROP INDEX issn_idx");
$dbh->do("ALTER TABLE biblioitems
CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL,
CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL
MODIFY COLUMN seealso varchar(1100) COLLATE utf8_unicode_ci DEFAULT NULL,
MODIFY COLUMN link varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL
|);
+ $dbh->do(qq|ALTER TABLE $name CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
}
else {
$dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
if ( CheckVersion($DBversion) ) {
$dbh->do(q|
ALTER TABLE virtualshelves
- ADD COLUMN created_on TIMESTAMP NOT NULL AFTER lastmodified
+ ADD COLUMN created_on DATETIME NOT NULL AFTER lastmodified
|);
# Set created_on = lastmodified
# I would say it's better than 0000-00-00
$DBversion = "3.19.00.041";
if ( CheckVersion($DBversion) ) {
- $dbh->do(q|
- ALTER IGNORE TABLE suggestions ADD KEY status (STATUS)
- |);
- $dbh->do(q|
- ALTER IGNORE TABLE suggestions ADD KEY biblionumber (biblionumber)
- |);
- $dbh->do(q|
- ALTER IGNORE TABLE suggestions ADD KEY branchcode (branchcode)
- |);
+ unless ( index_exists( 'suggestions', 'status' ) ) {
+ $dbh->do(q|
+ ALTER TABLE suggestions ADD KEY status (STATUS)
+ |);
+ }
+ unless ( index_exists( 'suggestions', 'biblionumber' ) ) {
+ $dbh->do(q|
+ ALTER TABLE suggestions ADD KEY biblionumber (biblionumber)
+ |);
+ }
+ unless ( index_exists( 'suggestions', 'branchcode' ) ) {
+ $dbh->do(q|
+ ALTER TABLE suggestions ADD KEY branchcode (branchcode)
+ |);
+ }
print "Upgrade to $DBversion done (Bug 14132: suggestions table is missing indexes)\n";
SetVersion ($DBversion);
}
WHERE auth_types.authtypecode IS NULL
});
- $dbh->do(q{
- ALTER IGNORE TABLE auth_subfield_structure
- ADD CONSTRAINT auth_subfield_structure_ibfk_1
- FOREIGN KEY (authtypecode) REFERENCES auth_types(authtypecode)
- ON DELETE CASCADE ON UPDATE CASCADE
- });
+ unless ( foreign_key_exists( 'auth_subfield_structure', 'auth_subfield_structure_ibfk_1' ) ) {
+ $dbh->do(q{
+ ALTER TABLE auth_subfield_structure
+ ADD CONSTRAINT auth_subfield_structure_ibfk_1
+ FOREIGN KEY (authtypecode) REFERENCES auth_types(authtypecode)
+ ON DELETE CASCADE ON UPDATE CASCADE
+ });
+ }
print "Upgrade to $DBversion done (Bug 8480: Add foreign key on auth_subfield_structure.authtypecode)\n";
SetVersion($DBversion);
$DBversion = "3.21.00.007";
if ( CheckVersion($DBversion) ) {
- $dbh->do(q|
- ALTER IGNORE TABLE aqbasket
- ADD KEY authorisedby (authorisedby)
- |);
- $dbh->do(q|
- ALTER IGNORE TABLE aqbooksellers
- ADD KEY name (name(255))
- |);
- $dbh->do(q|
- ALTER IGNORE TABLE aqbudgets
- ADD KEY budget_parent_id (budget_parent_id),
- ADD KEY budget_code (budget_code),
- ADD KEY budget_branchcode (budget_branchcode),
- ADD KEY budget_period_id (budget_period_id),
- ADD KEY budget_owner_id (budget_owner_id)
- |);
- $dbh->do(q|
- ALTER IGNORE TABLE aqbudgets_planning
- ADD KEY budget_period_id (budget_period_id)
- |);
- $dbh->do(q|
- ALTER IGNORE TABLE aqorders
- ADD KEY parent_ordernumber (parent_ordernumber),
- ADD KEY orderstatus (orderstatus)
- |);
+ unless ( index_exists( 'aqbasket', 'authorisedby' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbasket
+ ADD KEY authorisedby (authorisedby)
+ |);
+ }
+ unless ( index_exists( 'aqbooksellers', 'name' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbooksellers
+ ADD KEY name (name(255))
+ |);
+ }
+ unless ( index_exists( 'aqbudgets', 'budget_parent_id' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbudgets
+ ADD KEY budget_parent_id (budget_parent_id)|);
+ }
+ unless ( index_exists( 'aqbudgets', 'budget_code' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbudgets
+ ADD KEY budget_code (budget_code)|);
+ }
+ unless ( index_exists( 'aqbudgets', 'budget_branchcode' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbudgets
+ ADD KEY budget_branchcode (budget_branchcode)|);
+ }
+ unless ( index_exists( 'aqbudgets', 'budget_period_id' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbudgets
+ ADD KEY budget_period_id (budget_period_id)|);
+ }
+ unless ( index_exists( 'aqbudgets', 'budget_owner_id' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbudgets
+ ADD KEY budget_owner_id (budget_owner_id)|);
+ }
+ unless ( index_exists( 'aqbudgets_planning', 'budget_period_id' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqbudgets_planning
+ ADD KEY budget_period_id (budget_period_id)|);
+ }
+ unless ( index_exists( 'aqorders', 'parent_ordernumber' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqorders
+ ADD KEY parent_ordernumber (parent_ordernumber)|);
+ }
+ unless ( index_exists( 'aqorders', 'orderstatus' ) ) {
+ $dbh->do(q|
+ ALTER TABLE aqorders
+ ADD KEY orderstatus (orderstatus)|);
+ }
print "Upgrade to $DBversion done (Bug 14053: Acquisition db tables are missing indexes)\n";
SetVersion ($DBversion);
}
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
VALUES ('OAI-PMH:DeletedRecord','persistent','Koha\'s deletedbiblio table will never be deleted (persistent) or might be deleted (transient)','transient|persistent','Choice')
});
- $dbh->do(q|
- ALTER TABLE oai_sets_biblios DROP FOREIGN KEY oai_sets_biblios_ibfk_1
- |);
+
+ if ( foreign_key_exists( 'oai_sets_biblios', 'oai_sets_biblios_ibfk_1' ) ) {
+ $dbh->do(q|
+ ALTER TABLE oai_sets_biblios DROP FOREIGN KEY oai_sets_biblios_ibfk_1
+ |);
+ }
print "Upgrade to $DBversion done (Bug 3206: OAI repository deleted record support)\n";
SetVersion ($DBversion);
}
$DBversion = "3.21.00.019";
if ( CheckVersion($DBversion) ) {
- $dbh->do(q{
- ALTER TABLE reserves DROP constrainttype
- });
- $dbh->do(q{
- ALTER TABLE old_reserves DROP constrainttype
- });
+ if ( column_exists( 'reserves', 'constrainttype' ) ) {
+ $dbh->do(q{
+ ALTER TABLE reserves DROP constrainttype
+ });
+ $dbh->do(q{
+ ALTER TABLE old_reserves DROP constrainttype
+ });
+ }
$dbh->do(q{
DROP TABLE IF EXISTS reserveconstraints
});
my ($print_error) = $dbh->{PrintError};
$dbh->{RaiseError} = 0;
$dbh->{PrintError} = 0;
- $dbh->do(q{ALTER TABLE course_reserves DROP FOREIGN KEY course_reserves_ibfk_2});
- $dbh->do(q{ALTER TABLE course_reserves DROP INDEX course_reserves_ibfk_2});
+ if ( foreign_key_exists('course_reserves', 'course_reserves_ibfk_2') ) {
+ $dbh->do(q{ALTER TABLE course_reserves DROP FOREIGN KEY course_reserves_ibfk_2});
+ $dbh->do(q{ALTER TABLE course_reserves DROP INDEX course_reserves_ibfk_2});
+ }
$dbh->{PrintError} = $print_error;
$dbh->do(q{
- ALTER IGNORE TABLE course_reserves
+ ALTER TABLE course_reserves
ADD CONSTRAINT course_reserves_ibfk_2
FOREIGN KEY (ci_id) REFERENCES course_items (ci_id)
ON DELETE CASCADE ON UPDATE CASCADE
$DBversion = "3.21.00.028";
if ( CheckVersion($DBversion) ) {
- $dbh->do(q{
- ALTER TABLE uploaded_files
- ADD COLUMN public tinyint,
- ADD COLUMN permanent tinyint
- });
- $dbh->do(q{
- UPDATE uploaded_files SET public=1, permanent=1
- });
- $dbh->do(q{
- ALTER TABLE uploaded_files
- CHANGE COLUMN categorycode uploadcategorycode tinytext
- });
+ unless ( column_exists('uploaded_files', 'public') ) {
+ $dbh->do(q{
+ ALTER TABLE uploaded_files
+ ADD COLUMN public tinyint,
+ ADD COLUMN permanent tinyint
+ });
+ $dbh->do(q{
+ UPDATE uploaded_files SET public=1, permanent=1
+ });
+ $dbh->do(q{
+ ALTER TABLE uploaded_files
+ CHANGE COLUMN categorycode uploadcategorycode tinytext
+ });
+ }
print "Upgrade to $DBversion done (Bug 14321: Merge UploadedFile and UploadedFiles into Koha::Upload)\n";
SetVersion($DBversion);
}
$DBversion = "3.21.00.029";
if ( CheckVersion($DBversion) ) {
- $dbh->do(q{
- ALTER IGNORE TABLE discharges
- ADD COLUMN discharge_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
- });
+ unless ( column_exists('discharges', 'discharge_id') ) {
+ $dbh->do(q{
+ ALTER TABLE discharges
+ ADD COLUMN discharge_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
+ });
+ }
print "Upgrade to $DBversion done (Bug 14368: Add discharges history)\n";
SetVersion($DBversion);
}
ADD serialseq_z VARCHAR( 100 ) NULL DEFAULT NULL AFTER serialseq_y
");
- my $schema = Koha::Database->new()->schema();
- my @subscriptions = $schema->resultset('Subscription')->all();
+ my $sth = $dbh->prepare("SELECT * FROM subscription");
+ $sth->execute();
+
+ my $sth2 = $dbh->prepare("SELECT * FROM subscription_numberpatterns WHERE id = ?");
- foreach my $subscription (@subscriptions) {
- my $number_pattern = $subscription->numberpattern();
+ my $sth3 = $dbh->prepare("UPDATE serial SET serialseq_x = ?, serialseq_y = ?, serialseq_z = ? WHERE serialid = ?");
- my $numbering_method = $number_pattern->numberingmethod();
+ foreach my $subscription ( $sth->fetchrow_hashref() ) {
+ next if !defined($subscription);
+ $sth2->execute( $subscription->{numberpattern} );
+ my $number_pattern = $sth2->fetchrow_hashref();
+
+ my $numbering_method = $number_pattern->{numberingmethod};
# Get all the data between the enumeration values, we need
# to split each enumeration string based on these values.
my @splits = split( /\{[XYZ]\}/, $numbering_method );
}
my @indexes = sort { $indexes{$a} <=> $indexes{$b} } keys(%indexes);
- my @serials =
- $schema->resultset('Serial')
- ->search( { subscriptionid => $subscription->subscriptionid() } );
+ my @serials = @{
+ $dbh->selectall_arrayref(
+ "SELECT * FROM serial WHERE subscriptionid = $subscription->{subscriptionid}",
+ { Slice => {} }
+ )
+ };
foreach my $serial (@serials) {
- my $serialseq = $serial->serialseq();
+ my $serialseq = $serial->{serialseq};
my %enumeration_data;
## We cannot split on multiple values at once,
## so let's replace each of those values with __SPLIT__
if (@splits) {
- map( $serialseq =~ s/$_/__SPLIT__/, @splits );
+ for my $split_item (@splits) {
+ my $quoted_split = quotemeta($split_item);
+ $serialseq =~ s/$quoted_split/__SPLIT__/;
+ }
(
undef,
$enumeration_data{ $indexes[0] // q{} },
$enumeration_data{ $indexes[0] } = $serialseq;
}
- $serial->update(
- {
- serialseq_x => $enumeration_data{'X'},
- serialseq_y => $enumeration_data{'Y'},
- serialseq_z => $enumeration_data{'Z'},
- }
+ $sth3->execute(
+ $enumeration_data{'X'},
+ $enumeration_data{'Y'},
+ $enumeration_data{'Z'},
+ $serial->{serialid},
);
}
}
$DBversion = "3.23.00.012";
if ( CheckVersion($DBversion) ) {
$dbh->do(q{
- INSERT IGNORE INTO systempreferences ( `variable`, `value`, `explanation`, `options`, `type` ) VALUES('MaxSearchResultsItemsPerRecordStatusCheck','20','Max number of items per record for which to check transit and hold status','','Integer')
+ INSERT IGNORE INTO systempreferences ( `variable`, `value`, `explanation`, `options`, `type` ) VALUES('MaxSearchResultsItemsPerRecordStatusCheck','20','Max number of items per record for which to check transit and hold status','','Integer')
});
print "Upgrade to $DBversion done (Bug 15380 - Move the authority types related code to Koha::Authority::Type[s] - part 1)\n";
$DBversion = "3.23.00.013";
if ( CheckVersion($DBversion) ) {
$dbh->do(q{
- INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('StoreLastBorrower','0','','If ON, the last borrower to return an item will be stored in items.last_returned_by','YesNo')
+ INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('StoreLastBorrower','0','','If ON, the last borrower to return an item will be stored in items.last_returned_by','YesNo')
});
$dbh->do(q{
CREATE TABLE IF NOT EXISTS `items_last_borrower` (
$DBversion = "3.23.00.014";
if ( CheckVersion($DBversion) ) {
$dbh->do(q{
- INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
+ INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
VALUES ('ClaimsBccCopy','0','','Bcc the ClaimAcquisition and ClaimIssues alerts','YesNo')
});
$DBversion = "3.23.00.036";
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
$dbh->do(q{
- INSERT INTO systempreferences (variable,value,explanation,type) VALUES ('HoldsQueueSkipClosed', '0', 'If enabled, any libraries that are closed when the holds queue is built will be ignored for the purpose of filling holds.', 'YesNo');
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES ('HoldsQueueSkipClosed', '0', 'If enabled, any libraries that are closed when the holds queue is built will be ignored for the purpose of filling holds.', 'YesNo');
});
print "Upgrade to $DBversion done (Bug 12803 - Add ability to skip closed libraries when generating the holds queue)\n";
SetVersion($DBversion);
$DBversion = "3.23.00.038";
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
$dbh->do(q{
- INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('decreaseLoanHighHoldsControl', 'static', 'static|dynamic', "Chooses between static and dynamic high holds checking", 'Choice'), ('decreaseLoanHighHoldsIgnoreStatuses', '', 'damaged|itemlost|notforloan|withdrawn', "Ignore items with these statuses for dynamic high holds checking", 'Choice');
+ INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('decreaseLoanHighHoldsControl', 'static', 'static|dynamic', "Chooses between static and dynamic high holds checking", 'Choice'), ('decreaseLoanHighHoldsIgnoreStatuses', '', 'damaged|itemlost|notforloan|withdrawn', "Ignore items with these statuses for dynamic high holds checking", 'Choice');
});
print "Upgrade to $DBversion done (Bug 14694 - Make decreaseloanHighHolds more flexible)\n";
SetVersion($DBversion);
$DBversion = "3.23.00.044";
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
$dbh->do(q{
- INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
('GoogleOpenIDConnect', '0', NULL, 'if ON, allows the use of Google OpenID Connect for login', 'YesNo'),
('GoogleOAuth2ClientID', '', NULL, 'Client ID for the web app registered with Google', 'Free'),
('GoogleOAuth2ClientSecret', '', NULL, 'Client Secret for the web app registered with Google', 'Free'),
$DBversion = "3.23.00.050";
if ( CheckVersion($DBversion) ) {
- use YAML::Syck;
use Koha::SearchMarcMaps;
use Koha::SearchFields;
+ use Koha::SearchEngine::Elasticsearch;
$dbh->do(q|INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
VALUES('SearchEngine','Zebra','Choose Search Engine','','Choice')|);
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci
|);
-my $mappings_yaml = C4::Context->config('intranetdir') . '/admin/searchengine/elasticsearch/mappings.yaml';
-my $indexes = LoadFile( $mappings_yaml );
-
-while ( my ( $index_name, $fields ) = each %$indexes ) {
- while ( my ( $field_name, $data ) = each %$fields ) {
- my $field_type = $data->{type};
- my $field_label = $data->{label};
- my $mappings = $data->{mappings};
- my $search_field = Koha::SearchFields->find_or_create({ name => $field_name, label => $field_label, type => $field_type }, { key => 'name' });
- for my $mapping ( @$mappings ) {
- my $marc_field = Koha::SearchMarcMaps->find_or_create({ index_name => $index_name, marc_type => $mapping->{marc_type}, marc_field => $mapping->{marc_field} });
- $search_field->add_to_search_marc_maps($marc_field, { facet => $mapping->{facet}, suggestible => $mapping->{suggestible}, sort => $mapping->{sort} } );
- }
- }
-}
+ # Insert default mappings
+ Koha::SearchEngine::Elasticsearch->reset_elasticsearch_mappings;
print "Upgrade to $DBversion done (Bug 12478 - Elasticsearch support for Koha)\n";
SetVersion($DBversion);
$DBversion = "3.23.00.056";
if ( CheckVersion($DBversion) ) {
$dbh->do(q{
- INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
+ INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
('NoIssuesChargeGuarantees','','','Define maximum amount withstanding before check outs are blocked','Integer');
});
$DBversion = "3.23.00.063";
if ( CheckVersion($DBversion) ) {
$dbh->do(q{
+ UPDATE letter SET branchcode='' WHERE branchcode IS NULL;
+ });
+ $dbh->do(q{
ALTER TABLE letter MODIFY COLUMN branchcode varchar(10) NOT NULL DEFAULT ''
});
$dbh->do(q{
SetVersion($DBversion);
}
+$DBversion = "3.23.00.064";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE creator_layouts MODIFY layout_name char(25) NOT NULL DEFAULT 'DEFAULT';
+ });
+ print "Upgrade to $DBversion done (Bug 15086 - Creators layout and template sql has warnings)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.05.00.000";
+if ( CheckVersion($DBversion) ) {
+ print "Upgrade to $DBversion done (Koha 16.05)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.000";
+if ( CheckVersion($DBversion) ) {
+ print "Upgrade to $DBversion done (Koha 16.06 - starting a new dev line at KohaCon16 in Thessaloniki, Greece! Koha is great!)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.001";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE accountlines SET accounttype='HE', description=itemnumber WHERE (description REGEXP '^Hold waiting too long [0-9]+') AND accounttype='F';
+ });
+
+ print "Upgrade to $DBversion done (Bug 16200 - 'Hold waiting too long' fee has a translation problem)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.002";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE borrowers
+ ADD COLUMN updated_on timestamp NULL DEFAULT CURRENT_TIMESTAMP
+ ON UPDATE CURRENT_TIMESTAMP
+ AFTER privacy_guarantor_checkouts;
+ });
+ $dbh->do(q{
+ ALTER TABLE deletedborrowers
+ ADD COLUMN updated_on timestamp NULL DEFAULT CURRENT_TIMESTAMP
+ ON UPDATE CURRENT_TIMESTAMP
+ AFTER privacy_guarantor_checkouts;
+ });
+
+ print "Upgrade to $DBversion done (Bug 10459 - borrowers should have a timestamp)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.003";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
+ SELECT 'MaxItemsToProcessForBatchMod', value, NULL, 'Process up to a given number of items in a single item modification batch.', 'Integer' FROM systempreferences WHERE variable='MaxItemsForBatch';
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
+ SELECT 'MaxItemsToDisplayForBatchDel', value, NULL, 'Display up to a given number of items in a single item deletionbatch.', 'Integer' FROM systempreferences WHERE variable='MaxItemsForBatch';
+ });
+ $dbh->do(q{
+ DELETE FROM systempreferences WHERE variable="MaxItemsForBatch";
+ });
+
+ print "Upgrade to $DBversion done (Bug 11490 - MaxItemsForBatch should be split into two new prefs)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.004';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
+ SELECT 'OPACXSLTListsDisplay', COALESCE(value,''), '', 'Enable XSLT stylesheet control over lists pages display on OPAC', 'Free'
+ FROM systempreferences WHERE variable='OPACXSLTResultsDisplay';
+ });
+
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
+ SELECT 'XSLTListsDisplay', COALESCE(value,''), '', 'Enable XSLT stylesheet control over lists pages display on intranet', 'Free'
+ FROM systempreferences WHERE variable='XSLTResultsDisplay';
+ });
+
+ print "Upgrade to $DBversion done (Bug 15485: Allow choosing different XSLTs for lists)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.005';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE `systempreferences` set options = 'US|FR|CH' where variable = 'CurrencyFormat';
+ });
+
+ print "Upgrade to $DBversion done (Bug 16768 - Add official number format for Switzerland: 1'234'567.89)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.006";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ CREATE TABLE `refund_lost_item_fee_rules` (
+ `branchcode` varchar(10) NOT NULL default '',
+ `refund` tinyint(1) NOT NULL default 0,
+ PRIMARY KEY (`branchcode`)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
+ VALUES( 'RefundLostOnReturnControl',
+ 'CheckinLibrary',
+ 'If a lost item is returned, choose which branch to pick rules for refunding.',
+ 'CheckinLibrary|PatronLibrary|ItemHomeBranch|ItemHoldingbranch',
+ 'Choice')
+ });
+ # Pick the old syspref as the default rule
+ $dbh->do(q{
+ INSERT INTO refund_lost_item_fee_rules (branchcode,refund)
+ SELECT '*', COALESCE(value,'1') FROM systempreferences WHERE variable='RefundLostItemFeeOnReturn'
+ });
+ # Delete the old syspref
+ $dbh->do(q{
+ DELETE IGNORE FROM systempreferences
+ WHERE variable='RefundLostItemFeeOnReturn'
+ });
+
+ print "Upgrade to $DBversion done (Bug 14048: Change RefundLostItemFeeOnReturn to be branch specific)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.007';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
+ VALUES ('PatronQuickAddFields', '', 'A list of fields separated by "|" to be displayed along with mandatory fields in the patron quick add form if chosen at patron entry', NULL, 'Free');
+ });
+
+ print "Upgrade to $DBversion done (Bug 3534 - Patron quick add form)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.008';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
+ VALUES('CheckPrevCheckout','hardno','hardyes|softyes|softno|hardno','By default, for every item checked out, should we warn if the patron has checked out that item in the past?','Choice');
+ });
+ $dbh->do(q{
+ ALTER TABLE categories
+ ADD COLUMN `checkprevcheckout` varchar(7) NOT NULL default 'inherit'
+ AFTER `default_privacy`;
+ });
+ $dbh->do(q{
+ ALTER TABLE borrowers
+ ADD COLUMN `checkprevcheckout` varchar(7) NOT NULL default 'inherit'
+ AFTER `privacy_guarantor_checkouts`;
+ });
+ $dbh->do(q{
+ ALTER TABLE deletedborrowers
+ ADD COLUMN `checkprevcheckout` varchar(7) NOT NULL default 'inherit'
+ AFTER `privacy_guarantor_checkouts`;
+ });
+
+ print "Upgrade to $DBversion done (Bug 6906 - show 'Borrower has previously issued \$ITEM' alert on checkout)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.009';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
+ VALUES ('IntranetCatalogSearchPulldown','0',NULL,'Show a search field pulldown for \"Search the catalog\" boxes. ','YesNo');
+ });
+
+ print "Upgrade to $DBversion done (Bug 14902 - Add qualifier menu to staff side 'Search the Catalog')\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.010';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
+ VALUES ('MaxOpenSuggestions','',NULL,'Limit the number of open suggestions a patron can have at once, unlimited if blank','Integer')
+ });
+
+ print "Upgrade to $DBversion done (Bug 15128 - Add ability to limit the number of open purchase suggestions a patron can make)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.011';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES
+ ('NovelistSelectStaffEnabled','0',NULL,'Enable Novelist Select content to the Staff Interface (requires that you have entered in a user profile and password, which can be seen in image links)','YesNo'),
+ ('NovelistSelectStaffView','tab','tab|above|below','Where to display Novelist Select content','Choice');
+ });
+
+ print "Upgrade to $DBversion done (Bug 11606 - Novelist Select in Staff Client)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.012';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE virtualshelves MODIFY COLUMN created_on DATETIME not NULL;
+ });
+
+ print "Upgrade to $DBversion done (Bug 16573 - Web installer fails to load structure and sample data on MySQL 5.7)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.013';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
+ ('OPACResultsLibrary', 'homebranch', 'homebranch|holdingbranch', 'Defines whether the OPAC displays the holding or home branch in search results when using XSLT', 'Choice');
+ });
+
+ print "Upgrade to $DBversion done (Bug 7441 - Search results showing wrong branch)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.014";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE `action_logs` ADD COLUMN `interface` VARCHAR(30) DEFAULT NULL AFTER `info`;
+ });
+
+ $dbh->do(q{
+ ALTER TABLE `action_logs` ADD KEY `interface` (`interface`);
+ });
+
+ print "Upgrade to $DBversion done (Bug 16829: action_logs should have an 'interface' column)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.015";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type ) VALUES
+ ('HoldsLog','0',NULL,'If ON, log create/cancel/suspend/resume actions on holds.','YesNo');
+ });
+
+ print "Upgrade to $DBversion done (Bug 14642: Add logging of hold modifications)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.016";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'YYYY', '<<YYYY>>') where defaultvalue like "%YYYY%" and defaultvalue not like "%<<YYYY>>%";
+ });
+ $dbh->do(q{
+ update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'MM', '<<MM>>') where defaultvalue like "%MM%" and defaultvalue not like "%<<MM>>%";
+ });
+ $dbh->do(q{
+ update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'DD', '<<DD>>') where defaultvalue like "%DD%" and defaultvalue not like "%<<DD>>%";
+ });
+ $dbh->do(q{
+ update marc_subfield_structure set defaultvalue=REPLACE(defaultvalue, 'user', '<<USER>>') where defaultvalue like "%user%" and defaultvalue not like "%<<USER>>%";
+ });
+
+ print "Upgrade to $DBversion done (Bug 7045 - Default-value substitution inconsistent)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.017";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('OPACSuggestionMandatoryFields','title','','Define the mandatory fields for a patron purchase suggestions made via OPAC.','multiple');
+ });
+
+ print "Upgrade to $DBversion done (Bug 10848 - Allow configuration of mandatory/required fields on the suggestion form in OPAC)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.018";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE issuingrules ADD COLUMN holds_per_record SMALLINT(6) NOT NULL DEFAULT 1 AFTER reservesallowed;
+ });
+
+ print "Upgrade to $DBversion done (Bug 14695 - Add ability to place multiple item holds on a given record per patron)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.019";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE reviews CHANGE COLUMN approved approved tinyint(4) DEFAULT 0;
+ });
+ $dbh->do(q{
+ UPDATE reviews SET approved=0 WHERE approved IS NULL;
+ });
+
+ print "Upgrade to $DBversion done (Bug 15839 - Move the reviews related code to Koha::Reviews)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.020";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('SwitchOnSiteCheckouts', '0', 'Automatically switch an on-site checkout to a normal checkout', NULL, 'YesNo');
+ });
+
+ print "Upgrade to $DBversion done (Bug 16272 - Transform checkout from on-site checkout to regular checkout)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.021";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('PatronSelfRegistrationEmailMustBeUnique', '0', 'If set, the field borrowers.email will be considered as a unique field on self registering', NULL, 'YesNo');
+ });
+
+ print "Upgrade to $DBversion done (Bug 16275 - Prevent patron self registration if the email already filled in borrowers.email)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.022";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO `permissions`
+ (module_bit, code, description) VALUES
+ (16, 'delete_reports', 'Delete SQL reports');
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO user_permissions
+ (borrowernumber, module_bit,code)
+ SELECT borrowernumber,module_bit,'delete_reports'
+ FROM user_permissions
+ WHERE module_bit=16 AND code='create_reports';
+ });
+
+ print "Upgrade to $DBversion done (Bug 16978 - Add delete reports user permission)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.023";
+if ( CheckVersion($DBversion) ) {
+ my $pref = C4::Context->preference('timeout');
+ if( !$pref || $pref eq '12000000' ) {
+ # update if pref is null or equals old default value
+ $dbh->do(q|
+ UPDATE systempreferences SET value = '1d', type = 'Free'
+ WHERE variable = 'timeout'
+ |);
+ print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has been adjusted.\n";
+ } else {
+ # only update pref type
+ $dbh->do(q|
+ UPDATE systempreferences SET type = 'Free'
+ WHERE variable = 'timeout'
+ |);
+ print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has not been adjusted.\n";
+ }
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.024";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE language_descriptions SET description = 'Română' WHERE subtag = 'ro' AND type = 'language' AND lang = 'ro';
+ });
+
+ print "Upgrade to $DBversion done (Bug 16311 - Advanced search language limit typo for Romanian)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.025";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE `subscription` ADD `itemtype` VARCHAR( 10 ) NULL AFTER reneweddate, ADD `previousitemtype` VARCHAR( 10 ) NULL AFTER itemtype;
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES
+ ('makePreviousSerialAvailable','0','make previous serial automatically available when collecting a new serial. Please note that the item-level_itypes syspref must be set to specific item.','','YesNo');
+ });
+
+ print "Upgrade to $DBversion done (Bug 7677 - Subscriptions: Ability to define default itemtype and automatically change itemtype of older issues on receive of next issue)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.026";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('PatronSelfRegistrationLibraryList', '', 'Only display libraries listed. If empty, all libraries are displayed.', NULL, 'Free');
+ });
+
+ print "Upgrade to $DBversion done (Bug 16274 - Make the selfregistration branchcode selection configurable)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.027";
+if ( CheckVersion($DBversion) ) {
+ unless ( column_exists('borrowers', 'lastseen') ) {
+ $dbh->do(q{
+ ALTER TABLE borrowers ADD COLUMN lastseen datetime default NULL AFTER updated_on;
+ });
+ $dbh->do(q{
+ ALTER TABLE deletedborrowers ADD COLUMN lastseen datetime default NULL AFTER updated_on;
+ });
+ }
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('TrackLastPatronActivity', '0', 'If set, the field borrowers.lastseen will be updated everytime a patron is seen', NULL, 'YesNo');
+ });
+
+ print "Upgrade to $DBversion done (Bug 16274 - Make the selfregistration branchcode selection configurable)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.028';
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ {
+ print "Attempting upgrade to $DBversion (Bug 17135) ...\n";
+ my $maintenance_script = C4::Context->config("intranetdir") . "/installer/data/mysql/fix_unclosed_nonaccruing_fines_bug17135.pl";
+ system("perl $maintenance_script --confirm");
+
+ print "Upgrade to $DBversion done (Bug 17135 - Fine for the previous overdue may get overwritten by the next one)\n";
+
+ unless ($original_version < TransformToNum("3.23.00.032")) { ## Bug 15675
+ print "WARNING: There is a possibility (= just a possibility, it's configuration dependent etc.) that - due to regression introduced by Bug 15675 - some old fine records for overdued items (items which got renewed 1+ time while being overdue) may have been overwritten in your production 16.05+ database. See Bugzilla reports for Bug 14390 and Bug 17135 for more details.\n";
+ print "WARNING: Please note that this upgrade does not try to recover such overwitten old fine records (if any) - it's just an follow-up for Bug 14390, its sole purpose is preventing eventual further-on overwrites from happening in the future. Optional recovery of the overwritten fines (again, if any) is like, totally outside of the scope of this particular upgrade!\n";
+ }
+ SetVersion ($DBversion);
+ }
+}
+
+$DBversion = "16.06.00.029";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE systempreferences SET type="Choice" WHERE variable="UsageStatsLibraryType";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Canada" WHERE variable="UsageStatsCountry" AND value="CANADA";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Czech Republic" WHERE variable="UsageStatsCountry" AND value="CZ";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="United Kingdom" WHERE variable="UsageStatsCountry" AND (value="England" OR value="UK");
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Spain" WHERE variable="UsageStatsCountry" AND value="España";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Greece" WHERE variable="UsageStatsCountry" AND value="GR";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Ireland" WHERE variable="UsageStatsCountry" AND value="Irelanbd";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Mexico" WHERE variable="UsageStatsCountry" AND value="México";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Peru" WHERE variable="UsageStatsCountry" AND value="Perú";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Dominican Rep." WHERE variable="UsageStatsCountry" AND value="República Dominicana";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Trinidad & Tob." WHERE variable="UsageStatsCountry" AND value="Trinidad";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Turkey" WHERE variable="UsageStatsCountry" AND value="Türkiye";
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="USA" WHERE variable="UsageStatsCountry" AND (value="United States" OR value="United States of America" OR value="US");
+ });
+ $dbh->do(q{
+ UPDATE systempreferences SET value="Zimbabwe" WHERE variable="UsageStatsCountry" AND value="Zimbabbwe";
+ });
+
+ print "Upgrade to $DBversion done (Bug 14707 - Change UsageStatsCountry from free text to a dropdown list)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.030";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
+ ('OPACHoldingsDefaultSortField','first_column','first_column|homebranch|holdingbranch','Default sort field for the holdings table at the OPAC','choice');
+ });
+
+ print "Upgrade to $DBversion done (Bug 16552 - Add the ability to change the default holdings sort)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.031";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('PatronSelfRegistrationPrefillForm', '1', 'Display password and prefill login form after a patron has self registered', NULL, 'YesNo');
+ });
+
+ print "Upgrade to $DBversion done (Bug 16273 - Prevent selfregistration from printing the borrower password and filling the logging form)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.032";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE marc_subfield_structure SET authorised_value="WITHDRAWN" WHERE authorised_value="WTHDRAWN";
+ });
+
+ print "Upgrade to $DBversion done (Bug 17357 - WTHDRAWN is still used in installer files)\n";
+ SetVersion($DBversion);
+}
+
+
+$DBversion = "16.06.00.033";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ CREATE TABLE authorised_value_categories (
+ category_name VARCHAR(32) NOT NULL,
+ primary key (category_name)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+ });
+## Add authorised value categories
+ $dbh->do(q{
+ INSERT INTO authorised_value_categories (category_name )
+ SELECT DISTINCT category FROM authorised_values;
+ });
+
+## Add special categories
+ $dbh->do(q{
+ INSERT IGNORE INTO authorised_value_categories( category_name )
+ VALUES
+ ('Asort1'),
+ ('Asort2'),
+ ('Bsort1'),
+ ('Bsort2'),
+ ('SUGGEST'),
+ ('DAMAGED'),
+ ('LOST'),
+ ('REPORT_GROUP'),
+ ('REPORT_SUBGROUP'),
+ ('DEPARTMENT'),
+ ('TERM'),
+ ('SUGGEST_STATUS'),
+ ('ITEMTYPECAT');
+ });
+
+## Add very special categories
+ $dbh->do(q{
+ INSERT IGNORE INTO authorised_value_categories( category_name )
+ VALUES
+ ('branches'),
+ ('itemtypes'),
+ ('cn_source');
+ });
+
+ $dbh->do(q{
+ INSERT IGNORE INTO authorised_value_categories( category_name )
+ VALUES
+ ('WITHDRAWN'),
+ ('RESTRICTED'),
+ ('NOT_LOAN'),
+ ('CCODE'),
+ ('LOC'),
+ ('STACK');
+ });
+
+## Update the FK
+ $dbh->do(q{
+ ALTER TABLE items_search_fields
+ DROP FOREIGN KEY items_search_fields_authorised_values_category;
+ });
+
+ $dbh->do(q{
+ ALTER TABLE items_search_fields
+ ADD CONSTRAINT `items_search_fields_authorised_values_category` FOREIGN KEY (`authorised_values_category`) REFERENCES `authorised_value_categories` (`category_name`) ON DELETE SET NULL ON UPDATE CASCADE;
+ });
+
+ $dbh->do(q{
+ ALTER TABLE authorised_values
+ ADD CONSTRAINT `authorised_values_authorised_values_category` FOREIGN KEY (`category`) REFERENCES `authorised_value_categories` (`category_name`) ON DELETE CASCADE ON UPDATE CASCADE;
+ });
+
+ $dbh->do(q{
+ INSERT IGNORE INTO authorised_value_categories( category_name ) SELECT DISTINCT(authorised_value) FROM marc_subfield_structure;
+ });
+
+ $dbh->do(q{
+ UPDATE marc_subfield_structure SET authorised_value = NULL WHERE authorised_value = ';';
+ });
+
+ # If the DB has been created before 3.19.00.006, the default collate for marc_subfield_structure if not set to utf8_unicode_ci and the new FK will not be create (MariaDB or MySQL will raise err 150)
+ my $table_sth = $dbh->prepare(qq|SHOW CREATE TABLE marc_subfield_structure|);
+ $table_sth->execute;
+ my @table = $table_sth->fetchrow_array;
+ if ( $table[1] !~ /COLLATE=utf8_unicode_ci/ and $table[1] !~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables
+ $dbh->do(qq|ALTER TABLE marc_subfield_structure CHARACTER SET utf8 COLLATE utf8_unicode_ci|);
+ }
+ $dbh->do(q{
+ ALTER TABLE marc_subfield_structure
+ MODIFY COLUMN authorised_value VARCHAR(32) DEFAULT NULL,
+ ADD CONSTRAINT marc_subfield_structure_ibfk_1 FOREIGN KEY (authorised_value) REFERENCES authorised_value_categories (category_name) ON UPDATE CASCADE ON DELETE SET NULL;
+ });
+
+ print "Upgrade to $DBversion done (Bug 17216 - Add a new table to store authorized value categories)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.034";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE biblioitems DROP COLUMN marc;
+ });
+ $dbh->do(q{
+ ALTER TABLE deletedbiblioitems DROP COLUMN marc;
+ });
+
+ print "Upgrade to $DBversion done (Bug 10455 - remove redundant 'biblioitems.marc' field)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.035';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type )
+ SELECT 'AllowItemsOnHoldCheckoutSCO',COALESCE(value,0),'','Do not generate RESERVE_WAITING and RESERVED warning in the SCO module when checking out items reserved to someone else. This allows self checkouts for those items.','YesNo'
+ FROM systempreferences WHERE variable='AllowItemsOnHoldCheckout';
+ });
+
+ print "Upgrade to $DBversion done (Bug 15131: Give SCO separate control for AllowItemsOnHoldCheckout)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.036';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ CREATE TABLE IF NOT EXISTS `housebound_profile` (
+ `borrowernumber` int(11) NOT NULL, -- Number of the borrower associated with this profile.
+ `day` text NOT NULL, -- The preferred day of the week for delivery.
+ `frequency` text NOT NULL, -- The Authorised_Value definining the pattern for delivery.
+ `fav_itemtypes` text default NULL, -- Free text describing preferred itemtypes.
+ `fav_subjects` text default NULL, -- Free text describing preferred subjects.
+ `fav_authors` text default NULL, -- Free text describing preferred authors.
+ `referral` text default NULL, -- Free text indicating how the borrower was added to the service.
+ `notes` text default NULL, -- Free text for additional notes.
+ PRIMARY KEY (`borrowernumber`),
+ CONSTRAINT `housebound_profile_bnfk`
+ FOREIGN KEY (`borrowernumber`)
+ REFERENCES `borrowers` (`borrowernumber`)
+ ON UPDATE CASCADE ON DELETE CASCADE
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+ });
+ $dbh->do(q{
+ CREATE TABLE IF NOT EXISTS `housebound_visit` (
+ `id` int(11) NOT NULL auto_increment, -- ID of the visit.
+ `borrowernumber` int(11) NOT NULL, -- Number of the borrower, & the profile, linked to this visit.
+ `appointment_date` date default NULL, -- Date of visit.
+ `day_segment` varchar(10), -- Rough time frame: 'morning', 'afternoon' 'evening'
+ `chooser_brwnumber` int(11) default NULL, -- Number of the borrower to choose items for delivery.
+ `deliverer_brwnumber` int(11) default NULL, -- Number of the borrower to deliver items.
+ PRIMARY KEY (`id`),
+ CONSTRAINT `houseboundvisit_bnfk`
+ FOREIGN KEY (`borrowernumber`)
+ REFERENCES `housebound_profile` (`borrowernumber`)
+ ON UPDATE CASCADE ON DELETE CASCADE,
+ CONSTRAINT `houseboundvisit_bnfk_1`
+ FOREIGN KEY (`chooser_brwnumber`)
+ REFERENCES `borrowers` (`borrowernumber`)
+ ON UPDATE CASCADE ON DELETE CASCADE,
+ CONSTRAINT `houseboundvisit_bnfk_2`
+ FOREIGN KEY (`deliverer_brwnumber`)
+ REFERENCES `borrowers` (`borrowernumber`)
+ ON UPDATE CASCADE ON DELETE CASCADE
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+ });
+ $dbh->do(q{
+ CREATE TABLE IF NOT EXISTS `housebound_role` (
+ `borrowernumber_id` int(11) NOT NULL, -- borrowernumber link
+ `housebound_chooser` tinyint(1) NOT NULL DEFAULT 0, -- set to 1 to indicate this patron is a housebound chooser volunteer
+ `housebound_deliverer` tinyint(1) NOT NULL DEFAULT 0, -- set to 1 to indicate this patron is a housebound deliverer volunteer
+ PRIMARY KEY (`borrowernumber_id`),
+ CONSTRAINT `houseboundrole_bnfk`
+ FOREIGN KEY (`borrowernumber_id`)
+ REFERENCES `borrowers` (`borrowernumber`)
+ ON UPDATE CASCADE ON DELETE CASCADE
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences
+ (variable,value,options,explanation,type) VALUES
+ ('HouseboundModule',0,'',
+ 'If ON, enable housebound module functionality.','YesNo');
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO authorised_value_categories( category_name ) VALUES
+ ('HSBND_FREQ');
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO authorised_values (category, authorised_value, lib) VALUES
+ ('HSBND_FREQ','EW','Every week');
+ });
+
+ print "Upgrade to $DBversion done (Bug 5670 - Housebound Readers Module)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.037";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE `issuingrules` ADD `article_requests` ENUM( 'no', 'yes', 'bib_only', 'item_only' ) NOT NULL DEFAULT 'no' AFTER `opacitemholds`;
+ });
+ $dbh->do(q{
+ INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES
+ ('ArticleRequests', '0', NULL, 'Enables the article request feature', 'YesNo'),
+ ('ArticleRequestsMandatoryFields', '', NULL, 'Comma delimited list of required fields for bibs where article requests rule = ''yes''', 'multiple'),
+ ('ArticleRequestsMandatoryFieldsItemsOnly', '', NULL, 'Comma delimited list of required fields for bibs where article requests rule = ''item_only''', 'multiple'),
+ ('ArticleRequestsMandatoryFieldsRecordOnly', '', NULL, 'Comma delimited list of required fields for bibs where article requests rule = ''bib_only''', 'multiple');
+ });
+ $dbh->do(q{
+ CREATE TABLE IF NOT EXISTS `article_requests` (
+ `id` int(11) NOT NULL AUTO_INCREMENT,
+ `borrowernumber` int(11) NOT NULL,
+ `biblionumber` int(11) NOT NULL,
+ `itemnumber` int(11) DEFAULT NULL,
+ `branchcode` varchar(10) CHARACTER SET utf8 COLLATE utf8_unicode_ci DEFAULT NULL,
+ `title` text,
+ `author` text,
+ `volume` text,
+ `issue` text,
+ `date` text,
+ `pages` text,
+ `chapters` text,
+ `patron_notes` text,
+ `status` enum('PENDING','PROCESSING','COMPLETED','CANCELED') NOT NULL DEFAULT 'PENDING',
+ `notes` text,
+ `created_on` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
+ `updated_on` timestamp NULL DEFAULT NULL,
+ PRIMARY KEY (`id`),
+ KEY `borrowernumber` (`borrowernumber`),
+ KEY `biblionumber` (`biblionumber`),
+ KEY `itemnumber` (`itemnumber`),
+ KEY `branchcode` (`branchcode`),
+ CONSTRAINT `article_requests_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
+ CONSTRAINT `article_requests_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
+ CONSTRAINT `article_requests_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE SET NULL ON UPDATE CASCADE,
+ CONSTRAINT `article_requests_ibfk_4` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE SET NULL ON UPDATE CASCADE
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+ });
+ $dbh->do(q{
+ INSERT INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, `title`, `content`, `message_transport_type`) VALUES
+ ('circulation', 'AR_CANCELED', '', 'Article Request - Email - Canceled', 0, 'Article Request Canceled', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nYour request for an article from <<biblio.title>> (<<items.barcode>>) has been canceled for the following reason:\r\n\r\n<<article_requests.notes>>\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n', 'email'),
+ ('circulation', 'AR_COMPLETED', '', 'Article Request - Email - Completed', 0, 'Article Request Completed', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nWe are have completed your request for an article from <<biblio.title>> (<<items.barcode>>).\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n\r\nYou may pick your article up at <<branches.branchname>>.\r\n\r\nThank you!', 'email'),
+ ('circulation', 'AR_PENDING', '', 'Article Request - Email - Open', 0, 'Article Request Received', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nWe have received your request for an article from <<biblio.title>> (<<items.barcode>>).\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n\r\n\r\nThank you!', 'email'),
+ ('circulation', 'AR_SLIP', '', 'Article Request - Print Slip', 0, 'Test', 'Article Request:\r\n\r\n<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nTitle: <<biblio.title>>\r\nBarcode: <<items.barcode>>\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n', 'print'),
+ ('circulation', 'AR_PROCESSING', '', 'Article Request - Email - Processing', 0, 'Article Request Processing', '<<borrowers.firstname>> <<borrowers.surname>> (<<borrowers.cardnumber>>)\r\n\r\nWe are now processing your request for an article from <<biblio.title>> (<<items.barcode>>).\r\n\r\nArticle requested:\r\nTitle: <<article_requests.title>>\r\nAuthor: <<article_requests.author>>\r\nVolume: <<article_requests.volume>>\r\nIssue: <<article_requests.issue>>\r\nDate: <<article_requests.date>>\r\nPages: <<article_requests.pages>>\r\nChapters: <<article_requests.chapters>>\r\nNotes: <<article_requests.patron_notes>>\r\n\r\nThank you!', 'email');
+ });
+
+ print "Upgrade to $DBversion done (Bug 14610 - Add ability to place article requests in Koha)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.038';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('DefaultPatronSearchFields','surname,firstname,othernames,cardnumber,userid',NULL,'Comma separated list defining the default fields to be used during a patron search','free');
+ });
+
+ print "Upgrade to $DBversion done (Bug 14874 - Add ability to search for patrons by date of birth from checkout and patron quick searches)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.06.00.039";
+if ( CheckVersion($DBversion) ) {
+
+ my $sth = $dbh->prepare(q{
+ SELECT s.itemnumber, i.itype, b.itemtype
+ FROM
+ ( SELECT DISTINCT itemnumber
+ FROM statistics
+ WHERE ( type = "return" OR type = "localuse" ) AND
+ itemtype IS NULL
+ ) s
+ LEFT JOIN
+ ( SELECT itemnumber,biblionumber, itype
+ FROM items
+ UNION
+ SELECT itemnumber,biblionumber, itype
+ FROM deleteditems
+ ) i
+ ON (s.itemnumber=i.itemnumber)
+ LEFT JOIN
+ ( SELECT biblionumber, itemtype
+ FROM biblioitems
+ UNION
+ SELECT biblionumber, itemtype
+ FROM deletedbiblioitems
+ ) b
+ ON (i.biblionumber=b.biblionumber);
+ });
+ $sth->execute();
+
+ my $update_sth = $dbh->prepare(q{
+ UPDATE statistics
+ SET itemtype=?
+ WHERE itemnumber=? AND itemtype IS NULL
+ });
+ my $ilevel_itypes = C4::Context->preference('item-level_itypes');
+
+ while ( my ($itemnumber,$item_itype,$biblio_itype) = $sth->fetchrow_array ) {
+
+ my $effective_itemtype = $ilevel_itypes
+ ? $item_itype // $biblio_itype
+ : $biblio_itype;
+ warn "item-level_itypes set but no itype defined for item ($itemnumber)"
+ if $ilevel_itypes and !defined $item_itype;
+ $update_sth->execute( $effective_itemtype, $itemnumber );
+ }
+
+ print "Upgrade to $DBversion done (Bug 14598: itemtype is not set on statistics by C4::Circulation::AddReturn)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.040';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE `aqcontacts` ADD `orderacquisition` BOOLEAN NOT NULL DEFAULT 0 AFTER `notes`;
+ });
+ $dbh->do(q{
+ INSERT IGNORE INTO `letter` (module, code, name, title, content, message_transport_type) VALUES
+ ('orderacquisition','ACQORDER','Acquisition order','Order','<<aqbooksellers.name>>\r\n<<aqbooksellers.address1>>\r\n<<aqbooksellers.address2>>\r\n<<aqbooksellers.address3>>\r\n<<aqbooksellers.address4>>\r\n<<aqbooksellers.phone>>\r\n\r\nPlease order for the library:\r\n\r\n<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (quantity: <<aqorders.quantity>>) ($<<aqorders.listprice>> each).</order>\r\n\r\nThank you,\n\n<<branches.branchname>>', 'email');
+ });
+
+ print "Upgrade to $DBversion done (Bug 5260 - Add option to send an order by e-mail to the acquisition module)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.041';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('AggressiveMatchOnISSN','0','If enabled, attempt to match aggressively by trying all variations of the ISSNs in the imported record as a phrase in the ISSN fields of already cataloged records when matching on ISSN with the record import tool','','YesNo')
+ });
+
+ print "Upgrade to $DBversion done (Bug 14629 - Add aggressive ISSN matching feature equivalent to the aggressive ISBN matcher)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.042';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q|
+ ALTER TABLE aqorders
+ ADD COLUMN unitprice_tax_excluded decimal(28,6) default NULL AFTER unitprice,
+ ADD COLUMN unitprice_tax_included decimal(28,6) default NULL AFTER unitprice_tax_excluded,
+ ADD COLUMN rrp_tax_excluded decimal(28,6) default NULL AFTER rrp,
+ ADD COLUMN rrp_tax_included decimal(28,6) default NULL AFTER rrp_tax_excluded,
+ ADD COLUMN ecost_tax_excluded decimal(28,6) default NULL AFTER ecost,
+ ADD COLUMN ecost_tax_included decimal(28,6) default NULL AFTER ecost_tax_excluded,
+ ADD COLUMN tax_value decimal(6,4) default NULL AFTER gstrate
+ |);
+
+ # rename gstrate with tax_rate
+ $dbh->do(q|ALTER TABLE aqorders CHANGE COLUMN gstrate tax_rate decimal(6,4) DEFAULT NULL|);
+ $dbh->do(q|ALTER TABLE aqbooksellers CHANGE COLUMN gstrate tax_rate decimal(6,4) DEFAULT NULL|);
+
+ # Fill the new columns
+ my $orders = $dbh->selectall_arrayref(q|
+ SELECT * FROM aqorders
+ |, { Slice => {} } );
+
+ my $sth_update_order = $dbh->prepare(q|
+ UPDATE aqorders
+ SET unitprice_tax_excluded = ?,
+ unitprice_tax_included = ?,
+ rrp_tax_excluded = ?,
+ rrp_tax_included = ?,
+ ecost_tax_excluded = ?,
+ ecost_tax_included = ?,
+ tax_value = ?
+ WHERE ordernumber = ?
+ |);
+
+ my $sth_get_bookseller = $dbh->prepare(q|
+ SELECT aqbooksellers.*
+ FROM aqbooksellers
+ LEFT JOIN aqbasket ON aqbasket.booksellerid = aqbooksellers.id
+ LEFT JOIN aqorders ON aqorders.basketno = aqbasket.basketno
+ WHERE ordernumber = ?
+ |);
+
+ require Koha::Number::Price;
+ for my $order ( @$orders ) {
+ $sth_get_bookseller->execute( $order->{ordernumber} );
+ my ( $bookseller ) = $sth_get_bookseller->fetchrow_hashref;
+ $order->{rrp} = Koha::Number::Price->new( $order->{rrp} )->round;
+ $order->{ecost} = Koha::Number::Price->new( $order->{ecost} )->round;
+ $order->{tax_rate} ||= 0 ; # tax_rate can be NULL in DB
+ # Ordering
+ if ( $bookseller->{listincgst} ) {
+ $order->{rrp_tax_included} = $order->{rrp};
+ $order->{rrp_tax_excluded} = Koha::Number::Price->new(
+ $order->{rrp_tax_included} / ( 1 + $order->{tax_rate} ) )->round;
+ $order->{ecost_tax_included} = $order->{ecost};
+ $order->{ecost_tax_excluded} = Koha::Number::Price->new(
+ $order->{ecost} / ( 1 + $order->{tax_rate} ) )->round;
+ }
+ else {
+ $order->{rrp_tax_excluded} = $order->{rrp};
+ $order->{rrp_tax_included} = Koha::Number::Price->new(
+ $order->{rrp} * ( 1 + $order->{tax_rate} ) )->round;
+ $order->{ecost_tax_excluded} = $order->{ecost};
+ $order->{ecost_tax_included} = Koha::Number::Price->new(
+ $order->{ecost} * ( 1 + $order->{tax_rate} ) )->round;
+ }
+
+ #receiving
+ if ( $bookseller->{listincgst} ) {
+ $order->{unitprice_tax_included} = Koha::Number::Price->new( $order->{unitprice} )->round;
+ $order->{unitprice_tax_excluded} = Koha::Number::Price->new(
+ $order->{unitprice_tax_included} / ( 1 + $order->{tax_rate} ) )->round;
+ }
+ else {
+ $order->{unitprice_tax_excluded} = Koha::Number::Price->new( $order->{unitprice} )->round;
+ $order->{unitprice_tax_included} = Koha::Number::Price->new(
+ $order->{unitprice_tax_excluded} * ( 1 + $order->{tax_rate} ) )->round;
+ }
+
+ # If the order is received, the tax is calculated from the unit price
+ if ( $order->{orderstatus} eq 'complete' ) {
+ $order->{tax_value} = Koha::Number::Price->new(
+ ( $order->{unitprice_tax_included} - $order->{unitprice_tax_excluded} )
+ * $order->{quantity} )->round;
+ } else {
+ # otherwise the ecost is used
+ $order->{tax_value} = Koha::Number::Price->new(
+ ( $order->{ecost_tax_included} - $order->{ecost_tax_excluded} ) *
+ $order->{quantity} )->round;
+ }
+
+ $sth_update_order->execute(
+ $order->{unitprice_tax_excluded},
+ $order->{unitprice_tax_included},
+ $order->{rrp_tax_excluded},
+ $order->{rrp_tax_included},
+ $order->{ecost_tax_excluded},
+ $order->{ecost_tax_included},
+ $order->{tax_value},
+ $order->{ordernumber},
+ );
+ }
+
+ print "Upgrade to $DBversion done (Bug 13321 - Tax and prices calculation need to be fixed)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.043';
+if ( CheckVersion($DBversion) ) {
+ # Add the new columns
+ $dbh->do(q|
+ ALTER TABLE aqorders
+ ADD COLUMN tax_rate_on_ordering decimal(6,4) default NULL AFTER tax_rate,
+ ADD COLUMN tax_rate_on_receiving decimal(6,4) default NULL AFTER tax_rate_on_ordering,
+ ADD COLUMN tax_value_on_ordering decimal(28,6) default NULL AFTER tax_value,
+ ADD COLUMN tax_value_on_receiving decimal(28,6) default NULL AFTER tax_value_on_ordering
+ |);
+
+ my $orders = $dbh->selectall_arrayref(q|
+ SELECT * FROM aqorders
+ |, { Slice => {} } );
+
+ my $sth_update_order = $dbh->prepare(q|
+ UPDATE aqorders
+ SET tax_rate_on_ordering = tax_rate,
+ tax_rate_on_receiving = tax_rate,
+ tax_value_on_ordering = ?,
+ tax_value_on_receiving = ?
+ WHERE ordernumber = ?
+ |);
+
+ require Koha::Number::Price;
+ for my $order (@$orders) {
+ my $tax_value_on_ordering =
+ $order->{quantity} *
+ $order->{ecost_tax_excluded} *
+ $order->{tax_rate};
+
+ my $tax_value_on_receiving =
+ ( defined $order->{unitprice_tax_excluded} )
+ ? $order->{quantity} * $order->{unitprice_tax_excluded} * $order->{tax_rate}
+ : undef;
+
+ $sth_update_order->execute( $tax_value_on_ordering,
+ $tax_value_on_receiving, $order->{ordernumber} );
+ }
+
+ # Remove the old columns
+ $dbh->do(q|
+ ALTER TABLE aqorders
+ CHANGE COLUMN tax_value tax_value_bak decimal(28,6) default NULL,
+ CHANGE COLUMN tax_rate tax_rate_bak decimal(6,4) default NULL
+ |);
+
+ print "Upgrade to $DBversion done (Bug 13323 - Change the tax rate on receiving)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.044';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE `messages`
+ ADD `manager_id` int(11) NULL,
+ ADD FOREIGN KEY (`manager_id`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL;
+ });
+
+ print "Upgrade to $DBversion done (Bug 17397 - Show name of librarian who created circulation message)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.045';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE systempreferences SET options = "now|dateexpiry|combination", explanation = "Set whether the borrower renewal date should be counted from the dateexpiry, from the current date or by combination: if the dateexpiry is in future use dateexpiry, else use current date " WHERE variable = "BorrowerRenewalPeriodBase";
+ });
+
+ print "Upgrade to $DBversion done (Bug 17443 - Make possible to renew patron by later of expiry and current date)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.046';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE issuingrules ADD COLUMN no_auto_renewal_after INT(4) DEFAULT NULL AFTER auto_renew;
+ });
+
+ print "Upgrade to $DBversion done (Bug 15581 - Add a circ rule to not allow auto-renewals after defined loan period)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.047';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE language_descriptions SET description = 'Čeština' WHERE subtag = 'cs' AND type = 'language' AND lang = 'cs'
+ });
+
+ print "Upgrade to $DBversion done (Bug 17518: Displayed language name for Czech is wrong)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.06.00.048';
+if( CheckVersion( $DBversion ) ) {
+ $dbh->do(q|
+ INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
+ (13, 'upload_general_files', 'Upload any file'),
+ (13, 'upload_manage', 'Manage uploaded files');
+ |);
+
+ # Update user_permissions for current users (check count in uploaded_files)
+ # Note 9 == edit_catalogue and 13 == tools
+ # We do not insert if someone is superlibrarian, does not have edit_catalogue,
+ # or already has all tools
+ $dbh->do(q|
+ INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code)
+ SELECT borrowernumber, 13, 'upload_general_files'
+ FROM borrowers bo
+ WHERE flags<>1 AND flags & POW(2,13) = 0 AND
+ ( flags & POW(2,9) > 0 OR (
+ SELECT COUNT(*) FROM user_permissions
+ WHERE borrowernumber=bo.borrowernumber AND module_bit=9 ) > 0 )
+ AND ( SELECT COUNT(*) FROM uploaded_files ) > 0;
+ |);
+
+ SetVersion( $DBversion );
+ print "Upgrade to $DBversion done (Bug 17663 - Forgotten userpermissions)\n";
+}
+
+$DBversion = '16.06.00.049';
+if( CheckVersion( $DBversion ) ) {
+ $dbh->do(q|
+ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
+ VALUES ('ReplytoDefault', '', NULL, 'The default email address to be set as replyto.', 'Free');
+ |);
+
+ $dbh->do(q|
+ INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
+ VALUES ('ReturnpathDefault', '', NULL, 'The default email address to be set as return-path', 'Free');
+ |);
+
+ SetVersion( $DBversion );
+ print "Upgrade to $DBversion done (Bug 17391 - ReturnpathDefault and ReplyToDefault missing from syspref.sql)\n";
+}
+
+$DBversion = "16.06.00.050";
+if ( CheckVersion($DBversion) ) {
+
+ # If index issn_idx still exists, we assume that dbrev 3.15.00.049 failed,
+ # and we repeat it (partially).
+ # Note: the db rev only pertains to biblioitems and is not needed for
+ # deletedbiblioitems.
+
+ my $temp = $dbh->selectall_arrayref( "SHOW INDEXES FROM biblioitems WHERE key_name = 'issn_idx'" );
+
+ if( @$temp > 0 ) {
+ $dbh->do( "ALTER TABLE biblioitems DROP INDEX isbn" );
+ $dbh->do( "ALTER TABLE biblioitems DROP INDEX issn" );
+ $dbh->do( "ALTER TABLE biblioitems DROP INDEX issn_idx" );
+ $dbh->do( "ALTER TABLE biblioitems CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL, CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL" );
+ $dbh->do( "ALTER TABLE biblioitems ADD INDEX isbn ( isbn ( 255 ) ), ADD INDEX issn ( issn ( 255 ) )" );
+ print "Upgrade to $DBversion done (Bug 8835). Removed issn_idx.\n";
+ } else {
+ print "Upgrade to $DBversion done (Bug 8835). Everything is fine.\n";
+ }
+
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.11.00.000";
+if ( CheckVersion($DBversion) ) {
+ print "Upgrade to $DBversion done (Koha 16.11)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.12.00.000";
+if ( CheckVersion($DBversion) ) {
+ print "Upgrade to $DBversion done (Koha 16.12 - Our battered suitcases were piled on the sidewalk again; we had longer ways to go. But no matter, the road is life.)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "16.12.00.001";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE borrower_modifications
+ ADD COLUMN extended_attributes text DEFAULT NULL
+ AFTER privacy
+ });
+
+ print "Upgrade to $DBversion done (Bug 17767 - Let Koha::Patron::Modification handle extended attributes)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = '16.12.00.002';
+if ( CheckVersion($DBversion) ) {
+ unless (column_exists( 'branchtransfers', 'branchtransfer_id' )
+ and index_exists( 'branchtransfers', 'PRIMARY' ) )
+ {
+ $dbh->do(
+ "ALTER TABLE branchtransfers
+ ADD COLUMN branchtransfer_id int(12) NOT NULL auto_increment FIRST, ADD CONSTRAINT PRIMARY KEY (branchtransfer_id);"
+ );
+ }
+
+ SetVersion($DBversion);
+ print "Upgrade to $DBversion done (Bug 14187 - branchtransfer needs a primary key (id) for DBIx and common sense.)\n";
+}
+
+$DBversion = '16.12.00.003';
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{DELETE FROM systempreferences WHERE variable="Persona"});
+ SetVersion($DBversion);
+ print "Upgrade to $DBversion done (Bug 17486 - Remove 'Mozilla Persona' as an authentication method)\n";
+}
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
# SEE bug 13068
opendir( my $dirh, $update_dir );
foreach my $file ( sort readdir $dirh ) {
next if $file !~ /\.(sql|perl)$/; #skip other files
+ next if $file eq 'skeleton.perl'; # skip the skeleton file
print "DEV atomic update: $file\n";
if ( $file =~ /\.sql$/ ) {
my $installer = C4::Installer->new();
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
} elsif ( $file =~ /\.perl$/ ) {
- do $update_dir . $file;
+ my $code = read_file( $update_dir . $file );
+ eval $code;
+ say "Atomic update generated errors: $@" if $@;
}
}
projects / srvgit / blobdiff