<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:st1 =
"urn:schemas-microsoft-com:office:smarttags"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16939" name=GENERATOR><!--[if !mso]>
<STYLE>v\:* {
BEHAVIOR: url(#default#VML)
}
o\:* {
BEHAVIOR: url(#default#VML)
}
w\:* {
BEHAVIOR: url(#default#VML)
}
.shape {
BEHAVIOR: url(#default#VML)
}
</STYLE>
<![endif]--><o:SmartTagType name="PersonName"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><!--[if !mso]>
<STYLE>st1\:* {
BEHAVIOR: url(#default#ieooui)
}
</STYLE>
<![endif]-->
<STYLE>@font-face {
font-family: Tahoma;
}
@font-face {
font-family: ɼourier New';
}
@page Section1 {size: 8.5in 11.0in; margin: 1.0in 1.25in 1.0in 1.25in; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: blue; TEXT-DECORATION: underline
}
PRE {
FONT-SIZE: 10pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Courier New"
}
SPAN.EmailStyle19 {
COLOR: navy; FONT-FAMILY: Arial; mso-style-type: personal-reply
}
DIV.Section1 {
page: Section1
}
</STYLE>
</HEAD>
<BODY lang=EN-US vLink=blue link=blue>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><FONT face=Arial
color=#0000ff size=2>Hi Tony,</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><FONT face=Arial
color=#0000ff size=2>i think this is the problem:</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$l->BaseObj->SetDue($duedate->ISO);</SPAN></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"></SPAN></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">should by <SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$l->TicketObj->SetDue($duedate->ISO);</SPAN></SPAN></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=836010112-25112009><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><o:p></o:p></SPAN><o:p></o:p></SPAN></SPAN> </DIV>
<DIV><SPAN class=836010112-25112009></SPAN><FONT face="Courier New"><FONT
color=#000080><FONT size=2>Like this:</FONT></FONT></FONT></DIV>
<DIV><FONT face="Courier New"><FONT color=#000080><FONT
size=2></FONT></FONT></FONT> </DIV>
<DIV><SPAN class=836010112-25112009><FONT face="Courier New" color=#000080
size=2># your calculations</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"><FONT><FONT size=2>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my $duedate =
RT::Date->new($RT::SystemUser);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my
$bus_hours_duetime = 24;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$duedate->Set(Format=>'unix',
Value=>$bus_hours_duetime);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$self->TicketObj->SetDue($duedate->ISO);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#000080 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009># find depon ticket</SPAN></SPAN></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my $DepOnBy =
$self->TicketObj->DependedOnBy;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$RT::Logger->debug("BaseObj
called"); <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009># loop through all deponbys</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">while (my $dep
= $DepOnBy->Next) {<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009> </SPAN>my $systicket =
RT::Ticket->new($RT::SystemUser);<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009></SPAN></SPAN> </P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009> # Get ID of all deponby tickets and
load from id the ticketobj</SPAN></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009>
</SPAN>$systicket->Load($dep->BaseObj->Id);<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009> </SPAN>my $Members =
$systicket->Members;<o:p></o:p></SPAN></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><SPAN
class=836010112-25112009># from here we have all our depended on by tickets, we
will set the due here</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">while(my $l =
$Members->Next ) {<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$l-><SPAN
class=836010112-25112009>Ticket</SPAN>Obj->SetDue($duedate->ISO);<o:p></o:p></SPAN></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> }<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$RT::Logger->debug("BaseObj
called"); <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">}<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">return
1;</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><o:p><SPAN
class=836010112-25112009>Otherwise, let the logger give out the content of the
variables.<BR>Torsten</SPAN></o:p></SPAN></FONT></P><SPAN
class=836010112-25112009></SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT><BR></DIV>
<br>
<p class=MsoBodyText><span style='font-size:8.0pt;font-family:Arial'>Kühne +
Nagel (AG & Co.) KG, Geschäftsleitung: Hans-Georg Brinkmann (Vors.), Dirk Blesius (Stellv.), Reiner <span
class=SpellE>Heiken</span> (Stellv.), Bruno Mang, Alfred <span
class=SpellE>Manke</span>, Christian Marnetté (Stellv.), Mark Reinhardt (Stellv.), Jens <span
class=SpellE>Wollesen</span>, Rainer <span class=SpellE>Wunn</span>,
Sitz: Bremen, Registergericht: Bremen, HRA 21928, <span class=SpellE>USt-IdNr</span>.:
DE 812773878, Persönlich haftende Gesellschaft: Kühne & Nagel A.G., Sitz: <span
class=SpellE>Contern/Luxemburg</span>, Geschäftsführender Verwaltungsrat:
Klaus-Michael Kühne <o:p></o:p></span></p>
<br><DIV class=OutlookMessageHeader lang=de dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>Von:</B> rt-users-bounces@lists.bestpractical.com
[mailto:rt-users-bounces@lists.bestpractical.com] <B>Im Auftrag von </B>TONY
JOHN - ERS, HCL Tech<BR><B>Gesendet:</B> Mittwoch, 25. November 2009
12:53<BR><B>An:</B> Torsten Brumm<BR><B>Cc:</B>
rt-users@lists.bestpractical.com<BR><B>Betreff:</B> Re: [rt-users] Set Due Date
- Child Tickets<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Hi
Torsten,<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">I tried this Scrip but
it isn't working<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my $duedate =
RT::Date->new($RT::SystemUser);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my
$bus_hours_duetime = 24;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$duedate->Set(Format=>'unix',
Value=>$bus_hours_duetime);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$self->TicketObj->SetDue($duedate->ISO);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my $DepOnBy =
$self->TicketObj->DependedOnBy;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$RT::Logger->debug("BaseObj
called"); <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">while (my $dep
= $DepOnBy->Next) {<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my $systicket =
RT::Ticket->new($RT::SystemUser);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$systicket->Load($dep->BaseObj->Id);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">my $Members =
$systicket->Members;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">while(my $l =
$Members->Next ) {<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$l->BaseObj->SetDue($duedate->ISO);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> }<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$RT::Logger->debug("BaseObj
called"); <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">}<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">return
1;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Regards,<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Tony<o:p></o:p></SPAN></FONT></P>
<DIV>
<DIV class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT
face="Times New Roman" size=3><SPAN style="FONT-SIZE: 12pt">
<HR tabIndex=-1 align=center width="100%" SIZE=2>
</SPAN></FONT></DIV>
<P class=MsoNormal><B><FONT face=Tahoma size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">From:</SPAN></FONT></B><FONT
face=Tahoma size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> Torsten
Brumm [mailto:torsten.brumm@googlemail.com] <BR><B><SPAN
style="FONT-WEIGHT: bold">Sent:</SPAN></B> Wednesday, November 25, 2009 5:02
PM<BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> TONY JOHN - ERS, HCL
Tech<BR><B><SPAN style="FONT-WEIGHT: bold">Cc:</SPAN></B> <st1:PersonName
w:st="on">rt-users@lists.bestpractical.com</st1:PersonName><BR><B><SPAN
style="FONT-WEIGHT: bold">Subject:</SPAN></B> Re: [rt-users] Set Due Date -
Child Tickets</SPAN></FONT><o:p></o:p></P></DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt">Hi Tony,<o:p></o:p></SPAN></FONT></P>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt">i think the problem is </SPAN></FONT><FONT
face="Courier New" color=#444444 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #444444; FONT-FAMILY: 'Courier New'">my $link =
$self->TicketObj->DependedOnBy->Next; which gives you back all possible
DependedOnBy Tickets, also if you have more. I tried something similar last
week. </SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face="'Courier New'" color=#444444 size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: #444444; FONT-FAMILY: 'ɼourier New''">Attached a
piece of code to find all deponby tickets and update the deponbys with
something.</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><SPAN class=apple-style-span><FONT face=Arial color=#444444
size=2><SPAN style="FONT-SIZE: 10pt; COLOR: #444444; FONT-FAMILY: Arial">my
$DepOnBy = $self->TicketObj->DependedOnBy;</SPAN></FONT></SPAN><FONT
face=Arial color=#444444 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #444444; FONT-FAMILY: Arial"><BR><SPAN
class=apple-style-span>my $dep;</SPAN><BR><SPAN class=apple-style-span>my
$l;</SPAN><BR><SPAN class=apple-style-span>while( $dep = $DepOnBy->Next )
{</SPAN><BR><SPAN class=apple-style-span> next unless(
$dep->BaseURI->IsLocal );</SPAN><BR><SPAN class=apple-style-span>
my $systicket =
RT::Ticket->new($RT::SystemUser);</SPAN><BR><SPAN
class=apple-style-span>
$systicket->Load($dep->BaseObj->Id);</SPAN><BR><SPAN
class=apple-style-span> my $Members =
$systicket->Members;</SPAN><BR><SPAN class=apple-style-span>
while( $l = $Members->Next ) {</SPAN><BR><SPAN
class=apple-style-span> next unless(
$l->TargetURI->IsLocal );</SPAN><BR><SPAN class=apple-style-span>
next unless(
$l->BaseObj->Queue =~ /^(?:1043|612|613)$/ );</SPAN><BR><SPAN
class=apple-style-span>
$self->TicketObj->AddLink(Type=>'MemberOf',Base=>$l->BaseObj->Id);</SPAN><BR><SPAN
class=apple-style-span> }</SPAN><BR><SPAN
class=apple-style-span>}</SPAN><BR><SPAN class=apple-style-span>return
1;</SPAN></SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Arial color=#444444 size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: #444444; FONT-FAMILY: Arial">In my case i added
to all deponby tickets a new member, you can replace this with your setdue
<st1:PersonName w:st="on">pa</st1:PersonName>rt i
think,</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=MsoNormal style="MARGIN-BOTTOM: 12pt"><FONT face=Arial color=#444444
size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: #444444; FONT-FAMILY: Arial"><BR>Torsten</SPAN></FONT><o:p></o:p></P>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt">2009/11/25 TONY JOHN - ERS, HCL Tech <<A
href="mailto:tonyjohn@hcl.in"
target=_blank>tonyjohn@hcl.in</A>><o:p></o:p></SPAN></FONT></P>
<DIV vlink="purple" link="blue">
<DIV>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Hi
,</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I'm trying to set the
Due date of the child Ticket.But my scrips is giving some
error.Please find below the Custom action clean up code used for the
same:</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">my $link =
$self->TicketObj->DependedOnBy->Next;</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">my $duedate =
RT::Date->new($RT::SystemUser);</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">my $hours_duetime =
24;</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">$duedate->Set(Format=>'unix',
Value=>$hours_duetime);</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">$self->TicketObj->SetDue($duedate->ISO);</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">$link->BaseObj->SetDue($duedate->ISO);
</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">return
1;</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><U><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">Error : Log
File</SPAN></FONT></U><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">[Wed Nov 25 09:08:30 2009]
[debug]: Committing scrip #11 on txn #114748 of ticket #1972
(/usr/lib/perl5/vendor_perl/5.10.0/RT/Scrips_Overlay.pm:190)</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">[Wed Nov 25 09:08:30 2009]
[error]: Scrip 125 Commit failed: Can't call method "BaseObj" on an undefined
value at (eval 1531) line 8.</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT
face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Any
help?</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> </SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Regards,</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal
style="mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT face=Arial
size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Tony</SPAN></FONT><o:p></o:p></P></DIV></DIV>
<TABLE class=MsoNormalTable cellPadding=0 border=0>
<TBODY>
<TR>
<TD
style="PADDING-RIGHT: 0.75pt; PADDING-LEFT: 0.75pt; BACKGROUND: white; PADDING-BOTTOM: 0.75pt; PADDING-TOP: 0.75pt"
bgColor=white><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">DISCLAIMER:<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">-----------------------------------------------------------------------------------------------------------------------<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. <o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">It shall not attach any liability on the originator or HCL or its affiliates. Any views or opinions presented in <o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">this email are solely those of the author and may not necessarily reflect the opinions of HCL or its affiliates. <o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of <o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">this message without the prior written consent of the author of this e-mail is strictly prohibited. If you have <o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">received this email in error please delete it and notify the sender immediately. Before opening any mail and <o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">attachments please check them for viruses and defect.<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt; COLOR: black">-----------------------------------------------------------------------------------------------------------------------<o:p></o:p></SPAN></FONT></PRE></TD></TR></TBODY></TABLE>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><BR>_______________________________________________<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 su<st1:PersonName
w:st="on">pp</st1:PersonName>ort: <A href="mailto:sales@bestpractical.com"
target=_blank>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><o:p></o:p></SPAN></FONT></P></DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><BR><BR clear=all><BR>-- <BR>MFG<BR><BR>Torsten
Brumm<BR><BR><A href="http://www.brumm.me"
target=_blank>http://www.brumm.me</A><BR><A href="http://www.elektrofeld.de"
target=_blank>http://www.elektrofeld.de</A><o:p></o:p></SPAN></FONT></P></DIV></DIV></BODY></HTML>