Lines 289-296
sub build_tabs {
Link Here
|
289 |
$i++; |
289 |
$i++; |
290 |
next if ! $tag; |
290 |
next if ! $tag; |
291 |
my ($indicator1, $indicator2); |
291 |
my ($indicator1, $indicator2); |
292 |
my $index_tag = CreateKey($unique_keys); |
292 |
my $index_tag = $tag; |
293 |
|
293 |
|
|
|
294 |
my $subfield_counter = {}; |
294 |
# if MARC::Record is not empty =>use it as master loop, then add missing subfields that should be in the tab. |
295 |
# if MARC::Record is not empty =>use it as master loop, then add missing subfields that should be in the tab. |
295 |
# if MARC::Record is empty => use tab as master loop. |
296 |
# if MARC::Record is empty => use tab as master loop. |
296 |
if ( $record ne -1 && ( $record->field($tag) || $tag eq '000' ) ) { |
297 |
if ( $record ne -1 && ( $record->field($tag) || $tag eq '000' ) ) { |
Lines 334-339
sub build_tabs {
Link Here
|
334 |
breedingid => scalar $input->param('breedingid'), |
335 |
breedingid => scalar $input->param('breedingid'), |
335 |
tagslib => $tagslib, |
336 |
tagslib => $tagslib, |
336 |
mandatory_z3950 => $mandatory_z3950, |
337 |
mandatory_z3950 => $mandatory_z3950, |
|
|
338 |
subfield_counter => $subfield_counter, |
337 |
} |
339 |
} |
338 |
) |
340 |
) |
339 |
); |
341 |
); |
Lines 360-365
sub build_tabs {
Link Here
|
360 |
breedingid => scalar $input->param('breedingid'), |
362 |
breedingid => scalar $input->param('breedingid'), |
361 |
tagslib => $tagslib, |
363 |
tagslib => $tagslib, |
362 |
mandatory_z3950 => $mandatory_z3950, |
364 |
mandatory_z3950 => $mandatory_z3950, |
|
|
365 |
subfield_counter => $subfield_counter, |
363 |
} |
366 |
} |
364 |
) |
367 |
) |
365 |
); |
368 |
); |
Lines 401-406
sub build_tabs {
Link Here
|
401 |
breedingid => scalar $input->param('breedingid'), |
404 |
breedingid => scalar $input->param('breedingid'), |
402 |
tagslib => $tagslib, |
405 |
tagslib => $tagslib, |
403 |
mandatory_z3950 => $mandatory_z3950, |
406 |
mandatory_z3950 => $mandatory_z3950, |
|
|
407 |
subfield_counter => $subfield_counter, |
404 |
} |
408 |
} |
405 |
) |
409 |
) |
406 |
); |
410 |
); |
Lines 468-473
sub build_tabs {
Link Here
|
468 |
breedingid => scalar $input->param('breedingid'), |
472 |
breedingid => scalar $input->param('breedingid'), |
469 |
tagslib => $tagslib, |
473 |
tagslib => $tagslib, |
470 |
mandatory_z3950 => $mandatory_z3950, |
474 |
mandatory_z3950 => $mandatory_z3950, |
|
|
475 |
subfield_counter => $subfield_counter, |
471 |
} |
476 |
} |
472 |
) |
477 |
) |
473 |
); |
478 |
); |
474 |
- |
|
|