| Lines 40-45
          use Modern::Perl;
      
      
        Link Here | 
        
          | 40 |  | 40 |  | 
        
          | 41 | use C4::AuthoritiesMarc; | 41 | use C4::AuthoritiesMarc; | 
        
          | 42 | use C4::Auth; | 42 | use C4::Auth; | 
            
              |  |  | 43 | use C4::Biblio; | 
        
          | 43 | use C4::Context; | 44 | use C4::Context; | 
        
          | 44 | use C4::Output; | 45 | use C4::Output; | 
        
          | 45 | use CGI qw ( -utf8 ); | 46 | use CGI qw ( -utf8 ); | 
  
    | Lines 54-59
          my $query = new CGI;
      
      
        Link Here | 
        
          | 54 | my $dbh = C4::Context->dbh; | 55 | my $dbh = C4::Context->dbh; | 
        
          | 55 |  | 56 |  | 
        
          | 56 | my $display_hierarchy = C4::Context->preference("AuthDisplayHierarchy"); | 57 | my $display_hierarchy = C4::Context->preference("AuthDisplayHierarchy"); | 
            
              |  |  | 58 | my $marcflavour       = C4::Context->preference("marcflavour"); | 
        
          | 57 | my $show_marc = $query->param('marc'); | 59 | my $show_marc = $query->param('marc'); | 
        
          | 58 |  | 60 |  | 
        
          | 59 | # open template | 61 | # open template | 
  
    | Lines 86-96
          if ($display_hierarchy){
      
      
        Link Here | 
        
          | 86 | my $count = $authority ? $authority->get_usage_count : 0; | 88 | my $count = $authority ? $authority->get_usage_count : 0; | 
        
          | 87 |  | 89 |  | 
        
          | 88 | my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypecode'] } ); | 90 | my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypecode'] } ); | 
            
              |  |  | 91 | my $marcurlsarray = GetMarcUrls( $record, $marcflavour ); | 
            
              | 92 |  | 
        
          | 89 | $template->param( | 93 | $template->param( | 
        
          | 90 |     authority_types => $authority_types, | 94 |     authority_types => $authority_types, | 
        
          | 91 |     authtypetext    => $authority_types->find($authtypecode)->authtypetext, | 95 |     authtypetext    => $authority_types->find($authtypecode)->authtypetext, | 
        
          | 92 |     authid          => $authid, | 96 |     authid          => $authid, | 
        
          | 93 |     count           => $count, | 97 |     count           => $count, | 
            
              |  |  | 98 |     MARCURLS        => $marcurlsarray, | 
        
          | 94 | ); | 99 | ); | 
        
          | 95 |  | 100 |  | 
        
          | 96 | # find the marc field/subfield used in biblio by this authority | 101 | # find the marc field/subfield used in biblio by this authority | 
  
    | Lines 117-123
          if ($show_marc) {
      
      
        Link Here | 
        
          | 117 |         my @subfields_data; | 122 |         my @subfields_data; | 
        
          | 118 |  | 123 |  | 
        
          | 119 | # skip UNIMARC fields <200, they are useless for a patron | 124 | # skip UNIMARC fields <200, they are useless for a patron | 
          
            
              | 120 |         next if C4::Context->preference('marcflavour') eq 'UNIMARC' && $field->tag() <200; | 125 |         next if $marcflavour eq 'UNIMARC' && $field->tag() <200; | 
        
          | 121 |  | 126 |  | 
        
          | 122 | # if tag <10, there's no subfield, use the "@" trick | 127 | # if tag <10, there's no subfield, use the "@" trick | 
        
          | 123 |         if ( $field->tag() < 10 ) { | 128 |         if ( $field->tag() < 10 ) { | 
  
    | Lines 129-135
          if ($show_marc) {
      
      
        Link Here | 
        
          | 129 |             $subfield_data{marc_tag}      = $field->tag(); | 134 |             $subfield_data{marc_tag}      = $field->tag(); | 
        
          | 130 |             push( @subfields_data, \%subfield_data ); | 135 |             push( @subfields_data, \%subfield_data ); | 
        
          | 131 |         } | 136 |         } | 
          
            
              | 132 |         elsif ( C4::Context->preference('marcflavour') eq 'MARC21' && $field->tag() eq 667 ) { | 137 |         elsif ( $marcflavour eq 'MARC21' && $field->tag() eq 667 ) { | 
        
          | 133 |             # tagfield 667 is a nonpublic general note in MARC21, which shouldn't be shown in the OPAC | 138 |             # tagfield 667 is a nonpublic general note in MARC21, which shouldn't be shown in the OPAC | 
        
          | 134 |         } | 139 |         } | 
        
          | 135 |         else { | 140 |         else { | 
            
              | 136 | -  |  |  |