GL Vouchers are posting and saving correctly. Need to get listing and approving but that is conceptually a lot easier and involves a lot less legacy code

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1796 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 7 insertions, 7 deletions

diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index 93fc4f6e..4c96c82e 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -128,13 +128,13 @@ sub exec_method {
     
     my $m_name = $ref->{proname};
 
-#    if ($args) {
-#        for my $arg (@proc_args) {
-#            if ( $arg =~ s/^in_// ) {
-                # push @call_args, $arg;
-#            }
-#        }
-#    }
+    if ($args) {
+        for my $arg (@proc_args) {
+            if ( $arg =~ s/^in_// ) {
+                 push @call_args, $self->{$arg};
+            }
+        }
+    }
 
     for (@in_args) { push @call_args, $_ } ;
     $self->{call_args} = \@call_args;