| 
      
            Lines 51-58
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 51 | 
              	&GetAuthority  | 
          51 | 
              	&GetAuthority  | 
        
        
          | 52 | 
              	&GetAuthorityXML  | 
          52 | 
              	&GetAuthorityXML  | 
        
        
          | 53 | 
           | 
          53 | 
           | 
        
            
              | 54 | 
                  	&CountUsage  | 
               | 
               | 
            
            
              | 55 | 
                  	&CountUsageChildren  | 
            
        
          | 56 | 
              	&SearchAuthorities  | 
          54 | 
              	&SearchAuthorities  | 
        
        
          | 57 | 
                | 
          55 | 
                | 
        
        
          | 58 | 
                  &BuildSummary  | 
          56 | 
                  &BuildSummary  | 
        
  
    | 
      
            Lines 327-333
          sub SearchAuthorities {
      
      
        Link Here
      
     | 
  
        
          | 327 | 
                  ###  | 
          325 | 
                  ###  | 
        
        
          | 328 | 
                  if (! $skipmetadata) { | 
          326 | 
                  if (! $skipmetadata) { | 
        
        
          | 329 | 
                      for (my $z=0; $z<@finalresult; $z++){ | 
          327 | 
                      for (my $z=0; $z<@finalresult; $z++){ | 
        
          
            
              | 330 | 
                              my  $count=CountUsage($finalresult[$z]{authid}); | 
              328 | 
                              my $count = Koha::Authorities->get_usage_count({ authid => $finalresult[$z]{authid} }); | 
            
        
          | 331 | 
                          $finalresult[$z]{used}=$count; | 
          329 | 
                          $finalresult[$z]{used}=$count; | 
        
        
          | 332 | 
                      }# all $z's  | 
          330 | 
                      }# all $z's  | 
        
        
          | 333 | 
                  }  | 
          331 | 
                  }  | 
        
  
    | 
      
            Lines 340-382
          sub SearchAuthorities {
      
      
        Link Here
      
     | 
  
        
          | 340 | 
              return (\@finalresult, $nbresults);  | 
          338 | 
              return (\@finalresult, $nbresults);  | 
        
        
          | 341 | 
          }  | 
          339 | 
          }  | 
        
        
          | 342 | 
           | 
          340 | 
           | 
        
            
              | 343 | 
              =head2 CountUsage   | 
               | 
               | 
            
            
              | 344 | 
               | 
            
            
              | 345 | 
                $count= &CountUsage($authid)  | 
            
            
              | 346 | 
               | 
            
            
              | 347 | 
              counts Usage of Authid in bibliorecords.   | 
            
            
              | 348 | 
               | 
            
            
              | 349 | 
              =cut  | 
            
            
              | 350 | 
               | 
            
            
              | 351 | 
              sub CountUsage { | 
            
            
              | 352 | 
                  my ($authid) = @_;  | 
            
            
              | 353 | 
                      ### ZOOM search here  | 
            
            
              | 354 | 
                      my $query;  | 
            
            
              | 355 | 
                      $query= "an:".$authid;  | 
            
            
              | 356 | 
                      # Should really be replaced with a real count call, this is a  | 
            
            
              | 357 | 
                      # bad way.  | 
            
            
              | 358 | 
                      my $searcher = Koha::SearchEngine::Search->new({index => $Koha::SearchEngine::BIBLIOS_INDEX}); | 
            
            
              | 359 | 
                      my ($err,$res,$result) = $searcher->simple_search_compat($query,0,1);  | 
            
            
              | 360 | 
                      if ($err) { | 
            
            
              | 361 | 
                          warn "Error: $err from search $query";  | 
            
            
              | 362 | 
                          $result = 0;  | 
            
            
              | 363 | 
                      }  | 
            
            
              | 364 | 
               | 
            
            
              | 365 | 
                      return $result;  | 
            
            
              | 366 | 
              }  | 
            
            
              | 367 | 
               | 
            
            
              | 368 | 
              =head2 CountUsageChildren   | 
            
            
              | 369 | 
               | 
            
            
              | 370 | 
                $count= &CountUsageChildren($authid)  | 
            
            
              | 371 | 
               | 
            
            
              | 372 | 
              counts Usage of narrower terms of Authid in bibliorecords.  | 
            
            
              | 373 | 
               | 
            
            
              | 374 | 
              =cut  | 
            
            
              | 375 | 
               | 
            
            
              | 376 | 
              sub CountUsageChildren { | 
            
            
              | 377 | 
                my ($authid) = @_;  | 
            
            
              | 378 | 
              }  | 
            
            
              | 379 | 
               | 
            
        
          | 380 | 
          =head2 GuessAuthTypeCode  | 
          341 | 
          =head2 GuessAuthTypeCode  | 
        
        
          | 381 | 
           | 
          342 | 
           | 
        
        
          | 382 | 
            my $authtypecode = GuessAuthTypeCode($record);  | 
          343 | 
            my $authtypecode = GuessAuthTypeCode($record);  |