Widen module name allowance in the format statement, adjust other
columns to be generous but not-so-much as before, modify report
header and footer print statements to align and clarify. Very very
long module names or version numbers are still subject to possible
truncation.
---
koha_perl_deps.pl | 13 +++++++------
1 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/koha_perl_deps.pl b/koha_perl_deps.pl
index 934dea5..c5b614e 100755
--- a/koha_perl_deps.pl
+++ b/koha_perl_deps.pl
@@ -41,8 +41,9 @@ push @pm, 'current_pm' if $installed || $all;
print color 'bold white' if $color;
print"
-Module Name Current Version
Required Version Module Required
---------------------------------------------------------------------------------------------------------------------------
+ Installed Required
Module is
+Module Name Version Version
Required
+--------------------------------------------------------------------------------------------
";
my $count = 0;
@@ -60,8 +61,8 @@ foreach my $type (@pm) {
my $current_version = ($color ? $_->{$pm}->{'cur_ver'} :
$type eq 'missing_pm' || $type eq
'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'});
format =
-@<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<
@<<<<<<<<<< @<<<<<
-$pm, $current_version,
$_->{$pm}->{'min_ver'}, $required
+@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<
@<<<<<<<<<<<<<<<< @<<<<<
+$pm, $current_version,
$_->{$pm}->{'min_ver'}, $required
.
write;
}
@@ -69,8 +70,8 @@ write;
}
print color 'bold white' if $color;
my $footer = "
---------------------------------------------------------------------------------------------------------------------------
-Total modules reported: $count
";
+--------------------------------------------------------------------------------------------
+Total modules reported: $count ";
if ($color) {
$footer .= "\n\n";
--
1.7.2.5
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
