package TestApp::Action::TicketUpdate; # $Id: TicketUpdate.pm 290 2007-06-18 21:46:48Z jonasbn $ use strict; use base qw( Workflow::Action ); use Log::Log4perl qw( get_logger ); $TestApp::Action::TicketUpdate::VERSION = '1.05'; sub execute { my ( $self, $wf ) = @_; my $log = get_logger(); $log->debug( "Action '", $self->name, "' with class '", ref( $self ), "' executing..." ); my $ticket = $wf->context->param( 'ticket' ); $ticket->status( $wf->state ); $ticket->update; } 1;