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