3 changed files with 18 additions and 13 deletions
@ -1,12 +0,0 @@ |
|||
use Modern::Perl; |
|||
|
|||
return { |
|||
bug_number => "31051", |
|||
description => "Add new system preference OPACShowSavings", |
|||
up => sub { |
|||
my ($args) = @_; |
|||
my ($dbh, $out) = @$args{qw(dbh out)}; |
|||
|
|||
$dbh->do(q{INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACShowSavings', '', 'checkouthistory|summary|user', 'Show on the OPAC the total amount a patron has saved by using a library instead of purchasing, based on replacement prices', 'multiple') }); |
|||
}, |
|||
}; |
@ -0,0 +1,17 @@ |
|||
use Modern::Perl; |
|||
|
|||
return { |
|||
bug_number => "31051", |
|||
description => "Add new system preference OPACShowSavings", |
|||
up => sub { |
|||
my ($args) = @_; |
|||
my ($dbh, $out) = @$args{qw(dbh out)}; |
|||
|
|||
$dbh->do(q{ |
|||
INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) |
|||
VALUES ('OPACShowSavings', '', 'checkouthistory|summary|user', 'Show on the OPAC the total amount a patron has saved by using a library instead of purchasing, based on replacement prices', 'multiple') |
|||
}); |
|||
|
|||
say $out "Added new system preference 'OPACShowSavings'"; |
|||
}, |
|||
}; |
Loading…
Reference in new issue