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

(-)a/installer/data/mysql/updatedatabase.pl (-2 / +7 lines)
Lines 4441-4446 sub TransformToNum { Link Here
4441
    my $version = shift;
4441
    my $version = shift;
4442
    # remove the 3 last . to have a Perl number
4442
    # remove the 3 last . to have a Perl number
4443
    $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
4443
    $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
4444
    # three X's at the end indicate that you are testing patch with dbrev
4445
    # change it into 999
4446
    # prevents error on a < comparison between strings (should be: lt)
4447
    $version =~ s/XXX$/999/;
4444
    return $version;
4448
    return $version;
4445
}
4449
}
4446
4450
Lines 4451-4457 set the DBversion in the systempreferences Link Here
4451
=cut
4455
=cut
4452
4456
4453
sub SetVersion {
4457
sub SetVersion {
4454
    my $kohaversion = TransformToNum(shift);
4458
    return if $_[0]=~ /XXX$/;
4459
      #you are testing a patch with a db revision; do not change version
4460
    my $kohaversion = TransformToNum($_[0]);
4455
    if (C4::Context->preference('Version')) {
4461
    if (C4::Context->preference('Version')) {
4456
      my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
4462
      my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
4457
      $finish->execute($kohaversion);
4463
      $finish->execute($kohaversion);
4458
- 

Return to bug 6700