<!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>