| 
      
            Lines 53-61
          my $dbh = DBI->connect(
      
      
        Link Here
      
     | 
  
        
          | 53 | 
          );  | 
          53 | 
          );  | 
        
        
          | 54 | 
           | 
          54 | 
           | 
        
        
          | 55 | 
          if ( $step && $step == 1 ) { | 
          55 | 
          if ( $step && $step == 1 ) { | 
        
          
            
              | 56 | 
                  #First Step  | 
              56 | 
                  #First Step (for both fresh installations and upgrades)  | 
            
        
          | 57 | 
              #Checking ALL perl Modules and services needed are installed.  | 
          57 | 
              #Checking ALL perl Modules and services needed are installed.  | 
        
        
          | 58 | 
              #Whenever there is an error, adding a report to the page  | 
          58 | 
              #Whenever there is an error, adding a report to the page  | 
        
            
               | 
               | 
              59 | 
                  my $op = $query->param('op') || 'noop'; | 
            
        
          | 59 | 
              $template->param( language => 1 );  | 
          60 | 
              $template->param( language => 1 );  | 
        
        
          | 60 | 
              $template->param( 'checkmodule' => 1 ); # we start with the assumption that there are no problems and set this to 0 if there are  | 
          61 | 
              $template->param( 'checkmodule' => 1 ); # we start with the assumption that there are no problems and set this to 0 if there are  | 
        
        
          | 61 | 
           | 
          62 | 
           | 
        
  
    | 
      
            Lines 84-90
          if ( $step && $step == 1 ) {
      
      
        Link Here
      
     | 
  
        
          | 84 | 
                      );  | 
          85 | 
                      );  | 
        
        
          | 85 | 
                  }  | 
          86 | 
                  }  | 
        
        
          | 86 | 
                  @components = sort {$a->{'name'} cmp $b->{'name'}} @components; | 
          87 | 
                  @components = sort {$a->{'name'} cmp $b->{'name'}} @components; | 
        
          
            
              | 87 | 
                      $template->param( missing_modules => \@components, checkmodule => $checkmodule );  | 
              88 | 
                      $template->param( missing_modules => \@components, checkmodule => $checkmodule, op => $op );  | 
            
        
          | 88 | 
              }  | 
          89 | 
              }  | 
        
        
          | 89 | 
          }  | 
          90 | 
          }  | 
        
        
          | 90 | 
          elsif ( $step && $step == 2 ) { | 
          91 | 
          elsif ( $step && $step == 2 ) { | 
        
  
    | 
      
            Lines 312-324
          elsif ( $step && $step == 3 ) {
      
      
        Link Here
      
     | 
  
        
          | 312 | 
                  #  | 
          313 | 
                  #  | 
        
        
          | 313 | 
                  #Do updatedatabase And report  | 
          314 | 
                  #Do updatedatabase And report  | 
        
        
          | 314 | 
           | 
          315 | 
           | 
        
          
            
              | 315 | 
                  if ( ! defined $ENV{PERL5LIB} ) { | 
              316 | 
                      if ( ! defined $ENV{PERL5LIB} ) { | 
            
            
              | 316 | 
                      my $find = "C4/Context.pm";  | 
              317 | 
                          my $find = "C4/Context.pm";  | 
            
            
              | 317 | 
                      my $path = $INC{$find}; | 
              318 | 
                          my $path = $INC{$find}; | 
            
            
              | 318 | 
                      $path =~ s/\Q$find\E//;  | 
              319 | 
                          $path =~ s/\Q$find\E//;  | 
            
            
              | 319 | 
                      $ENV{PERL5LIB} = "$path:$path/installer"; | 
              320 | 
                          $ENV{PERL5LIB} = "$path:$path/installer"; | 
            
            
              | 320 | 
                      warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n"; | 
              321 | 
                          warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n"; | 
            
            
              | 321 | 
                  }  | 
              322 | 
                      }  | 
            
        
          | 322 | 
           | 
          323 | 
           | 
        
        
          | 323 | 
                  my $now = POSIX::strftime( "%Y-%m-%dT%H:%M:%S", localtime() );  | 
          324 | 
                  my $now = POSIX::strftime( "%Y-%m-%dT%H:%M:%S", localtime() );  | 
        
        
          | 324 | 
                  my $logdir = C4::Context->config('logdir'); | 
          325 | 
                  my $logdir = C4::Context->config('logdir'); |