- $doc->appendParagraph(text => join(' ',
-# map { s/([\x{80}-\x{ff}])/enc($1)/eg && warn "# PrimaryAuthor Id: $id ",Encode::is_utf8($_), dump($_),"\n"; $_ }
- map { l1($a->{$_}->[0]) } qw( FirstName FamilyName )
- ), style => 'Heading 2');
- $doc->appendParagraph(text => join(' ',
- map { l1($a->{$_}->[0]) } qw( Affiliation )
- ), style => 'Heading 3');
- push @{ $stat->{_Affiliation}->{ $a->{Affiliation}->[0] } }, $id;
+ my $v;
+ $v->{$_} = l1($a->{$_}->[0]) foreach qw( FirstName FamilyName Affiliation Email );
+ $doc->appendParagraph(text => $v->{FirstName} . ' ' . $v->{FamilyName}, style => 'Heading 2');
+ $doc->appendParagraph(text => $v->{Affiliation}, style => 'Heading 3');
+ push @{ $stat->{_Affiliation}->{ $v->{Affiliation} } }, $id;
+
+ push @authors, $v;
+