anthony wrote:
I'm doing this via script action.
FirstCustom.. is in Record which is not part of the $self.
I get TicketObj, TransactionObj ( which does not seems to work )
I'm tried to use CustomFieldValues but I get stuck after that.
Searches through the archive seem to say NO ONE has done this successfully.
This is part of our script which ties timeworked to an asset which hold
how many hours a client has left on his contract.
use Data::Dumper;
# start to define a couple of useful objects.
my $TicketObj = $self->TicketObj;
my $QueueObj = $self->TicketObj->QueueObj;
my $TransObj = $self->TransactionObj;
my $TemplObj = $self->TemplateObj;
# $RT::Logger->debug( Dumper($TemplObj) );
my $qname = $self->TicketObj->QueueObj->Name;
my $cfname = 'Strippenkaart';
my $timetaken;
my $abstimetaken_new;
my $abstimetaken_old;
my $assettype;
# $RT::Logger->debug("$qname");
# $RT::Logger->debug("$timetaken");
my $ttype = $TransObj->Type;
my $tfield = $TransObj->Field;
# $RT::Logger->debug($ttype);
# $RT::Logger->debug($tfield);
# make a new CFObj and fill it
my $CFObj = RT::CustomField->new( $QueueObj->CurrentUser );
$CFObj->LoadByNameAndQueue( Name => $cfname, Queue => $QueueObj->id );
unless ( $CFObj->id ) {
$CFObj->LoadByNameAndQueue( Name => $cfname, Queue => 0 );
unless ( $CFObj->id ) {
$RT::Logger->debug(
"custom field '$cfname' isn't global or defined for
queue '"
. $QueueObj->Name
. "'" );
return undef;
}
}
# get the first CFValue
my $cfvalue = $self->TicketObj->FirstCustomFieldValue( $CFObj->id );
$RT::Logger->debug("$cfvalue");
# then create an empty AssetObj with the current user
my $AssetObj = RTx::AssetTracker::Asset->new( $QueueObj->CurrentUser );
# get its values given the convention AssetName=QueueName+CFValue
# check if status == production
# further Name is unique in the DB, is possible to change via
AT_SiteConfig.pm
# still check if AssetType==Strippenkaart
$AssetObj->Load($qname.$cfvalue);
$assettype=$AssetObj->TypeObj->Name;
if ( $assettype ne 'Strippenkaart' ) {
$RT::Logger->debug("No Asset of type Strippenkaart");
return undef;
}
my $desc = $AssetObj->Description;
my $status = $AssetObj->Status;
if ( $status ne 'production' ) { return undef; }
# $RT::Logger->debug("$desc");
# get the CustomFields (cnt>0)
my $AssetCFObj = $AssetObj->CustomFields();
my $cfcount = $AssetCFObj->Count;
if ( $cfcount == 0 ) { return undef; }
# process the CF's
Does this make sense?
Joop
_______________________________________________
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
