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
___
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