View | Details | Raw Unified | Return to bug 20509
Collapse All | Expand All

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-1 / +12 lines)
Lines 18-23 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Koha::Items;
20
use Koha::Items;
21
use Koha::Authorities;
21
22
22
{
23
{
23
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
24
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
Lines 34-39 use Koha::Items; Link Here
34
    if ( $items->count ) { new_hint("Edit these items and set valid homebranch and/or holdingbranch")}
35
    if ( $items->count ) { new_hint("Edit these items and set valid homebranch and/or holdingbranch")}
35
}
36
}
36
37
38
{
39
    # No join possible, FK is missing at DB level
40
    my @auth_types = Koha::Authority::Types->search->get_column('authtypecode');
41
    my $authorities = Koha::Authorities->search({authtypecode => { 'not in' => \@auth_types } });
42
    if ( $authorities->count ) {new_section("Invalid auth_header.authtypecode")}
43
    while ( my $authority = $authorities->next ) {
44
        new_item(sprintf "Authority with authid=%s does not have a code defined (%s)", $authority->authid, $authority->authtypecode);
45
    }
46
    if ( $authorities->count ) {new_hint("Go to 'Home › Administration › Authority types' to define them")}
47
}
48
37
sub new_section {
49
sub new_section {
38
    my ( $name ) = @_;
50
    my ( $name ) = @_;
39
    say "\n== $name ==";
51
    say "\n== $name ==";
40
- 

Return to bug 20509