<%class> use JSON; use URI::Escape; has 'data'; has 'cb' => ( isa => 'Int'); <%init> my $args = eval { return from_json(uri_unescape($.data), { ascii => 1}); }; $m->redirect('/login') unless $USER && $USER->{'logged_in'}; $args->{'authors'} = [] unless $args->{'authors'} && ref($args->{'authors'}) eq 'ARRAY';

  • Authors         show sidebar

    • % my @author_box = (); % foreach my $a (sort { $a->{'last_name'} cmp $b->{'last_name'} || $a->{'first_name'} cmp $b->{'first_name'} } @{$args->{'authors'}}) {

  • <% $a->{'last_name'} %>, <% $a->{'first_name'} %> (<% $a->{'initials'} %>)     

    • % }