|
Lines 105-110
sub _format_params {
Link Here
|
| 105 |
); |
105 |
); |
| 106 |
} |
106 |
} |
| 107 |
|
107 |
|
|
|
108 |
if ( $currency_format eq 'CH' ) { |
| 109 |
$int_curr_symbol = $currency->symbol if $with_symbol; |
| 110 |
%format_params = ( |
| 111 |
decimal_fill => '2', |
| 112 |
decimal_point => '.', |
| 113 |
int_curr_symbol => $int_curr_symbol, |
| 114 |
mon_thousands_sep => '\'', |
| 115 |
thousands_sep => '\'', |
| 116 |
mon_decimal_point => '.' |
| 117 |
); |
| 118 |
} |
| 119 |
|
| 120 |
|
| 108 |
$format_params{p_cs_precedes} = $p_cs_precedes if defined $p_cs_precedes; |
121 |
$format_params{p_cs_precedes} = $p_cs_precedes if defined $p_cs_precedes; |
| 109 |
$format_params{p_sep_by_space} = ( $int_curr_symbol and defined $p_sep_by_space ) ? $p_sep_by_space : 0; |
122 |
$format_params{p_sep_by_space} = ( $int_curr_symbol and defined $p_sep_by_space ) ? $p_sep_by_space : 0; |
| 110 |
|
123 |
|