=head2 final_linear_version

Returns the version number of the final update to run in updatedatabase.pl.

This number is equal to the version in kohaversion.pl

=cut 

sub final_linear_version {

    return KOHAVERSION;

}

$DBversion = "3.11.00.005";

if ( CheckVersion($DBversion) ) {

    print "Upgrade to $DBversion done (Bug 9191: You shouldn't see this)\n";

    SetVersion($DBversion);

}

$DBversion = "3.11.00.XXX";

if ( CheckVersion($DBversion) ) {

    print "Upgrade to $DBversion done (Bug 9191: You should see this)\n";

    SetVersion($DBversion);

}

=head2 CheckVersion

Check whether a given update should be run when passed the proposed version

number. The update will always be run if the proposed version is greater

than the current database version and less than or equal to the version in

kohaversion.pl. The update is also run if the version contains XXX, though

this behavior will be changed following the adoption of non-linear updates

as implemented in bug 7167.

=cut

sub CheckVersion {

    my ($proposed_version) = @_;

    my $version_number = TransformToNum($proposed_version);

    # The following line should be deleted when bug 7167 is pushed

    return 1 if ( $proposed_version =~ m/XXX/ );

    if ( C4::Context->preference("Version") < $version_number

        && $version_number <= TransformToNum( C4::Context->final_linear_version ) )

    {

        return 1;

    }

    else {

        return 0;

    }

}

ok(

    TransformVersionToNum( C4::Context->final_linear_version ) <=

      TransformVersionToNum( C4::Context->KOHAVERSION ),

    'Final linear version is less than or equal to kohaversion.pl'

);

sub TransformVersionToNum {

    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;

}