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-06-02 Dave Peticolas <dave@krondo.com>

Browse Source 
* src/scm/report/register.scm: fix bugs

	* src/scm/html-utilities.scm: fix bugs

	* src/gnome/window-register.c: fix bugs


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4378 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-06-03 00:24:38 +00:00
parent e078856530
commit 23572f7c06
4 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,5 +1,11 @@
2001-06-02 Dave Peticolas <dave@krondo.com>
* src/scm/report/register.scm: fix bugs
* src/scm/html-utilities.scm: fix bugs
* src/gnome/window-register.c: fix bugs
* src/scm/report/price-scatter.scm: same as below
* src/scm/prefs.scm: same as below

4
src/gnome/window-register.c
View File

@ -232,6 +232,8 @@ gnc_register_jump_to_split(RegWindow *regData, Split *split)
VirtualCellLocation vcell_loc;
SplitRegister *reg;
if (!regData) return;
trans = xaccSplitGetParent(split);
if (trans != NULL)
if (gnc_register_include_date(regData, xaccTransGetDate(trans)))
@ -261,6 +263,8 @@ gnc_register_jump_to_split_amount(RegWindow *regData, Split *split)
VirtualLocation virt_loc;
SplitRegister *reg;
if (!regData) return;
trans = xaccSplitGetParent(split);
if (trans != NULL)
if (gnc_register_include_date(regData, xaccTransGetDate(trans)))

16
src/scm/html-utilities.scm
View File

@ -79,14 +79,18 @@
;; returns the account name as html-text and anchor to the register.
(define (gnc:html-account-anchor acct)
(gnc:make-html-text (gnc:html-markup-anchor
(gnc:account-anchor-text acct)
(gnc:account-get-name acct))))
(gnc:make-html-text (if acct
(gnc:html-markup-anchor
(gnc:account-anchor-text acct)
(gnc:account-get-name acct))
"")))
(define (gnc:html-split-anchor split text)
(gnc:make-html-text (gnc:html-markup-anchor
(gnc:split-anchor-text split)
text)))
(gnc:make-html-text (if (gnc:split-get-account split)
(gnc:html-markup-anchor
(gnc:split-anchor-text split)
text)
text)))
(define (gnc:html-transaction-anchor trans text)
(gnc:make-html-text (gnc:html-markup-anchor

4
src/scm/report/register.scm
View File

@ -122,7 +122,9 @@
(let* ((row-contents '())
(parent (gnc:split-get-parent split))
(account (gnc:split-get-account split))
(currency (gnc:account-get-commodity account))
(currency (if account
(gnc:account-get-commodity account)
(gnc:default-currency)))
(damount (gnc:split-get-share-amount split))
(split-value (gnc:make-gnc-monetary currency damount)))