pod2usage(1) if $help || (!$missing && !$installed && !$upgrade && !$all);
my $koha_pm = C4::Installer::PerlModules->new;
-$koha_pm->version_info(all => 1);
+$koha_pm->versions_info;
my @pm = ();
print color 'yellow' if $type eq 'upgrade_pm' && $color;
print color 'red' if $type eq 'missing_pm' && $color;
print color 'green' if $type eq 'current_pm' && $color;
- $count++;
my $required = ($_->{$pm}->{'required'}?'Yes':'No');
my $current_version = ($color ? $_->{$pm}->{'cur_ver'} :
$type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'});
$pm, $current_version, $_->{$pm}->{'min_ver'}, $required
.
write;
+ $count++;
}
}
else {
if (($req && $required eq 'Yes') || !$req) {
print "$pm\n";
+ $count++;
}
}
}