{ use lib $ENV{'PRODUCT_ROOT'}."/cdweb/lib"; use lib $ENV{'PRODUCT_ROOT'}."/cdweb/lib/perl"; use CDWEB; use Viewer::Context; use Formatter::Factory; $context = new Viewer::Context(defined $cdweb::that_doc ? $cdweb::that_doc : $this_doc, arguments()); $fmt = Formatter::Factory->build_formatter($context); my $args = user::arguments; $id = $args->{'jnl'}; $jnl = CDWEB::Journal->get_journal( $id ); $vol = $args->{'vol'}; $iss = $args->{'iss'}; $issue_obj = $jnl->get_issue($vol,$iss); $pii = $args->{'pii'}; $article = $issue_obj->get_article( $pii ); $title = $article->title->{'en'}; unless (defined $title) { $title = (values %{$article->title})[0]; } ""; }> abstract || $issue_obj->samplep}>
{ @affs = @{$article->aff}; join(', ', map { s/^([^,]*),\s*(.*)$/$2 $1/; my $affs = shift @affs; defined $affs ? $_ .= '' . $affs . '' : $_; } @{$article->authors} )}>
{ my $affs = $article->get_affs(); $affs ? "$affs
" : '' }> { my %languagehash = map {$_ => undef} keys %{$article->abstracts}; @languages =(); for $lang ('en', 'fr', 'de') { if(exists $languagehash{$lang}) { push @languages, $lang; delete $languagehash{$lang}; } } push @languages, sort keys %languagehash; ''; }>Keyword{$article->keywords->{$lang} =~ /[,\001]/ ? 's' : ''}>: {join ', ', split /\s*[,\001]\s*/, $article->keywords->{$lang}}> /if> /for>
PII: {$article->checksummed_pii}>
{$fmt->format_copyright}> {if (defined($context)) {$context->finish(); $context = undef;}}> {$user::fmt = undef;}>