From 3e08d19975e880b728e37a7c5e8be079fb4cccf0 Mon Sep 17 00:00:00 2001
From: alfred-mk <alfredmwaik@gmail.com>
Date: Sat, 7 Jun 2025 04:35:37 +0300
Subject: [PATCH] add the select_pool node that shows the current default pool

---
 services/registration/select_pool     |  3 +++
 services/registration/select_pool.vis | 19 +++++++++++++++++++
 services/registration/select_pool_swa |  3 +++
 3 files changed, 25 insertions(+)
 create mode 100644 services/registration/select_pool
 create mode 100644 services/registration/select_pool.vis
 create mode 100644 services/registration/select_pool_swa

diff --git a/services/registration/select_pool b/services/registration/select_pool
new file mode 100644
index 0000000..4daad6a
--- /dev/null
+++ b/services/registration/select_pool
@@ -0,0 +1,3 @@
+Enter number or symbol to set the default pool:
+Current: {{.get_default_pool}}
+{{.get_pools}}
\ No newline at end of file
diff --git a/services/registration/select_pool.vis b/services/registration/select_pool.vis
new file mode 100644
index 0000000..50715c6
--- /dev/null
+++ b/services/registration/select_pool.vis
@@ -0,0 +1,19 @@
+CATCH no_voucher flag_no_active_voucher 1
+LOAD get_pools 0
+MAP get_pools
+LOAD get_default_pool 20
+RELOAD get_default_pool
+MAP get_default_pool
+MOUT back 0
+MOUT quit 99
+MNEXT next 88
+MPREV prev 98
+HALT
+INCMP > 88
+INCMP < 98
+INCMP _ 0
+INCMP quit 99
+LOAD view_pool 80
+RELOAD view_pool
+CATCH . flag_incorrect_pool 1
+INCMP view_pool *
diff --git a/services/registration/select_pool_swa b/services/registration/select_pool_swa
new file mode 100644
index 0000000..5efcc91
--- /dev/null
+++ b/services/registration/select_pool_swa
@@ -0,0 +1,3 @@
+Chagua nambari au ishara kuweka bwawa la sarafu:
+La sasa: {{.get_default_pool}}
+{{.get_pools}}
\ No newline at end of file