@@ -, +, @@ * old mechanism = it's run as previously, by reaching the installer/install.pl?step=3 page, that applies all revisions * new mechanism = when you log-in or reach mainpage.pl, you reach admin/updatedatabase.pl, where you can see what will be run, and run it * first to log-in to Koha * second to run installer/updatedatabase.pl?step=3 --- installer/install.pl | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) --- a/installer/install.pl +++ a/installer/install.pl @@ -312,14 +312,13 @@ elsif ( $step && $step == 3 ) { # Not 1st install, the only sub-step : update database # #Do updatedatabase And report - - if ( ! defined $ENV{PERL5LIB} ) { - my $find = "C4/Context.pm"; - my $path = $INC{$find}; - $path =~ s/\Q$find\E//; - $ENV{PERL5LIB} = "$path:$path/installer"; - warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n"; - } + if ( ! defined $ENV{PERL5LIB} ) { + my $find = "C4/Context.pm"; + my $path = $INC{$find}; + $path =~ s/\Q$find\E//; + $ENV{PERL5LIB} = "$path:$path/installer"; + warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n"; + } my $koha39 = "3.0900028"; my $cmd; @@ -331,10 +330,6 @@ elsif ( $step && $step == 3 ) { print_std( "updatedatabase.pl", $stdout_buf, $stderr_buf ); $current_version= $koha39; } - $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/update.pl -all -min=$current_version"; - my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0); - print_std( "update.pl", $stdout_buf, $stderr_buf ); - $template->param( $op => 1 ); } else { --