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






Reply via email to