On Fri, Dec 10, 2010 at 01:24:05PM +0100, Wolfram Huettermann wrote:
Hi again,
I wrote two scripts in order to describe my problem concerning user
custom fields. I can say that everything works with ticket custom
fields.
Hi Wolfram
If this came as an RT test file that failed, it'd be a lot easier for
me to sort out what you want it to be doing. As is, I need to set up
an RT and tweak custom field ids in order to see the behavior.
There should be a t/api/cf.t that has some skeleton code for you
to steal.
Thanks
-kevin
#!/usr/bin/perl -w
use strict;
use lib /opt/rt3/local/lib, /opt/rt3/lib;
use RT;
use Getopt::Long; # Load the config file
RT::LoadConfig();
# Connect to the database and get RT::SystemUser
# loaded
RT::Init();
use RT::Interface::CLI GetCurrentUser, loc;
my $CurrentUser = GetCurrentUser();
use RT::Tickets;
use RT::Template;
my $TId;
# The costumfield #96 is a ticket customfield whose name is
# 'RTIM_App_Name'
my ($RTIMAppId, $RTIMAppName) = (96, RTIM_App_Name);
# The strings are the values that custom field will contain
my ($String1, $String2) = (UNIX 2010, UNIX 2015);
my $Ticket = RT::Ticket-new($CurrentUser);
# The number has to be an id of an existing ticket!
$Ticket-Load(318616);
# Let us define two Ticket collections
my $Tickets1 = new RT::Tickets($CurrentUser);
my $Tickets2 = new RT::Tickets($CurrentUser);
# The customfield #96 of the tickent #318616 is being changed to
'UNIX 2010'.
$Ticket-AddCustomFieldValue(Field = $RTIMAppName, Value = $String1,
RecordTransaction = 0);
$Tickets1-LimitCustomField(CUSTOMFIELD = $RTIMAppId,
OPERATOR = =,
VALUE = $String1);
#Ticket #318616 occurs
print Tickets with $RTIMAppName = \'$String1\'\n\n;
while (my $Entry = $Tickets1-Next())
{
print join(\t, ($Entry-Id, $Entry-Created, $Entry-Subject)),\n;
}
# The customfield #96 of the tickent #318616 is being changed to
'UNIX 2015' .
$Ticket-AddCustomFieldValue(Field = $RTIMAppName, Value = $String2,
RecordTransaction = 0);
# $Ticket2 refers to the updated collection
$Tickets2-LimitCustomField(CUSTOMFIELD = $RTIMAppId,
OPERATOR = =,
VALUE = $String1);
# Ticket #318616 does not occur anymore.
print Tickets with $RTIMAppName = \'$String1\'\n\n;
while (my $Entry = $Tickets2-Next())
{
print join(\t, ($Entry-Id, $Entry-Created, $Entry-Subject)),\n;
}
and here is script #2
#!/usr/bin/perl -w
# notwendige Header Anfang
use strict;
use lib /opt/rt3/RTIM/lib, /opt/rt3/lib;
use RT;
# Load the config file
RT::LoadConfig();
# Connect to the database and get RT::SystemUser
# loaded
RT::Init();
use RT::Interface::CLI GetCurrentUser, loc;
# notwendige Header Ende
use RT::Users;
use UserCF;
my $CurrentUser = GetCurrentUser();
my $Users1 = new RT::Users($CurrentUser);
my $Users2 = new RT::Users($CurrentUser);
my $UserObject = RT::User-new($CurrentUser);
my ($String1, $String2) = (ABCDEFGH, RSTUVWXYZ);
# The costumfield #126 is a user customfield whose name is
# 'MergeStatus'
my $MStatusId = 126;
my $MStatusName = MergeStatus;
# The number has to be an id of an existing user!
$UserObject-Load(4380);
# The customfield #126 of the user #4380 is being changed to 'ABCDEFGHI'.
$UserObject-AddCustomFieldValue(Field = $MStatusName, Value =
$String1,RecordTransaction = 0);
$Users1-LimitCustomField(CUSTOMFIELD = $MStatusId,
OPERATOR = =,
VALUE = $String1 );
#User #4380 occurs
print Users with the Status $String1\n;
while (my $UC = $Users1-Next())
{
my $MStatusValue;
my $CFValues = $UC-CustomFieldValues($MStatusId);
while (my $CFValue = $CFValues-Next)
{
$MStatusValue = $CFValue-Content;
}
print join(\t, ($UC-Id, $UC-Name, $UC-RealName,
$MStatusValue )), \n;
}
print \n\n\n;
# The customfield #126 of the user #4380 is being changed to 'RSTUVWXYZ'.
$UserObject-AddCustomFieldValue(Field = $MStatusName, Value =
$String2,RecordTransaction = 0);
# $User2 refers to the updated collection
$Users2-LimitCustomField(CUSTOMFIELD = $MStatusId,
OPERATOR = =,
VALUE = $String1 );
#User #4380 still occurs, although he should not occur anymore!
print Users with the Status $String1\n;
while (my $UC = $Users1-Next())
{
my $MStatusValue;
my $CFValues = $UC-CustomFieldValues($MStatusId);
while (my $CFValue = $CFValues-Next)
{
$MStatusValue = $CFValue-Content;
}
print join(\t, ($UC-Id, $UC-Name, $UC-RealName,
$MStatusValue )), \n;
}
I hope you eventually know what I meant. I apologise any misunderstandings.
Greetings,
Wolfram Huettermann
pgpCmvxR2NyzW.pgp
Description: PGP signature
