|
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 |
- |
|
|