<!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: ;
}
</STYLE>
</HEAD>
<BODY lang=EN-US vLink=blue link=blue>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2>Argh, it is not a good day for coding 
today.....</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2>This should be the correct one:</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2>my $duedate = RT::Date->new($RT::SystemUser);<BR>my 
$bus_hours_duetime = 24;<BR>$duedate->Set(Format=>'unix', 
Value=>$bus_hours_duetime);</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2># Update DueTime for Master 
Ticket<BR>$self->TicketObj->SetDue($duedate->ISO);</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2># Find all DependedOnBy of Master Ticket<BR>my $DepOnBy = 
$self->TicketObj->DependedOnBy;</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff size=2>while (my $dep = $DepOnBy->Next) 
{<BR>     $RT::Logger->debug("DepOnTickets: 
$dep->BaseObj->Id"); <BR>     # OK, from 
this point we have all Tickets DependedOnBy Master 
Ticket<BR>     my $systicket = 
RT::Ticket->new($RT::SystemUser);<BR>     $systicket->Load($dep->BaseObj->Id);<BR>     # 
Now we have the ID of each DependedOnBy Ticket</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=173235912-25112009><FONT face=Arial 
color=#0000ff 
size=2>     $systicket->SetDue($duedate->ISO);<BR>     $RT::Logger->debug("BaseObj 
called 2"); <BR>}<BR>return 1;</FONT></SPAN></DIV><BR>
<DIV class=OutlookMessageHeader lang=de dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>Von:</B> Tony John - ERS, HCL Tech 
[mailto:tonyjohn@hcl.in] <BR><B>Gesendet:</B> Mittwoch, 25. November 2009 
13:23<BR><B>An:</B> Brumm, Torsten / Kuehne + Nagel / Ham MI-ID; 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="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=red size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: red; FONT-FAMILY: 'Courier New'">$RT::Logger->debug("BaseObj 
called 1"); <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'"><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->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'"> }<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=red size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: red; FONT-FAMILY: 'Courier New'">$RT::Logger->debug("BaseObj 
called 2"); <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="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'"><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">This scrip also 
couldn’t set Due Date for the Child Ticket.Only the first RT::Logger was seen in 
the RT logfile.I think its not entering the loop</SPAN></FONT><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=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">Any 
help?<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"> Brumm, 
Torsten / Kuehne + Nagel / Ham MI-ID [mailto:torsten.brumm@Kuehne-Nagel.com] 
<BR><B><SPAN style="FONT-WEIGHT: bold">Sent:</SPAN></B> Wednesday, November 25, 
2009 5:36 PM<BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> TONY JOHN - 
ERS, HCL Tech; Torsten Brumm<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> AW: [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=Arial color=blue size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Arial">Hi 
Tony,</SPAN></FONT><o:p></o:p></P>
<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=Arial color=blue size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Arial">i think this is the 
problem:</SPAN></FONT><o:p></o:p></P>
<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="Courier New" color=navy size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">$l->BaseObj->SetDue($duedate->ISO);</SPAN></FONT><o:p></o:p></P>
<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="Courier New" color=navy size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">should by 
$l->TicketObj->SetDue($duedate->ISO);</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN 
style="FONT-SIZE: 12pt"> </SPAN></FONT><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>
<DIV>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Like this:</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=navy size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"># your 
calculations</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<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="Times New Roman" size=3><SPAN 
style="FONT-SIZE: 12pt"> <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'"># find depon 
ticket</SPAN></FONT><o:p></o:p></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="Times New Roman" size=3><SPAN 
style="FONT-SIZE: 12pt"> <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'"># loop through 
all deponbys</SPAN></FONT><o:p></o:p></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="Times New Roman" size=3><SPAN 
style="FONT-SIZE: 12pt"> <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'">    
# Get ID of all deponby tickets and load from id the 
ticketobj</SPAN></FONT><o:p></o:p></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="Times New Roman" size=3><SPAN 
style="FONT-SIZE: 12pt"> <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'"># from here we 
have all our depended on by tickets, we will set the due 
here</SPAN></FONT><o:p></o:p></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->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'"> }<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;</SPAN></FONT><o:p></o:p></P>
<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="Courier New" color=navy size=2><SPAN 
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Otherwise, let 
the logger give out the content of the 
variables.<BR>Torsten<o:p></o:p></SPAN></FONT></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>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN 
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoBodyText><FONT face=Arial size=1><SPAN 
style="FONT-SIZE: 8pt; 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></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN 
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<DIV class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT 
face="Times New Roman" size=3><SPAN lang=DE style="FONT-SIZE: 12pt">
<HR tabIndex=-1 align=center width="100%" SIZE=2>
</SPAN></FONT></DIV>
<P class=MsoNormal style="MARGIN-BOTTOM: 12pt"><B><FONT face=Tahoma size=2><SPAN 
lang=DE 
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Von:</SPAN></FONT></B><FONT 
face=Tahoma size=2><SPAN lang=DE style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> 
rt-users-bounces@lists.bestpractical.com 
[mailto:rt-users-bounces@lists.bestpractical.com] <B><SPAN 
style="FONT-WEIGHT: bold">Im Auftrag von </SPAN></B>TONY JOHN - ERS, HCL 
Tech<BR><B><SPAN style="FONT-WEIGHT: bold">Gesendet:</SPAN></B> Mittwoch, 25. 
November 2009 12:53<BR><B><SPAN style="FONT-WEIGHT: bold">An:</SPAN></B> Torsten 
Brumm<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">Betreff:</SPAN></B> Re: [rt-users] Set Due Date - 
Child Tickets</SPAN></FONT><SPAN lang=DE><o:p></o:p></SPAN></P>
<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="ɼourier 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 link="blue" vlink="purple">
<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>