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