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