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

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2181 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-04-12 21:53:07 +00:00
parent f9cae07bb8
commit 45c1b019c9
2 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/EuroUtils.c
View File

@ -35,26 +35,37 @@ gnc_euro_rate_struct;
/* This array MUST be sorted ! */
static gnc_euro_rate_struct _gnc_euro_rate_[] =
{
{ "ATS", 13.7603 }, /* austrian schilling */
{ "BEF", 40.3399 }, /* belgian franc */
{ "BFR", 40.3399 }, /* belgian franc */
{ "DEM", 1.95583 }, /* german mark */
{ "DM", 1.95583 }, /* german mark */
{ "ESC", 200.482 }, /* portugese escudo */
{ "ESP", 166.386 }, /* spanish peseta */
{ "EUR", 1.00000 }, /* euro */
{ "EURO", 1.00000 }, /* euro */
{ "FF", 6.55957 }, /* french franc */
{ "FIM", 5.94573 }, /* finnmark */
{ "FMK", 5.94573 }, /* finnmark */
{ "FRF", 6.55957 }, /* french franc */
{ "HFL", 2.20371 }, /* netherland gulden */
{ "IEP", .787564 }, /* irish pound */
{ "IRP", .787564 }, /* irish pound */
{ "ITL", 1936.27 }, /* italian lira */
{ "LFR", 40.3399 }, /* luxembourg franc */
{ "LIT", 1936.27 }, /* italian lira */
{ "LUF", 40.3399 }, /* luxembourg franc */
{ "NLG", 2.20371 }, /* netherland gulden */
{ "PTA", 166.386 }, /* spanish peseta */
{ "S", 13.7603 } /* austrian schilling */
{ "PTE", 200.482 }, /* portugese escudo */
{ "S", 13.7603 }, /* austrian schilling */
{ "SCH", 13.7603 } /* austrian schilling */
};
static int _gnc_euro_rate_compare_(const void *euro_rate_struct1, const void *euro_rate_struct2)
{
return (strcmp(((const gnc_euro_rate_struct *)euro_rate_struct1)->currency,
((const gnc_euro_rate_struct *)euro_rate_struct2)->currency));
return (strcasecmp(((const gnc_euro_rate_struct *)euro_rate_struct1)->currency,
((const gnc_euro_rate_struct *)euro_rate_struct2)->currency));
}
/* ------------------------------------------------------ */

4
src/scm/prefs.scm
View File

@ -134,7 +134,9 @@ the account instead of opening a register." #f))
(gnc:register-configuration-option
(gnc:make-simple-boolean-option
"International" "Enable EURO support"
"d" "Enables support for the European Union EURO currency" #f))
"d" "Enables support for the European Union EURO currency"
(gnc:is-euro-currency
(gnc:locale-default-currency))))
;; Register options