From b025a7934557298a5b39428241f40329d6fab686 Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Thu, 7 Apr 2022 10:34:40 +0200 Subject: [PATCH] Bug 11083: DBRev 21.12.00.022 Signed-off-by: Fridolin Somers --- Koha.pm | 2 +- .../add-syspref-AuthorityXSLTResultsDisplay.perl | 9 --------- installer/data/mysql/db_revs/211200022.pl | 16 ++++++++++++++++ 3 files changed, 17 insertions(+), 10 deletions(-) delete mode 100644 installer/data/mysql/atomicupdate/add-syspref-AuthorityXSLTResultsDisplay.perl create mode 100755 installer/data/mysql/db_revs/211200022.pl diff --git a/Koha.pm b/Koha.pm index 37cf4b536e..147532de66 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 = "21.12.00.021"; +$VERSION = "21.12.00.022"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/add-syspref-AuthorityXSLTResultsDisplay.perl b/installer/data/mysql/atomicupdate/add-syspref-AuthorityXSLTResultsDisplay.perl deleted file mode 100644 index 728aee12af..0000000000 --- a/installer/data/mysql/atomicupdate/add-syspref-AuthorityXSLTResultsDisplay.perl +++ /dev/null @@ -1,9 +0,0 @@ -$DBversion = 'XXX'; -if (CheckVersion($DBversion)) { - $dbh->do(q{ - INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES - ('AuthorityXSLTResultsDisplay','','','Enable XSL stylesheet control over authority results page display on intranet','Free') - }); - - NewVersion($DBversion, '11083', 'Add syspref AuthorityXSLTResultsDisplay'); -} diff --git a/installer/data/mysql/db_revs/211200022.pl b/installer/data/mysql/db_revs/211200022.pl new file mode 100755 index 0000000000..68a49c6346 --- /dev/null +++ b/installer/data/mysql/db_revs/211200022.pl @@ -0,0 +1,16 @@ +use Modern::Perl; + +return { + bug_number => "11083", + description => "Add syspref AuthorityXSLTResultsDisplay", + up => sub { + my ($args) = @_; + my ($dbh, $out) = @$args{qw(dbh out)}; + # Do you stuffs here + $dbh->do(q{ + INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`) VALUES + ('AuthorityXSLTResultsDisplay','','','Enable XSL stylesheet control over authority results page display on intranet','Free') + }); + }, +}; + -- 2.39.2