From c06924622ced87b4abfb38fb6f21f7e013db2f54 Mon Sep 17 00:00:00 2001 From: John Ralls Date: Tue, 17 Aug 2021 15:34:45 -0700 Subject: [PATCH] Null-value protection for GUID and account values. --- gnucash/report/html-utilities.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gnucash/report/html-utilities.scm b/gnucash/report/html-utilities.scm index 81abad44bf..bd185dac68 100644 --- a/gnucash/report/html-utilities.scm +++ b/gnucash/report/html-utilities.scm @@ -79,10 +79,12 @@ (list))) (define (gnc:register-guid type guid) - (gnc-build-url URL-TYPE-REGISTER (string-append type guid) "")) + (and guid (gnc-build-url URL-TYPE-REGISTER (string-append type guid) ""))) (define (gnc:account-anchor-text acct) - (gnc:register-guid "acct-guid=" (gncAccountGetGUID acct))) + (if acct + (gnc:register-guid "acct-guid=" (gncAccountGetGUID acct)) + (format #t "No Account!"))) (define (gnc:split-anchor-text split) (gnc:register-guid "split-guid=" (gncSplitGetGUID split)))