| 
      
      
        Link Here
      
     | 
  
        
          | 1 | 
          $DBversion = 'XXX'; # will be replaced by the RM  | 
          1 | 
          $DBversion = 'XXX'; # will be replaced by the RM  | 
        
        
          | 2 | 
          if( CheckVersion( $DBversion ) ) { | 
          2 | 
          if( CheckVersion( $DBversion ) ) { | 
        
          
            
              | 3 | 
                  my $opaclang = C4::Context->preference("opaclanguages"); | 
              3 | 
               | 
            
            
               | 
               | 
              4 | 
                  # get list of installed translations  | 
            
            
              | 5 | 
                  use C4::Languages qw(getTranslatedLanguages);  | 
            
        
          | 4 | 
              my @langs;  | 
          6 | 
              my @langs;  | 
        
          
            
              | 5 | 
                  push @langs, split ( '\,', $opaclang );  | 
              7 | 
                  my $tlangs = getTranslatedLanguages();  | 
            
            
               | 
               | 
              8 | 
               | 
            
            
              | 9 | 
                  foreach my $language ( @$tlangs ) { | 
            
            
              | 10 | 
                      foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) { | 
            
            
              | 11 | 
                          push @langs, $sublanguage->{'rfc4646_subtag'}; | 
            
            
              | 12 | 
                      }  | 
            
            
              | 13 | 
                  }  | 
            
            
              | 14 | 
               | 
            
        
          | 6 | 
              # Get any existing value from the opacheader system preference  | 
          15 | 
              # Get any existing value from the opacheader system preference  | 
        
        
          | 7 | 
              my ($opacheader) = $dbh->selectrow_array( q|  | 
          16 | 
              my ($opacheader) = $dbh->selectrow_array( q|  | 
        
        
          | 8 | 
                  SELECT value FROM systempreferences WHERE variable='opacheader';  | 
          17 | 
                  SELECT value FROM systempreferences WHERE variable='opacheader';  | 
        
            
              | 9 | 
              -   | 
               | 
               |