From f0a0f630bb523cfcda6efa82049608474e09fb15 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 23 Jul 2020 10:36:54 +0200 Subject: [PATCH] Bug 23796: DBRev 20.06.00.013 Signed-off-by: Jonathan Druart --- Koha.pm | 2 +- ...g_23796-move-OpacCustomSearch-to-news.perl | 30 ------------------ installer/data/mysql/updatedatabase.pl | 31 +++++++++++++++++++ 3 files changed, 32 insertions(+), 31 deletions(-) delete mode 100644 installer/data/mysql/atomicupdate/bug_23796-move-OpacCustomSearch-to-news.perl diff --git a/Koha.pm b/Koha.pm index c2800d408c..060c2f47ad 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 = "20.06.00.012"; +$VERSION = "20.06.00.013"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug_23796-move-OpacCustomSearch-to-news.perl b/installer/data/mysql/atomicupdate/bug_23796-move-OpacCustomSearch-to-news.perl deleted file mode 100644 index 0ae9e6e759..0000000000 --- a/installer/data/mysql/atomicupdate/bug_23796-move-OpacCustomSearch-to-news.perl +++ /dev/null @@ -1,30 +0,0 @@ -$DBversion = 'XXX'; # will be replaced by the RM -if( CheckVersion( $DBversion ) ) { - - # get list of installed translations - require C4::Languages; - my @langs; - my $tlangs = C4::Languages::getTranslatedLanguages(); - - foreach my $language ( @$tlangs ) { - foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) { - push @langs, $sublanguage->{'rfc4646_subtag'}; - } - } - - # Get any existing value from the OpacCustomSearch system preference - my ($OpacCustomSearch) = $dbh->selectrow_array( q| - SELECT value FROM systempreferences WHERE variable='OpacCustomSearch'; - |); - if( $OpacCustomSearch ){ - foreach my $lang ( @langs ) { - print "Inserting OpacCustomSearch contents into $lang news item...\n"; - # If there is a value in the OpacCustomSearch preference, insert it into opac_news - $dbh->do("INSERT INTO opac_news (branchcode, lang, title, content ) VALUES (NULL, ?, '', ?)", undef, "OpacCustomSearch_$lang", $OpacCustomSearch); - } - } - # Remove the OpacCustomSearch system preference - $dbh->do("DELETE FROM systempreferences WHERE variable='OpacCustomSearch'"); - SetVersion ($DBversion); - print "Upgrade to $DBversion done (Bug 23796: Convert OpacCustomSearch system preference to news block)\n"; -} diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index ff8c6f50fa..c22b929567 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -22406,6 +22406,37 @@ if( CheckVersion( $DBversion ) ) { NewVersion( $DBversion, 23795, "Convert OpacCredits system preference to news block" ); } +$DBversion = '20.06.00.013'; +if( CheckVersion( $DBversion ) ) { + + # get list of installed translations + require C4::Languages; + my @langs; + my $tlangs = C4::Languages::getTranslatedLanguages('opac','bootstrap'); + + foreach my $language ( @$tlangs ) { + foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) { + push @langs, $sublanguage->{'rfc4646_subtag'}; + } + } + + # Get any existing value from the OpacCustomSearch system preference + my ($OpacCustomSearch) = $dbh->selectrow_array( q| + SELECT value FROM systempreferences WHERE variable='OpacCustomSearch'; + |); + if( $OpacCustomSearch ){ + foreach my $lang ( @langs ) { + # If there is a value in the OpacCustomSearch preference, insert it into opac_news + $dbh->do("INSERT INTO opac_news (branchcode, lang, title, content ) VALUES (NULL, ?, '', ?)", undef, "OpacCustomSearch_$lang", $OpacCustomSearch); + } + } + # Remove the OpacCustomSearch system preference + $dbh->do("DELETE FROM systempreferences WHERE variable='OpacCustomSearch'"); + + NewVersion( $DBversion, 23795, "Convert OpacCustomSearch system preference to news block" ); +} + + # 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/'; -- 2.39.5