SF.net SVN: ledger-smb:[5450] trunk

[..hidden..]

Revision: 5450
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5450&view=rev
Author:   einhverfr
Date:     2013-01-01 06:48:27 +0000 (Tue, 01 Jan 2013)
Log Message:
-----------
Fixing account save errors

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

Modified: trunk/LedgerSMB/DBObject/Account.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Account.pm	2013-01-01 04:29:35 UTC (rev 5449)
+++ trunk/LedgerSMB/DBObject/Account.pm	2013-01-01 06:48:27 UTC (rev 5450)
@@ -59,7 +59,7 @@
        $self->{category} = 'Q';
     }
     $self->generate_links;
-    my $func = 'account_save';
+    my $func = 'account__save';
     if ($self->{charttype} and $self->{charttype} eq 'H') {
         $func = 'account_heading_save';
     }

Modified: trunk/sql/modules/Account.sql
===================================================================
--- trunk/sql/modules/Account.sql	2013-01-01 04:29:35 UTC (rev 5449)
+++ trunk/sql/modules/Account.sql	2013-01-01 06:48:27 UTC (rev 5450)
@@ -360,7 +360,7 @@
 		INSERT INTO account (accno, description, category, gifi_accno,
 			heading, contra, tax, is_temp)
 		VALUES (in_accno, in_description, in_category, in_gifi_accno,
-			t_heading_id, in_contra, in_tax, in_is_temp);
+			t_heading_id, in_contra, in_tax, coalesce(in_is_temp, 'f'));
 
 		t_id := currval('account_id_seq');
 	END IF;

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