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

Bug 21466: Catch any values that should be defined in the AV but are not

Browse source 
Let's expand the idea of the first patch to catch the wrong values for
any others AV.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Jonathan Druart 2019-03-05 17:04:45 -03:00 committed by Martin Renvoize
parent e48d396002
commit 4e8ecf0d3d
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 30 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
misc/maintenance/search_for_data_inconsistencies.pl
View file

@ -127,15 +127,20 @@ use Koha::ItemTypes;
my $frameworks = Koha::BiblioFrameworks->search;
my $invalid_locations_per_framework;
while ( my $framework = $frameworks->next ) {
my $msss = Koha::MarcSubfieldStructures->search({ frameworkcode => $framework->frameworkcode, authorised_value => { '!=' => [ -and => ( undef, '' ) ]} });
while ( my $mss = $msss->next ) {
my $kohafield = $mss->kohafield;
next if grep {/$kohafield/} qw( branches itemtypes cn_source ); # internal categories
my $avs = Koha::AuthorisedValues->search_by_koha_field(
{
frameworkcode => $framework->frameworkcode,
kohafield => 'items.location'
kohafield => $kohafield,
}
);
(my $tmp_kohafield = $kohafield) =~ s|items|me|; # replace items.attr with me.attr
my $items = Koha::Items->search(
{
location =>
$tmp_kohafield =>
{ -not_in => [ $avs->get_column('authorised_value') ] },
'biblio.frameworkcode' => $framework->frameworkcode
},
@ -143,25 +148,30 @@ use Koha::ItemTypes;
);
if ( $items->count ) {
$invalid_locations_per_framework->{ $framework->frameworkcode } =
{ items => $items, av_category => $avs->next->category, };
{ items => $items, av_category => $mss->authorised_value, kohafield => $kohafield };
}
}
}
if (%$invalid_locations_per_framework) {
new_section('Wrong value dor items.location');
new_section('Wrong values linked to authorised values');
for my $frameworkcode ( keys %$invalid_locations_per_framework ) {
my $output;
my $items =
$invalid_locations_per_framework->{$frameworkcode}->{items};
my $av_category =
$invalid_locations_per_framework->{$frameworkcode}->{av_category};
my $kohafield =
$invalid_locations_per_framework->{$frameworkcode}->{kohafield};
my ( $table, $column ) = split '\.', $kohafield;
while ( my $i = $items->next ) {
$output .= " {" . $i->itemnumber . " => " . $i->location . "}";
my $value = $table eq 'items' ? $i->$column : $i->biblioitem->$column;
$output .= " {" . $i->itemnumber . " => " . $value . "}";
}
new_item(
sprintf(
"The Framework *%s* is using the authorised value's category *%s*, "
. "but the following items.location do not have a value defined ({itemnumber => value }):\n%s",
$frameworkcode, $av_category, $output
. "but the following %s do not have a value defined ({itemnumber => value }):\n%s",
$frameworkcode, $av_category, $kohafield, $output
)
);
}