[rt-users] A Scrip Condition error

[Bruce Campbell]

On Fri, 17 Jan 2003, Forrest Stanley wrote:

> This short code doesnt seem to be working properly. Looking for any
> pointers why its not.

You're referring to $self->CreatorObj, when you want to be referring to
$self->TransactionObj->CreatorObj .  I'm also not sure why you have
$creator about.

sub IsApplicable(){

	my $self = shift;

	my $retval = undef;

	if( $self->TransactionObj->Type eq 'Correspond' ){
	  if( ! $self->TicketObj->IsOwner( $self->TransactionObj->CreatorObj ) ){
	    if( ! $self->TicketObj->IsRequestor( $self->TransactionObj->CreatorObj ) ){
		$retval = 1;
	    }
	  }
	}

	return( $retval );
}

Regards,

-- 
                             Bruce Campbell                            RIPE
                   Systems/Network Engineer                             NCC
                 www.ripe.net - PGP562C8B1B             Operations/Security

http://www.dude.ru/music/gigflapping.html