| 
      
            Lines 184-213
          for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
      
      
        Link Here
      
     | 
  
        
          | 184 | 
                      # loop through each subfield  | 
          184 | 
                      # loop through each subfield  | 
        
        
          | 185 | 
                      for my $i ( 0 .. $#subf ) { | 
          185 | 
                      for my $i ( 0 .. $#subf ) { | 
        
        
          | 186 | 
                          $subf[$i][0] = "@" unless defined $subf[$i][0];  | 
          186 | 
                          $subf[$i][0] = "@" unless defined $subf[$i][0];  | 
        
            
               | 
               | 
              187 | 
                              my $sf = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }; | 
            
        
          | 187 | 
                          next  | 
          188 | 
                          next  | 
        
          
            
              | 188 | 
                                  if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab} // q{} ) ne | 
              189 | 
                                  if ( $sf->{tab} // q{} ) ne $tabloop;    # Note: defaulting to '0' changes behavior! | 
            
            
              | 189 | 
                                  $tabloop;    # Note: defaulting to '0' changes behavior!  | 
               | 
               | 
            
        
          | 190 | 
                          next  | 
          190 | 
                          next  | 
        
          
            
              | 191 | 
                                  if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/ ); | 
              191 | 
                                  if ( $sf->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/ ); | 
            
        
          | 192 | 
                          my %subfield_data;  | 
          192 | 
                          my %subfield_data;  | 
        
          
            
              | 193 | 
                              $subfield_data{short_desc} = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib}; | 
              193 | 
                              $subfield_data{short_desc} = $sf->{lib}; | 
            
            
              | 194 | 
                              $subfield_data{long_desc} = | 
              194 | 
                              $subfield_data{long_desc}  = $sf->{lib}; | 
            
            
              | 195 | 
                                  $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib}; | 
              195 | 
                              $subfield_data{link}       = $sf->{link}; | 
            
            
              | 196 | 
                              $subfield_data{link} = | 
              196 | 
               | 
            
            
              | 197 | 
                                  $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{link}; | 
              197 | 
                              if ( $sf->{isurl} ) { | 
            
            
              | 198 | 
               | 
               | 
               | 
            
            
              | 199 | 
                              #                 warn "tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}."lien koha? : "$subfield_data{link}; | 
            
            
              | 200 | 
                              if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{isurl} ) { | 
            
        
          | 201 | 
                              $subfield_data{marc_value} = $subf[$i][1]; | 
          198 | 
                              $subfield_data{marc_value} = $subf[$i][1]; | 
        
        
          | 202 | 
                              $subfield_data{is_url}     = 1; | 
          199 | 
                              $subfield_data{is_url}     = 1; | 
        
          
            
              | 203 | 
                              } elsif ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{kohafield} | 
              200 | 
                              } elsif ( $sf->{kohafield} && $sf->{kohafield} eq "biblioitems.isbn" ) { | 
            
            
              | 204 | 
                                  && $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{kohafield} eq "biblioitems.isbn" ) | 
               | 
               | 
            
            
              | 205 | 
                              { | 
            
            
              | 206 | 
               | 
            
            
              | 207 | 
                                  #                    warn " tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}. "ISBN : ".$subf[$i][1]."PosttraitementISBN :".DisplayISBN($subf[$i][1]); | 
            
        
          | 208 | 
                              $subfield_data{marc_value} = $subf[$i][1]; | 
          201 | 
                              $subfield_data{marc_value} = $subf[$i][1]; | 
        
        
          | 209 | 
                          } else { | 
          202 | 
                          } else { | 
        
          
            
              | 210 | 
                                  if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{authtypecode} ) { | 
              203 | 
                                  if ( $sf->{authtypecode} ) { | 
            
        
          | 211 | 
                                  $subfield_data{authority} = $fields[$x_i]->subfield(9); | 
          204 | 
                                  $subfield_data{authority} = $fields[$x_i]->subfield(9); | 
        
        
          | 212 | 
                              }  | 
          205 | 
                              }  | 
        
        
          | 213 | 
                              $subfield_data{marc_value} = GetAuthorisedValueDesc( | 
          206 | 
                              $subfield_data{marc_value} = GetAuthorisedValueDesc( | 
        
            
              | 214 | 
              -   | 
               | 
               |