mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
* src/app-utils/global-options.[ch]: add gnc_default_report_currency()
* src/app-utils/gw-app-utils-spec.scm: wrap gnc_default_report_currency() * src/app-utils/prefs.scm: add "Default Report Currency" preference * src/report/report-system/options-utilities.scm: use new report currency preference to choose the "default" report currency. FIXES Bug #103160 git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7816 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
993a1a228e
commit
3d57ec5e53
@ -1,3 +1,12 @@
|
||||
2003-01-12 Derek Atkins <derek@ihtfp.com>
|
||||
|
||||
* src/app-utils/global-options.[ch]: add gnc_default_report_currency()
|
||||
* src/app-utils/gw-app-utils-spec.scm: wrap gnc_default_report_currency()
|
||||
* src/app-utils/prefs.scm: add "Default Report Currency" preference
|
||||
* src/report/report-system/options-utilities.scm: use new report currency
|
||||
preference to choose the "default" report currency.
|
||||
FIXES Bug #103160
|
||||
|
||||
2003-01-12 David Hampton <hampton@employees.org>
|
||||
|
||||
* src/register/register-gnome/gnucash-sheet.c
|
||||
|
@ -361,6 +361,19 @@ gnc_default_currency (void)
|
||||
return gnc_locale_default_currency ();
|
||||
}
|
||||
|
||||
gnc_commodity *
|
||||
gnc_default_report_currency (void)
|
||||
{
|
||||
gnc_commodity *currency;
|
||||
|
||||
currency = gnc_lookup_currency_option ("International",
|
||||
"Default Report Currency", NULL);
|
||||
if (currency)
|
||||
return currency;
|
||||
|
||||
return gnc_locale_default_currency ();
|
||||
}
|
||||
|
||||
|
||||
/********************************************************************\
|
||||
* gnc_set_option_default *
|
||||
|
@ -75,6 +75,7 @@ gnc_lookup_currency_option(const char *section,
|
||||
gnc_commodity *default_value);
|
||||
|
||||
gnc_commodity * gnc_default_currency (void);
|
||||
gnc_commodity * gnc_default_report_currency (void);
|
||||
|
||||
void gnc_set_option_default(const char *section, const char *name);
|
||||
|
||||
|
@ -172,7 +172,15 @@
|
||||
'(<gnc:commodity*> const)
|
||||
"gnc_default_currency"
|
||||
'()
|
||||
"Return the default currency set by the user.")
|
||||
"Return the new-account default currency set by the user.")
|
||||
|
||||
(gw:wrap-function
|
||||
ws
|
||||
'gnc:default-report-currency
|
||||
'(<gnc:commodity*> const)
|
||||
"gnc_default_report_currency"
|
||||
'()
|
||||
"Return the default report currency set by the user.")
|
||||
|
||||
(gw:wrap-function
|
||||
ws
|
||||
|
@ -161,7 +161,13 @@
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-currency-option
|
||||
(N_ "International") (N_ "New Account Default Currency")
|
||||
"b" (N_ "Default currency for new accounts")
|
||||
"b1" (N_ "Default currency for new accounts")
|
||||
(gnc:locale-default-iso-currency-code)))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-currency-option
|
||||
(N_ "International") (N_ "Default Report Currency")
|
||||
"b2" (N_ "Default currency for reports")
|
||||
(gnc:locale-default-iso-currency-code)))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
|
@ -198,7 +198,7 @@
|
||||
pagename name-report-currency
|
||||
sort-tag
|
||||
(N_ "Select the currency to display the values of this report in.")
|
||||
(gnc:locale-default-iso-currency-code))))
|
||||
(gnc:default-report-currency))))
|
||||
|
||||
;; These are common options for the selection of the report's
|
||||
;; currency/commodity.
|
||||
|
Loading…
Reference in New Issue
Block a user