# - #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 = "21.06.00.018";
+$VERSION = "21.06.00.019";
sub version {
return $VERSION;
+++ /dev/null
-$DBversion = 'XXX'; # will be replaced by the RM
-if( CheckVersion( $DBversion ) ) {
- $dbh->do(q|
- INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
- ('OPACResultsMaxItems','1','','Maximum number of available items displayed in search results','Integer'),
- ('OPACResultsMaxItemsUnavailable','0','','Maximum number of unavailable items displayed in search results','Integer')
- |);
- NewVersion( $DBversion, 26302, "Add preferences OPACResultsMaxItems and OPACResultsMaxItemsUnavailable");
-}
--- /dev/null
+use Modern::Perl;
+
+return {
+ bug_number => "26302",
+ description => "Add system preferences OPACResultsMaxItems and OPACResultsMaxItemsUnavailable");
+ up => sub {
+ my ($args) = @_;
+ my ($dbh, $out) = @$args{qw(dbh out)};
+ $dbh->do(q|
+ INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES
+ ('OPACResultsMaxItems','1','','Maximum number of available items displayed in search results','Integer'),
+ ('OPACResultsMaxItemsUnavailable','0','','Maximum number of unavailable items displayed in search results','Integer')
+ |);
+ },
+}