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 |
- |
|
|