IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-09-03 20:53:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

Bug#471485: Fix SWIGification string issues.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16484 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming
2007-09-02 19:40:55 +00:00
parent 8f47d3a3c4
commit 95cba14bd9
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/report/locale-specific/us/taxtxf-de_DE.scm
+3 -3
View File
@@ -197,7 +197,7 @@
(define (gnc:account-get-txf-code account)
(let ((code (xaccAccountGetTaxUSCode account)))
(string->symbol (if code code "N000"))))
(string->symbol (if (string-null? code) "N000" code))))
(define (gnc:get-txf-format code income?)
(gnc:txf-get-format (if income?
@@ -207,7 +207,7 @@
(define (gnc:account-get-txf-payer-source account)
(let ((pns (xaccAccountGetTaxUSPayerNameSource account)))
(string->symbol (if pns pns "keine"))))
(string->symbol (if (string-null? pns) "keine" pns))))
;; check for duplicate txf codes
(define (txf-check-dups account)
@@ -318,7 +318,7 @@
(gnc-account-get-parent account)
account))
(name (xaccAccountGetName named-acct)))
(if name
(if (not (string-null? name))
name
(begin
(display
src/report/locale-specific/us/taxtxf.scm
+3 -3
View File
@@ -181,7 +181,7 @@
(define (gnc:account-get-txf-code account)
(let ((code (xaccAccountGetTaxUSCode account)))
(string->symbol (if code code "N000"))))
(string->symbol (if (string-null? code) "N000" code))))
(define (gnc:get-txf-format code income?)
(gnc:txf-get-format (if income?
@@ -191,7 +191,7 @@
(define (gnc:account-get-txf-payer-source account)
(let ((pns (xaccAccountGetTaxUSPayerNameSource account)))
(string->symbol (if pns pns "none"))))
(string->symbol (if (string-null? pns) "none" pns))))
;; check for duplicate txf codes
(define (txf-check-dups account)
@@ -293,7 +293,7 @@
(gnc-account-get-parent account)
account))
(name (xaccAccountGetName named-acct)))
(if name
(if (not (string-null? name))
name
(begin
(display