View | Details | Raw Unified | Return to bug 12844
Collapse All | Expand All

(-)a/C4/Output.pm (-28 / +1 lines)
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
- 

Return to bug 12844