# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
-$VERSION = "22.12.00.004";
+$VERSION = "22.12.00.005";
sub version {
return $VERSION;
+++ /dev/null
-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') });
- },
-};
--- /dev/null
+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'";
+ },
+};