{ my $Transaction = $self->TransactionObj;
return $Transaction->Type eq 'Correspond' && $Transaction->Subject =~ /weekly/; 
  }

##</code><code>##

  my $Ticket = $self->TicketObj;
  $Ticket->SetStatus('resolved');
  return 1;