$id2nr->{ $id } = $nr++;
+warn "$nr";
+
my $t = $doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
$doc->setPageBreak( $t, position => 'before', style => 'Heading 1');
$doc->appendParagraph(text => $abstract->{Content}->[0], style => 'Abstract');
- $doc->appendParagraph(text => "Theme: " . $f->{2}->{'content'}, style => 'Theme');
+ $doc->appendParagraph(text => "\nTheme: " . $f->{2}->{'content'}, style => 'Theme');
+
+ $doc->appendParagraph(text => "\nID: " . $abstract->{Id}->[0], style => 'Abstract');
}
warn "# stat = ",dump($stat);
$doc->save;
+
+open(my $fh, '>', 'affiliation.csv');
+foreach my $a ( sort keys %{ $stat->{_Affiliation} } ) {
+ print $fh '"',$a,'","',dump( $stat->{_Affiliation}->{$a} ), '"', "\n";
+}
+