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

[..hidden..]

Revision: 3192
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3192&view=rev
Author:   einhverfr
Date:     2011-05-31 17:14:46 +0000 (Tue, 31 May 2011)

Log Message:
-----------
John Locke's patch for account creation

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

Modified: trunk/LedgerSMB/ScriptLib/Company.pm
===================================================================
--- trunk/LedgerSMB/ScriptLib/Company.pm	2011-05-29 23:24:28 UTC (rev 3191)
+++ trunk/LedgerSMB/ScriptLib/Company.pm	2011-05-31 17:14:46 UTC (rev 3192)
@@ -2,7 +2,10 @@
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Customer;
 use LedgerSMB::DBObject::Vendor;
+use LedgerSMB::Log;
 
+my $logger = Log::Log4perl->get_logger("LedgerSMB::ScriptLib::Company");
+
 use Data::Dumper;
 
 my $ec_labels = {
@@ -375,10 +378,11 @@
         {href => $sort_href, columns => ..hidden..
     );
             
+    $logger->debug("\$company = " . Data::Dumper::Dumper($company));
     $template->render({
 	form    => $company,
 	columns => ..hidden..,
-        hiddens => $company,
+#        hiddens => $company,
 	buttons => ..hidden..,
 	heading => $column_heading,
 	rows    => ..hidden..,

Modified: trunk/sql/modules/Account.sql
===================================================================
--- trunk/sql/modules/Account.sql	2011-05-29 23:24:28 UTC (rev 3191)
+++ trunk/sql/modules/Account.sql	2011-05-31 17:14:46 UTC (rev 3192)
@@ -19,7 +19,7 @@
 
 CREATE OR REPLACE FUNCTION account_get (in_id int) RETURNS setof chart AS
 $$
-SELECT * from chart where id = in_id and charttype = 'A';
+SELECT * from chart where id = $1 and charttype = 'A';
 $$ LANGUAGE sql;
 
 


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