<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=US-ASCII">


<META content="MSHTML 6.00.2800.1498" name=GENERATOR></HEAD>
<BODY>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=876544920-12072005>So sorry.. I found out how to get what I wanted 
:)</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=876544920-12072005></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=876544920-12072005>$RT::Logger->debug( "COGR - testscript 
#21");</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN 
class=876544920-12072005></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=876544920-12072005>my 
$department = "unknown";<BR>my 
$requestor=$self->TransactionObj->Creator;</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=876544920-12072005>if ($requestor) {<BR></SPAN></FONT><FONT face=Arial 
color=#0000ff size=2><SPAN class=876544920-12072005>  my $UserObj = 
RT::User->new( $RT::SystemUser );<BR>  
$UserObj->Load($requestor);<BR>  $department = 
$UserObj->FirstCustomFieldValue('Department');<BR>}</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=876544920-12072005>$RT::Logger->debug( "COGR - testscript #21 for 
requestor: " . $self->TransactionObj->Creator ." department: " . 
$department);</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=876544920-12072005>return undef;<BR></SPAN></FONT></DIV>
<DIV align=left><SPAN style="FONT-FAMILY: times new roman"><FONT face=Arial 
size=2>T.J. Maciak</FONT></SPAN></DIV><SPAN 
style="FONT-FAMILY: times new roman">
<DIV align=left><BR><FONT face=Arial size=2>Internet/Intranet 
Developer<BR>Department of IT<BR>City of Grand Rapids<BR>P: 
(616)456-3713</FONT></DIV>
<DIV align=left><FONT face=Arial size=2>F: 
(616)456-3448<BR><BR></DIV></FONT></SPAN>
<DIV> </DIV><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> rt-users-bounces@lists.bestpractical.com 
[mailto:rt-users-bounces@lists.bestpractical.com] <B>On Behalf Of </B>Maciak, 
TJ<BR><B>Sent:</B> Tuesday, July 12, 2005 4:32 PM<BR><B>To:</B> 
rt-users@lists.bestpractical.com<BR><B>Subject:</B> RE: [rt-users] Scrips - 
accessing "requestor" name from a ticket that has just b een 
created<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>Ok I have updated my script because I found out how to 
get the ID of the requestor.</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>Now I am having trouble getting the 
UserObj:</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>== START</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>$RT::Logger->debug( "COGR - testscript 
#21");</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>my $department = "unknown";<BR>my 
$requestor=$self->TransactionObj->Creator;</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>if ($requestor) {<BR>#   my $UserObj = new 
RT::User($session{'CurrentUser'});<BR>   my $UserObj = 
RT::User->new(RT::CurrentUser->new('CurrentUser'));<BR>   
$UserObj->Load($requestor->id) if defined($requestor);</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005> $department = 
$UserObj->FirstCustomFieldValue('Department');<BR>}</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>$RT::Logger->debug( "COGR - testscript #21 for 
requestor: " . $self->TransactionObj->Creator ." department: " . 
$department);</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>return undef;<BR></SPAN></FONT><FONT face=Arial 
color=#0000ff size=2><SPAN class=126182920-12072005></SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005>== END</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=126182920-12072005>With 
this I get:</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=126182920-12072005>[Tue 
Jul 12 20:27:28 2005] [error]: Scrip 21 Commit failed: Can't call method "id" 
without a package or object re<BR>ference at (eval 754) line 15, <GEN131> 
line 53.</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN 
class=126182920-12072005></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=126182920-12072005>With 
#my $UserObj = new RT::User($session{'CurrentUser'}); in the code commented 
"IN", I get:</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=126182920-12072005>[Tue 
Jul 12 20:19:31 2005] [error]: Scrip 21 Commit failed: Global symbol "%session" 
requires explicit package na<BR>me at (eval 689) line 13, <GEN120> line 
53.</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=126182920-12072005>Any 
ideas on how I can get access to $UserObj so I can load the ID of that user and 
then grab their department (custom field)?</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV align=left><SPAN style="FONT-FAMILY: times new roman"><FONT face=Arial 
size=2>T.J. Maciak</FONT></SPAN></DIV><SPAN 
style="FONT-FAMILY: times new roman">
<DIV align=left><BR><FONT face=Arial size=2>Internet/Intranet 
Developer<BR>Department of IT<BR>City of Grand Rapids<BR>P: 
(616)456-3713</FONT></DIV>
<DIV align=left><FONT face=Arial size=2>F: 
(616)456-3448<BR><BR></DIV></FONT></SPAN>
<DIV> </DIV><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> rt-users-bounces@lists.bestpractical.com 
[mailto:rt-users-bounces@lists.bestpractical.com] <B>On Behalf Of </B>Maciak, 
TJ<BR><B>Sent:</B> Tuesday, July 12, 2005 3:30 PM<BR><B>To:</B> 
rt-users@lists.bestpractical.com<BR><B>Subject:</B> [rt-users] Scrips - 
accessing "requestor" name from a ticket that has just b een 
created<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>I have written a 
scrip that states following:</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Description: Add 
Department to Ticket</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Condition: On 
Create</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Action: User 
Defined</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Template: Global 
Template: Blank</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Stage: Transaction 
Create</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Custom condition: 
none</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Custom action 
preparation code: return 1;</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Custom action 
cleanup code:</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2>$RT::Logger->debug( "COGR - testscript #21");</FONT></SPAN></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>my $people = 
$Ticket->Requestors->UserMembersObj;<BR>my $requestor=$people->Next || 
undef</FONT></SPAN></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>my $department = 
"unknown";</FONT></SPAN></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>if ($requestor) 
{<BR> $UserObj->Load($requestor->id);<BR> $department = 
$UserObj->FirstCustomFieldValue('Department');<BR>}<BR>$RT::Logger->debug( 
"COGR - testscript #21 for department: $department");</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>return 
undef;<BR></FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2>=========================================================</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>Now I want to fetch 
the "Requestors" field of a new ticket with this on create scrip, then lookup 
that</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>requestor and grab a 
custom field (Department) and then place it in another</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>object related to 
the ticket called "DepartmentTicket".</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>However, $Ticket 
doesnt yet exist (at least I dont think so), so how would I go about 
grabbing</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial size=2>the requestor field 
from the Create.html file?</FONT></SPAN></DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=642332519-12072005><FONT face=Arial 
size=2>Thanks,</DIV></FONT></SPAN>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV align=left><SPAN style="FONT-FAMILY: times new roman"><FONT face=Arial 
size=2>T.J. Maciak</FONT></SPAN></DIV><SPAN 
style="FONT-FAMILY: times new roman">
<DIV align=left><BR><FONT face=Arial size=2>Internet/Intranet 
Developer<BR>Department of IT<BR>City of Grand Rapids<BR>P: 
(616)456-3713</FONT></DIV>
<DIV align=left><FONT face=Arial size=2>F: 
(616)456-3448<BR><BR></DIV></FONT></SPAN>
<DIV> </DIV></BODY></HTML>