$DBversion = '19.11.00.000';
if( CheckVersion( $DBversion ) ) {
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (19.11.00 release)\n";
+ NewVersion( $DBversion, undef, '19.11.00 release' );
}
$DBversion = '19.12.00.000';
if( CheckVersion( $DBversion ) ) {
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Dobbie is a free elf...)\n";
+ NewVersion( $DBversion, undef, 'Dobbie is a free elf...' );
}
$DBversion = '19.12.00.001';
if( CheckVersion( $DBversion ) ) {
$dbh->do( "UPDATE marc_subfield_structure SET kohafield = NULL WHERE kohafield = 'bibliosubject.subject';" );
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 17831 - Remove non-existing bibliosubject.subject from frameworks)\n";
+ NewVersion( $DBversion, 17831, 'Remove non-existing bibliosubject.subject from frameworks' );
}
$DBversion = '19.12.00.002';
WHERE variable = 'AllowItemsOnHoldCheckout'
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 23233 - Rename AllowItemsOnHoldCheckout syspref)\n";
+ NewVersion( $DBversion, 23233, 'Rename AllowItemsOnHoldCheckout syspref' );
}
$DBversion = '19.12.00.003';
$dbh->do( "ALTER TABLE library_groups ADD COLUMN ft_local_hold_group tinyint(1) NOT NULL DEFAULT 0 AFTER ft_search_groups_staff" );
}
- # Always end with this (adjust the bug info)
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 22284 - Add ft_local_hold_group column to library_groups)\n";
+ NewVersion( $DBversion, 22284, 'Add ft_local_hold_group column to library_groups' );
}
$DBversion = '19.12.00.004';
(10, 'payout', 'Perform account payout action')
});
- SetVersion($DBversion);
- print "Upgrade to $DBversion done (Bug 24080 - Add PAYOUT account_debit_type)\n";
- print "Upgrade to $DBversion done (Bug 24080 - Add PAYOUT account_offset_type)\n";
- print "Upgrade to $DBversion done (Bug 24080 - Add accounts payout permission)\n";
+ NewVersion( $DBversion, 24080, ['Add PAYOUT account_debit_type', 'Add PAYOUT account_offset_type', 'Add accounts payout permission'] );
}
$DBversion = '19.12.00.005';
if( CheckVersion( $DBversion ) ) {
$dbh->do( "ALTER TABLE action_logs MODIFY COLUMN `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP" );
- # Always end with this (adjust the bug info)
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24329 - Do not update action_log.timestamp)\n";
+ NewVersion( $DBversion, 24329, 'Do not update action_log.timestamp' );
}
$DBversion = '19.12.00.006';
WHERE relationship = ""
|);
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24263 - Replace relationship with NULL when empty string)\n";
+ NewVersion( $DBversion, 24263, 'Replace relationship with NULL when empty string' );
}
$DBversion = '19.12.00.007';
(10, 'refund', 'Perform account refund action')
});
- SetVersion($DBversion);
- print "Upgrade to $DBversion done (Bug 23442 - Add REFUND to account_credit_types)\n";
- print "Upgrade to $DBversion done (Bug 23442 - Add REFUND to account_offset_types)\n";
- print "Upgrade to $DBversion done (Bug 23442 - Add accounts refund permission)\n";
+ NewVersion( $DBversion, 23442, ['Add REFUND to account_credit_types', 'Add REFUND to account_offset_types', 'Add accounts refund permission'] );
}
$DBversion = '19.12.00.008';
$dbh->do( 'UPDATE systempreferences SET value = REPLACE(value, "http://www.bookfinder.com", "https://www.bookfinder.com") WHERE variable = "OPACSearchForTitleIn"' );
$dbh->do( 'UPDATE systempreferences SET value = REPLACE(value, "https://openlibrary.org/search/?", "https://openlibrary.org/search?") WHERE variable = "OPACSearchForTitleIn"' );
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24206 - Update OpacSearchForTitleIn system preference)\n";
+ NewVersion( $DBversion, 24206, 'Update OpacSearchForTitleIn system preference' );
}
$DBversion = '19.12.00.009';
(25, 'takepayment', 'Access the point of sale page and take payments')
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 23354 - Add 'Purchase' account offset type)\n";
- print "Upgrade to $DBversion done (Bug 23354 - Add 'RECEIPT' notice for Point of Sale)\n";
- print "Upgrade to $DBversion done (Bug 23354 - Add point of sale permissions)\n";
+ NewVersion( $DBversion, 23354, [q|Add 'Purchase' account offset type|, q|Add 'RECEIPT' notice for Point of Sale|, q|Add point of sale permissions|] );
}
$DBversion = '19.12.00.010';
}
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 21520 - Add rule_order and rule_operator fields to oai_sets_mappings table)\n";
+ NewVersion( $DBversion, 21520, 'Add rule_order and rule_operator fields to oai_sets_mappings table' );
}
$DBversion = '19.12.00.011';
|);
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24289 - Adding foreign keys on *_holidays.branchcode tables)\n";
+ NewVersion( $DBversion, 24289, 'Adding foreign keys on *_holidays.branchcode tables' );
}
$DBversion = '19.12.00.012';
`code` = 'manage_cash_registers'
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24481 - Move permission to correct module_bit)\n";
+ NewVersion( $DBversion, 24481, 'Move permission to correct module_bit' );
}
$DBversion = '19.12.00.013';
('EnablePointOfSale','0',NULL,'Enable the point of sale feature to allow anonymous transactions with the accounting system. (Requires UseCashRegisters)','YesNo')
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24478 - Add `EnablePointOfSale` system preference to allow disabling the point of sale feature)\n";
+ NewVersion( $DBversion, 24478, 'Add `EnablePointOfSale` system preference to allow disabling the point of sale feature)' );
}
$DBversion = '19.12.00.014';
);
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24287 - Add 'reason' field to transfers table)\n";
+ NewVersion( $DBversion, 24287, q|Add 'reason' field to transfers table| );
}
$DBversion = '19.12.00.015';
}
);
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24296 - Update stockrotation to use 'reason' field in transfers table)\n";
+ NewVersion( $DBversion, 24296, q|Update stockrotation to use 'reason' field in transfers table| );
}
$DBversion = '19.12.00.016';
UPDATE borrowers SET flags = flags + (1<<12) WHERE flags & (1 << 11)
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 22868 - Move suggestions_manage subpermission out of acquisition permission)\n";
+ NewVersion( $DBversion, 22868, 'Move suggestions_manage subpermission out of acquisition permission' );
}
$DBversion = '19.12.00.017';
|);
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 21674 - Add unique key (parent_id, branchcode) to library_group)\n";
+ NewVersion( $DBversion, 21674, 'Add unique key (parent_id, branchcode) to library_group' );
}
$DBversion = '19.12.00.018';
$dbh->do("DROP TABLE issuingrules");
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 18936: Convert issuingrules fields to circulation_rules)\n";
+ NewVersion( $DBversion, 18936, 'Convert issuingrules fields to circulation_rules' );
}
$DBversion = '19.12.00.019';
$dbh->do("UPDATE message_queue SET updated_on=time_queued");
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 23673 - modify time_queued and add updated_on to message_queue)\n";
+ NewVersion( $DBversion, 23673, 'modify time_queued and add updated_on to message_queue' );
}
$DBversion = '19.12.00.020';
if ( !column_exists( 'marc_tag_structure', 'important') ){
$dbh->do("ALTER TABLE marc_tag_structure ADD COLUMN important TINYINT(4) NOT NULL DEFAULT 0 AFTER mandatory");
}
- SetVersion($DBversion);
- print "Upgrade to $DBversion done (Bug 8643 - Add important constraint to marc subfields)\n";
+
+ NewVersion( $DBversion, 8643, 'Add important constraint to marc subfields' );
}
$DBversion = '19.12.00.021';
( 'Lost Item Found' )
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24592 - Update LOST_RETURN to LOST_FOUND)\n";
+ NewVersion( $DBversion, 24592, 'Update LOST_RETURN to LOST_FOUND');
}
$DBversion = '19.12.00.022';
$dbh->do( "ALTER TABLE items MODIFY COLUMN uri MEDIUMTEXT" );
$dbh->do( "ALTER TABLE deleteditems MODIFY COLUMN uri MEDIUMTEXT" );
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 20882 - items.uri to MEDIUMTEXT)\n";
+ NewVersion( $DBversion, 20882, 'items.uri to MEDIUMTEXT');
}
$DBversion = '19.12.00.023';
if( CheckVersion( $DBversion ) ) {
$dbh->do( "ALTER TABLE quotes MODIFY timestamp datetime NULL" );
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24640 - Allow quotes.timestamp to be NULL)\n";
+ NewVersion( $DBversion, 24640, 'Allow quotes.timestamp to be NULL');
}
$DBversion = '19.12.00.024';
explanation = "Choose the fines mode, 'off' (do not accrue fines) or 'production' (accrue overdue fines). Requires accruefines cronjob or CalculateFinesOnReturn system preference."
WHERE variable = 'finesMode'
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 21633 - Remove finesMode 'test')\n";
+
+ NewVersion( $DBversion, 21633, 'Remove finesMode "test"');
}
$DBversion = '19.12.00.025';
INSERT IGNORE INTO `systempreferences` (variable,value,options,explanation,type)
VALUES ('DumpSearchQueryTemplate',0,'','Add the search query being passed to the search engine into the template for debugging','YesNo')
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24103 - add DumpSearchQueryTemplate syspref)\n";
+
+ NewVersion( $DBversion, 24103, 'add DumpSearchQueryTemplate syspref');
}
$DBversion = '19.12.00.026';
$dbh->do( "ALTER TABLE z3950servers ADD COLUMN attributes VARCHAR(255) after add_xslt" );
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 11297 - Add support for custom PQF attributes for Z39.50 server searches)\n";
+ NewVersion( $DBversion, 11297, 'Add support for custom PQF attributes for Z39.50 server searches');
}
$DBversion = '19.12.00.027';
debit_type_code IS NOT NULL
});
- # Always end with this (adjust the bug info)
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24532 - Fix pathological cases of negative debits)\n";
+ NewVersion( $DBversion, 24532, 'Fix pathological cases of negative debits');
}
$DBversion = '19.12.00.028';
VALUES
('OpacBrowseSearch', '0',NULL, "Elasticsearch only: add a page allowing users to 'browse' all items in the collection",'YesNo')
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 14567: Add OpacBrowseSearch syspref)\n";
+
+ NewVersion( $DBversion, 14567, 'Add OpacBrowseSearch syspref');
}
$DBversion = '19.12.00.029';
$dbh->do('ALTER TABLE account_credit_types ADD COLUMN archived tinyint(1) NOT NULL DEFAULT 0 AFTER is_system');
}
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 17702 - Add column account_credit_types.archived)\n";
+ NewVersion( $DBversion, 17702, 'Add column account_credit_types.archived');
}
$DBversion = '19.12.00.030';
my ($opacheader) = $dbh->selectrow_array( q|
SELECT value FROM systempreferences WHERE variable='opacheader';
|);
+
+ my @detail;
if( $opacheader ){
foreach my $lang ( @langs ) {
- print "Inserting opacheader contents into $lang news item...\n";
# If there is a value in the opacheader preference, insert it into opac_news
$dbh->do("INSERT INTO opac_news (branchcode, lang, title, content ) VALUES (NULL, ?, '', ?)", undef, "opacheader_$langs[0]", $opacheader);
+ push @detail, "Inserted opacheader contents into $lang news item...\n";
}
}
# Remove the opacheader system preference
$dbh->do("DELETE FROM systempreferences WHERE variable='opacheader'");
- SetVersion ($DBversion);
- print "Upgrade to $DBversion done (Bug 22880: Move contents of opacheader preference to Koha news system)\n";
+
+ unshift @detail, 'Move contents of opacheader preference to Koha news system';
+ NewVersion( $DBversion, 22880, \@detail);
}
$DBversion = '19.12.00.031';
$dbh->do( q|
ALTER TABLE article_requests MODIFY COLUMN created_on timestamp NULL, MODIFY COLUMN updated_on timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp()
|);
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 22273: Column article_requests.created_on should not be updated)\n";
+
+ NewVersion( $DBversion, 22273, "Column article_requests.created_on should not be updated" );
}
$DBversion = '19.12.00.032';
DELETE FROM systempreferences WHERE variable="UseQueryParser"
|);
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24735 - Remove UseQueryParser system preference)\n";
+ NewVersion( $DBversion, 24735, "Remove UseQueryParser system preference" );
}
$DBversion = '19.12.00.033';
(25, 'cashup', 'Perform cash register cashup action')
});
- SetVersion($DBversion);
- print "Upgrade to $DBversion done (Bug 23355 - Add cash_register_actions table)\n";
- print "Upgrade to $DBversion done (Bug 23355 - Add cash register cashup permissions)\n";
+ NewVersion( $DBversion, 23355, [ "Add cash_register_actions table", "Add cash register cashup permissions" ] );
}
$DBversion = '19.12.00.034';
}
);
- SetVersion($DBversion);
- print "Upgrade to $DBversion done (Bug 24081 - Add DISCOUNT to account_credit_types and account_offset_types, Add accounts discount permission)\n";
+ NewVersion( $DBversion, 24081, "Add DISCOUNT to account_credit_types and account_offset_types, Add accounts discount permission");
}
$DBversion = '19.12.00.035';
(25, 'anonymous_refund', 'Perform refund actions from cash registers')
});
- SetVersion($DBversion);
- print "Upgrade to $DBversion done (Bug 23442 - Add a refund option to the point of sale system)\n";
+ NewVersion( $DBversion, 23442, "Add a refund option to the point of sale system" );
}
$DBversion = '19.12.00.036';
('AccessControlAllowOrigin', '', NULL, 'Set the Access-Control-Allow-Origin header to the specified value', 'Free');
});
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 24369 - Add CORS support to Koha)\n";
+ NewVersion( $DBversion, 24369, "Add CORS support to Koha");
}
$DBversion = '19.12.00.037';
$dbh->do( q| INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) VALUES ('RenewAccruingItemWhenPaid', '0', 'If enabled, when the fines on an item accruing is paid off, attempt to renew that item. If the syspref "RenewalPeriodBase" is set to "due date", renewed items may still be overdue', '', 'YesNo'); | );
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 23051 - Add RenewAccruingItemInOpac syspref)\n";
- print "Upgrade to $DBversion done (Bug 23051 - Add RenewAccruingItemWhenPaid syspref)\n";
+ NewVersion( $DBversion, 23051, [ "Add RenewAccruingItemInOpac syspref", "Add RenewAccruingItemWhenPaid syspref" ]);
}
$DBversion = '19.12.00.038';
if( CheckVersion( $DBversion ) ) {
$dbh->do( q| INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) VALUES ('CirculateILL', '0', 'If enabled, it is possible to circulate ILL requested items from within ILL', '', 'YesNo'); | );
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 23112 - Add CirculateILL syspref)\n";
+
+ NewVersion( $DBversion, 23112, "Add CirculateILL syspref");
}
$DBversion = '19.12.00.039';
C4::Context::clear_syspref_cache(); # invalidate cached preferences
}
+sub NewVersion {
+ my ( $DBversion, $bug_number, $descriptions ) = @_;
+
+ SetVersion($DBversion);
+
+ unless ( ref($descriptions) ) {
+ $descriptions = [ $descriptions ];
+ }
+ my $first = 1;
+ for my $description ( @$descriptions ) {
+ if ( @$descriptions > 1 ) {
+ if ( $first ) {
+ unless ( $bug_number ) {
+ say sprintf "Upgrade to %s done: %s", $DBversion, $description
+ } else {
+ say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description;
+ }
+ }
+ say sprintf "\t\t\t\t\t- %s", $description
+ } else {
+ unless ( $bug_number ) {
+ say sprintf "Upgrade to %s done: %s", $DBversion, $description;
+ } else {
+ say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description;
+ }
+ }
+ $first = 0;
+ }
+}
+
=head2 CheckVersion
Check whether a given update should be run when passed the proposed version
projects / koha-ffzg.git / blobdiff