X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=star2016-abstracts.pl;h=25fa196ed1d449be1b5773a67b3d15df516777fe;hb=8fa1433ebf0a5066653fa8edbb25f4ee9b76345f;hp=c544ca1f762b95f183e9a9a4b9db5b7debf4c2d4;hpb=6b2c2c0cbcefab7008bc24473084ed57857ef51b;p=star2016

diff --git a/star2016-abstracts.pl b/star2016-abstracts.pl
index c544ca1..25fa196 100755
--- a/star2016-abstracts.pl
+++ b/star2016-abstracts.pl
@@ -59,22 +59,33 @@ foreach my $abstract ( @$abstracts ) {
 
 	$id2nr->{ $id } = $nr++;
 
-	$doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
+warn "$nr";
+
+	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');
+	
+	$doc->appendParagraph(text => "\nTheme: " . $f->{2}->{'content'}, style => 'Theme');
+	
 
-	my $pg = $doc->appendParagraph();
-	$doc->setPageBreak( $pg );
-
+	$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";
+}
+