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