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

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-1 / +15 lines)
Lines 25-30 use Koha::BiblioFrameworks; Link Here
25
use Koha::Biblioitems;
25
use Koha::Biblioitems;
26
use Koha::Items;
26
use Koha::Items;
27
use Koha::ItemTypes;
27
use Koha::ItemTypes;
28
use C4::Biblio;
28
29
29
{
30
{
30
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
31
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
Lines 187-192 use Koha::ItemTypes; Link Here
187
    }
188
    }
188
}
189
}
189
190
191
{
192
    my $biblios = Koha::Biblios->search({ -or => { title => undef, title => '' }});
193
    if ( $biblios->count ) {
194
        my ( $title_tag, $title_subtag ) = C4::Biblio::GetMarcFromKohaField( 'biblio.title' );
195
        my $title_field = $title_tag // '';
196
        $title_field .= '$'.$title_subtag if $title_subtag;
197
        new_section("Biblio without title $title_field");
198
        while ( my $biblio = $biblios->next ) {
199
            new_item(sprintf "Biblio with biblionumber=%s does not have title defined", $biblio->biblionumber);
200
        }
201
        new_hint("Edit these biblio records to defined a title");
202
    }
203
}
204
190
sub new_section {
205
sub new_section {
191
    my ( $name ) = @_;
206
    my ( $name ) = @_;
192
    say "\n== $name ==";
207
    say "\n== $name ==";
193
- 

Return to bug 23871