|
Lines 1-4
Link Here
|
| 1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
|
|
2 |
use Koha::Installer::Output qw(say_warning say_failure say_success say_info); |
| 2 |
|
3 |
|
| 3 |
return { |
4 |
return { |
| 4 |
bug_number => "35044", |
5 |
bug_number => "35044", |
|
Lines 14-20
return {
Link Here
|
| 14 |
'does the field allow more than one option?' AFTER searchable |
15 |
'does the field allow more than one option?' AFTER searchable |
| 15 |
} |
16 |
} |
| 16 |
); |
17 |
); |
| 17 |
say $out "Added repeatable column to additional_fields table"; |
18 |
say_success( $out, "Added repeatable column to additional_fields table" ); |
| 18 |
} |
19 |
} |
| 19 |
|
20 |
|
| 20 |
if ( unique_key_exists ('additional_field_values', 'field_record') ) { |
21 |
if ( unique_key_exists ('additional_field_values', 'field_record') ) { |
|
Lines 39-50
return {
Link Here
|
| 39 |
`additional_fields` (`id`) ON DELETE CASCADE ON UPDATE CASCADE |
40 |
`additional_fields` (`id`) ON DELETE CASCADE ON UPDATE CASCADE |
| 40 |
} |
41 |
} |
| 41 |
); |
42 |
); |
| 42 |
say $out "Removed UNIQUE KEY `field_record` (`field_id`,`record_id`) from the additional_field_values table"; |
43 |
say_success( $out, "Removed UNIQUE KEY `field_record` (`field_id`,`record_id`) from the additional_field_values table" ); |
| 43 |
} |
44 |
} |
| 44 |
|
45 |
|
| 45 |
my $number_of_entries = $dbh->do(q{DELETE FROM additional_field_values WHERE value = ''}); |
46 |
my $number_of_entries = $dbh->do(q{DELETE FROM additional_field_values WHERE value = ''}); |
| 46 |
if ( defined $number_of_entries && $number_of_entries > 0 ) { |
47 |
if ( defined $number_of_entries && $number_of_entries > 0 ) { |
| 47 |
say $out "Removed $number_of_entries redundant additional_field_values entries with empty value"; |
48 |
say_info( $out, "Removed $number_of_entries redundant additional_field_values entries with empty value" ); |
| 48 |
} |
49 |
} |
| 49 |
}, |
50 |
}, |
| 50 |
}; |
51 |
}; |
| 51 |
- |
|
|