[Dbix-class] Weird search issue

[David Ihnen]

Looks like an encoding problem, fREW.  You might notice its not a dot 
*between* - its a dot *after* each letter.  The data is being sent in as 
something like 16 bit unicode, and is being serialized out without 
taking that into account.

I wish I knew the solution, but I hope that provides a lead for you.

David

fREW Schmidt wrote:
> Ok, here is my code:
>
>         return $self->basic_data({
>                 table => 'Customer',
>                 search => {
>                     id => "AA001",
>                 },
>                 columns => [qw/id name price_approval_required comments/],
>             });
>
>
> and I am calling this function that I wrote:
>
>     sub basic_data {
>         my $self = shift;
>         my $params = shift;
>         my $table = $params->{table};
>         my $search = $params->{search};
>         my $columns = $params->{columns};
>         my $rows = $self->query->param('limit') || 25;
>         my $page = ($self->query->param('start')?(
>     $self->query->param('start')/$rows + 1 ):1);
>         my $order_by =
>     ($self->query->param('sort')?$self->query->param('sort').'
>     '.$self->query->param('dir'):'id');
>         use DBIx::Class::ResultClass::HashRefInflator;
>         my $rs_full = $self->schema()->resultset($table)->search($search,{
>             order_by => $order_by,
>             columns => $columns,
>         });
>         my $data = { data => []};
>         $data->{total} = $rs_full->count;
>         my $rs = $rs_full->search({},{
>             rows => $rows,
>             page => $page,
>         });
>         $rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
>         while (my $operation_code = $rs->next() ) {
>             push @{$data->{data}}, $operation_code;
>         }
>         return $self->json_body($data);
>     }
>
>
> yet I am getting this error:
>
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1] [Dispatch]
>     ERROR for request
>     '/devcgi/init.plx/controller_WorkOrderEntry/customer?cusomter_id=AA001':
>     Error executing run mode 'customer':
>     DBIx::Class::ResultSet::next(): DBI Exception: DBD::ODBC::st
>     fetchrow_array failed: [Microsoft][SQL Native Client]String data,
>     right truncation (SQL-01004) [for Statement "SELECT * FROM
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1] (
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1]     SELECT
>     TOP 25 * FROM
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1]     (
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1]        
>     SELECT TOP 25  me.id <http://me.id>, me.name <http://me.name>,
>     me.price_approval_required, me.comments FROM Customers me WHERE (
>     id = ? ) ORDER BY id ASC
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1]     ) AS foo
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1]     ORDER BY
>     id DESC
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1] ) AS bar
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1] ORDER BY id ASC
>     [Thu Feb 12 10:57:16 2009] [error] [client 127.0.0.1] " with
>     ParamValues: 1='A.A.0.0.1.'] at C:\\Documents and
>     Settings\\frew\\My
>     Documents\\Code\\aircraft_ducting/ACD/Controller.pm line 75
>
>
> Anyone have any idea why it is adding dots between each character in 
> the search?
>
> -fREW
>
>
> -- 
> fREW Schmidt
> http://blog.afoolishmanifesto.com
> ------------------------------------------------------------------------
>
> _______________________________________________
> List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
> IRC: irc.perl.org#dbix-class
> SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
> Searchable Archive: http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk