Lines 95-101
my @loop_data = ();
Link Here
|
95 |
my $tag; |
95 |
my $tag; |
96 |
|
96 |
|
97 |
# loop through each tab 0 through 9 |
97 |
# loop through each tab 0 through 9 |
98 |
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { |
98 |
for ( my $tabloop = 0 ; $tabloop <= 9 ; $tabloop++ ) { |
99 |
|
99 |
|
100 |
# loop through each tag |
100 |
# loop through each tag |
101 |
my @loop_data = (); |
101 |
my @loop_data = (); |
Lines 140-146
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
Link Here
|
140 |
my $previous = ''; |
140 |
my $previous = ''; |
141 |
# loop through each subfield |
141 |
# loop through each subfield |
142 |
for my $i ( 0 .. $#subf ) { |
142 |
for my $i ( 0 .. $#subf ) { |
143 |
$subf[$i][0] = "@" unless $subf[$i][0]; |
143 |
$subf[$i][0] = "@" unless defined($subf[$i][0]); |
144 |
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }; |
144 |
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }; |
145 |
next if ( ($sf_def->{tab}||0) != $tabloop ); |
145 |
next if ( ($sf_def->{tab}||0) != $tabloop ); |
146 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
146 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
Lines 215-221
foreach my $field (@fields) {
Link Here
|
215 |
# loop through each subfield |
215 |
# loop through each subfield |
216 |
for my $i ( 0 .. $#subf ) { |
216 |
for my $i ( 0 .. $#subf ) { |
217 |
my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] }; |
217 |
my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] }; |
218 |
next if ( ($sf_def->{tab}||'') ne 10 ); |
218 |
next if ( ($sf_def->{tab}||0) != 10 ); |
219 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
219 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
220 |
$witness{ $subf[$i][0] } = $sf_def->{lib}; |
220 |
$witness{ $subf[$i][0] } = $sf_def->{lib}; |
221 |
|
221 |
|
222 |
- |
|
|