diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-03 03:26:37 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-03 03:26:37 +0000 |
commit | fcd5ee36c7b5f42d557ca7b0ec8be997c0faaadb (patch) | |
tree | c8608b6f4d98caee857932190939f5e115f4adce /LedgerSMB/Form.pm | |
parent | f98990bd9964b6bfe2fa8526f36a9b7bc2f961f7 (diff) |
Merged SL-POS.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@185 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-x | LedgerSMB/Form.pm | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 4865e198..cd30803b 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -523,6 +523,23 @@ sub callproc { @results; } +sub get_my_emp_num { + my ($self, $myconfig, $form) = @_; + %myconfig = %{$myconfig}; + my $dbh = $form->{dbh}; + # we got a connection, check the version + my $query = qq| + SELECT employeenumber FROM employee + WHERE login = ?|; + my $sth = $dbh->prepare($query); + $sth->execute($form->{login}) || $form->dberror($query); + $sth->execute; + + my ($id) = $sth->fetchrow_array; + $sth->finish; + $form->{'emp_num'} = $id; +} + sub parse_template { my ($self, $myconfig, $userspath) = @_; @@ -1297,8 +1314,8 @@ sub db_init { } sub run_custom_queries { - my $dbh = $self->{dbh}; my ($self, $tablename, $query_type, $linenum) = @_; + my $dbh = $self->{dbh}; if ($query_type !~ /^(select|insert|update)$/i){ $self->error($locale->text( "Passed incorrect query type to get_cutstom_queries." @@ -1379,7 +1396,7 @@ sub run_custom_queries { } elsif ($query_type eq 'SELECT'){ for (@rc){ $query = shift @{$_}; - $sth = $form->{dbh}->prepare($query); + $sth = $self->{dbh}->prepare($query); $sth->execute($form->{id}); $ref = $sth->fetchrow_hashref(NAME_lc); for (keys %{$ref}){ |