| 
      
            Lines 297-308
          sub SearchAuthorities {
      
      
        Link Here
      
     | 
  
        
          | 297 | 
                  my %newline;  | 
          297 | 
                  my %newline;  | 
        
        
          | 298 | 
                  $newline{authid} = $authid; | 
          298 | 
                  $newline{authid} = $authid; | 
        
        
          | 299 | 
                  if ( !$skipmetadata ) { | 
          299 | 
                  if ( !$skipmetadata ) { | 
        
          
            
              | 300 | 
                          my $auth_tag_to_report;  | 
              300 | 
                          my ( $auth_tag_to_report, $reported_tag, $mainentry );  | 
            
            
              | 301 | 
                          $auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report  | 
              301 | 
                          if ( $authtypecode ) { | 
            
            
              | 302 | 
                              if $authtypecode;  | 
              302 | 
                              $auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report;  | 
            
            
              | 303 | 
                          my $reported_tag;  | 
              303 | 
                              $mainentry          = $authrecord->field($auth_tag_to_report) if $auth_tag_to_report;  | 
            
            
              | 304 | 
                          my $mainentry = $authrecord->field($auth_tag_to_report);  | 
              304 | 
                          }  | 
            
        
          | 305 | 
                      if ($mainentry) { | 
          305 | 
                      if ($mainentry) { | 
        
            
               | 
               | 
              306 | 
                              $reported_tag = q{}; | 
            
        
          | 306 | 
                          foreach ( $mainentry->subfields() ) { | 
          307 | 
                          foreach ( $mainentry->subfields() ) { | 
        
        
          | 307 | 
                              $reported_tag .= '$' . $_->[0] . $_->[1];  | 
          308 | 
                              $reported_tag .= '$' . $_->[0] . $_->[1];  | 
        
        
          | 308 | 
                          }  | 
          309 | 
                          }  | 
        
            
              | 309 | 
              -   | 
               | 
               |