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