Bug 35044: (QA follow-up) Delete empty values with a single query

Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Julian Maurice 2024-07-26 09:16:15 +02:00 committed by Katrin Fischer
parent e2be648ab4
commit 2d5a7d19a3
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 2 additions and 6 deletions

View File

@ -42,12 +42,8 @@ return {
say $out "Removed UNIQUE KEY `field_record` (`field_id`,`record_id`) from the additional_field_values table";
}
my $additional_fields_values = $dbh->selectall_arrayref(q|SELECT * FROM additional_field_values WHERE value = ''|, { Slice => {} });
my $number_of_entries = scalar @{$additional_fields_values};
if ( $number_of_entries ){
for my $afv (@$additional_fields_values) {
$dbh->do(q{DELETE FROM additional_field_values WHERE value = ''});
}
my $number_of_entries = $dbh->do(q{DELETE FROM additional_field_values WHERE value = ''});
if ( defined $number_of_entries && $number_of_entries > 0 ) {
say $out "Removed $number_of_entries redundant additional_field_values entries with empty value";
}
},