From c2f3e31ee16b527315a3c6ffde4f4001c431f9ee Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 19 Oct 2007 06:05:41 +0000
Subject: Some voucher fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1795 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Batch.pm      | 7 +++++++
 LedgerSMB/DBObject.pm   | 2 +-
 LedgerSMB/GL.pm         | 7 +++----
 LedgerSMB/Session/DB.pm | 2 +-
 4 files changed, 12 insertions(+), 6 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm
index 7c7bcc53..1e6b320e 100644
--- a/LedgerSMB/Batch.pm
+++ b/LedgerSMB/Batch.pm
@@ -3,4 +3,11 @@
 package LedgerSMB::Batch;
 use base qw(LedgerSMB::DBObject);
 
+sub create {
+    $self = shift @_;
+    my ($ref) = $self->exec_method(funcname => 'batch_create');
+    $self->{id} = $ref->{id}
+    return $ref->{id};
+}
+
 1;
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index f52724c7..93fc4f6e 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -107,7 +107,7 @@ sub exec_method {
      
     my $query = "SELECT proname, pronargs, proargnames FROM pg_proc WHERE proname = ?";
     my $sth   = $self->{dbh}->prepare($query);
-    $sth->execute($funcname);
+    $sth->execute($funcname) || $self->error($DBI::errstr . "in exec_method");
     my $ref;
 
     $ref = $sth->fetchrow_hashref('NAME_lc');
diff --git a/LedgerSMB/GL.pm b/LedgerSMB/GL.pm
index 502bb0e9..834bf8f0 100644
--- a/LedgerSMB/GL.pm
+++ b/LedgerSMB/GL.pm
@@ -101,12 +101,11 @@ sub post_transaction {
         $uid .= "$$";
 
         $query = qq|
-		INSERT INTO gl (reference, employee_id)
-		     VALUES ('$uid', (SELECT id FROM employee
-		                       WHERE login = ?))|;
+		INSERT INTO gl (reference)
+		     VALUES ('$uid')|;
 
         $sth = $dbh->prepare($query);
-        $sth->execute( $form->{login} ) || $form->dberror($query);
+        $sth->execute() || $form->dberror($query);
 
         $query = qq|
 			SELECT id 
diff --git a/LedgerSMB/Session/DB.pm b/LedgerSMB/Session/DB.pm
index bfc0b9fc..19896ae7 100755
--- a/LedgerSMB/Session/DB.pm
+++ b/LedgerSMB/Session/DB.pm
@@ -182,7 +182,7 @@ sub session_create {
     }
     $deleteExisting->execute( $login)
       || $lsmb->dberror(
-        __FILE__ . ':' . __LINE__ . ': Delete from session: ' );
+        __FILE__ . ':' . __LINE__ . ': Delete from session: ' . $DBI::errstr);
 
 #doing the random stuff in the db so that LedgerSMB won't
 #require a good random generator - maybe this should be reviewed, 
-- 
cgit v1.2.3