Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Remove atomicupdate file

Browse source 
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Lucas Gass 2022-07-26 16:51:12 +00:00
parent fea07bfab8
commit e40fa1af65
1 changed files with 0 additions and 57 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
installer/data/mysql/atomicupdate/bug_30899.pl
View file

@ -1,57 +0,0 @@
use Modern::Perl;
return {
bug_number => 30899,
description => "Check borrower_attribute_types FK constraint (30449 follow-up)",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
if( foreign_key_exists('borrower_attribute_types', 'category_code_fk') ) {
$dbh->do( q|ALTER TABLE borrower_attribute_types DROP FOREIGN KEY category_code_fk| );
if( index_exists('borrower_attribute_types', 'category_code_fk') ) {
$dbh->do( q|ALTER TABLE borrower_attribute_types DROP INDEX category_code_fk| );
}
}
if (
!foreign_key_exists(
'borrower_attribute_types', 'borrower_attribute_types_ibfk_1'
)
)
{
my $sth = $dbh->prepare(
q{
SELECT category_code
FROM borrower_attribute_types
WHERE category_code NOT IN (SELECT categorycode FROM categories);
}
);
$sth->execute;
my @invalid_categories;
while ( my $row = $sth->fetchrow_arrayref() ) {
push( @invalid_categories, $row->[0] );
}
if (@invalid_categories) {
die "The 'borrower_attribute_types' table contains "
. "references to invalid category codes: "
. join( ', ', @invalid_categories );
}
if ( !index_exists( 'borrower_attribute_types', 'category_code' ) )
{
$dbh->do(q|
ALTER TABLE borrower_attribute_types ADD INDEX category_code (category_code)
|);
}
$dbh->do(q|
ALTER TABLE borrower_attribute_types
ADD CONSTRAINT borrower_attribute_types_ibfk_1 FOREIGN KEY (`category_code`) REFERENCES `categories` (`categorycode`)
|);
}
},
};