| Lines 5635-5640
          if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
      
      
        Link Here | 
        
          | 5635 |     SetVersion($DBversion); | 5635 |     SetVersion($DBversion); | 
        
          | 5636 | } | 5636 | } | 
        
          | 5637 |  | 5637 |  | 
            
              |  |  | 5638 | $DBversion = "3.09.00.XXX"; | 
            
              | 5639 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
              | 5640 |     $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'defaultSortField' AND value = 'callnumber'"); | 
            
              | 5641 |     $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'"); | 
            
              | 5642 |     print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n"; | 
            
              | 5643 |     SetVersion ($DBversion); | 
            
              | 5644 | } | 
            
              | 5645 |  | 
        
          | 5638 | =head1 FUNCTIONS | 5646 | =head1 FUNCTIONS | 
        
          | 5639 |  | 5647 |  | 
        
          | 5640 | =head2 TableExists($table) | 5648 | =head2 TableExists($table) |