diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-23 15:05:53 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-23 15:05:53 +0000 |
| commit | a51eb1d9032a2ef36cd185eabe0e3403241dbdad (patch) | |
| tree | ae7f846bcd409da85aab5cf4e3df32572ac6a10d /LedgerSMB/AM.pm | |
| parent | 5b13adc06e2518157c89b574526e09358420b2bc (diff) | |
Correcting POD on LedgerSMB.pm, changing db_init to _db_init and calling it from the constructor.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1313 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AM.pm')
| -rw-r--r-- | LedgerSMB/AM.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 618c4d0b..09de5f6b 100644 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1314,7 +1314,7 @@ sub save_preferences { my @queryargs; my $query = qq| SELECT login - FROM employees + FROM employee WHERE login = ?|; @queryargs = ( $form->{login} ); my $sth = $dbh->prepare($query); @@ -1326,7 +1326,7 @@ sub save_preferences { # update name $query = qq| - UPDATE employees + UPDATE employee SET name = ? WHERE login = ?|; @@ -1756,7 +1756,7 @@ sub post_yearend { $query = qq| INSERT INTO gl (reference, employee_id) - VALUES (?, (SELECT id FROM employees + VALUES (?, (SELECT id FROM employee WHERE login = ?))|; $dbh->prepare($query)->execute( $uid, $form->{login} ) |