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

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-1 / +16 lines)
Lines 19-27 use Modern::Perl; Link Here
19
19
20
use Koha::Script;
20
use Koha::Script;
21
use Koha::Items;
21
use Koha::Items;
22
use Koha::Biblios;
22
use Koha::Biblioitems;
23
use Koha::Biblioitems;
23
use Koha::ItemTypes;
24
use Koha::ItemTypes;
24
use Koha::Authorities;
25
use Koha::Authorities;
26
use C4::Biblio;
25
27
26
{
28
{
27
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
29
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
Lines 108-113 use Koha::Authorities; Link Here
108
    }
110
    }
109
}
111
}
110
112
113
{
114
    my $biblios = Koha::Biblios->search({ -or => { title => undef, title => '' }});
115
    if ( $biblios->count ) {
116
        my ( $title_tag, $title_subtag ) = C4::Biblio::GetMarcFromKohaField( 'biblio.title' );
117
        my $title_field = $title_tag // '';
118
        $title_field .= '$'.$title_subtag if $title_subtag;
119
        new_section("Biblio without title $title_field");
120
        while ( my $biblio = $biblios->next ) {
121
            new_item(sprintf "Biblio with biblionumber=%s does not have title defined", $biblio->biblionumber);
122
        }
123
        new_hint("Edit these biblio records to defined a title");
124
    }
125
}
126
111
sub new_section {
127
sub new_section {
112
    my ( $name ) = @_;
128
    my ( $name ) = @_;
113
    say "\n== $name ==";
129
    say "\n== $name ==";
114
- 

Return to bug 23871