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

(-)a/C4/Update/Database.pm (+1 lines)
Lines 515-520 sub TransformToNum { Link Here
515
515
516
sub SetVersion {
516
sub SetVersion {
517
    my $new_version = TransformToNum(shift);
517
    my $new_version = TransformToNum(shift);
518
    return unless $new_version =~ /\d\.\d+/;
518
    my $current_version = TransformToNum( C4::Context->preference('Version') );
519
    my $current_version = TransformToNum( C4::Context->preference('Version') );
519
    unless ( C4::Context->preference('Version') ) {
520
    unless ( C4::Context->preference('Version') ) {
520
        my $finish = $dbh->prepare(qq{
521
        my $finish = $dbh->prepare(qq{
(-)a/misc/bin/updatedb.pl (-2 / +4 lines)
Lines 73-80 if ($all) { Link Here
73
      : 0;
73
      : 0;
74
74
75
    for my $v (@$versions_available) {
75
    for my $v (@$versions_available) {
76
        # We execute ALL versions where version number >= min_version
77
        # OR version is not a number
76
        if ( not grep { $v eq $_->{version} } @$versions
78
        if ( not grep { $v eq $_->{version} } @$versions
77
            and C4::Update::Database::TransformToNum($v) >= $min_version )
79
            and ( not $v =~ /\d\.\d{2}\.\d{2}\.\d{3}/ or
80
                C4::Update::Database::TransformToNum($v) >= $min_version ) )
78
        {
81
        {
79
            my $report = C4::Update::Database::execute_version $v;
82
            my $report = C4::Update::Database::execute_version $v;
80
            push @reports, $report;
83
            push @reports, $report;
81
- 

Return to bug 7167