summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-31 20:30:08 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-31 20:30:08 +0000
commita44648ee2e81a965024e3036ce586aba9b852b38 (patch)
tree7645eeb93091d82a0fa3b31de0b28e55cd7c5783 /LedgerSMB
parente02d9af679fab950e040764b2872b705d44087f4 (diff)
* Committed Tony Brummett's patch for last/avg costs
* Committing fix for User.pm error handling (1860699) git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2025 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/IR.pm2
-rwxr-xr-xLedgerSMB/User.pm8
2 files changed, 7 insertions, 3 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index 69b20aea..35a0a07e 100755
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -798,7 +798,7 @@ sub post_invoice {
SET avgcost = avgcost($item),
lastcost = lastcost($item)
WHERE id = $item|;
- $dbh->prepare($query) || $form->dberror($query);
+ $dbh->do($query) || $form->dberror($query);
}
my $rc = $dbh->commit;
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm
index 7ef25547..e935583d 100755
--- a/LedgerSMB/User.pm
+++ b/LedgerSMB/User.pm
@@ -35,6 +35,7 @@ package LedgerSMB::User;
use LedgerSMB::Sysconfig;
use LedgerSMB::Session;
use Data::Dumper;
+use LedgerSMB::Form;
sub new {
@@ -825,8 +826,11 @@ sub save_member {
}
else {
- my ($employeenumber) =
- Form::update_defaults( "", \%$self, "employeenumber", $dbh );
+ my $form = {dbh => $dbh};
+ bless($form, 'Form');
+
+ my ($employeenumber) = $form->update_defaults(\%$self, "employeenumber");
+
$query = qq|
INSERT INTO employee
(login, employeenumber, name,