diff options
-rwxr-xr-x | LedgerSMB/User.pm | 3 |
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 |