projects
/
star2016
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 => $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');
$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 ) {
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>};
<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;
}
close $authors_fh;