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

[..hidden..]

Revision: 4789
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4789&view=rev
Author:   einhverfr
Date:     2012-05-27 12:39:51 +0000 (Sun, 27 May 2012)
Log Message:
-----------
A few brief fixes for bank account code

Modified Paths:
--------------
    trunk/LedgerSMB/ScriptLib/Company.pm
    trunk/sql/modules/Company.sql

Modified: trunk/LedgerSMB/ScriptLib/Company.pm
===================================================================
--- trunk/LedgerSMB/ScriptLib/Company.pm	2012-05-27 11:42:56 UTC (rev 4788)
+++ trunk/LedgerSMB/ScriptLib/Company.pm	2012-05-27 12:39:51 UTC (rev 4789)
@@ -5,6 +5,7 @@
 use LedgerSMB::DBObject::Entity::Credit_Account;
 use LedgerSMB::DBObject::Entity::Location;
 use LedgerSMB::DBObject::Entity::Contact;
+use LedgerSMB::DBObject::Entity::Bank;
 use LedgerSMB::DBObject::Vendor;
 use Log::Log4perl;
 
@@ -778,7 +779,7 @@
           );
                          
     @{$company->{bank_account}} = 
-         LedgerSMB::DBObject::Entity::Bank->list($company->{entity_id);
+         LedgerSMB::DBObject::Entity::Bank->list($company->{entity_id});
     $company->{creditlimit} = $request->format_amount({amount => $company->{creditlimit}}) unless !defined $company->{creditlimit}; 
     $company->{discount} = "$company->{discount}" unless !defined $company->{discount}; 
     $company->{note_class_options} = [

Modified: trunk/sql/modules/Company.sql
===================================================================
--- trunk/sql/modules/Company.sql	2012-05-27 11:42:56 UTC (rev 4788)
+++ trunk/sql/modules/Company.sql	2012-05-27 12:39:51 UTC (rev 4789)
@@ -956,7 +956,7 @@
 CREATE OR REPLACE FUNCTION entity__delete_bank_account(in_id int)
 RETURNS BOOL AS
 $$
-BEGIN;
+BEGIN
 
 DELETE FROM entity_bank_account WHERE id = in_id;
 

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