From c8a14639e94e43d79b7ddd1f183b8b0dd0535aa7 Mon Sep 17 00:00:00 2001
From: David Mohl <git@d.sh>
Date: Fri, 13 Dec 2024 11:05:54 +0700
Subject: [PATCH] Add paging to fetch all available pages

---
 src/Main.hx | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/src/Main.hx b/src/Main.hx
index b056b95..63be3c7 100644
--- a/src/Main.hx
+++ b/src/Main.hx
@@ -329,13 +329,23 @@ class Main {
 
             return {
                 balance: account.current_balance,
-                securities: Table.fromArray(positions),
-            }
-        } else {
-            var transactions = Moneytree.getTransactions(accessToken, Std.string(account.id), sinceStr, 1, 500);
-
-            trace("transactions");
-            trace(transactions);
+				securities: Table.fromArray(positions),
+			}
+		} else {
+			var page = 1;
+			var transactions:Array<Dynamic> = [];
+			while (true) {
+				trace("Fetching page: " + page);
+				var txs = Moneytree.getTransactions(accessToken, Std.string(account.id), sinceStr, page, 500);
+				if (txs.length == 0) {
+					break;
+				}
+				transactions = transactions.concat(txs);
+				page++;
+			}
+
+			trace("transactions");
+			trace(transactions);
 
             for (transaction in transactions) {
                 var convertedTransaction:Transaction = {