3 # Copyright 2008 - 2009 BibLibre SARL
4 # This file is part of Koha.
6 # Koha is free software; you can redistribute it and/or modify it under the
7 # terms of the GNU General Public License as published by the Free Software
8 # Foundation; either version 2 of the License, or (at your option) any later
11 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
12 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
13 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License along
16 # with Koha; if not, write to the Free Software Foundation, Inc.,
17 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
25 this script is the main page for acqui
43 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
44 { template_name
=> 'acqui/acqui-home.tmpl',
48 flagsrequired
=> { acquisition
=> '*' },
53 my $user = GetMember
( 'borrowernumber' => $loggedinuser );
54 my $branchname = GetBranchName
($user->{branchcode
});
59 my $cur_format = C4
::Context
->preference("CurrencyFormat");
60 if ( $cur_format eq 'FR' ) {
61 $num_formatter = Number
::Format
->new(
62 'decimal_fill' => '2',
63 'decimal_point' => ',',
64 'int_curr_symbol' => '',
65 'mon_thousands_sep' => ' ',
66 'thousands_sep' => ' ',
67 'mon_decimal_point' => ','
69 } else { # US by default..
70 $num_formatter = Number
::Format
->new(
71 'int_curr_symbol' => '',
72 'mon_thousands_sep' => ',',
73 'mon_decimal_point' => '.'
78 GetBudgetHierarchy
( '', $user->{branchcode
},
79 $template->{param_map
}->{'USER_INFO'}[0]->{'borrowernumber'} );
87 foreach my $budget ( @
{$budget_arr} ) {
89 $budget->{budget_code_indent
} =~ s/\ /\ \;/g;
91 $budget->{'budget_branchname'} =
92 GetBranchName
( $budget->{'budget_branchcode'} );
94 my $member = GetMember
( borrowernumber
=> $budget->{budget_owner_id
} );
96 $budget->{budget_owner
} =
97 $member->{'firstname'} . ' ' . $member->{'surname'};
100 if ( !defined $budget->{budget_amount
} ) {
101 $budget->{budget_amount
} = 0;
104 $budget->{'budget_ordered'} = GetBudgetOrdered
( $budget->{'budget_id'} );
105 $budget->{'budget_spent'} = GetBudgetSpent
( $budget->{'budget_id'} );
106 if ( !defined $budget->{budget_spent
} ) {
107 $budget->{budget_spent
} = 0;
109 if ( !defined $budget->{budget_ordered
} ) {
110 $budget->{budget_ordered
} = 0;
112 $budget->{'budget_avail'} =
113 $budget->{'budget_amount'} - ( $budget->{'budget_spent'} + $budget->{'budget_ordered'} );
115 $total += $budget->{'budget_amount'};
116 $totspent += $budget->{'budget_spent'};
117 $totordered += $budget->{'budget_ordered'};
118 $totavail += $budget->{'budget_avail'};
120 for my $field (qw( budget_amount budget_spent budget_ordered budget_avail ) ) {
121 $budget->{$field} = $num_formatter->format_price( $budget->{$field} );
128 loop_budget
=> $budget_arr,
129 branchname
=> $branchname,
130 total
=> $num_formatter->format_price($total),
131 totspent
=> $num_formatter->format_price($totspent),
132 totordered
=> $num_formatter->format_price($totordered),
133 totcomtd
=> $num_formatter->format_price($totcomtd),
134 totavail
=> $num_formatter->format_price($totavail),
137 output_html_with_http_headers
$query, $cookie, $template->output;