Ah thanks, works very well on the Creator column.<br><br>But it does not work on OldValue and NewValue. They change <br>type of content all the time. And some times they even contains <br>real data.<br><br>Which piece of secret magic do I need this time?<br>
<br><br>/Morten %-)<br><br><div class="gmail_quote">On Mon, May 5, 2008 at 3:19 PM, Ruslan Zakirov <<a href="mailto:ruz@bestpractical.com">ruz@bestpractical.com</a>> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
use<br>
$row->CreatorObj->Name;<br>
<br>
as far as I can see you don't need join which is for limits, not for access.<br>
<div><div></div><div class="Wj3C7c"><br>
On Mon, May 5, 2008 at 5:09 PM, Morten Guldager<br>
<<a href="mailto:morten.guldager@gmail.com">morten.guldager@gmail.com</a>> wrote:<br>
> 'Aloha!<br>
><br>
> In my standalone program I would like to do a join on the tables<br>
> Transactions and Users in order to add Users.Name to my print<br>
> out. (and not just the user number)<br>
><br>
> But I somehow lost track while trying to figure out how it is done<br>
>  in the RT code itself.<br>
><br>
> Below is a boiled down demo program which fails in the second<br>
> last line, which is somehow expected.<br>
><br>
>   RT::Transaction::Name Unimplemented in main. (./Join-demo-2 line 31)<br>
><br>
> Perhaps somebody can help me in the right direction.<br>
><br>
> --<br>
> /Morten %-)<br>
><br>
> #!/usr/bin/perl<br>
><br>
> package RT;<br>
> our $DatabaseType     = 'mysql';<br>
> our $DatabaseUser     = 'rtuser';<br>
> our $DatabasePassword = 'wibble';<br>
> our $DatabaseName     = 'rtdb';<br>
><br>
> package main;<br>
> use strict;<br>
> use warnings;<br>
> use lib '/usr/share/request-tracker3.6/lib';<br>
> use RT;<br>
> use RT::Transactions;<br>
><br>
> RT::Init();<br>
> my $CurrentUser = RT::CurrentUser->new('cust-12345');<br>
><br>
> my $t = new RT::Transactions($CurrentUser);<br>
> $t->LimitToTicket(1);<br>
><br>
> my $u = $t->NewAlias('Users');<br>
> $t->Join(ALIAS1 => 'main',<br>
>          FIELD1 => 'Creator',<br>
>          ALIAS2 => $u,<br>
>           FIELD2 => 'id');<br>
><br>
> while (my $row = $t->Next)<br>
> {<br>
>   printf "id:%s, CreatorId:%s, Name:%s\n", $row->id, $row->Creator,<br>
> $row->Name;<br>
> }<br>
><br>
><br>
</div></div>> _______________________________________________<br>
>  <a href="http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users" target="_blank">http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users</a><br>
><br>
>  Community help: <a href="http://wiki.bestpractical.com" target="_blank">http://wiki.bestpractical.com</a><br>
>  Commercial support: <a href="mailto:sales@bestpractical.com">sales@bestpractical.com</a><br>
><br>
><br>
>  Discover RT's hidden secrets with RT Essentials from O'Reilly Media.<br>
>  Buy a copy at <a href="http://rtbook.bestpractical.com" target="_blank">http://rtbook.bestpractical.com</a><br>
</blockquote></div>