ImportCustomFieldValues - Revision history

Othomas: /* import-custom-field-values */

2016-08-06T16:15:18Z

import-custom-field-values

← Older revision		Revision as of 12:15, 6 August 2016
Line 3:		Line 3:
	I use this script to populate a "select one from many" custom field from a text file generated from a database query.		I use this script to populate a "select one from many" custom field from a text file generated from a database query.

	<pre> #!/usr/bin/perl		<pre> #!/usr/bin/perl

	use warnings;		use warnings;

Othomas: /* import-custom-field-values */

2016-08-06T16:15:00Z

import-custom-field-values

← Older revision		Revision as of 12:15, 6 August 2016
Line 3:		Line 3:
	I use this script to populate a "select one from many" custom field from a text file generated from a database query.		I use this script to populate a "select one from many" custom field from a text file generated from a database query.

	<~~nowiki~~>#!/usr/bin/perl		<pre> #!/usr/bin/perl

	use warnings;		use warnings;
Line 94:		Line 94:

	}		}
	</~~nowiki~~>		</pre>

	The replace switch seems to update on version 3.8.7. (SJN)		The replace switch seems to update on version 3.8.7. (SJN)

Admin: 4 revisions imported

2016-04-06T20:11:24Z

4 revisions imported

New page

==import-custom-field-values==

I use this script to populate a "select one from many" custom field from a text file generated from a database query.

<nowiki>#!/usr/bin/perl

use warnings;
use strict;

use lib qw(/opt/rt3/local/lib /opt/rt3/lib);
use Getopt::Long;

use RT;
RT::LoadConfig();
RT::Init();

my %args;

GetOptions(\%args, 'field=s', 'update','replace' ,'help', 'verbose');

if ($args{'help'} || !($args{'update'}||$args{'replace'}) ){
help();
exit;
}

my @lines = <STDIN>;

map {chomp} @lines;

my $cf = RT::CustomField->new(RT->SystemUser);

$cf->Load( $args{'field'} );
unless ( $cf->id ) {
die "Couldn't find that custom field\n";
}

if ( $args{'replace'} ) {
my $values = $cf->Values;
my %map;

while ( my $value = $values->Next ) {
unless (grep {$value->Name} @lines) {
print STDERR "Deleting " . $value->Name . "\n" if ($args{'verbose'});
$value->Delete();
}

}
}

if ( $args{'update'} || $args{'replace'} ) {
my $values = $cf->Values;
my @current;

while ( my $value = $values->Next ) {

push @current, $value->Name;
}

foreach my $entry (@lines) {
unless ( grep { $entry eq $_ } @current ) {
print STDERR "Adding " . $entry . "\n" if ($args{'verbose'});
my ( $ret, $val ) = $cf->AddValue( Name => $entry );
}
}

}

print STDERR "Done\n" if ($args{'verbose'});

sub help {

print <<EOF

$0 is a simple RT tool to add values to a custom field.
It takes several arguments:

--field The id or name of the custom field you'd like to work with
--update Add values to this field, but do not prune unused files
--replace Make the custom field contain only the values listed
--verbose Show progress messages

This script expects a list of potential custom field values,
one per line to be fed to STDIN.

Example:

$0 --field "My CF Name" --update < list_of_values

EOF

}
</nowiki>

The replace switch seems to update on version 3.8.7. (SJN)

41.134.191.154 at 12:39, 28 March 2012

2012-03-28T12:39:45Z

New page

==import-custom-field-values==

I use this script to populate a "select one from many" custom field from a text file generated from a database query.

<nowiki>#!/usr/bin/perl

use warnings;
use strict;

use lib qw(/opt/rt3/local/lib /opt/rt3/lib);
use Getopt::Long;

use RT;
RT::LoadConfig();
RT::Init();

my %args;

GetOptions(\%args, 'field=s', 'update','replace' ,'help', 'verbose');

if ($args{'help'} || !($args{'update'}||$args{'replace'}) ){
help();
exit;
}

my @lines = <STDIN>;

map {chomp} @lines;

my $cf = RT::CustomField->new(RT->SystemUser);

$cf->Load( $args{'field'} );
unless ( $cf->id ) {
die "Couldn't find that custom field\n";
}

if ( $args{'replace'} ) {
my $values = $cf->Values;
my %map;

while ( my $value = $values->Next ) {
unless (grep {$value->Name} @lines) {
print STDERR "Deleting " . $value->Name . "\n" if ($args{'verbose'});
$value->Delete();
}

}
}

if ( $args{'update'} || $args{'replace'} ) {
my $values = $cf->Values;
my @current;

while ( my $value = $values->Next ) {

push @current, $value->Name;
}

foreach my $entry (@lines) {
unless ( grep { $entry eq $_ } @current ) {
print STDERR "Adding " . $entry . "\n" if ($args{'verbose'});
my ( $ret, $val ) = $cf->AddValue( Name => $entry );
}
}

}

print STDERR "Done\n" if ($args{'verbose'});

sub help {

print <<EOF

$0 is a simple RT tool to add values to a custom field.
It takes several arguments:

--field The id or name of the custom field you'd like to work with
--update Add values to this field, but do not prune unused files
--replace Make the custom field contain only the values listed

This script expects a list of potential custom field values,
one per line to be fed to STDIN.

Example:

$0 --field "My CF Name" --update < list_of_values

EOF

}
</nowiki>

The replace switch seems to update on version 3.8.7. (SJN)