IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

2001-05-25 Dave Peticolas <dave@krondo.com>

Browse Source 
* src/scm/report/transaction-report.scm: default to sign-reverse
	credit accounts. fix i18n bug.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4286 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-05-26 06:23:34 +00:00
parent a93237c207
commit cd5cf764a6
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -1,5 +1,8 @@
2001-05-25 Dave Peticolas <dave@krondo.com> 2001-05-25 Dave Peticolas <dave@krondo.com>
* src/scm/report/transaction-report.scm: default to sign-reverse
credit accounts. fix i18n bug.
* src/doc/design/engine.texinfo: update docs * src/doc/design/engine.texinfo: update docs
* configure.in: add Norwegian to list of translations * configure.in: add Norwegian to list of translations

6
src/scm/report/transaction-report.scm
View File

@ -613,7 +613,7 @@
(gnc:make-multichoice-option (gnc:make-multichoice-option
gnc:pagename-display (N_ "Sign Reverses?") gnc:pagename-display (N_ "Sign Reverses?")
"m" "Reverse amount display for certain account types" "m" "Reverse amount display for certain account types"
'income-expense 'credit-accounts
(list (list
(vector 'none (N_ "None") (N_ "Don't change any displayed amounts")) (vector 'none (N_ "None") (N_ "Don't change any displayed amounts"))
(vector 'income-expense (N_ "Income and Expense") (vector 'income-expense (N_ "Income and Expense")
@ -623,18 +623,16 @@
and Income accounts"))))) and Income accounts")))))
(gnc:options-set-default-section gnc:*transaction-report-options* (gnc:options-set-default-section gnc:*transaction-report-options*
gnc:pagename-general) gnc:pagename-general)
gnc:*transaction-report-options*) gnc:*transaction-report-options*)
(define (display-date-interval begin end) (define (display-date-interval begin end)
(let ((begin-string (strftime "%x" (localtime (car begin)))) (let ((begin-string (strftime "%x" (localtime (car begin))))
(end-string (strftime "%x" (localtime (car end))))) (end-string (strftime "%x" (localtime (car end)))))
(string-append (_ "From") " " begin-string (_"To") " " end-string))) (sprintf #f (_ "From %s To %s") begin-string end-string)))
(define (get-primary-subtotal-style options) (define (get-primary-subtotal-style options)
(let ((bgcolor (gnc:lookup-option options (let ((bgcolor (gnc:lookup-option options