471 |
# remove filter{...} from beginning |
# remove filter{...} from beginning |
472 |
$filter_name = $1 if ($format =~ s/^filter{([^}]+)}//s); |
$filter_name = $1 if ($format =~ s/^filter{([^}]+)}//s); |
473 |
|
|
474 |
# do actual replacement of placeholders |
{ |
475 |
# repeatable fields |
# fix warnings |
476 |
if ($format =~ s/v(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,$i,\$found,$rec_size)/ges) { |
no warnings 'uninitialized'; |
477 |
$just_single = 0; |
|
478 |
} |
# do actual replacement of placeholders |
479 |
|
# repeatable fields |
480 |
|
if ($format =~ s/v(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,$i,\$found,$rec_size)/ges) { |
481 |
|
$just_single = 0; |
482 |
|
} |
483 |
|
|
484 |
# non-repeatable fields |
# non-repeatable fields |
485 |
if ($format =~ s/s(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,0,\$found,$rec_size)/ges) { |
if ($format =~ s/s(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,0,\$found,$rec_size)/ges) { |
486 |
return if ($i > 0 && $just_single); |
return if ($i > 0 && $just_single); |
487 |
|
} |
488 |
} |
} |
489 |
|
|
490 |
if ($found) { |
if ($found) { |