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 with
16 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
17 # Suite 330, Boston, MA 02111-1307 USA
27 this script is the main page for acqui/
28 It presents the budget's dashboard, another table about differents currency with
29 their rates and the pending suggestions.
36 C<$status> is the status a suggestion could has. Default value is 'ASKED'.
37 thus, it can be REJECTED, ACCEPTED, ORDERED, ASKED, AVAIBLE
57 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
59 template_name
=> "acqui/acqui-home.tmpl",
63 flagsrequired
=> { acquisition
=> "*" },
69 my $borrower= GetMember
('borrowernumber' => $loggedinuser);
70 my ( $flags, $homebranch )= ($borrower->{'flags'},$borrower->{'branchcode'});
72 my @results = GetBudgets
($homebranch);
73 my $count = scalar @results;
74 my $branchname = GetBranchName
($homebranch);
76 #my $count = scalar @results;
84 # ---------------------------------------------------
87 my @rates = GetCurrencies
();
88 $count = scalar @rates;
90 my $active_currency = GetCurrency
;
93 my $cur_format = C4
::Context
->preference("CurrencyFormat");
94 if ( $cur_format eq 'FR' ) {
95 $num = new Number
::Format
(
96 'decimal_fill' => '2',
97 'decimal_point' => ',',
98 'int_curr_symbol' => '',
99 'mon_thousands_sep' => ' ',
100 'thousands_sep' => ' ',
101 'mon_decimal_point' => ','
103 } else { # US by default..
104 $num = new Number
::Format
(
105 'int_curr_symbol' => '',
106 'mon_thousands_sep' => ',',
107 'mon_decimal_point' => '.'
111 my @loop_currency = ();
112 for ( my $i = 0 ; $i < $count ; $i++ ) {
114 $line{currency
} = $rates[$i]->{'currency'} ;
115 $line{currency_symbol
} = $rates[$i]->{'symbol'};
116 $line{rate
} = sprintf ( '%.2f', $rates[$i]->{'rate'} );
117 push @loop_currency, \
%line;
121 my $status = $query->param('status') || "ASKED";
122 my $suggestion = CountSuggestion
($status);
123 my $suggestions_loop = &SearchSuggestion
( {STATUS
=> $status} );
124 # ---------------------------------------------------
126 my $period = GetBudgetPeriod
;
127 my $budget_period_id = $period->{budget_period_id
};
128 my $budget_branchcode = $period->{budget_branchcode
};
129 my $moo = GetBudgetHierarchy
('',$homebranch, $template->{param_map
}->{'USER_INFO'}[0]->{'borrowernumber'} );
131 my $period_total = 0;
135 foreach my $result (@results) {
136 # only get top-level budgets for display
137 # warn $result->{'budget_branchcode'};
139 $period_total += $result->{'budget_amount'};
141 my $a = $result->{'budget_code_indent'};
142 $a =~ s/\ /\ \;/g;
143 $result->{'budget_code_indent'} = $a;
145 my $r = GetBranchName
( $result->{'budget_owner_id'} );
146 $result->{'budget_branchname'} = GetBranchName
( $result->{'budget_branchcode'} );
148 my $member = GetMember
( $result->{'budget_owner_id'} );
149 my $member_full = $member->{'firstname'} . ' ' . $member->{'surname'};
151 $result->{'budget_owner'} = $member_full;
152 $result->{'budget_avail'} = $result->{'budget_amount'} - $result->{'budget_spent'};
153 $result->{'budget_spent'} = GetBudgetSpent
( $result->{'budget_id'} );
155 $total += $result->{'budget_amount'};
156 $totspent += $result->{'budget_spent'};
157 $totavail += $result->{'budget_avail'};
159 $result->{'budget_amount'} = $num->format_price( $result->{'budget_amount'} );
160 $result->{'budget_spent'} = $num->format_price( $result->{'budget_spent'} );
161 $result->{'budget_avail'} = $num->format_price( $result->{'budget_avail'} );
163 # my $spent_percent = ( $result->{'budget_spent'} / $result->{'budget_amount'} ) * 100;
164 # $result->{'budget_spent_percent'} = sprintf( "%00d", $spent_percent );
166 my $borrower = &GetMember
( $result->{budget_owner_id
} );
167 $result->{budget_owner_name
} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'};
169 push( @loop_budget, { %{$result}, toggle
=> $toggle++ % 2, } );
173 classlist
=> $classlist,
175 loop_budget
=> \
@loop_budget,
176 loop_currency
=> \
@loop_currency,
177 active_symbol
=> $active_currency->{'symbol'},
178 branchname
=> $branchname,
179 budget
=> $period->{budget_name
},
180 total
=> $num->format_price( $total ),
181 totspent
=> $num->format_price($totspent ),
182 totcomtd
=> $num->format_price( $totcomtd ),
183 totavail
=> $num->format_price( $totavail ),
184 suggestion
=> $suggestion,
187 output_html_with_http_headers
$query, $cookie, $template->output;