<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html><body style='font-family: Verdana,Geneva,sans-serif'>
<pre>its a bit dead on here!
In case this helps anyone I eventually got this working after lots of trial and error:
<br />
<span style="font-family: 'courier new', courier;">package RT::Action::QChange;
use strict;
use warnings;
use base qw(RT::Action::Notify);
use Email::Address;
sub Prepare {
my $self = shift;
return 1;
}
my $self;
sub Commit {
my $self = shift;
my $argument = $self->Argument;
unless ( $argument ) {
$RT::Logger->error("Argument is mandatory for Test action");
return 0;
}
my ($status, $msg) = $self->TicketObj->SetQueue("$argument");
if ( not $status ) {
RT::Logger->error("Could not reassign queue: $msg");
return 0;
}
RT::Base->_ImportOverlays();
return 1;
}
1;
</span></pre>
</body></html>