|
Lines 89-99
if ( $step && $step == 1 ) {
Link Here
|
| 89 |
#Whenever there is an error, adding a report to the page |
89 |
#Whenever there is an error, adding a report to the page |
| 90 |
my $op = $query->param('op') || 'noop'; |
90 |
my $op = $query->param('op') || 'noop'; |
| 91 |
$template->param( language => 1 ); |
91 |
$template->param( language => 1 ); |
|
|
92 |
my $checkmodule = 1; |
| 92 |
$template->param( 'checkmodule' => 1 ) |
93 |
$template->param( 'checkmodule' => 1 ) |
| 93 |
; # we start with the assumption that there are no problems and set this to 0 if there are |
94 |
; # we start with the assumption that there are no problems and set this to 0 if there are |
| 94 |
|
95 |
|
| 95 |
unless ( $] >= 5.010000 ) { # Bug 7375 |
96 |
unless ( $] >= 5.010000 ) { # Bug 7375 |
| 96 |
$template->param( problems => 1, perlversion => 1, checkmodule => 0 ); |
97 |
$template->param( problems => 1, perlversion => 1, checkmodule => 0 ); |
|
|
98 |
$checkmodule = 0; |
| 97 |
} |
99 |
} |
| 98 |
|
100 |
|
| 99 |
my $perl_modules = C4::Installer::PerlModules->new; |
101 |
my $perl_modules = C4::Installer::PerlModules->new; |
|
Lines 102-108
if ( $step && $step == 1 ) {
Link Here
|
| 102 |
my $modules = $perl_modules->get_attr('missing_pm'); |
104 |
my $modules = $perl_modules->get_attr('missing_pm'); |
| 103 |
if ( scalar(@$modules) ) { |
105 |
if ( scalar(@$modules) ) { |
| 104 |
my @components = (); |
106 |
my @components = (); |
| 105 |
my $checkmodule = 1; |
|
|
| 106 |
foreach (@$modules) { |
107 |
foreach (@$modules) { |
| 107 |
my ( $module, $stats ) = each %$_; |
108 |
my ( $module, $stats ) = each %$_; |
| 108 |
$checkmodule = 0 if $stats->{'required'}; |
109 |
$checkmodule = 0 if $stats->{'required'}; |
| 109 |
- |
|
|