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

[..hidden..]

Revision: 5135
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5135&view=rev
Author:   einhverfr
Date:     2012-10-03 08:33:19 +0000 (Wed, 03 Oct 2012)
Log Message:
-----------
Customer/vendor screen broken, fixing most of the issues on this commit

Modified Paths:
--------------
    trunk/LedgerSMB/Scripts/contact.pm
    trunk/sql/modules/Parts.sql

Modified: trunk/LedgerSMB/Scripts/contact.pm
===================================================================
--- trunk/LedgerSMB/Scripts/contact.pm	2012-10-03 05:14:17 UTC (rev 5134)
+++ trunk/LedgerSMB/Scripts/contact.pm	2012-10-03 08:33:19 UTC (rev 5135)
@@ -130,7 +130,7 @@
     # DIVS contents
     my $entity_id = $company->{entity_id};
     $entity_id ||= $person->{entity_id};
-    my @pricegroups = $company->call_procedure(
+    my @pricegroups = $request->call_procedure(
         procname => 'pricegroups__list'
     );
     my @credit_list = 

Modified: trunk/sql/modules/Parts.sql
===================================================================
--- trunk/sql/modules/Parts.sql	2012-10-03 05:14:17 UTC (rev 5134)
+++ trunk/sql/modules/Parts.sql	2012-10-03 08:33:19 UTC (rev 5135)
@@ -15,4 +15,19 @@
 ORDER BY partnumber;
 $$ LANGUAGE SQL;
 
+CREATE OR REPLACE FUNCTION parts__get_by_id(in_id int) RETURNS parts AS
+$$
+SELECT * FROM parts WHERE id = $1;
+$$ LANGUAGE SQL;
+
+CREATE OR REPLACE FUNCTION parts__get_by_partnumber(in_partnumber text)
+RETURNS parts LANGUAGE SQL AS $$
+SELECT * FROM PARTS WHERE partnumber = $1 and obsolete is not true; 
+$$;
+
+CREATE OR REPLACE FUNCTION pricegroups__list() RETURNS SETOF pricegroup
+LANGUAGE SQL AS $$
+SELECT * FROM pricegroup;
+$$;
+
 COMMIT;

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