generate odt from contributions

[star2016] / star2016-abstracts.pl

diff --git a/star2016-abstracts.pl b/star2016-abstracts.pl
index c544ca1..0c58a04 100755 (executable)
--- a/star2016-abstracts.pl
+++ b/star2016-abstracts.pl
@@ -59,18 +59,19 @@ foreach my $abstract ( @$abstracts ) {
 
        $id2nr->{ $id } = $nr++;
 
-       $doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
+       my $t = $doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
+       $doc->setPageBreak( $t, position => 'before', style => 'Heading 1');
 
        foreach my $a ( @{ $abstract->{PrimaryAuthor} } ) {
                $doc->appendParagraph(text => join(' ',
                        map { $a->{$_}->[0] } qw( FirstName FamilyName Email Affiliation )
                ), style => 'Heading 2');
+               push @{ $stat->{_Affiliation}->{ $a->{Affiliation}->[0] } }, $id;
        }
 
        $doc->appendParagraph(text => $abstract->{Content}->[0], style => 'Abstract');
-
-       my $pg = $doc->appendParagraph();
-       $doc->setPageBreak( $pg );
+       
+       $doc->appendParagraph(text => "Theme: " . $f->{2}->{'content'}, style => 'Theme');
 
 }