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