Null-value protection for GUID and account values.

5 years ago · c06924622c
parent 53fac914c0
commit c06924622c
1 changed files with 4 additions and 2 deletions
--- 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)))