Help for this page
{ my $Transaction = $self->TransactionObj; return $Transaction->Type eq 'Correspond' && $Transaction->Subject =~ +/weekly/; }
my $Ticket = $self->TicketObj; $Ticket->SetStatus('resolved'); return 1;