summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/User.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm
index fabcde51..f8d8d92e 100755
--- a/LedgerSMB/User.pm
+++ b/LedgerSMB/User.pm
@@ -782,6 +782,7 @@ sub save_member {
my ($id) = $sth->fetchrow_array;
$sth->finish;
+ my $employeenumber;
if ($id) {
$query = qq|UPDATE employee SET
@@ -792,7 +793,7 @@ sub save_member {
} else {
- my ($employeenumber) = Form::update_defaults(
+ ($employeenumber) = Form::update_defaults(
"", \%$self, "employeenumber", $dbh);
$query = qq|
INSERT INTO employee