| Lines 4017-4028
          if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
      
      
        Link Here | 
        
          | 4017 |  | 4017 |  | 
        
          | 4018 | $DBversion = '3.02.06.001'; | 4018 | $DBversion = '3.02.06.001'; | 
        
          | 4019 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 4019 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
          
            
              | 4020 |     $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;"); | 4020 |     stocknumber_checker(); | 
            
              | 4021 |     $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);"); | 4021 |     print "Upgrade to $DBversion done (5860 Index itemstocknumber)\n"; | 
            
              | 4022 |     print "Upgrade to $DBversion done (Change items.stocknumber to be not unique)\n"; |  |  | 
        
          | 4023 |     SetVersion ($DBversion); | 4022 |     SetVersion ($DBversion); | 
        
          | 4024 | } | 4023 | } | 
        
          | 4025 |  | 4024 |  | 
            
              |  |  | 4025 | sub stocknumber_checker { #code reused later on | 
            
              | 4026 |   my @row; | 
            
              | 4027 |   #drop the obsolete itemSStocknumber idx if it exists | 
            
              | 4028 |   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemsstocknumberidx'"); | 
            
              | 4029 |   $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;") if @row; | 
            
              | 4030 |  | 
            
              | 4031 |   #check itemstocknumber idx; remove it if it is unique | 
            
              | 4032 |   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx' AND non_unique=0"); | 
            
              | 4033 |   $dbh->do("ALTER TABLE `items` DROP INDEX `itemstocknumberidx`;") if @row; | 
            
              | 4034 |  | 
            
              | 4035 |   #add itemstocknumber index non-unique IF it still not exists | 
            
              | 4036 |   @row = $dbh->selectrow_array("SHOW INDEXES FROM items WHERE key_name='itemstocknumberidx'"); | 
            
              | 4037 |   $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);") unless @row; | 
            
              | 4038 | } | 
            
              | 4039 |  | 
        
          | 4026 | $DBversion = '3.02.07.000'; | 4040 | $DBversion = '3.02.07.000'; | 
        
          | 4027 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 4041 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
        
          | 4028 |     print "Upgrade to $DBversion done (Incrementing version for 3.2.7 release. See release notes for details.)\n"; | 4042 |     print "Upgrade to $DBversion done (Incrementing version for 3.2.7 release. See release notes for details.)\n"; | 
  
    | Lines 4031-4039
          if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
      
      
        Link Here | 
        
          | 4031 |  | 4045 |  | 
        
          | 4032 | $DBversion = '3.02.07.001'; | 4046 | $DBversion = '3.02.07.001'; | 
        
          | 4033 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 4047 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
          
            
              | 4034 |     $dbh->do("ALTER TABLE `items` DROP INDEX `itemsstocknumberidx`;"); | 4048 |     #follow up fix 5860: some installs already past 3.2.6.1 | 
            
              | 4035 |     $dbh->do("ALTER TABLE items ADD INDEX itemstocknumberidx (stocknumber);"); | 4049 |     stocknumber_checker(); | 
            
              | 4036 |     print "Upgrade to $DBversion done (Change items.stocknumber to be not unique)\n"; | 4050 |     print "Upgrade to $DBversion done (Fix for stocknumber index)\n"; | 
        
          | 4037 |     SetVersion ($DBversion); | 4051 |     SetVersion ($DBversion); | 
        
          | 4038 | } | 4052 | } | 
        
          | 4039 |  | 4053 |  | 
  
    | Lines 4074-4079
          if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
      
      
        Link Here | 
        
          | 4074 |     SetVersion ($DBversion); | 4088 |     SetVersion ($DBversion); | 
        
          | 4075 | } | 4089 | } | 
        
          | 4076 |  | 4090 |  | 
            
              |  |  | 4091 | $DBversion = '3.02.09.XXX'; | 
            
              | 4092 | if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
              | 4093 |     #follow up fix 5860: some installs already past 3.2.6.1/3.2.7.1 | 
            
              | 4094 |     stocknumber_checker(); | 
            
              | 4095 |     print "Upgrade to $DBversion done (Fix for stocknumber index)\n"; | 
            
              | 4096 |     SetVersion ($DBversion); | 
            
              | 4097 | } | 
            
              | 4098 |  | 
        
          | 4077 | =head1 FUNCTIONS | 4099 | =head1 FUNCTIONS | 
        
          | 4078 |  | 4100 |  | 
        
          | 4079 | =head2 DropAllForeignKeys($table) | 4101 | =head2 DropAllForeignKeys($table) | 
            
              | 4080 | -  |  |  |