34 lines
634 B
Perl
34 lines
634 B
Perl
package notifications;
|
|
use strict;
|
|
use warnings;
|
|
use Exporter 'import';
|
|
|
|
our @EXPORT = qw( generate_notification_compact content_notifications );
|
|
|
|
use template_helpers 'to_template';
|
|
|
|
sub generate_notification_compact
|
|
{
|
|
my ($ssn, $data, $notif) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
notif => $notif
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'notif_compact.tt'});
|
|
}
|
|
|
|
sub content_notifications
|
|
{
|
|
my ($ssn, $data, $notifs) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn=> $ssn,
|
|
notifs => $notifs
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'content_notifs.tt'});
|
|
}
|