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