@@ -, +, @@ useful --- acqui/acqui-home.pl | 43 ++++---------------- acqui/addorderiso2709.pl | 3 +- admin/aqbudgetperiods.pl | 24 +---------- admin/aqbudgets.pl | 20 ++------- admin/aqplan.pl | 22 ---------- .../prog/en/modules/acqui/acqui-home.tt | 25 ++++++------ .../prog/en/modules/admin/aqbudgetperiods.tt | 5 ++- .../prog/en/modules/admin/aqbudgets.tt | 39 +++++++++--------- .../intranet-tmpl/prog/en/modules/admin/aqplan.tt | 5 ++- 9 files changed, 53 insertions(+), 133 deletions(-) --- a/acqui/acqui-home.pl +++ a/acqui/acqui-home.pl @@ -54,27 +54,6 @@ my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( my $user = GetMember( 'borrowernumber' => $loggedinuser ); my $branchname = GetBranchName($user->{branchcode}); - -my $num_formatter; - -my $cur_format = C4::Context->preference("CurrencyFormat"); -if ( $cur_format eq 'FR' ) { - $num_formatter = Number::Format->new( - 'decimal_fill' => '2', - 'decimal_point' => ',', - 'int_curr_symbol' => '', - 'mon_thousands_sep' => ' ', - 'thousands_sep' => ' ', - 'mon_decimal_point' => ',' - ); -} else { # US by default.. - $num_formatter = Number::Format->new( - 'int_curr_symbol' => '', - 'mon_thousands_sep' => ',', - 'mon_decimal_point' => '.' - ); -} - my $status = $query->param('status') || "ASKED"; my $suggestions_count = CountSuggestion($status); @@ -134,10 +113,6 @@ foreach my $budget ( @{$budget_arr} ) { $totavail_active += $budget->{'budget_avail'}; } - for my $field (qw( budget_amount budget_spent budget_ordered budget_avail ) ) { - $budget->{"formatted_$field"} = $num_formatter->format_price( $budget->{$field} ); - } - push @budget_loop, $budget; } @@ -145,15 +120,15 @@ $template->param( type => 'intranet', loop_budget => \@budget_loop, branchname => $branchname, - total => $num_formatter->format_price($total), - totspent => $num_formatter->format_price($totspent), - totordered => $num_formatter->format_price($totordered), - totcomtd => $num_formatter->format_price($totcomtd), - totavail => $num_formatter->format_price($totavail), - total_active => $num_formatter->format_price($total_active), - totspent_active => $num_formatter->format_price($totspent_active), - totordered_active => $num_formatter->format_price($totordered_active), - totavail_active => $num_formatter->format_price($totavail_active), + total => $total, + totspent => $totspent, + totordered => $totordered, + totcomtd => $totcomtd, + totavail => $totavail, + total_active => $total_active, + totspent_active => $totspent_active, + totordered_active => $totordered_active, + totavail_active => $totavail_active, suggestions_count => $suggestions_count, ); --- a/acqui/addorderiso2709.pl +++ a/acqui/addorderiso2709.pl @@ -141,7 +141,6 @@ if ($op eq ""){ # 3rd step = import the records # } elsif ( $op eq 'import_records' ) { - my $num=FormatNumber(); #import selected lines $template->param('basketno' => $cgiparams->{'basketno'}); # Budget_id is mandatory for adding an order, we just add a default, the user needs to modify this aftewards @@ -227,7 +226,7 @@ if ($op eq ""){ # in France, the cents separator is the , but sometimes, ppl use a . # in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation $price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR"; - $price = $num->unformat_number($price); + $price = Koha::Number::Price->new($price)->unformat; $orderinfo{gstrate} = $bookseller->{gstrate}; my $c = $c_discount ? $c_discount : $bookseller->{discount} / 100; if ( $bookseller->{listincgst} ) { --- a/admin/aqbudgetperiods.pl +++ a/admin/aqbudgetperiods.pl @@ -91,30 +91,11 @@ my ($template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user( ); +# This is used in incbudgets-active-currency.inc my $cur = GetCurrency(); $template->param( symbol => $cur->{symbol}, currency => $cur->{currency} ); -my $cur_format = C4::Context->preference("CurrencyFormat"); -my $num; - -if ( $cur_format eq 'US' ) { - $num = new Number::Format( - 'int_curr_symbol' => '', - 'mon_thousands_sep' => ',', - 'mon_decimal_point' => '.' - ); -} elsif ( $cur_format eq 'FR' ) { - $num = new Number::Format( - 'decimal_fill' => '2', - 'decimal_point' => ',', - 'int_curr_symbol' => '', - 'mon_thousands_sep' => ' ', - 'thousands_sep' => ' ', - 'mon_decimal_point' => ',' - ); -} - # ADD OR MODIFY A BUDGET PERIOD - BUILD SCREEN if ( $op eq 'add_form' ) { @@ -161,7 +142,6 @@ elsif ( $op eq 'delete_confirm' ) { my $total = 0; my $data = GetBudgetPeriod( $budget_period_id); - $$data{'budget_period_total'}=$num->format_price( $data->{'budget_period_total'}); $template->param( %$data ); @@ -291,7 +271,6 @@ my @period_active_loop; foreach my $result ( @{$results}[ $first .. $last ] ) { my $budgetperiod = $result; - $budgetperiod->{'budget_period_total'} = $num->format_price( $budgetperiod->{'budget_period_total'} ); $budgetperiod->{budget_active} = 1; push( @period_active_loop, $budgetperiod ); } @@ -310,7 +289,6 @@ $last = min( $first + $inactivepagesize - 1, scalar @{$results} - 1, ); my @period_inactive_loop; foreach my $result ( @{$results}[ $first .. $last ] ) { my $budgetperiod = $result; - $budgetperiod->{'budget_period_total'} = $num->format_price( $budgetperiod->{'budget_period_total'} ); $budgetperiod->{budget_active} = 1; push( @period_inactive_loop, $budgetperiod ); } --- a/admin/aqbudgets.pl +++ a/admin/aqbudgets.pl @@ -67,7 +67,6 @@ if (not defined $template->{VARS}->{'CAN_user_acquisition_budget_add_del'} { $op = 'list'; } -my $num=FormatNumber; # get only the columns of aqbudgets in budget_hash my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns; @@ -229,7 +228,7 @@ if ($op eq 'add_form') { budget_id => $budget->{'budget_id'}, budget_code => $budget->{'budget_code'}, budget_name => $budget->{'budget_name'}, - budget_amount => $num->format_price( $budget->{'budget_amount'} ), + budget_amount => $budget->{'budget_amount'}, ); # END $OP eq DELETE_CONFIRM # called by delete_confirm, used to effectively confirm deletion of data in DB @@ -308,18 +307,9 @@ if ( $op eq 'list' ) { if (!defined $budget->{'budget_unalloc_sublevel'} or $budget->{'budget_unalloc_sublevel'} == 0); - for (grep {/total_spent|budget_spent|total_ordered|budget_ordered|budget_amount/} keys %$budget){ - $budget->{$_} = $num->format_price( $budget->{$_} ) if defined($budget->{$_}) - } - for (qw/budget_remaining total_remaining/) { - if (defined $budget->{$_}) { - $budget->{$_.'_display'} = $num->format_price($budget->{$_}); - } - } - # Value of budget_spent equals 0 instead of undefined value - $budget->{"budget_spent"} = $num->format_price(0) unless defined($budget->{"budget_spent"}); - $budget->{budget_ordered} = $num->format_price(0) unless defined($budget->{"budget_ordered"}); + $budget->{budget_spent} = 0 unless defined($budget->{budget_spent}); + $budget->{budget_ordered} = 0 unless defined($budget->{budget_ordered}); my $borrower = &GetMember( borrowernumber=>$budget->{budget_owner_id} ); $budget->{"budget_owner_name"} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'}; @@ -343,10 +333,6 @@ if ( $op eq 'list' ) { my $budget_period_total = $period->{budget_period_total}; - foreach ($budget_period_total, $period_alloc_total, $spent_total, $ordered_total, $available_total) { - $_ = $num->format_price($_); - } - my $periods = GetBudgetPeriods(); $template->param( --- a/admin/aqplan.pl +++ a/admin/aqplan.pl @@ -101,26 +101,6 @@ my $show_mine = $input->param('show_mine') ; my @hide_cols = $input->param('hide_cols'); -my $cur_format = C4::Context->preference("CurrencyFormat"); -my $num; - -if ( $cur_format eq 'FR' ) { - $num = new Number::Format( - 'decimal_fill' => '2', - 'decimal_point' => ',', - 'int_curr_symbol' => '', - 'mon_thousands_sep' => ' ', - 'thousands_sep' => ' ', - 'mon_decimal_point' => ',' - ); -} else { # US by default.. - $num = new Number::Format( - 'int_curr_symbol' => '', - 'mon_thousands_sep' => ',', - 'mon_decimal_point' => '.' - ); -} - if ( $budget_period_locked == 1 && not defined $show_actual ) { $show_actual = 1; } @@ -395,7 +375,6 @@ foreach my $budget (@budgets) { %budget_line = ( lines => \@cells_line, budget_name_indent => $budget->{budget_name_indent}, - budget_amount_formatted => $num->format_price( $budget->{budget_amount} ), budget_amount => $budget->{budget_amount}, budget_alloc => $budget->{budget_alloc}, budget_act_remain => sprintf( "%.2f", $budget_act_remain ), @@ -433,7 +412,6 @@ $template->param( show_actual => $show_actual, show_percent => $show_percent, show_mine => $show_mine, - cur_format => $cur_format, CGIextChoice => $CGIextChoice, CGIsepChoice => $CGIsepChoice, --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/acqui-home.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/acqui-home.tt @@ -1,3 +1,4 @@ +[% USE Price %] [% INCLUDE 'doc-head-open.inc' %]
Fund amount: | -[% budget_amount %] | +[% budget_amount | $Price %] |
---|