package Koha::Installer;

use Modern::Perl;

require Koha;

require Koha::Database;

sub import {

    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){

        exit;

    }

}

=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;

use Koha::Installer;