use Koha::Installer;

package Koha::Installer;

use Modern::Perl;

require Koha;

require Koha::Database;

sub needs_update {

    my $dbh = Koha::Database::dbh();

    my $sql = "SELECT value FROM systempreferences WHERE variable = 'Version'";

    my $sth = $dbh->prepare($sql);

    $sth->execute();

    my $row          = $sth->fetchrow_arrayref();

    my $db_version   = $row->[0];

    my $koha_version = Koha->version;

    my $code_version = TransformToNum($koha_version);

    if ( $db_version == $code_version ) {

        return;

    }

    return 1;

}

=head2 TransformToNum

Transform the Koha version from a 4 parts string

to a number, with just 1 .

=cut

sub TransformToNum {

    my $version = shift;

    # remove the 3 last . to have a Perl number

    $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;

    # three X's at the end indicate that you are testing patch with dbrev

    # change it into 999

    # prevents error on a < comparison between strings (should be: lt)

    $version =~ s/XXX$/999/;

    return $version;

}

1;

BEGIN {

    use Koha::Installer;

    if ( !Koha::Installer->needs_update ) {

        exit;

    }

}