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

(-)a/koha_perl_deps.pl (-2 / +2 lines)
Lines 62-68 foreach my $type (@pm) { Link Here
62 
            print color 'yellow' if $type eq 'upgrade_pm' && $color;
 62 
            print color 'yellow' if $type eq 'upgrade_pm' && $color;
63 
            print color 'red' if $type eq 'missing_pm' && $color;
 63 
            print color 'red' if $type eq 'missing_pm' && $color;
64 
            print color 'green' if $type eq 'current_pm' && $color;
 64 
            print color 'green' if $type eq 'current_pm' && $color;
65 
            $count++;
66 
            my $required = ($_->{$pm}->{'required'}?'Yes':'No');
 65 
            my $required = ($_->{$pm}->{'required'}?'Yes':'No');
67 
            my $current_version = ($color ? $_->{$pm}->{'cur_ver'} :
 66 
            my $current_version = ($color ? $_->{$pm}->{'cur_ver'} :
68 
                                   $type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'});
 67 
                                   $type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'});
Lines 73-83 format = Link Here
73 
$pm,                                          $current_version, $_->{$pm}->{'min_ver'},  $required
 72 
$pm,                                          $current_version, $_->{$pm}->{'min_ver'},  $required
74 
.
 73 
.
75 
write;
 74 
write;
75 
                    $count++;
76 
                }
 76 
                }
77 
            }
 77 
            }
78 
            else {
 78 
            else {
79 
                if (($req && $required eq 'Yes') || !$req) {
 79 
                if (($req && $required eq 'Yes') || !$req) {
80 
                    print "$pm\n";
 80 
                    print "$pm\n";
81 
                    $count++;
81 
                }
 82 
                }
82 
            }
 83 
            }
83 
        }
 84 
        }
84 
-

Return to bug 10548