summaryrefslogtreecommitdiff
path: root/LedgerSMB/User.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/User.pm')
-rwxr-xr-xLedgerSMB/User.pm20
1 files changed, 12 insertions, 8 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm
index f8d8d92e..c1e0642f 100755
--- a/LedgerSMB/User.pm
+++ b/LedgerSMB/User.pm
@@ -783,29 +783,33 @@ sub save_member {
my ($id) = $sth->fetchrow_array;
$sth->finish;
my $employeenumber;
+ my @values;
if ($id) {
$query = qq|UPDATE employee SET
- role = '$self->{role}',
- email = '$self->{email}',
- name = '$self->{name}'
- WHERE login = '$login'|;
+ role = ?,
+ email = ?,
+ name = ?
+ WHERE login = ?|;
+
+ @values = ($self->{role}, $self->{email}, $self->{name}, $login);
} else {
- ($employeenumber) = Form::update_defaults(
+ my ($employeenumber) = Form::update_defaults(
"", \%$self, "employeenumber", $dbh);
$query = qq|
INSERT INTO employee
(login, employeenumber, name,
workphone, role, email, sales)
VALUES (?, ?, ?, ?, ?, ?, '1')|;
+
+ @values = ($login, $employeenumber, $self->{name}, $self->{tel},
+ $self->{role}, $self->{email})
}
$sth = $dbh->prepare($query);
- $sth->execute(
- $login, $employeenumber, $self->{name}, $self->{tel},
- $self->{role}, $self->{email});
+ $sth->execute(@values);
$dbh->commit;
$dbh->disconnect;