508 |
Create in-memory data structure which represents layout from C<import_xml>. |
Create in-memory data structure which represents layout from C<import_xml>. |
509 |
It is used later to produce output. |
It is used later to produce output. |
510 |
|
|
511 |
my $ds = $webpac->data_structure($rec); |
my @ds = $webpac->data_structure($rec); |
512 |
|
|
513 |
=cut |
=cut |
514 |
|
|
539 |
$self->{tags_by_order} = \@sorted_tags; |
$self->{tags_by_order} = \@sorted_tags; |
540 |
} |
} |
541 |
|
|
542 |
my $ds; |
my @ds; |
543 |
|
|
544 |
foreach my $field (@sorted_tags) { |
foreach my $field (@sorted_tags) { |
545 |
|
|
561 |
} |
} |
562 |
} |
} |
563 |
|
|
564 |
push @{$ds->{$field}}, $row if ($row); |
if ($row) { |
565 |
|
$row->{'tag'} = $field; |
566 |
|
push @ds, $row; |
567 |
|
} |
568 |
|
|
569 |
} |
} |
570 |
|
|
571 |
print "data_structure => ",Dumper($ds); |
print "data_structure => ",Dumper(\@ds); |
572 |
|
|
573 |
} |
} |
574 |
|
|