SF.net SVN: ledger-smb:[3188] trunk/LedgerSMB/DBObject/Account.pm

[..hidden..]

Revision: 3188
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3188&view=rev
Author:   einhverfr
Date:     2011-05-29 16:41:53 +0000 (Sun, 29 May 2011)

Log Message:
-----------
Erik's account-heading saving patch

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/Account.pm

Modified: trunk/LedgerSMB/DBObject/Account.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Account.pm	2011-05-29 16:19:49 UTC (rev 3187)
+++ trunk/LedgerSMB/DBObject/Account.pm	2011-05-29 16:41:53 UTC (rev 3188)
@@ -29,7 +29,12 @@
         $self->{contra} = '0';
     }
     $self->generate_links;
-    $self->exec_method(funcname => 'account_save');
+    my $func = 'account_save';
+    if ($self->{charttype} and $self->{charttype} eq 'H') {
+        $func = 'account_heading_save';
+    }
+    $self->exec_method(funcname => $func);
+
     if (defined $self->{recon}){
         $self->call_procedure(procname => 'cr_coa_to_account_save', args =>[ $self->{accno}, $self->{description}]);
     }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.