From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 21 Apr 2016 12:55:11 +0000 (+0200)
Subject: final changes for script which we won't use
X-Git-Url: http://git.rot13.org/?p=star2016;a=commitdiff_plain;h=2f345aa053a2505412d8a95241dbd3d435bbb71a

final changes for script which we won't use
---

diff --git a/star2016-abstracts.pl b/star2016-abstracts.pl
index 0c58a04..25fa196 100755
--- a/star2016-abstracts.pl
+++ b/star2016-abstracts.pl
@@ -59,6 +59,8 @@ foreach my $abstract ( @$abstracts ) {
 
 	$id2nr->{ $id } = $nr++;
 
+warn "$nr";
+
 	my $t = $doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
 	$doc->setPageBreak( $t, position => 'before', style => 'Heading 1');
 
@@ -71,11 +73,19 @@ foreach my $abstract ( @$abstracts ) {
 
 	$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";
+}
+