Error on SetDue

RT Users
1

Hi,

Please find below the Custom action clean up code for Seting DueDate based on a condition:

use strict;
use warnings;
my $date1=$self->TicketObj->FirstCustomFieldValue(‘CI Valid Till’);
my $date2=$self->TicketObj->FirstCustomFieldValue(‘Date In Gabriel’);
my($mm1,$dd1,$yyyy1) = split ///, $date1;
my($mm2,$dd2,$yyyy2) = split ///, $date2;
my $duedate = $yyyy1."-".$mm1."-".$dd1." 00:00:00";
$self->TicketObj->SetDue( $duedate->ISO);
return 1;

Why is that the SetDue isnt working? Any help?

Regards,
Tony John

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.

2

hi,

i don’t know if it can help, but i don’t use the ->ISO on setDue.
$self->TicketObj->SetDue($duedate); // when $duedate = “2009–11-23
00:00:00”;
maybe this can help,
regards,On 23/11/2009 11:20, TONY JOHN - ERS, HCL Tech wrote:

Hi,

Please find below the Custom action clean up code for Seting DueDate
based on a condition:

use strict;

use warnings;

my $date1=$self->TicketObj->FirstCustomFieldValue(‘CI Valid Till’);

my $date2=$self->TicketObj->FirstCustomFieldValue(‘Date In Gabriel’);

my($mm1,$dd1,$yyyy1) = split ///, $date1;

my($mm2,$dd2,$yyyy2) = split ///, $date2;

my $duedate = $yyyy1.“-”.$mm1.“-”.$dd1." 00:00:00";

$self->TicketObj->SetDue( $duedate->ISO);

return 1;

Why is that the SetDue isnt working? Any help?

Regards,

Tony John

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.

3

Tony,

We have a Custom Field called “Need-By Date” that we have the customer
fill out and we use that to set the “Due Date” of the ticket when they
create a ticket. It overrides the default due date timing set up for the
queue. This is the code we use:

set new values for Due Date from CF Need-by-Date

my $trans = $self->TransactionObj;
my $ticket = $self->TicketObj;
my $cf_date = $ticket->FirstCustomFieldValue(‘Need-By Date’);

split up the date parts into a temporary array

my @parts = split(/[/-]/, $cf_date);

put date parts back together

my $new_date = sprintf(“%d-%d-%d”, $parts[2], $parts[0], $parts[1]);

format new date based on RT

my $duedate = RT::Date->new($RT::SystemUser);
$duedate->Set(Format=>‘unknown’, Value=>$new_date);
$ticket->SetDue($duedate->ISO);
return 1;

This works every time for us. Hope it helps.

Kenn
LBNLOn 11/23/2009 2:20 AM, TONY JOHN - ERS, HCL Tech wrote:

Hi,

Please find below the Custom action clean up code for Seting DueDate
based on a condition:

use strict;

use warnings;

my $date1=$self->TicketObj->FirstCustomFieldValue(‘CI Valid Till’);

my $date2=$self->TicketObj->FirstCustomFieldValue(‘Date In Gabriel’);

my($mm1,$dd1,$yyyy1) = split ///, $date1;

my($mm2,$dd2,$yyyy2) = split ///, $date2;

my $duedate = $yyyy1.“-”.$mm1.“-”.$dd1." 00:00:00";

$self->TicketObj->SetDue( $duedate->ISO);

return 1;

Why is that the SetDue isnt working? Any help?

Regards,

Tony John

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.

The rt-users Archives

Community help: http://wiki.bestpractical.com
Commercial support: sales@bestpractical.com

Discover RT’s hidden secrets with RT Essentials from O’Reilly Media.
Buy a copy at http://rtbook.bestpractical.com