use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{template} = sub {$this->replaceOutput([]);$this->out("Subject: A new participant of an affiliate program to approve\n\nA member has just become a participant of an affiliate program that needs approval:\n\nProgram:     $C->{UserAffprog}{affprog_title}\nUser name:   $C->{User}{name}\nUser e-mail: $C->{User}{email}\n\nYou can approve/reject here:\n$C->{SYS}{URI}/master/users/approve.html\n");return join("",@{ $this->restoreOutput });};$this->out(&{$C->{template}}."\n");}