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