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

(-)a/installer/install.pl (-2 / +2 lines)
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
- 

Return to bug 12932