[PATCH] Save account headers to 'account_header' table (instead of 'account' table)

[Erik Huelsmann <..hidden..>]

While trying to fix one of the bugs in the SF bug tracker, I ran into
the problem that account headers are currently being saved to the
accounts table.

This patch fixes that:


Index: LedgerSMB/DBObject/Account.pm
===================================================================
--- LedgerSMB/DBObject/Account.pm       (revision 3187)
+++ LedgerSMB/DBObject/Account.pm       (working copy)
@@ -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}]);
     }


Bye,


Erik.