[rt-users] What's wrong with this search builder code?

[Todd Chapman]

All,

I'm building a somewhat complicated query to find all
tickets that are linked to a ticket, including tickets
indirectly linked. The problem seems to be that the
Limit call doesn't make it into the SQL (see below.)

What am I doing wrong?

Thanks!

# perl link.pl
SELECT DISTINCT main.* FROM Tickets main , Links Links_1, Links Links_2, Tickets Tickets_3  WHERE ((Links_1.LocalTarget = Tickets_3.id)) AND ((Links_2.LocalTarget = Links_1.LocalBase)) AND ((main.id = Links_2.LocalTarget))

CODE:

#!/usr/bin/perl

use warnings;
use strict;

use lib qw( /opt/rt3/lib );

use RT;
use RT::Tickets;
use RT::Ticket;

RT::LoadConfig();
RT::Init();

my $Tickets1 = RT::Tickets->new( $RT::SystemUser );
$Tickets1->UnLimit;
my $Links1 = $Tickets1->NewAlias('Links');
my $Links2 = $Tickets1->NewAlias('Links');
my $Tickets2 = $Tickets1->NewAlias('Tickets');

$Tickets1->Join( ALIAS1 => 'main',
           FIELD1 => 'id',
           ALIAS2 => $Links2,
           FIELD2 => 'LocalTarget' );

$Tickets1->Join( ALIAS1 => $Links2,
           FIELD1 => 'LocalTarget',
           ALIAS2 => $Links1,
           FIELD2 => 'LocalBase' );

$Tickets1->Join( ALIAS1 => $Links1,
           FIELD1 => 'LocalTarget',
           ALIAS2 => $Tickets2,
           FIELD2 => 'id' );

$Tickets1->Limit( ALIAS => $Tickets2,
            FIELD => 'id',
            VALUE => 3377 );

print $Tickets1->BuildSelectQuery, "\n";