[rt-users] How to join two RT tables in perl?
ruz at bestpractical.com
Mon May 5 09:19:15 EDT 2008
as far as I can see you don't need join which is for limits, not for access.
On Mon, May 5, 2008 at 5:09 PM, Morten Guldager
<morten.guldager at gmail.com> wrote:
> In my standalone program I would like to do a join on the tables
> Transactions and Users in order to add Users.Name to my print
> out. (and not just the user number)
> But I somehow lost track while trying to figure out how it is done
> in the RT code itself.
> Below is a boiled down demo program which fails in the second
> last line, which is somehow expected.
> RT::Transaction::Name Unimplemented in main. (./Join-demo-2 line 31)
> Perhaps somebody can help me in the right direction.
> /Morten %-)
> package RT;
> our $DatabaseType = 'mysql';
> our $DatabaseUser = 'rtuser';
> our $DatabasePassword = 'wibble';
> our $DatabaseName = 'rtdb';
> package main;
> use strict;
> use warnings;
> use lib '/usr/share/request-tracker3.6/lib';
> use RT;
> use RT::Transactions;
> my $CurrentUser = RT::CurrentUser->new('cust-12345');
> my $t = new RT::Transactions($CurrentUser);
> my $u = $t->NewAlias('Users');
> $t->Join(ALIAS1 => 'main',
> FIELD1 => 'Creator',
> ALIAS2 => $u,
> FIELD2 => 'id');
> while (my $row = $t->Next)
> printf "id:%s, CreatorId:%s, Name:%s\n", $row->id, $row->Creator,
> Community help: http://wiki.bestpractical.com
> Commercial support: sales at bestpractical.com
> Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
> Buy a copy at http://rtbook.bestpractical.com
Best regards, Ruslan.
More information about the rt-users