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 # ---------------------------------------------------
182 my $dbh = C4::Context->dbh;
185 ## liste des domaines
187 my $sth=$dbh->prepare("
188 SELECT bookfundgroupnumber,bookfundgroupname
189 FROM `aq2bookfundgroups`
190 ORDER BY Bookfundgroupname
194 my @bookfundgroup_loop; ## liste des domaines
196 while (my $row=$sth->fetchrow_hashref) {
197 push @bookfundgroup_loop,$row;
202 ## liste des BFG ayant des suggestions à traiter
205 ## nowsuggestions = Number Of Waiting Suggestions
207 my $dbh = C4::Context->dbh;
209 my $sth=$dbh->prepare("
210 SELECT bookfundgroupnumber, count(*) AS nowsuggestions
214 GROUP BY bookfundgroupnumber
218 my @nowsuggestionsneq0_loop; ## liste des BFG ayant des suggestions à traiter
220 while (my $row=$sth->fetchrow_hashref) {
221 push @nowsuggestionsneq0_loop,$row;
226 ## liste des BFG avec l'effectif des suggestions à traiter (effectif éventuellement nul)
228 my @nowsuggestions_loop;
230 foreach my $data1 (@bookfundgroup_loop) {
231 $data1->{'nowsuggestions'}=0;
232 foreach my $data2 (@nowsuggestionsneq0_loop) {
233 if ($data1->{'bookfundgroupnumber'}==$data2->{'bookfundgroupnumber'}) {
234 $data1->{'nowsuggestions'}=$data2->{'nowsuggestions'};
243 classlist => $classlist,
245 loop_budget => \@loop_budget,
246 loop_currency => \@loop_currency,
247 active_symbol => $active_currency->{'symbol'},
248 branchname => $branchname,
249 budget => $period->{budget_name},
250 total => $num->format_price( $total ),
251 totspent => $num->format_price($totspent ),
252 totcomtd => $num->format_price( $totcomtd ),
253 totavail => $num->format_price( $totavail ),
255 # nowsuggestions_loop => \@nowsuggestions_loop,
256 # bookfundgroup_loop => \@bookfundgroup_loop,
257 # numberofwaitingsuggestionsgpd => $numberofwaitingsuggestionsgpd,
258 # numberofwaitingsuggestionspd => $numberofwaitingsuggestionspd,
259 # suggestions_loop => $suggestions_loop,
263 output_html_with_http_headers $query, $cookie, $template->output;