Moving functions back into sql/modules for now.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@883 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 22 insertions, 0 deletions

diff --git a/sql/modules/Account.sql b/sql/modules/Account.sql
new file mode 100644
index 00000000..c03280d4
--- /dev/null
+++ b/sql/modules/Account.sql
@@ -0,0 +1,22 @@
+CREATE OR REPLACE FUNCTION account_get (in_id) RETURNS chart AS
+$$
+DECLARE
+	account chart%ROWTYPE
+BEGIN
+	SELECT * INTO account FROM chart WHERE id = in_id;
+	RETURN account;
+END;
+$$ LANGAUGE plpgsql;
+
+CREATE OR REPLACE FUNCTION account_is_orphaned (in_id) RETURNS bool AS
+$$
+BEGIN
+	SELECT trans_id FROM acc_trans WHERE chart_id = in_id LIMIT 1;
+	IF FOUND THEN
+		RETURN true;
+	ELSE
+		RETURN false;
+	END IF;
+END;
+$$ LANGUAGE plpgsql;
+