26 lines
509 B
Perl
26 lines
509 B
Perl
package navigation;
|
|
use strict;
|
|
use warnings;
|
|
use Exporter 'import';
|
|
|
|
our @EXPORT = qw( generate_navigation );
|
|
|
|
use template_helpers 'to_template';
|
|
use l10n 'lang';
|
|
|
|
sub generate_navigation
|
|
{
|
|
my ($ssn, $data, $first_id, $last_id) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
lang => \&lang,
|
|
start_id => $ssn->{post}->{start_id} || $first_id,
|
|
prev_id => $first_id,
|
|
next_id => $last_id,
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'navigation.tt'});
|
|
}
|