| 
      
            Lines 8603-8608
          if ( CheckVersion($DBversion) ) {
      
      
        Link Here
      
     | 
  
        
          | 8603 | 
              SetVersion($DBversion);  | 
          8603 | 
              SetVersion($DBversion);  | 
        
        
          | 8604 | 
          }  | 
          8604 | 
          }  | 
        
        
          | 8605 | 
           | 
          8605 | 
           | 
        
            
               | 
               | 
              8606 | 
              $DBversion = "3.17.00.XXX";  | 
            
            
              | 8607 | 
              if ( CheckVersion($DBversion) ) { | 
            
            
              | 8608 | 
                  my $opac_theme = C4::Context->preference( 'opacthemes' );  | 
            
            
              | 8609 | 
                  if ( $opac_theme eq 'prog' || $opac_theme eq 'ccsr' ) { | 
            
            
              | 8610 | 
                      $dbh->do("UPDATE systempreferences SET value='bootstrap' WHERE variable='opacthemes'"); | 
            
            
              | 8611 | 
                  }  | 
            
            
              | 8612 | 
                  print "Upgrade to $DBversion done (Bug 12223: 'prog' and 'ccsr' themes removed)\n";  | 
            
            
              | 8613 | 
                  SetVersion($DBversion);  | 
            
            
              | 8614 | 
              }  | 
            
            
              | 8615 | 
               | 
            
        
          | 8606 | 
          =head1 FUNCTIONS  | 
          8616 | 
          =head1 FUNCTIONS  | 
        
        
          | 8607 | 
           | 
          8617 | 
           | 
        
        
          | 8608 | 
          =head2 TableExists($table)  | 
          8618 | 
          =head2 TableExists($table)  | 
        
            
              | 8609 | 
              -   | 
               | 
               |