From: Wallace R. C. <wrc...@gm...> - 2008-04-18 14:28:39
|
On Fri, Apr 18, 2008 at 7:11 AM, Roy W Pennington <arc...@mt...> wrote: ... > $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, > transdate, project_id, invoice_id) > VALUES ($form->{id}, $ref->{chart_id}, $amount, > '$form->{transdate}', $ref->{project_id}, $ref->{invoice_id})|; > $dbh->do($query) || $form->dberror($query); >From the generated error, it appears that the following variables might be undefined: $ref->{project_id}, $ref->{invoice_id} You could place a conditional in the perl code to check those variables & use some kind of default value if they don't exist. -- Best Regards, Wallace |