33 lines
901 B
Perl
33 lines
901 B
Perl
package timeline;
|
|
use strict;
|
|
use warnings;
|
|
use Exporter 'import';
|
|
|
|
our @EXPORT = qw( content_timeline );
|
|
|
|
use template_helpers 'to_template';
|
|
use icons 'get_icon';
|
|
use postbox 'generate_postbox';
|
|
use status 'generate_status';
|
|
use navigation 'generate_navigation';
|
|
|
|
sub content_timeline
|
|
{
|
|
my ($ssn, $data, $statuses, $title, $show_post_box, $fake_timeline) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
data => $data,
|
|
statuses => $statuses,
|
|
title => $title,
|
|
fake_timeline => $fake_timeline,
|
|
show_post_box => $show_post_box,
|
|
postbox => \&generate_postbox,
|
|
create_status => sub { generate_status($ssn, $data, shift); },
|
|
# Don't autovivify statuses
|
|
nav => sub { generate_navigation($ssn, $data, $statuses->[0]->{id}, $statuses->[-1]->{id}) },
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'timeline.tt'});
|
|
}
|