no
warnings
'redefine'
;
@ACTIVE_STATUS
=
qw(new open stalled reopened)
;
@INACTIVE_STATUS
=
qw(resolved rejected deleted)
;
@STATUS
= (
@ACTIVE_STATUS
,
@INACTIVE_STATUS
);
sub
SetOrigin {
my
$self
=
shift
;
$self
->SetDefaultDueIn(
@_
);
}
sub
Origin {
my
$self
=
shift
;
$self
->DefaultDueIn;
}
sub
OriginObj {
my
$self
=
shift
;
my
$Id
=
$self
->DefaultDueIn or
return
;
my
$Ticket
= RT::Ticket->new(
$RT::SystemUser
);
$Ticket
->Load(
$Id
);
return
unless
$Ticket
->Id;
$Ticket
;
}
sub
CustomFields {
my
$self
=
shift
;
my
$cfs
= RT::CustomFields->new(
$self
->CurrentUser );
if
(
$self
->CurrentUserHasRight(
'SeeQueue'
) ) {
if
(
$self
->Disabled and
$self
->Description eq
'RT Foundry System'
) {
$cfs
->LimitToQueue(
$self
->Id );
}
else
{
$cfs
->LimitToGlobalOrQueue(
$self
->Id );
}
}
return
(
$cfs
);
}
1;