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 |
- |
|
|