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

(-)a/installer/data/mysql/atomicupdate/bug_19822_partner_code.pl (-1 / +20 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number => "19822",
5
    description => "Add system preferences for ILL Module",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
10
        my $xml_config = C4::Context->config("interlibrary_loans");
11
        my $existing_partner_code = $xml_config->{partner_code};
12
13
        $dbh->do(qq{
14
            INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
15
            VALUES ('ILLPartnerCode', '$existing_partner_code', NULL, 'Patrons from this patron category will be used as partners to place ILL requests with', 'free');
16
        });
17
18
        say $out "Moved value of partner_code in koha-conf.xml into new system preference 'ILLPartnerCode'";
19
    }
20
};

Return to bug 32911