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.
So, here is script #1
#!/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