remove some fields

[star2016] / star2016-contributions.pl

diff --git a/star2016-contributions.pl b/star2016-contributions.pl
index 3ed9915..24731b2 100755 (executable)
--- a/star2016-contributions.pl
+++ b/star2016-contributions.pl
@@ -130,9 +130,9 @@ sub abstract2doc {
                $doc->appendParagraph(text => $p, style => 'Abstract');
        }
 
-       $doc->appendParagraph(text => "\nTheme: " . $abstract->{Theme}->[0], style => 'Theme');
+#      $doc->appendParagraph(text => "\nTheme: " . $abstract->{Theme}->[0], style => 'Theme');
 
-       $doc->appendParagraph(text => "\nContributionType: " . $abstract->{ContributionType}->[0], style => 'Quotations');
+#      $doc->appendParagraph(text => "\nContributionType: " . $abstract->{ContributionType}->[0], style => 'Quotations');
 
        $doc->appendParagraph(text => "\nID: " . $abstract->{Id}->[0], style => 'Abstract');
 
@@ -198,14 +198,17 @@ foreach my $a ( sort keys %{ $stat->{_Affiliation} } ) {
 }
 
 
+my $last_html = '';
 open(my $authors_fh, '>', 'authors.html');
 foreach my $a ( sort { $a->{FamilyName} cmp $b->{FamilyName} } @authors ) {
-       print $authors_fh qq{
+       my $html = qq{
 <li>
  <b>$a->{FamilyName}, $a->{FirstName}</b><br>
  $a->{Affiliation}<br>
  <em>$a->{Email}</em>
 </li>};
+       print $authors_fh $html eq $last_html ? '<!-- dup -->' : $html;
+       $last_html = $html;
 }
 
 close $authors_fh;