118 |
$checker->generate_structure_error_section; |
$checker->generate_structure_error_section; |
119 |
$checker->generate_additional_sections; |
$checker->generate_additional_sections; |
120 |
|
|
|
=pod |
|
|
|
|
|
if (defined $doc or defined $el) { |
|
|
|
|
|
print_listing_section ({ |
|
|
id => 'identifiers', label => 'IDs', heading => 'Identifiers', |
|
|
}, $input, $elements->{id}) if keys %{$elements->{id}}; |
|
|
print_listing_section ({ |
|
|
id => 'terms', label => 'Terms', heading => 'Terms', |
|
|
}, $input, $elements->{term}) if keys %{$elements->{term}}; |
|
|
print_listing_section ({ |
|
|
id => 'classes', label => 'Classes', heading => 'Classes', |
|
|
}, $input, $elements->{class}) if keys %{$elements->{class}}; |
|
|
|
|
|
print_rdf_section ($input, $elements->{rdf}) if @{$elements->{rdf}}; |
|
|
} |
|
|
|
|
|
=cut |
|
|
|
|
121 |
my $id_prefix = 0; |
my $id_prefix = 0; |
122 |
for my $_subinput (@subdoc) { |
for my $_subinput (@subdoc) { |
123 |
my $subinput = WebHACC::Input::Subdocument->new (++$id_prefix); |
my $subinput = WebHACC::Input::Subdocument->new (++$id_prefix); |