@@ -, +, @@ --- installer/data/mysql/db_revs/210600001.pl | 13 ++++ installer/data/mysql/db_revs/210600002.pl | 28 ++++++++ installer/data/mysql/db_revs/210600003.pl | 33 +++++++++ installer/data/mysql/db_revs/210600004.pl | 21 ++++++ installer/data/mysql/db_revs/210600005.pl | 15 ++++ installer/data/mysql/updatedatabase.pl | 87 ----------------------- 6 files changed, 110 insertions(+), 87 deletions(-) create mode 100644 installer/data/mysql/db_revs/210600001.pl create mode 100644 installer/data/mysql/db_revs/210600002.pl create mode 100644 installer/data/mysql/db_revs/210600003.pl create mode 100644 installer/data/mysql/db_revs/210600004.pl create mode 100644 installer/data/mysql/db_revs/210600005.pl --- a/installer/data/mysql/db_revs/210600001.pl +++ a/installer/data/mysql/db_revs/210600001.pl @@ -0,0 +1,13 @@ +use Modern::Perl; + +{ + bug_number => "28489", + description => "Modify sessions.a_session from longtext to longblob", + up => sub { + my ($args) = @_; + my $dbh = $args->{dbh}; + + $dbh->do('DELETE FROM sessions'); + $dbh->do('ALTER TABLE sessions MODIFY a_session LONGBLOB NOT NULL'); + }, +} --- a/installer/data/mysql/db_revs/210600002.pl +++ a/installer/data/mysql/db_revs/210600002.pl @@ -0,0 +1,28 @@ +use Modern::Perl; + +{ + bug_number => "28490", + description => "Bring back accidentally deleted relationship columns", + up => sub { + my ($args) = @_; + my $dbh = $args->{dbh}; + + if( !column_exists( 'borrower_modifications', 'relationship' ) ) { + $dbh->do(q{ + ALTER TABLE borrower_modifications ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL AFTER `borrowernotes` + }); + } + + if( !column_exists( 'borrowers', 'relationship' ) ) { + $dbh->do(q{ + ALTER TABLE borrowers ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'used for children to include the relationship to their guarantor' AFTER `borrowernotes` + }); + } + + if( !column_exists( 'deletedborrowers', 'relationship' ) ) { + $dbh->do(q{ + ALTER TABLE deletedborrowers ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'used for children to include the relationship to their guarantor' AFTER `borrowernotes` + }); + } + }, +} --- a/installer/data/mysql/db_revs/210600003.pl +++ a/installer/data/mysql/db_revs/210600003.pl @@ -0,0 +1,33 @@ +use Modern::Perl; + +{ + bug_number => "24434", + description => "Add 'WrongTransfer' to branchtransfers.cancellation_reason enum", + up => sub { + my ($args) = @_; + my $dbh = $args->{dbh}; + + # add 'wrongtransfer' to branchtransfers cancellation_reason enum + $dbh->do( + q{ + alter table + `branchtransfers` + modify column + `cancellation_reason` enum( + 'manual', + 'stockrotationadvance', + 'stockrotationrepatriation', + 'returntohome', + 'returntoholding', + 'rotatingcollection', + 'reserve', + 'lostreserve', + 'cancelreserve', + 'itemlost', + 'wrongtransfer' + ) + after `comments` + } + ); + }, +} --- a/installer/data/mysql/db_revs/210600004.pl +++ a/installer/data/mysql/db_revs/210600004.pl @@ -0,0 +1,21 @@ +use Modern::Perl; + +{ + bug_number => "15788", + description => "Split edit_borrowers permission", + up => sub { + my ($args) = @_; + my $dbh = $args->{dbh}; + + $dbh->do(q{ + INSERT IGNORE permissions (module_bit, code, description) + VALUES + (4, 'delete_borrowers', 'Delete borrowers') + }); + + $dbh->do(q{ + INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code) + SELECT borrowernumber, 4, 'delete_borrowers' FROM user_permissions WHERE code = 'edit_borrowers' + }); + }, +} --- a/installer/data/mysql/db_revs/210600005.pl +++ a/installer/data/mysql/db_revs/210600005.pl @@ -0,0 +1,15 @@ +use Modern::Perl; + +{ + bug_number => "26205", + description => "Add new system preference NewsLog to log news changes", + up => sub { + my ($args) = @_; + my $dbh = $args->{dbh}; + + $dbh->do( q{ + INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) + VALUES ('NewsLog', '0', 'If enabled, log OPAC News changes', '', 'YesNo') + }); + }, +} --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -24296,93 +24296,6 @@ unless ( $ENV{HTTP_HOST} ) { # Is that correct? } } -$DBversion = '21.06.00.001'; -if ( CheckVersion($DBversion) ) { - $dbh->do('DELETE FROM sessions'); - $dbh->do('ALTER TABLE sessions MODIFY a_session LONGBLOB NOT NULL'); - - NewVersion( $DBversion, '28489', 'Modify sessions.a_session from longtext to longblob' ); -} - -$DBversion = '21.06.00.002'; -if( CheckVersion( $DBversion ) ) { - if( !column_exists( 'borrower_modifications', 'relationship' ) ) { - $dbh->do(q{ - ALTER TABLE borrower_modifications ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL AFTER `borrowernotes` - }); - } - - if( !column_exists( 'borrowers', 'relationship' ) ) { - $dbh->do(q{ - ALTER TABLE borrowers ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'used for children to include the relationship to their guarantor' AFTER `borrowernotes` - }); - } - - if( !column_exists( 'deletedborrowers', 'relationship' ) ) { - $dbh->do(q{ - ALTER TABLE deletedborrowers ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'used for children to include the relationship to their guarantor' AFTER `borrowernotes` - }); - } - - NewVersion( $DBversion, 28490, "Bring back accidentally deleted relationship columns"); -} - -$DBversion = '21.06.00.003'; -if( CheckVersion( $DBversion ) ) { - - # Add 'WrongTransfer' to branchtransfers cancellation_reason enum - $dbh->do( - q{ - ALTER TABLE - `branchtransfers` - MODIFY COLUMN - `cancellation_reason` enum( - 'Manual', - 'StockrotationAdvance', - 'StockrotationRepatriation', - 'ReturnToHome', - 'ReturnToHolding', - 'RotatingCollection', - 'Reserve', - 'LostReserve', - 'CancelReserve', - 'ItemLost', - 'WrongTransfer' - ) - AFTER `comments` - } - ); - - NewVersion( $DBversion, 24434, "Add 'WrongTransfer' to branchtransfers.cancellation_reason enum"); -} - -$DBversion = '21.06.00.004'; -if ( CheckVersion($DBversion) ) { - - $dbh->do(q{ - INSERT IGNORE permissions (module_bit, code, description) - VALUES - (4, 'delete_borrowers', 'Delete borrowers') - }); - - $dbh->do(q{ - INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code) - SELECT borrowernumber, 4, 'delete_borrowers' FROM user_permissions WHERE code = 'edit_borrowers' - }); - - NewVersion( $DBversion, 15788, "Split edit_borrowers permission" ); -} - -$DBversion = '21.06.00.005'; -if( CheckVersion( $DBversion ) ) { - $dbh->do( q{ - INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) - VALUES ('NewsLog', '0', 'If enabled, log OPAC News changes', '', 'YesNo') - }); - - NewVersion( $DBversion, 26205, "Add new system preference NewsLog to log news changes"); -} - # SEE bug 13068 # if there is anything in the atomicupdate, read and execute it. my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; --