collect symposiom titles

diff --git a/star2016-contributions.pl b/star2016-contributions.pl
index dde38e0..0261df1 100755 (executable)
--- a/star2016-contributions.pl
+++ b/star2016-contributions.pl
@@ -20,8 +20,8 @@ my $id2nr;
 $doc->createStyle(
        "Abstract",
        family          => 'paragraph',
-#      parent          => 'Default Style',
-#      category        => 'auto',
+       parent          => 'Default Style',
+       category        => 'auto',
        properties      => {
                -area                   => 'paragraph',
                'fo:text-align' => 'justify'
@@ -53,6 +53,11 @@ foreach my $file ( glob 'contributions/*.xml' ) {
                $stat->{$k}->{ $abstract->{$k}->[0] } ++;
        }
 
+       if ( my $s = $abstract->{Symposium_title} ) {
+               $s = $s->[0];
+               push @{ $stat->{_symposium}->{$s} }, $id;
+       }
+
        my $f = $abstract->{field};
 
        push @{ $stat->{_symposium}->{ $f->{1}->{'content'} } }, $id if exists $f->{1}->{content};
@@ -62,6 +67,12 @@ foreach my $file ( glob 'contributions/*.xml' ) {
 
        $id2nr->{ $id } = $nr++;
 
+}
+
+warn "# stat = ",dump($stat);
+
+__END__
+
 warn "$nr";
 
        my $t = $doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
@@ -98,3 +109,9 @@ foreach my $a ( sort keys %{ $stat->{_Affiliation} } ) {
        print $fh '"',$a,'","',dump( $stat->{_Affiliation}->{$a} ), '"', "\n";
 }
 
+__DATA__
+    "Symposium proposal"  => 12,
+       "Symposium abstract"  => 52,
+    "Oral presentation"   => 141,
+    "Poster presentation" => 71,
+