|
Lines 89-95
sub _format_params {
Link Here
|
| 89 |
my $currency = Koha::Acquisition::Currencies->get_active; |
89 |
my $currency = Koha::Acquisition::Currencies->get_active; |
| 90 |
my $currency_format = C4::Context->preference("CurrencyFormat"); |
90 |
my $currency_format = C4::Context->preference("CurrencyFormat"); |
| 91 |
|
91 |
|
| 92 |
my $int_curr_symbol = $with_symbol ? $currency->symbol : q||; |
92 |
my $int_curr_symbol = ( $with_symbol and $currency ) ? $currency->symbol : q||; |
| 93 |
my %format_params = ( |
93 |
my %format_params = ( |
| 94 |
decimal_fill => '2', |
94 |
decimal_fill => '2', |
| 95 |
decimal_point => '.', |
95 |
decimal_point => '.', |
|
Lines 123-129
sub _format_params {
Link Here
|
| 123 |
|
123 |
|
| 124 |
|
124 |
|
| 125 |
$format_params{p_cs_precedes} = $p_cs_precedes if defined $p_cs_precedes; |
125 |
$format_params{p_cs_precedes} = $p_cs_precedes if defined $p_cs_precedes; |
| 126 |
$format_params{p_sep_by_space} = $currency->p_sep_by_space ? 1 : 0; |
126 |
$format_params{p_sep_by_space} = ( $currency and $currency->p_sep_by_space ) ? 1 : 0; |
| 127 |
|
127 |
|
| 128 |
return \%format_params; |
128 |
return \%format_params; |
| 129 |
} |
129 |
} |
| 130 |
- |
|
|