View | Details | Raw Unified | Return to bug 31642
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_31642.pl (-1 / +52 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Koha::Installer::Output qw(say_warning say_success say_info);
3
4
return {
5
    bug_number  => "31642",
6
    description => "Add three AV categories and values for HTML blocks",
7
    up          => sub {
8
        my ($args) = @_;
9
        my ( $dbh, $out ) = @$args{qw(dbh out)};
10
11
        $dbh->do(
12
            q{
13
INSERT IGNORE INTO authorised_value_categories (category_name, is_system) VALUES
14
    ('ADD_CONT_HTML_OPAC_SYSTEM', 1),
15
    ('ADD_CONT_HTML_STAFF_SYSTEM', 1),
16
    ('ADD_CONT_HTML_CUSTOM', 0);
17
}
18
        );
19
20
        foreach my $block_location (
21
            'OpacNavRight',                  'opacheader',       'OpacCustomSearch', 'OpacMainUserBlock', 'opaccredits',
22
            'OpacLoginInstructions',         'OpacNav',          'OpacNavBottom',     'OpacSuggestionInstructions',
23
            'ArticleRequestsDisclaimerText', 'OpacMoreSearches', 'OpacMySummaryNote', 'OpacLibraryInfo',
24
            'OpacMaintenanceNotice',         'OPACResultsSidebar',   'OpacSuppressionMessage', 'SCOMainUserBlock',
25
            'SelfCheckInMainUserBlock',      'SelfCheckHelpMessage', 'CatalogConcernHelp',     'CatalogConcernTemplate',
26
            'CookieConsentBar',              'CookieConsentPopup',   'PatronSelfRegistrationAdditionalInstructions',
27
            'ILLModuleCopyrightClearance'
28
            )
29
        {
30
            $dbh->do(
31
                qq{
32
INSERT IGNORE INTO authorised_values ( category, authorised_value, lib, lib_opac )
33
VALUES ( 'ADD_CONT_HTML_OPAC_SYSTEM', '$block_location', '$block_location', '$block_location' )
34
            }
35
            );
36
        }
37
38
        foreach my $block_location (
39
            'IntranetmainUserblock', 'RoutingListNote',      'StaffAcquisitionsHome',
40
            'StaffAuthoritiesHome',  'StaffCataloguingHome', 'StaffListsHome', 'StaffLoginInstructions',
41
            'StaffPatronsHome',      'StaffPOSHome',         'StaffSerialsHome'
42
            )
43
        {
44
            $dbh->do(
45
                qq{
46
INSERT IGNORE INTO authorised_values ( category, authorised_value, lib, lib_opac )
47
VALUES ( 'ADD_CONT_HTML_STAFF_SYSTEM', '$block_location', '$block_location', '$block_location' )
48
            }
49
            );
50
        }
51
    },
52
};

Return to bug 31642