diff options
Diffstat (limited to 'rt/lib/RT/Ticket_Vendor.pm')
-rw-r--r-- | rt/lib/RT/Ticket_Vendor.pm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/rt/lib/RT/Ticket_Vendor.pm b/rt/lib/RT/Ticket_Vendor.pm index 9fa24a2a8..a55bb7b0d 100644 --- a/rt/lib/RT/Ticket_Vendor.pm +++ b/rt/lib/RT/Ticket_Vendor.pm @@ -13,6 +13,37 @@ sub SetPriority { $Ticket->SUPER::SetPriority($value); } +=head2 Touch + +Creates a Touch transaction (a null transaction). Like Comment and +Correspond but without any content. + +=cut + +sub Touch { + my $self = shift; + my %args = ( + TimeTaken => 0, + ActivateScrips => 1, + CommitScrips => 1, + CustomFields => {}, + @_ + ); + unless ( $self->CurrentUserHasRight('ModifyTicket') + or $self->CurrentUserHasRight('CommentOnTicket') + or $self->CurrentUserHasRight('ReplyToTicket')) { + return ( 0, $self->loc("Permission Denied")); + } + $self->_NewTransaction( + Type => 'Touch', + TimeTaken => $args{'TimeTaken'}, + ActivateScrips => $args{'ActivateScrips'}, + CommitScrips => $args{'CommitScrips'}, + CustomFields => $args{'CustomFields'}, + ); +} + + =head2 MissingRequiredFields { Return all custom fields with the Required flag set for which this object |