Hi Torsten,
I tried this Scrip but it isn't working
my $duedate = RT::Date->new($RT::SystemUser);
my $bus_hours_duetime = 24;
$duedate->Set(Format=>'unix', Value=>$bus_hours_duetime);
$self->TicketObj->SetDue($duedate->ISO);
my $DepOnBy = $self->TicketObj->DependedOnBy;
$RT::Logger->debug("BaseObj called");
while (my $dep = $DepOnBy->Next) {
my $systicket = RT::Ticket->new($RT::SystemUser);
$systicket->Load($dep->BaseObj->Id);
my $Members = $systicket->Members;
while(my $l = $Members->Next ) {
$l->BaseObj->SetDue($duedate->ISO);
}
$RT::Logger->debug("BaseObj called");
}
return 1;
Regards,
Tony
________________________________
From: Torsten Brumm [mailto:[email protected]]
Sent: Wednesday, November 25, 2009 5:02 PM
To: TONY JOHN - ERS, HCL Tech
Cc: [email protected]
Subject: Re: [rt-users] Set Due Date - Child Tickets
Hi Tony,
i think the problem is 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.
Attached a piece of code to find all deponby tickets and update the deponbys
with something.
my $DepOnBy = $self->TicketObj->DependedOnBy;
my $dep;
my $l;
while( $dep = $DepOnBy->Next ) {
next unless( $dep->BaseURI->IsLocal );
my $systicket = RT::Ticket->new($RT::SystemUser);
$systicket->Load($dep->BaseObj->Id);
my $Members = $systicket->Members;
while( $l = $Members->Next ) {
next unless( $l->TargetURI->IsLocal );
next unless( $l->BaseObj->Queue =~ /^(?:1043|612|613)$/ );
$self->TicketObj->AddLink(Type=>'MemberOf',Base=>$l->BaseObj->Id);
}
}
return 1;
In my case i added to all deponby tickets a new member, you can replace this
with your setdue part i think,
Torsten
2009/11/25 TONY JOHN - ERS, HCL Tech <[email protected]<mailto:[email protected]>>
Hi ,
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:
my $link = $self->TicketObj->DependedOnBy->Next;
my $duedate = RT::Date->new($RT::SystemUser);
my $hours_duetime = 24;
$duedate->Set(Format=>'unix', Value=>$hours_duetime);
$self->TicketObj->SetDue($duedate->ISO);
$link->BaseObj->SetDue($duedate->ISO);
return 1;
Error : Log File
[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)
[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.
Any help?
Regards,
Tony
DISCLAIMER:
-----------------------------------------------------------------------------------------------------------------------
The contents of this e-mail and any attachment(s) are confidential and intended
for the named recipient(s) only.
It shall not attach any liability on the originator or HCL or its affiliates.
Any views or opinions presented in
this email are solely those of the author and may not necessarily reflect the
opinions of HCL or its affiliates.
Any form of reproduction, dissemination, copying, disclosure, modification,
distribution and / or publication of
this message without the prior written consent of the author of this e-mail is
strictly prohibited. If you have
received this email in error please delete it and notify the sender
immediately. Before opening any mail and
attachments please check them for viruses and defect.
-----------------------------------------------------------------------------------------------------------------------
_______________________________________________
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
Community help: http://wiki.bestpractical.com
Commercial support: [email protected]<mailto:[email protected]>
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
Buy a copy at http://rtbook.bestpractical.com
--
MFG
Torsten Brumm
http://www.brumm.me
http://www.elektrofeld.de
_______________________________________________
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
Community help: http://wiki.bestpractical.com
Commercial support: [email protected]
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
Buy a copy at http://rtbook.bestpractical.com
