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
44 my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
45 { template_name => 'acqui/acqui-home.tt',
49 flagsrequired => { acquisition => '*' },
54 my $user = GetMember( 'borrowernumber' => $loggedinuser );
55 my $branchname = GetBranchName($user->{branchcode});
57 my $status = $query->param('status') || "ASKED";
58 my $suggestions_count = CountSuggestion($status);
60 my $budget_arr = GetBudgetHierarchy;
69 my $totspent_active = 0;
70 my $totordered_active = 0;
71 my $totavail_active = 0;
74 foreach my $budget ( @{$budget_arr} ) {
75 next unless (CanUserUseBudget($loggedinuser, $budget, $userflags));
77 $budget->{'budget_branchname'} =
78 GetBranchName( $budget->{'budget_branchcode'} );
80 my $member = GetMember( borrowernumber => $budget->{budget_owner_id} );
82 $budget->{budget_owner_firstname} = $member->{'firstname'};
83 $budget->{budget_owner_surname} = $member->{'surname'};
84 $budget->{budget_owner_borrowernumber} = $member->{'borrowernumber'};
87 if ( !defined $budget->{budget_amount} ) {
88 $budget->{budget_amount} = 0;
91 $budget->{'budget_ordered'} = GetBudgetOrdered( $budget->{'budget_id'} );
92 $budget->{'budget_spent'} = GetBudgetSpent( $budget->{'budget_id'} );
93 if ( !defined $budget->{budget_spent} ) {
94 $budget->{budget_spent} = 0;
96 if ( !defined $budget->{budget_ordered} ) {
97 $budget->{budget_ordered} = 0;
99 $budget->{'budget_avail'} =
100 $budget->{'budget_amount'} - ( $budget->{'budget_spent'} + $budget->{'budget_ordered'} );
102 $total += $budget->{'budget_amount'};
103 $totspent += $budget->{'budget_spent'};
104 $totordered += $budget->{'budget_ordered'};
105 $totavail += $budget->{'budget_avail'};
107 if ($budget->{budget_period_active}){
108 $total_active += $budget->{'budget_amount'};
109 $totspent_active += $budget->{'budget_spent'};
110 $totordered_active += $budget->{'budget_ordered'};
111 $totavail_active += $budget->{'budget_avail'};
114 push @budget_loop, $budget;
119 loop_budget => \@budget_loop,
120 branchname => $branchname,
122 totspent => $totspent,
123 totordered => $totordered,
124 totcomtd => $totcomtd,
125 totavail => $totavail,
126 total_active => $total_active,
127 totspent_active => $totspent_active,
128 totordered_active => $totordered_active,
129 totavail_active => $totavail_active,
130 suggestions_count => $suggestions_count,
133 output_html_with_http_headers $query, $cookie, $template->output;