--- /dev/null
+package RT::Action::Accumulate;
+use base 'RT::Action';
+
+use strict;
+
+=head1 NAME
+
+RT::Action::Accumulate - Accumulate a running total in a ticket custom field.
+
+This action requires a transaction and ticket custom field with the same name.
+When a transaction is submitted with a numeric value in that field, the field
+value for the ticket will be incremented by that amount. Use this to create
+custom fields that behave like the "TimeWorked" field.
+
+Best used with an "On Update" condition that triggers on any transaction. The
+ticket custom field update itself does not a create a transaction.
+
+The argument to this action is the name of the custom field. They must have
+the same name, and should be single-valued fields.
+
+=cut
+
+sub Prepare {
+ my $self = shift;
+ my $cfname = $self->Argument or return 0;
+ $self->{'inc_by'} = $self->TransactionObj->FirstCustomFieldValue($cfname);
+ return ( $self->{'inc_by'} =~ /^(\d+)$/ );
+}
+
+sub Commit {
+ my $self = shift;
+ my $cfname = $self->Argument;
+ my $newval = $self->{'inc_by'} +
+ ($self->TicketObj->FirstCustomFieldValue($cfname) || 0);
+ my ($val) = $self->TicketObj->AddCustomFieldValue(
+ Field => 'Support time',
+ Value => $newval,
+ RecordTransaction => 0,
+ );
+ return $val;
+}
+
+1;
+