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

(-)a/Koha.pm (-1 / +1 lines)
Lines 29-35 use vars qw{ $VERSION }; Link Here
29
# - #4 : the developer version. The 4th number is the database subversion.
29
# - #4 : the developer version. The 4th number is the database subversion.
30
#        used by developers when the database changes. updatedatabase take care of the changes itself
30
#        used by developers when the database changes. updatedatabase take care of the changes itself
31
#        and is automatically called by Auth.pm when needed.
31
#        and is automatically called by Auth.pm when needed.
32
$VERSION = "21.06.00.005";
32
$VERSION = "21.06.00.100";
33
33
34
sub version {
34
sub version {
35
    return $VERSION;
35
    return $VERSION;
(-)a/installer/data/mysql/db_revs/210600081.pl (+7 lines)
Line 0 Link Here
1
use Modern::Perl;
2
3
{
4
    bug_number => 42322,
5
    description => "Single line description",
6
    up => sub {},
7
}
(-)a/installer/data/mysql/db_revs/210600082.pl (+11 lines)
Line 0 Link Here
1
use Modern::Perl;
2
3
my $nb_patrons;
4
{
5
    bug_number => 42422,
6
    description => sub { ["Testing number of patrons: $nb_patrons"] },
7
    up => sub {
8
        my $dbh = C4::Context->dbh;
9
        $nb_patrons = $dbh->selectrow_array(q{SELECT COUNT(*) FROM borrowers;});
10
    },
11
}
(-)a/installer/data/mysql/db_revs/210600083.pl (+7 lines)
Line 0 Link Here
1
use Modern::Perl;
2
3
{
4
    bug_number => 42323,
5
    description => [qw(Multi lines description)],
6
    up => sub {},
7
}
(-)a/installer/data/mysql/db_revs/210600090.pl (+10 lines)
Line 0 Link Here
1
use Modern::Perl;
2
3
{
4
    bug_number => 42420,
5
    description => ["Testing failure"],
6
    up => sub {
7
        my $dbh = C4::Context->dbh;
8
        $dbh->do(q{ALTER TABLE Foo});
9
    },
10
}
(-)a/installer/data/mysql/db_revs/210600091.pl (+10 lines)
Line 0 Link Here
1
use Modern::Perl;
2
3
{
4
    bug_number => 42421,
5
    description => ["don't compile"],
6
    up => sub {
7
        my $dbh = C4::NoContext->dbh; # NoContext does not exist
8
        $dbh->do(q{ALTER TABLE Foo});
9
    },
10
}
(-)a/installer/data/mysql/db_revs/210600092.pl (+10 lines)
Line 0 Link Here
1
use Modern::Perl;
2
3
{
4
    bug_number => 42423,
5
    description => ["Testing", "multi lines", " failure"],
6
    up => sub {
7
        my $dbh = C4::Context->dbh;
8
        $dbh->do(q{ALTER TABLE Foo});
9
    },
10
}
(-)a/installer/data/mysql/db_revs/210600094.pl (-1 / +11 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
{
4
    bug_number => 42424,
5
    description => ["Testing transaction"],
6
    up => sub {
7
        my $dbh = C4::Context->dbh;
8
        $dbh->do(q{INSERT INTO cities(city_name) VALUES ('new_city');});
9
        $dbh->do(q{INSERT INTO cities(city_XX) VALUES ('new_XX');}); # This will fail
10
    },
11
}

Return to bug 25078