Lines 321-327
elsif ( $step && $step == 3 ) {
Link Here
|
321 |
warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n"; |
321 |
warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n"; |
322 |
} |
322 |
} |
323 |
|
323 |
|
324 |
my $koha39 =~ "3.0900000"; |
324 |
my $koha39 = "3.0900027"; |
325 |
my $cmd; |
325 |
my $cmd; |
326 |
# Old updatedatabase method |
326 |
# Old updatedatabase method |
327 |
my $current_version = C4::Context->preference('Version'); |
327 |
my $current_version = C4::Context->preference('Version'); |
Lines 329-335
elsif ( $step && $step == 3 ) {
Link Here
|
329 |
$cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/updatedatabase.pl"; |
329 |
$cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/updatedatabase.pl"; |
330 |
my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0); |
330 |
my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0); |
331 |
print_std( "updatedatabase.pl", $stdout_buf, $stderr_buf ); |
331 |
print_std( "updatedatabase.pl", $stdout_buf, $stderr_buf ); |
332 |
|
332 |
$current_version= $koha39; |
333 |
} |
333 |
} |
334 |
$cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/update.pl -all -min=$current_version"; |
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); |
335 |
my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0); |
336 |
- |
|
|