| 531 |
my $o = sprintf("%4s %d ~", $f, $v); |
my $o = sprintf("%4s %d ~", $f, $v); |
| 532 |
|
|
| 533 |
if (defined($s->{sf}->{$f})) { |
if (defined($s->{sf}->{$f})) { |
| 534 |
|
my @subfields = keys %{ $s->{sf}->{$f} }; |
| 535 |
|
warn "$f has subfields ",dump( @subfields ); |
| 536 |
map { |
map { |
| 537 |
$o .= sprintf(" %s:%d%s", $_, |
$o .= sprintf(" %s:%d%s", $_, |
| 538 |
$s->{sf}->{$f}->{$_}->{count}, |
$s->{sf}->{$f}->{$_}->{count}, |
| 539 |
$s->{sf}->{$f}->{$_}->{repeatable} ? '*' : '', |
$s->{sf}->{$f}->{$_}->{repeatable} ? '*' : '', |
| 540 |
); |
); |
| 541 |
} sort keys %{ $s->{sf}->{$f} }; |
} ( |
| 542 |
|
# first indicators |
| 543 |
|
sort( grep( /^i[12]$/, @subfields ) ), |
| 544 |
|
# then subfileds |
| 545 |
|
sort( grep( !/^i[12]$/, @subfields ) ), |
| 546 |
|
); |
| 547 |
} |
} |
| 548 |
|
|
| 549 |
if (my $v_r = $s->{repeatable}->{$f}) { |
if (my $v_r = $s->{repeatable}->{$f}) { |
Parent Directory
| 
Revision Log
| 
Patch