[rt-users] {$Transaction->OldValue}

[Bas Toonk]

Oke here it is!

Bas Toonk!

On Wednesday 11 July 2001 11:09, you wrote:
> Bas Toonk wrote:
> > Ofcource.
> >
> > Tell me were i can send it to.
>
> email to my address, and if its not long to the list (or post a URL to
> the list of where it can be found)?
>
> > But doe you have an answer to my question ?
>
> Sorry No!
>
> > Bas!

-- 
Mvg. Bas Toonk
Kennisnet Beheer
-------------- next part --------------
A non-text attachment was scrubbed...
Name: insert_condition.pl
Type: application/x-perl
Size: 1735 bytes
Desc: not available
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20010711/b7aee69e/attachment.bin>
-------------- next part --------------
# $Header: /raid/cvsroot/rt-addons/ScripConditions/OnOwnerChange/OwnerChange.pm,v 1.1 2001/06/17 19:18:36 jesse Exp $
# Copyright 1996-2001 Jesse Vincent <jesse at fsck.com> 
# Released under the terms of the GNU General Public License
# OnOwnerChange Condition by Bas Toonk (B.Toonk at zx.nl);
# This a a copy form the OnQueueChange script!

package RT::Condition::OwnerChange;
require RT::Condition::Generic;

@ISA = qw(RT::Condition::Generic);


=head2 IsApplicable

If the queue is being changed, return true

=cut

sub IsApplicable {
    my $self = shift;
    if ($self->TransactionObj->Field eq 'Owner')  {
	return(1);
    } 
    else {
	return(undef);
    }
}

1;