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

(-)a/installer/install.pl (-13 / +7 lines)
Lines 312-325 elsif ( $step && $step == 3 ) { Link Here
312
        # Not 1st install, the only sub-step : update database
312
        # Not 1st install, the only sub-step : update database
313
        #
313
        #
314
        #Do updatedatabase And report
314
        #Do updatedatabase And report
315
315
        if ( ! defined $ENV{PERL5LIB} ) {
316
    if ( ! defined $ENV{PERL5LIB} ) {
316
            my $find = "C4/Context.pm";
317
        my $find = "C4/Context.pm";
317
            my $path = $INC{$find};
318
        my $path = $INC{$find};
318
            $path =~ s/\Q$find\E//;
319
        $path =~ s/\Q$find\E//;
319
            $ENV{PERL5LIB} = "$path:$path/installer";
320
        $ENV{PERL5LIB} = "$path:$path/installer";
320
            warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n";
321
        warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n";
321
        }
322
    }
323
322
324
        my $koha39 = "3.0900028";
323
        my $koha39 = "3.0900028";
325
        my $cmd;
324
        my $cmd;
Lines 331-340 elsif ( $step && $step == 3 ) { Link Here
331
            print_std( "updatedatabase.pl", $stdout_buf, $stderr_buf );
330
            print_std( "updatedatabase.pl", $stdout_buf, $stderr_buf );
332
            $current_version= $koha39;
331
            $current_version= $koha39;
333
        }
332
        }
334
        $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/update.pl -all -min=$current_version";
335
        my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0);
336
        print_std( "update.pl", $stdout_buf, $stderr_buf );
337
338
        $template->param( $op => 1 );
333
        $template->param( $op => 1 );
339
    }
334
    }
340
    else {
335
    else {
341
- 

Return to bug 7167