88 lines
1.7 KiB
Perl
88 lines
1.7 KiB
Perl
package search;
|
|
use strict;
|
|
use warnings;
|
|
use Exporter 'import';
|
|
|
|
our @EXPORTS = qw( content_search search_tags search_accounts search_statuses );
|
|
|
|
use template_helpers 'to_template';
|
|
use status 'generate_status';
|
|
use account 'generate_account_item';
|
|
|
|
use constant
|
|
{
|
|
SEARCH_CAT_STATUSES => 0,
|
|
SEARCH_CAT_ACCOUNTS => 1,
|
|
SEARCH_CAT_TAGS => 2
|
|
};
|
|
|
|
sub search_page
|
|
{
|
|
my ($ssn, $data, $tab, $content) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
tab => $tab,
|
|
content => $content,
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'search.tt'});
|
|
}
|
|
|
|
sub search_accounts
|
|
{
|
|
my ($ssn, $data, $accounts) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
accounts => $accounts,
|
|
);
|
|
|
|
search_page($ssn, $data, SEARCH_CAT_ACCOUNTS, to_template(\%vars, \$data->{'search_accounts.tt'}));
|
|
}
|
|
|
|
sub search_statuses
|
|
{
|
|
my ($ssn, $data, $statuses) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
statuses => $statuses,
|
|
);
|
|
|
|
search_page($ssn, $data, SEARCH_CAT_STATUSES, to_template(\%vars, \$data->{'search_statuses.tt'}));
|
|
}
|
|
|
|
sub search_tags
|
|
{
|
|
my ($ssn, $data, $tags) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
tags => $tags,
|
|
);
|
|
|
|
search_page($ssn, $data, SEARCH_CAT_TAGS, to_template(\%vars, \$data->{'search_tags.tt'}));
|
|
}
|
|
|
|
sub content_search
|
|
{
|
|
my ($ssn, $data, $search) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
search => $search,
|
|
|
|
create_status => sub { generate_status($ssn, $data, shift); },
|
|
create_account => sub { generate_account_item($ssn, $data, shift); },
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'content_search.tt'});
|
|
}
|
|
|