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

(-)a/Koha/Installer.pm (-2 / +14 lines)
Lines 6-11 require Koha; Link Here
6
require Koha::Database;
6
require Koha::Database;
7
require Koha::Config;
7
require Koha::Config;
8
8
9
=head1 API
10
11
=head2 Class methods
12
13
=head3 needs_update
14
15
Determines if an update is needed by checking
16
the database version, the code version, and whether
17
there are any atomic updates available.
18
19
=cut
20
9
sub needs_update {
21
sub needs_update {
10
    my $needs_update = 1;
22
    my $needs_update = 1;
11
    my $dbh          = Koha::Database::dbh();
23
    my $dbh          = Koha::Database::dbh();
Lines 30-36 sub needs_update { Link Here
30
    return $needs_update;
42
    return $needs_update;
31
}
43
}
32
44
33
=head2 TransformToNum
45
=head3 TransformToNum
34
46
35
Transform the Koha version from a 4 parts string
47
Transform the Koha version from a 4 parts string
36
to a number, with just 1 .
48
to a number, with just 1 .
Lines 50-56 sub TransformToNum { Link Here
50
    return $version;
62
    return $version;
51
}
63
}
52
64
53
=head2 get_atomic_updates
65
=head3 get_atomic_updates
54
66
55
Get atomic database updates
67
Get atomic database updates
56
68
(-)a/installer/data/mysql/updatedatabase.pl (-3 / +2 lines)
Lines 27-32 Link Here
27
27
28
# NOTE: Please keep the version in kohaversion.pl up-to-date!
28
# NOTE: Please keep the version in kohaversion.pl up-to-date!
29
29
30
use Modern::Perl;
31
30
BEGIN {
32
BEGIN {
31
    use Koha::Installer;
33
    use Koha::Installer;
32
    if ( !Koha::Installer->needs_update ) {
34
    if ( !Koha::Installer->needs_update ) {
Lines 34-41 BEGIN { Link Here
34
    }
36
    }
35
}
37
}
36
38
37
use Modern::Perl;
38
39
use feature 'say';
39
use feature 'say';
40
40
41
# CPAN modules
41
# CPAN modules
42
- 

Return to bug 34088