@@ -, +, @@ UPDATE biblio SET title='' WHERE biblionumber=XXX UPDATE biblio SET title='50 shades of Grey' WHERE biblionumber=XXX --- .../search_for_data_inconsistencies.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) --- a/misc/maintenance/search_for_data_inconsistencies.pl +++ a/misc/maintenance/search_for_data_inconsistencies.pl @@ -25,6 +25,7 @@ use Koha::BiblioFrameworks; use Koha::Biblioitems; use Koha::Items; use Koha::ItemTypes; +use C4::Biblio; { my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }}); @@ -187,6 +188,20 @@ use Koha::ItemTypes; } } +{ + my $biblios = Koha::Biblios->search({ -or => { title => undef, title => '' }}); + if ( $biblios->count ) { + my ( $title_tag, $title_subtag ) = C4::Biblio::GetMarcFromKohaField( 'biblio.title' ); + my $title_field = $title_tag // ''; + $title_field .= '$'.$title_subtag if $title_subtag; + new_section("Biblio without title $title_field"); + while ( my $biblio = $biblios->next ) { + new_item(sprintf "Biblio with biblionumber=%s does not have title defined", $biblio->biblionumber); + } + new_hint("Edit these biblio records to defined a title"); + } +} + sub new_section { my ( $name ) = @_; say "\n== $name =="; --