X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d319704a66e9be64da837ccea10af6774c2b0838..0576299f2aa98125991c4ffcd2f75073ea583d7d:/SL/GL.pm diff --git a/SL/GL.pm b/SL/GL.pm index 9ae3835dc..9fdb486f9 100644 --- a/SL/GL.pm +++ b/SL/GL.pm @@ -124,7 +124,7 @@ sub post_transaction { if ($form->{id}) { # delete individual transactions - $query = qq|DELETE FROM acc_trans + $query = qq|DELETE FROM acc_trans WHERE trans_id = $form->{id}|; $dbh->do($query) || $form->dberror($query); @@ -149,7 +149,7 @@ sub post_transaction { my ($null, $department_id) = split /--/, $form->{department}; $department_id *= 1; - $query = qq|UPDATE gl SET + $query = qq|UPDATE gl SET reference = '$form->{reference}', description = '$form->{description}', notes = '$form->{notes}', @@ -584,8 +584,8 @@ sub transaction { $query = "SELECT g.reference, g.description, g.notes, g.transdate, d.description AS department, e.name as employee, g.taxincluded, g.gldate FROM gl g - LEFT JOIN department d ON (d.id = g.department_id) - LEFT JOIN employee e ON (e.id = g.employee_id) + LEFT JOIN department d ON (d.id = g.department_id) + LEFT JOIN employee e ON (e.id = g.employee_id) WHERE g.id = $form->{id}"; $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query); @@ -722,4 +722,3 @@ sub debug { } 1; -