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