From f697689ce27dea532b86642133054d5e00ce5edd Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 20 Feb 2025 15:22:38 +0000 Subject: [PATCH] Bug 31642: Database revision for upgrades Test plan: Run updatedatabase.pl Verify that the three new categories were added. Signed-off-by: Marcel de Rooy Signed-off-by: David Nind --- .../data/mysql/atomicupdate/bug_31642.pl | 52 +++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_31642.pl diff --git a/installer/data/mysql/atomicupdate/bug_31642.pl b/installer/data/mysql/atomicupdate/bug_31642.pl new file mode 100755 index 0000000000..c13dc416cc --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_31642.pl @@ -0,0 +1,52 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "31642", + description => "Add three AV categories and values for HTML blocks", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + $dbh->do( + q{ +INSERT IGNORE INTO authorised_value_categories (category_name, is_system) VALUES + ('ADD_CONT_HTML_OPAC_SYSTEM', 1), + ('ADD_CONT_HTML_STAFF_SYSTEM', 1), + ('ADD_CONT_HTML_CUSTOM', 0); +} + ); + + foreach my $block_location ( + 'OpacNavRight', 'opacheader', 'OpacCustomSearch', 'OpacMainUserBlock', 'opaccredits', + 'OpacLoginInstructions', 'OpacNav', 'OpacNavBottom', 'OpacSuggestionInstructions', + 'ArticleRequestsDisclaimerText', 'OpacMoreSearches', 'OpacMySummaryNote', 'OpacLibraryInfo', + 'OpacMaintenanceNotice', 'OPACResultsSidebar', 'OpacSuppressionMessage', 'SCOMainUserBlock', + 'SelfCheckInMainUserBlock', 'SelfCheckHelpMessage', 'CatalogConcernHelp', 'CatalogConcernTemplate', + 'CookieConsentBar', 'CookieConsentPopup', 'PatronSelfRegistrationAdditionalInstructions', + 'ILLModuleCopyrightClearance' + ) + { + $dbh->do( + qq{ +INSERT IGNORE INTO authorised_values ( category, authorised_value, lib, lib_opac ) +VALUES ( 'ADD_CONT_HTML_OPAC_SYSTEM', '$block_location', '$block_location', '$block_location' ) + } + ); + } + + foreach my $block_location ( + 'IntranetmainUserblock', 'RoutingListNote', 'StaffAcquisitionsHome', + 'StaffAuthoritiesHome', 'StaffCataloguingHome', 'StaffListsHome', 'StaffLoginInstructions', + 'StaffPatronsHome', 'StaffPOSHome', 'StaffSerialsHome' + ) + { + $dbh->do( + qq{ +INSERT IGNORE INTO authorised_values ( category, authorised_value, lib, lib_opac ) +VALUES ( 'ADD_CONT_HTML_STAFF_SYSTEM', '$block_location', '$block_location', '$block_location' ) + } + ); + } + }, +}; -- 2.39.5