Lines 185-191
elsif ( $step && $step == 3 ) {
Link Here
|
185 |
# we have finished, just redirect to mainpage. |
185 |
# we have finished, just redirect to mainpage. |
186 |
# |
186 |
# |
187 |
print $query->redirect("/cgi-bin/koha/mainpage.pl"); |
187 |
print $query->redirect("/cgi-bin/koha/mainpage.pl"); |
188 |
exit 1; |
188 |
exit; |
189 |
} |
189 |
} |
190 |
elsif ( $op && $op eq 'finish' ) { |
190 |
elsif ( $op && $op eq 'finish' ) { |
191 |
$installer->set_version_syspref(); |
191 |
$installer->set_version_syspref(); |
Lines 312-317
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 |
|
316 |
if ( ! defined $ENV{PERL5LIB} ) { |
317 |
my $find = "C4/Context.pm"; |
318 |
my $path = $INC{$find}; |
319 |
$path =~ s/\Q$find\E//; |
320 |
$ENV{PERL5LIB} = $path; |
321 |
warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n"; |
322 |
} |
323 |
|
315 |
my $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/updatedatabase.pl"; |
324 |
my $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/updatedatabase.pl"; |
316 |
my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0); |
325 |
my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0); |
317 |
|
326 |
|
318 |
- |
|
|