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;
syntax highlighted by Code2HTML, v. 0.9.1