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

(-)a/installer/data/mysql/updatedatabase.pl (-2 / +7 lines)
Lines 4592-4597 sub TransformToNum { Link Here
4592
    my $version = shift;
4592
    my $version = shift;
4593
    # remove the 3 last . to have a Perl number
4593
    # remove the 3 last . to have a Perl number
4594
    $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
4594
    $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
4595
    # three X's at the end indicate that you are testing patch with dbrev
4596
    # change it into 999
4597
    # prevents error on a < comparison between strings (should be: lt)
4598
    $version =~ s/XXX$/999/;
4595
    return $version;
4599
    return $version;
4596
}
4600
}
4597
4601
Lines 4602-4608 set the DBversion in the systempreferences Link Here
4602
=cut
4606
=cut
4603
4607
4604
sub SetVersion {
4608
sub SetVersion {
4605
    my $kohaversion = TransformToNum(shift);
4609
    return if $_[0]=~ /XXX$/;
4610
      #you are testing a patch with a db revision; do not change version
4611
    my $kohaversion = TransformToNum($_[0]);
4606
    if (C4::Context->preference('Version')) {
4612
    if (C4::Context->preference('Version')) {
4607
      my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
4613
      my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'");
4608
      $finish->execute($kohaversion);
4614
      $finish->execute($kohaversion);
4609
- 

Return to bug 6700