[freeside-commits] freeside/rt/lib/RT Ticket_Vendor.pm, 1.2.2.1, 1.2.2.2 Transaction_Vendor.pm, 1.1.2.2, 1.1.2.3

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/rt/lib/RT
In directory wavetail.420.am:/tmp/cvs-serv19625/rt/lib/RT

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	Ticket_Vendor.pm Transaction_Vendor.pm 
Log Message:
missing pieces from #14837

Index: Ticket_Vendor.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/rt/lib/RT/Ticket_Vendor.pm,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -u -w -d -r1.2.2.1 -r1.2.2.2
--- Ticket_Vendor.pm	23 Aug 2011 21:46:34 -0000	1.2.2.1
+++ Ticket_Vendor.pm	26 Jan 2012 03:08:36 -0000	1.2.2.2
@@ -13,6 +13,37 @@
   $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

Index: Transaction_Vendor.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/rt/lib/RT/Transaction_Vendor.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -w -d -r1.1.2.2 -r1.1.2.3
--- Transaction_Vendor.pm	23 Aug 2011 21:46:34 -0000	1.1.2.2
+++ Transaction_Vendor.pm	26 Jan 2012 03:08:40 -0000	1.1.2.3
@@ -31,5 +31,7 @@
     }
 };
 
+$_BriefDescriptions{'Touch'} = sub { 'Updated' };
+
 1;