Maybe something I’m doing badly. I have a scrip action Foo.pm which will
work on some CF with non-ascii names.
Here is part of the code:
--------------------snip-----------------------
package RT::Action::StartNextAction;
use strict;
use warnings;
use base qw(RT::Action);
use utf8;
sub Commit {
my $self = shift;
...
my $next_phone = ...;
my $cf_clones;
my $ActionCFs = $Ticket->CustomFields;
while ( my $CustomField = $ActionCFs->Next ) {
my $values = $Ticket->CustomFieldValues($CustomField->id);
next unless ( $values && $values->Count );
$cf_clones->{$CustomField->Name} = $values->First->Content;
}
if ($next_phone && $next_phone ne $cf_clones->{'Numéro de
télephone’} ) {
$cf_clones->{‘Numéro de télephone’} = $next_phone;
$cf_clones->{‘Nom’} = ‘’;
$cf_clones->{‘Adresse email’} = ‘’;
}
my $NewAction = RT::Ticket->new( $self->CurrentUser );
$NewAction->Create ( …);
foreach my $field_name (keys %{$cf_clones} ) {
$NewAction->AddCustomFieldValue( Field => $field_name, Value =>
$cf_clones->{$field_name} );
}
-----------------------snip--------------
The ->AddCustomFieldValue breaks when $field_name = ‘Numéro de
télephone’; (PostgreSQL does not see here UTF-8 in the produced select)
If I replace this foreach by:
foreach my $field_name (keys %{$cf_clones} ) {
next if ( $field_name eq 'Numéro de télephone' );
$NewAction->AddCustomFieldValue( Field => $field_name, Value =>
$cf_clones->{$field_name} );
}
$NewAction->AddCustomFieldValue( Field => ‘Numéro de télephone’,
Value => $cf_clones->{‘Numéro de télephone’} );
it works !!!
any perl utf8 lover can explain the right way to do this?
If of any use (a bug?) here is the PG error:
DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding
“UTF8”: 0xe9726f at /usr/share/perl5/DBIx/SearchBuilder/Handle.pm line 586.
RT::Handle=HASH(0x793ee88) couldn’t execute the query ‘SELECT main.*
FROM CustomFields main JOIN ObjectCustomFields ObjectCustomFields_1 ON
( ObjectCustomFields_1.CustomField = main.id ) WHERE
(ObjectCustomFields_1.ObjectId IN (‘6’, ‘0’)) AND (main.LookupType IN
(‘RT::Queue-RT::Ticket’)) AND (LOWER(main.Name) = ‘numéro de télephone’)
ORDER BY main.Disabled ASC, ObjectCustomFields_1.ObjectId DESC,
main.SortOrder ASC, main.id ASC LIMIT 1’ at
/usr/share/perl5/DBIx/SearchBuilder/Handle.pm line
599#012#011DBIx::SearchBuilder::Handle::SimpleQuery(‘RT::Handle=HASH(0x793ee88)’,
‘SELECT main.* FROM CustomFields main JOIN ObjectCustomFields …’)
called at /usr/share/perl5/DBIx/SearchBuilder.pm line
239#012#011DBIx::SearchBuilder::_DoSearch(‘RT::CustomFields=HASH(0x7f64c68)’)
called at /srv/rt/rt/sbin/…/lib/RT/SearchBuilder.pm line
985#012#011RT::SearchBuilder::_DoSearch(‘RT::CustomFields=HASH(0x7f64c68)’)
called at /usr/share/perl5/DBIx/SearchBuilder.pm line
507#012#011DBIx::SearchBuilder::Next(‘RT::CustomFields=HASH(0x7f64c68)’)
called at /srv/rt/rt/sbin/…/lib/RT/CustomFields.pm line
393#012#011RT::CustomFields::Next(‘RT::CustomFields=HASH(0x7f64c68)’)
called at /usr/share/perl5/DBIx/SearchBuilder.pm line
568#012#011DBIx::SearchBuilder::First(‘RT::CustomFields=HASH(0x7f64c68)’) called
at /srv/rt/rt/sbin/…/lib/RT/CustomField.pm line
579#012#011RT::CustomField::LoadByName(‘RT::CustomField=HASH(0x7b35160)’, ‘Name’,
‘Num\x{e9}ro de t\x{e9}lephone’, ‘LookupType’, ‘RT::Queue-RT::Ticket’,
‘ObjectId’, 6, ‘IncludeGlobal’, 1, …) called at
/srv/rt/rt/sbin/…/lib/RT/Ticket.pm line
2986#012#011RT:
:LoadCustomFieldByIdentifier(‘RT::Ticket=HASH(0x7b9cf30)’,
‘Num\x{e9}ro de t\x{e9}lephone’) called at
/srv/rt/rt/sbin/…/lib/RT/Record.pm line
1966#012#011RT::Record::_AddCustomFieldValue(‘RT::Ticket=HASH(0x7b9cf30)’,
‘Field’, ‘Num\x{e9}ro de t\x{e9}lephone’, ‘Value’, 0613260760) called at
/srv/rt/rt/sbin/…/lib/RT/Record.pm line
1952#012#011RT::Record::AddCustomFieldValue('RT::Ticket=HASH
Easter-eggs Spécialiste GNU/Linux
44-46 rue de l’Ouest - 75014 Paris - France - Métro Gaité
Phone: +33 (0) 1 43 35 00 37 - Fax: +33 (0) 1 43 35 00 76
mailto:elacour@easter-eggs.com - http://www.easter-eggs.com
