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

(-)a/installer/data/mysql/atomicupdate/bug_38441.pl (-1 / +24 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
3
4
use C4::Context;
5
6
return {
7
    bug_number  => "38441",
8
    description => "Add 'ILLHistoryCheck' system preference",
9
    up          => sub {
10
        my ($args) = @_;
11
            my ( $dbh, $out ) = @$args{qw(dbh out)};
12
     
13
            $dbh->do(
14
                q{
15
                    INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES (
16
                            'ILLHistoryCheck', '', '',
17
                                'If ON, during the ILL request process, a check is performed to see if the ILL request has already been previously placed',
18
                        'YesNo'
19
                    );
20
                }
21
            );
22
            say $out "Added new system preference 'ILLHistoryCheck'";
23
        },
24
};

Return to bug 38441