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 |
|