<%perl>;
$m->comp('/widgets/wrappers/sharky/header.mc',
title => $disp,
context => "Admin | $disp | $aname | Recipients",
no_hist => 1);
$m->out("");
$m->comp('/widgets/alertList/alertList.mc',
mode => 'recip',
alert => $a,
alert_id => $id,
);
$m->out("
\n");
$m->comp('/lib/util/back_button.mc',
url => "/workflow/alerts/$eid");
$m->comp('/widgets/wrappers/sharky/footer.mc');
%#-- Once Section --#
<%once>;
my $type = 'alert';
my $class = get_package_name($type);
my $disp = get_disp_name($type);
my $pldisp = get_class_info('recip')->get_plural_name;
<%args>
$id => undef
<%init>;
$id ||= (parse_uri($r->uri))[3];
my $a = $class->lookup({ id => $id });
my $aname = '"' . $a->get_name . '"';
my $eid = $a->get_event_id;