588bfc2126
FossilOrigin-Name: 87d1a1fa92872a66a37bd82ea9cc2e687f4107c45855a115b49193953c9b770e
27 lines
405 B
Perl
27 lines
405 B
Perl
package status;
|
|
|
|
use Exporter 'import';
|
|
|
|
our @EXPORT = qw( status );
|
|
|
|
use template_helpers 'to_template';
|
|
|
|
sub status
|
|
{
|
|
my ($ssn, $data, $status) = @_;
|
|
|
|
my %vars = (
|
|
prefix => $ssn,
|
|
status => $status
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'status.tt'});
|
|
}
|
|
|
|
sub content_status
|
|
{
|
|
my ($ssn, $data, $statuses) = @_;
|
|
|
|
to_template(\%name, \$data->{'content_status.tt'});
|
|
}
|