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