Select Code to Download

SELECT DISTINCT accno || ' - ' || description
  FROM (
...
       ) q
  JOIN chart c ON q.chart_id = c.id
 WHERE bal != 0

acc_trans
     Column     |  Type   |         Modifiers
...
---------------+---------+------------------------------------------
 id            | integer | not null default nextval('id'::regclass)
 projectnumber | text    |

sub accounts {
  my $self = shift;
...
    return @$accounts;
  });
}

my $rs = $schema->resultset("AccTrans")->search(
   { transdate => { '>=', '2011-04-01', '<=', '2011-04-30' }, 'chart.c
+ategory' => "I" },
   { join => "chart" }
);
say for $rs->accounts;

my $rs = $schema->resultset("AccTrans")->search(
   { transdate => { '>=', '2011-04-01', '<=', '2011-04-30' }, 'chart.c
+ategory' => [ "I", "E" ] },
   { join => "chart" }
);
say for $rs->accounts;