From d19d72b9c0b0db63c869eb5f4459bd9781561bd5 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 1 Sep 2020 01:57:39 +0200
Subject: [PATCH] InsuranceContract: For multi-block contracts, correctly use
the main block's ID.
---
R/InsuranceContract.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/InsuranceContract.R b/R/InsuranceContract.R
index 21b3bf7..c748c20 100644
--- a/R/InsuranceContract.R
+++ b/R/InsuranceContract.R
@@ -381,7 +381,7 @@ InsuranceContract = R6Class(
if (length(self$blocks) == 0) {
main = self$clone()
main$parent = self
- self$blocks[["main"]] = main
+ self$blocks[[main$Parameters$ContractData$id]] = main
self$Parameters$ContractData$id = "Gesamt"
}
--
GitLab