+ my $reminder = RT::Ticket->new($self->CurrentUser);
+ # the 2nd return value is txn id, which is useless here
+ my ( $status, undef, $msg ) = $reminder->Create(
+ Subject => $args{'Subject'},
+ Owner => $args{'Owner'},
+ Due => $args{'Due'},
+ RefersTo => $self->Ticket,
+ Type => 'reminder',
+ Queue => $self->TicketObj->Queue,
+ Status => $self->TicketObj->QueueObj->LifecycleObj->ReminderStatusOnOpen,
+ );
+ $self->TicketObj->_NewTransaction(
+ Type => 'AddReminder',
+ Field => 'RT::Ticket',
+ NewValue => $reminder->id
+ ) if $status;
+ return ( $status, $msg );