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