From 9235607d4cae9f9a262a1aa85b02d4b6c8ca3311 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 20 Apr 2025 19:15:23 +0200
Subject: [PATCH] #6: new currency stored function

---
 brmbar3/brmbar/Account.py            |  2 +-
 brmbar3/brmbar/Currency.py           |  5 +--
 brmbar3/schema/0006-new-currency.sql | 50 ++++++++++++++++++++++++++++
 3 files changed, 54 insertions(+), 3 deletions(-)
 create mode 100644 brmbar3/schema/0006-new-currency.sql

diff --git a/brmbar3/brmbar/Account.py b/brmbar3/brmbar/Account.py
index 3e3a24d..40e86be 100644
--- a/brmbar3/brmbar/Account.py
+++ b/brmbar3/brmbar/Account.py
@@ -42,7 +42,7 @@ class Account:
         """ Constructor for new account """
         # id = db.execute_and_fetch("INSERT INTO accounts (name, currency, acctype) VALUES (%s, %s, %s) RETURNING id", [name, currency.id, acctype])
         id = db.execute_and_fetch("SELECT public.create_account(%s, %s, %s)", [name, currency.id, acctype])
-        id = id[0]
+        # id = id[0]
         return cls(db, name = name, id = id, currency = currency, acctype = acctype)
 
     def balance(self):
diff --git a/brmbar3/brmbar/Currency.py b/brmbar3/brmbar/Currency.py
index d2216ca..a03a893 100644
--- a/brmbar3/brmbar/Currency.py
+++ b/brmbar3/brmbar/Currency.py
@@ -31,8 +31,9 @@ class Currency:
     @classmethod
     def create(cls, db, name):
         """ Constructor for new currency """
-        id = db.execute_and_fetch("INSERT INTO currencies (name) VALUES (%s) RETURNING id", [name])
-        id = id[0]
+        # id = db.execute_and_fetch("INSERT INTO currencies (name) VALUES (%s) RETURNING id", [name])
+        id = db.execute_and_fetch("SELECT public.create_currency(%s)", [name])
+        # id = id[0]
         return cls(db, name = name, id = id)
 
     def rates(self, other):
diff --git a/brmbar3/schema/0006-new-currency.sql b/brmbar3/schema/0006-new-currency.sql
new file mode 100644
index 0000000..0ed9a94
--- /dev/null
+++ b/brmbar3/schema/0006-new-currency.sql
@@ -0,0 +1,50 @@
+--
+-- 0006-new-currency.sql
+--
+-- #6 - stored procedure for creating new currency
+--
+-- ISC License
+--
+-- Copyright 2023-2025 Brmlab, z.s.
+-- Dominik Pantůček <dominik.pantucek@trustica.cz>
+--
+-- Permission to use, copy, modify, and/or distribute this software
+-- for any purpose with or without fee is hereby granted, provided
+-- that the above copyright notice and this permission notice appear
+-- in all copies.
+-- 
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+-- WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+-- WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
+-- AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+-- CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
+-- OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
+-- NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
+-- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+--
+
+-- Require fully-qualified names
+SELECT pg_catalog.set_config('search_path', '', false);
+
+DO $upgrade_block$
+BEGIN
+
+IF brmbar_privileged.has_exact_schema_version(5) THEN
+
+  CREATE OR REPLACE FUNCTION public.create_currency(
+    IN i_name public.currencies.name%TYPE
+  ) RETURNS INTEGER LANGUAGE plpgsql AS $$
+  DECLARE
+    r_id INTEGER;
+  BEGIN
+    INSERT INTO public.currencies (name)
+      VALUES (i_name) RETURNING id INTO r_id;
+    RETURN r_id;
+  END
+  $$;
+  
+  PERFORM brmbar_privileged.upgrade_schema_version_to(6);
+END IF;
+
+END;
+$upgrade_block$;