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

Bug 35836: search_for_data_inconsistencies.pl - Search for loops in dependencies

Browse source 
Signed-off-by: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
Signed-off-by: Philip Orr <philip.orr@lmscloud.de>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Matthias Le Gac 2024-02-22 14:26:24 -05:00 committed by Katrin Fischer
parent 98f69862f3
commit f2db025ccd
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834
1 changed files with 91 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

91
misc/maintenance/search_for_data_inconsistencies.pl
View file

@ -326,6 +326,97 @@ use C4::Biblio qw( GetMarcFromKohaField );
}
}
{
my @loop_borrowers_relationships;
my $relationships = Koha::Patron::Relationships->search();
my @patrons_guarantors = Koha::Patron::Relationships::guarantors($relationships)->as_list;
my @patrons_guarantees = Koha::Patron::Relationships::guarantees($relationships)->as_list;
foreach my $patron_guarantor (@patrons_guarantors) {
foreach my $patron_guarantee (@patrons_guarantees) {
if ( $patron_guarantor->borrowernumber == $patron_guarantee->borrowernumber ) {
my $guarantor_id;
my $guarantee_id;
my $size_list;
my $tmp_garantor_id = $patron_guarantor->borrowernumber;
my @guarantor_ids;
do {
my @relationship_for_go = Koha::Patron::Relationships->search(
{
-or => [
'guarantor_id' => { '=', $tmp_garantor_id },
]
},
)->as_list;
$size_list = scalar @relationship_for_go;
foreach my $relation (@relationship_for_go) {
$guarantor_id = $relation->guarantor_id;
unless ( grep { $_ == $guarantor_id } @guarantor_ids ) {
push @guarantor_ids, $guarantor_id;
}
$guarantee_id = $relation->guarantee_id;
my @relationship_for_go = Koha::Patron::Relationships->search(
{
-or => [
'guarantor_id' => { '=', $guarantee_id },
]
},
)->as_list;
$size_list = scalar @relationship_for_go;
if ( $patron_guarantor->borrowernumber == $guarantee_id ) {
last;
}
foreach my $relation (@relationship_for_go) {
$guarantor_id = $relation->guarantor_id;
unless ( grep { $_ == $guarantor_id } @guarantor_ids ) {
push @guarantor_ids, $guarantor_id;
}
$guarantee_id = $relation->guarantee_id;
if ( $patron_guarantor->borrowernumber == $guarantee_id ) {
last;
}
}
if ( $patron_guarantor->borrowernumber == $guarantee_id ) {
last;
}
}
$tmp_garantor_id = $guarantee_id;
} while ( $patron_guarantor->borrowernumber != $guarantee_id && $size_list > 0 );
if ( $patron_guarantor->borrowernumber == $guarantee_id ) {
unless ( grep { join( "", sort @$_ ) eq join( "", sort @guarantor_ids ) }
@loop_borrowers_relationships )
{
push @loop_borrowers_relationships, \@guarantor_ids;
}
}
}
}
}
if ( scalar @loop_borrowers_relationships > 0 ) {
new_section("The list of guarantors who are also guarantee.");
my $count = 0;
foreach my $table (@loop_borrowers_relationships) {
$count++;
print "Loop $count, borrowers id : ";
foreach my $borrower_id (@$table) {
print "$borrower_id | ";
}
print "\n";
}
new_hint("Relationships that form guarantor loops must be deleted");
}
}
sub new_section {
my ( $name ) = @_;
say "\n== $name ==";