|
Lines 53-59
BEGIN {
Link Here
|
| 53 |
setlanguagecookie getlanguagecookie pagination_bar parametrized_url |
53 |
setlanguagecookie getlanguagecookie pagination_bar parametrized_url |
| 54 |
); |
54 |
); |
| 55 |
push @EXPORT, qw( |
55 |
push @EXPORT, qw( |
| 56 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers FormatData FormatNumber |
56 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers FormatData |
| 57 |
); |
57 |
); |
| 58 |
|
58 |
|
| 59 |
} |
59 |
} |
|
Lines 67-98
C4::Output - Functions for managing output, is slowly being deprecated
Link Here
|
| 67 |
=over 2 |
67 |
=over 2 |
| 68 |
=cut |
68 |
=cut |
| 69 |
|
69 |
|
| 70 |
=item FormatNumber |
|
|
| 71 |
=cut |
| 72 |
sub FormatNumber{ |
| 73 |
my $cur = GetCurrency; |
| 74 |
my $cur_format = C4::Context->preference("CurrencyFormat"); |
| 75 |
my $num; |
| 76 |
|
| 77 |
if ( $cur_format eq 'FR' ) { |
| 78 |
$num = new Number::Format( |
| 79 |
'decimal_fill' => '2', |
| 80 |
'decimal_point' => ',', |
| 81 |
'int_curr_symbol' => $cur->{symbol}, |
| 82 |
'mon_thousands_sep' => ' ', |
| 83 |
'thousands_sep' => ' ', |
| 84 |
'mon_decimal_point' => ',' |
| 85 |
); |
| 86 |
} else { # US by default.. |
| 87 |
$num = new Number::Format( |
| 88 |
'int_curr_symbol' => '', |
| 89 |
'mon_thousands_sep' => ',', |
| 90 |
'mon_decimal_point' => '.' |
| 91 |
); |
| 92 |
} |
| 93 |
return $num; |
| 94 |
} |
| 95 |
|
| 96 |
=item FormatData |
70 |
=item FormatData |
| 97 |
|
71 |
|
| 98 |
FormatData($data_hashref) |
72 |
FormatData($data_hashref) |
| 99 |
- |
|
|