From 34b1713d86602cbfb9d7c6f68dccf7b293d18dce Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Wed, 10 Apr 2019 19:53:39 +0000 Subject: [PATCH] Bug 22512: DBRev 18.12.00.038 Signed-off-by: Nick Clemens --- Koha.pm | 2 +- .../data/mysql/atomicupdate/bug_22512.perl | 18 ------------------ installer/data/mysql/updatedatabase.pl | 19 +++++++++++++++++++ 3 files changed, 20 insertions(+), 19 deletions(-) delete mode 100644 installer/data/mysql/atomicupdate/bug_22512.perl diff --git a/Koha.pm b/Koha.pm index d907ad8a4a..d876743148 100644 --- a/Koha.pm +++ b/Koha.pm @@ -29,7 +29,7 @@ use vars qw{ $VERSION }; # - #4 : the developer version. The 4th number is the database subversion. # used by developers when the database changes. updatedatabase take care of the changes itself # and is automatically called by Auth.pm when needed. -$VERSION = "18.12.00.037"; +$VERSION = "18.12.00.038"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug_22512.perl b/installer/data/mysql/atomicupdate/bug_22512.perl deleted file mode 100644 index 206a829d93..0000000000 --- a/installer/data/mysql/atomicupdate/bug_22512.perl +++ /dev/null @@ -1,18 +0,0 @@ -$DBversion = 'XXX'; # will be replaced by the RM -if ( CheckVersion($DBversion) ) { - - if ( !column_exists( 'accountlines', 'status' ) ) { - $dbh->do( - qq{ - ALTER TABLE `accountlines` - ADD - `status` varchar(16) DEFAULT NULL - AFTER - `accounttype` - } - ); - } - - SetVersion($DBversion); - print "Upgrade to $DBversion done (Bug 22512 - Add status to accountlines)\n"; -} diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 8dc7e04671..1abe2ecab5 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -17867,6 +17867,25 @@ if( CheckVersion( $DBversion ) ) { print "Upgrade to $DBversion done (Bug 22607 - Set default value of issues.renewals to 0)\n"; } +$DBversion = '18.12.00.038'; +if ( CheckVersion($DBversion) ) { + + if ( !column_exists( 'accountlines', 'status' ) ) { + $dbh->do( + qq{ + ALTER TABLE `accountlines` + ADD + `status` varchar(16) DEFAULT NULL + AFTER + `accounttype` + } + ); + } + + SetVersion($DBversion); + print "Upgrade to $DBversion done (Bug 22512 - Add status to accountlines)\n"; +} + # SEE bug 13068 # if there is anything in the atomicupdate, read and execute it. -- 2.39.5