@@ -, +, @@ % updatedatabase --force --- Koha.pm | 2 +- installer/data/mysql/db_revs/210600081.pl | 7 +++++++ installer/data/mysql/db_revs/210600082.pl | 11 +++++++++++ installer/data/mysql/db_revs/210600083.pl | 7 +++++++ installer/data/mysql/db_revs/210600090.pl | 10 ++++++++++ installer/data/mysql/db_revs/210600091.pl | 10 ++++++++++ installer/data/mysql/db_revs/210600092.pl | 10 ++++++++++ installer/data/mysql/db_revs/210600094.pl | 11 +++++++++++ 8 files changed, 67 insertions(+), 1 deletion(-) create mode 100644 installer/data/mysql/db_revs/210600081.pl create mode 100644 installer/data/mysql/db_revs/210600082.pl create mode 100644 installer/data/mysql/db_revs/210600083.pl create mode 100644 installer/data/mysql/db_revs/210600090.pl create mode 100644 installer/data/mysql/db_revs/210600091.pl create mode 100644 installer/data/mysql/db_revs/210600092.pl create mode 100644 installer/data/mysql/db_revs/210600094.pl --- a/Koha.pm +++ a/Koha.pm @@ -29,7 +29,7 @@ use vars qw{ $VERSION }; # - #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.005"; +$VERSION = "21.06.00.100"; sub version { return $VERSION; --- a/installer/data/mysql/db_revs/210600081.pl +++ a/installer/data/mysql/db_revs/210600081.pl @@ -0,0 +1,7 @@ +use Modern::Perl; + +{ + bug_number => 42322, + description => "Single line description", + up => sub {}, +} --- a/installer/data/mysql/db_revs/210600082.pl +++ a/installer/data/mysql/db_revs/210600082.pl @@ -0,0 +1,11 @@ +use Modern::Perl; + +my $nb_patrons; +{ + bug_number => 42422, + description => sub { ["Testing number of patrons: $nb_patrons"] }, + up => sub { + my $dbh = C4::Context->dbh; + $nb_patrons = $dbh->selectrow_array(q{SELECT COUNT(*) FROM borrowers;}); + }, +} --- a/installer/data/mysql/db_revs/210600083.pl +++ a/installer/data/mysql/db_revs/210600083.pl @@ -0,0 +1,7 @@ +use Modern::Perl; + +{ + bug_number => 42323, + description => [qw(Multi lines description)], + up => sub {}, +} --- a/installer/data/mysql/db_revs/210600090.pl +++ a/installer/data/mysql/db_revs/210600090.pl @@ -0,0 +1,10 @@ +use Modern::Perl; + +{ + bug_number => 42420, + description => ["Testing failure"], + up => sub { + my $dbh = C4::Context->dbh; + $dbh->do(q{ALTER TABLE Foo}); + }, +} --- a/installer/data/mysql/db_revs/210600091.pl +++ a/installer/data/mysql/db_revs/210600091.pl @@ -0,0 +1,10 @@ +use Modern::Perl; + +{ + bug_number => 42421, + description => ["don't compile"], + up => sub { + my $dbh = C4::NoContext->dbh; # NoContext does not exist + $dbh->do(q{ALTER TABLE Foo}); + }, +} --- a/installer/data/mysql/db_revs/210600092.pl +++ a/installer/data/mysql/db_revs/210600092.pl @@ -0,0 +1,10 @@ +use Modern::Perl; + +{ + bug_number => 42423, + description => ["Testing", "multi lines", " failure"], + up => sub { + my $dbh = C4::Context->dbh; + $dbh->do(q{ALTER TABLE Foo}); + }, +} --- a/installer/data/mysql/db_revs/210600094.pl +++ a/installer/data/mysql/db_revs/210600094.pl @@ -0,0 +1,11 @@ +use Modern::Perl; + +{ + bug_number => 42424, + description => ["Testing transaction"], + up => sub { + my $dbh = C4::Context->dbh; + $dbh->do(q{INSERT INTO cities(city_name) VALUES ('new_city');}); + $dbh->do(q{INSERT INTO cities(city_XX) VALUES ('new_XX');}); # This will fail + }, +} --