3 # Copyright 2000-2002 Katipo Communications
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 #use warnings; FIXME - Bug 2505
23 use C4
::Dates
qw(format_date format_date_in_iso);
24 use C4
::SQLHelper qw
<:all
>;
27 use vars
qw($VERSION @ISA @EXPORT);
30 # set the version for version checking
31 $VERSION = 3.07.00.049;
37 &GetBudgetByOrderNumber
73 &CheckBudgetParentPerm
80 # ----------------------------BUDGETS.PM-----------------------------";
83 =head1 FUNCTIONS ABOUT BUDGETS
88 my ( $authcat, @hide_cols ) = @_;
89 my $dbh = C4
::Context
->dbh;
91 my $sth1 = $dbh->prepare(
93 UPDATE aqbudgets_planning SET display
= 0
97 foreach my $authvalue (@hide_cols) {
98 # $sth1->{TraceLevel} = 3;
99 $sth1->execute( $authcat, $authvalue );
104 my ( $authcat, $authvalue ) = @_;
106 my $dbh = C4
::Context
->dbh;
107 my $sth = $dbh->prepare(
109 SELECT count
(display
) as cnt from aqbudgets_planning
111 AND authvalue
= ?
and display
= 0 |
114 # $sth->{TraceLevel} = 3;
115 $sth->execute( $authcat, $authvalue );
116 my $res = $sth->fetchrow_hashref;
118 return $res->{cnt
} > 0 ?
0: 1
122 sub CheckBudgetParentPerm
{
123 my ( $budget, $borrower_id ) = @_;
124 my $depth = $budget->{depth
};
125 my $parent_id = $budget->{budget_parent_id
};
127 my $parent = GetBudget
($parent_id);
128 $parent_id = $parent->{budget_parent_id
};
129 if ( $parent->{budget_owner_id
} == $borrower_id ) {
137 sub AddBudgetPeriod
{
138 my ($budgetperiod) = @_;
139 return InsertInTable
("aqbudgetperiods",$budgetperiod);
141 # -------------------------------------------------------------------
142 sub GetPeriodsCount
{
143 my $dbh = C4
::Context
->dbh;
144 my $sth = $dbh->prepare("
145 SELECT COUNT(*) AS sum FROM aqbudgetperiods ");
147 my $res = $sth->fetchrow_hashref;
148 return $res->{'sum'};
151 # -------------------------------------------------------------------
152 sub CheckBudgetParent
{
153 my ( $new_parent, $budget ) = @_;
154 my $new_parent_id = $new_parent->{'budget_id'};
155 my $budget_id = $budget->{'budget_id'};
156 my $dbh = C4
::Context
->dbh;
157 my $parent_id_tmp = $new_parent_id;
159 # check new-parent is not a child (or a child's child ;)
160 my $sth = $dbh->prepare(qq|
161 SELECT budget_parent_id FROM
162 aqbudgets where budget_id
= ?
| );
164 $sth->execute($parent_id_tmp);
165 my $res = $sth->fetchrow_hashref;
166 if ( $res->{'budget_parent_id'} == $budget_id ) {
169 if ( not defined $res->{'budget_parent_id'} ) {
172 $parent_id_tmp = $res->{'budget_parent_id'};
176 # -------------------------------------------------------------------
177 sub BudgetHasChildren
{
178 my ( $budget_id ) = @_;
179 my $dbh = C4
::Context
->dbh;
180 my $sth = $dbh->prepare(qq|
181 SELECT count
(*) as sum FROM aqbudgets
182 WHERE budget_parent_id
= ?
| );
183 $sth->execute( $budget_id );
184 my $sum = $sth->fetchrow_hashref;
185 return $sum->{'sum'};
188 # -------------------------------------------------------------------
189 sub GetBudgetsPlanCell
{
190 my ( $cell, $period, $budget ) = @_;
192 my $dbh = C4
::Context
->dbh;
193 if ( $cell->{'authcat'} eq 'MONTHS' ) {
194 # get the actual amount
195 $sth = $dbh->prepare( qq|
197 SELECT SUM
(ecost
) AS actual FROM aqorders
198 WHERE budget_id
= ? AND
199 entrydate like
"$cell->{'authvalue'}%" |
201 $sth->execute( $cell->{'budget_id'} );
202 } elsif ( $cell->{'authcat'} eq 'BRANCHES' ) {
203 # get the actual amount
204 $sth = $dbh->prepare( qq|
206 SELECT SUM
(ecost
) FROM aqorders
207 LEFT JOIN aqorders_items
208 ON
(aqorders
.ordernumber
= aqorders_items
.ordernumber
)
210 ON
(aqorders_items
.itemnumber
= items
.itemnumber
)
211 WHERE budget_id
= ? AND homebranch
= ?
| );
213 $sth->execute( $cell->{'budget_id'}, $cell->{'authvalue'} );
214 } elsif ( $cell->{'authcat'} eq 'ITEMTYPES' ) {
215 # get the actual amount
216 $sth = $dbh->prepare( qq|
218 SELECT SUM
( ecost
* quantity
) AS actual
219 FROM aqorders JOIN biblioitems
220 ON
(biblioitems
.biblionumber
= aqorders
.biblionumber
)
221 WHERE aqorders
.budget_id
= ?
and itemtype
= ?
|
223 $sth->execute( $cell->{'budget_id'},
224 $cell->{'authvalue'} );
226 # ELSE GENERIC ORDERS SORT1/SORT2 STAT COUNT.
228 # get the actual amount
229 $sth = $dbh->prepare( qq|
231 SELECT SUM
(ecost
* quantity
) AS actual
233 JOIN aqbudgets ON
(aqbudgets
.budget_id
= aqorders
.budget_id
)
234 WHERE aqorders
.budget_id
= ? AND
235 ((aqbudgets
.sort1_authcat
= ? AND sort1
=?
) OR
236 (aqbudgets
.sort2_authcat
= ? AND sort2
=?
)) |
238 $sth->execute( $cell->{'budget_id'},
239 $budget->{'sort1_authcat'},
240 $cell->{'authvalue'},
241 $budget->{'sort2_authcat'},
245 $actual = $sth->fetchrow_array;
247 # get the estimated amount
248 $sth = $dbh->prepare( qq|
250 SELECT estimated_amount AS estimated
, display FROM aqbudgets_planning
251 WHERE budget_period_id
= ? AND
256 $sth->execute( $cell->{'budget_period_id'},
257 $cell->{'budget_id'},
258 $cell->{'authvalue'},
263 my $res = $sth->fetchrow_hashref;
264 # my $display = $res->{'display'};
265 my $estimated = $res->{'estimated'};
268 return $actual, $estimated;
271 # -------------------------------------------------------------------
273 my ( $budget_plan, $budget_period_id, $authcat ) = @_;
274 my $dbh = C4
::Context
->dbh;
275 foreach my $buds (@
$budget_plan) {
276 my $lines = $buds->{lines
};
277 my $sth = $dbh->prepare( qq|
278 DELETE FROM aqbudgets_planning
279 WHERE budget_period_id
= ? AND
283 #delete a aqplan line of cells, then insert new cells,
284 # these could be UPDATES rather than DEL/INSERTS...
285 $sth->execute( $budget_period_id, $lines->[0]{budget_id
} , $authcat );
287 foreach my $cell (@
$lines) {
288 my $sth = $dbh->prepare( qq|
290 INSERT INTO aqbudgets_planning
292 budget_period_id
= ?
,
294 estimated_amount
= ?
,
298 $cell->{'budget_id'},
299 $cell->{'budget_period_id'},
301 $cell->{'estimated_amount'},
302 $cell->{'authvalue'},
308 # -------------------------------------------------------------------
310 my ($budget_id) = @_;
311 my $dbh = C4
::Context
->dbh;
312 my $sth = $dbh->prepare(qq|
313 SELECT SUM
( COALESCE
(unitprice
, ecost
) * quantity
) AS sum FROM aqorders
314 WHERE budget_id
= ? AND
315 quantityreceived
> 0 AND
316 datecancellationprinted IS NULL
318 $sth->execute($budget_id);
319 my $sum = $sth->fetchrow_array;
321 $sth = $dbh->prepare(qq|
322 SELECT SUM
(shipmentcost
) AS sum
324 WHERE shipmentcost_budgetid
= ?
325 AND closedate IS NOT NULL
327 $sth->execute($budget_id);
328 my ($shipmentcost_sum) = $sth->fetchrow_array;
329 $sum += $shipmentcost_sum;
334 # -------------------------------------------------------------------
335 sub GetBudgetOrdered
{
336 my ($budget_id) = @_;
337 my $dbh = C4
::Context
->dbh;
338 my $sth = $dbh->prepare(qq|
339 SELECT SUM
(ecost
* quantity
) AS sum FROM aqorders
340 WHERE budget_id
= ? AND
341 quantityreceived
= 0 AND
342 datecancellationprinted IS NULL
344 $sth->execute($budget_id);
345 my $sum = $sth->fetchrow_array;
347 $sth = $dbh->prepare(qq|
348 SELECT SUM
(shipmentcost
) AS sum
350 WHERE shipmentcost_budgetid
= ?
351 AND closedate IS NULL
353 $sth->execute($budget_id);
354 my ($shipmentcost_sum) = $sth->fetchrow_array;
355 $sum += $shipmentcost_sum;
362 my $budget_name = &GetBudgetName($budget_id);
364 get the budget_name for a given budget_id
369 my ( $budget_id ) = @_;
370 my $dbh = C4
::Context
->dbh;
371 my $sth = $dbh->prepare(
378 $sth->execute($budget_id);
379 return $sth->fetchrow_array;
382 # -------------------------------------------------------------------
383 sub GetBudgetAuthCats
{
384 my ($budget_period_id) = shift;
385 # now, populate the auth_cats_loop used in the budget planning button
386 # we must retrieve all auth values used by at least one budget
387 my $dbh = C4
::Context
->dbh;
388 my $sth=$dbh->prepare("SELECT sort1_authcat,sort2_authcat FROM aqbudgets WHERE budget_period_id=?");
389 $sth->execute($budget_period_id);
391 while (my ($sort1_authcat,$sort2_authcat) = $sth->fetchrow) {
392 $authcats{$sort1_authcat}=1;
393 $authcats{$sort2_authcat}=1;
396 foreach (sort keys %authcats) {
397 push @auth_cats_loop,{ authcat
=> $_ };
399 return \
@auth_cats_loop;
402 # -------------------------------------------------------------------
403 sub GetBudgetPeriods
{
404 my ($filters,$orderby) = @_;
405 return SearchInTable
("aqbudgetperiods",$filters, $orderby, undef,undef, undef, "wide");
407 # -------------------------------------------------------------------
408 sub GetBudgetPeriod
{
409 my ($budget_period_id) = @_;
410 my $dbh = C4
::Context
->dbh;
411 ## $total = number of records linked to the record that must be deleted
413 ## get information about the record that will be deleted
415 if ($budget_period_id) {
416 $sth = $dbh->prepare( qq|
419 WHERE budget_period_id
=?
|
421 $sth->execute($budget_period_id);
422 } else { # ACTIVE BUDGET
423 $sth = $dbh->prepare(qq|
426 WHERE budget_period_active
=1 |
430 my $data = $sth->fetchrow_hashref;
434 # -------------------------------------------------------------------
436 my ($budget_period_id) = @_;
437 my $dbh = C4
::Context
->dbh;
438 ; ## $total = number of records linked to the record that must be deleted
441 ## get information about the record that will be deleted
442 my $sth = $dbh->prepare(qq|
445 WHERE budget_period_id
=?
|
447 return $sth->execute($budget_period_id);
450 # -------------------------------------------------------------------
451 sub ModBudgetPeriod
{
452 my ($budget_period_information) = @_;
453 return UpdateInTable
("aqbudgetperiods",$budget_period_information);
456 # -------------------------------------------------------------------
457 sub GetBudgetHierarchy
{
458 my ( $budget_period_id, $branchcode, $owner ) = @_;
460 my $dbh = C4
::Context
->dbh;
462 SELECT aqbudgets
.*, aqbudgetperiods
.budget_period_active
, aqbudgetperiods
.budget_period_description
464 JOIN aqbudgetperiods USING
(budget_period_id
)|;
467 # show only period X if requested
468 if ($budget_period_id) {
469 push @where_strings," aqbudgets.budget_period_id = ?";
470 push @bind_params, $budget_period_id;
472 # show only budgets owned by me, my branch or everyone
476 qq{ (budget_owner_id
= ? OR budget_branchcode
= ? OR
((budget_branchcode IS NULL
or budget_branchcode
="") AND
(budget_owner_id IS NULL OR budget_owner_id
="")))};
477 push @bind_params, ( $owner, $branchcode );
479 push @where_strings, ' (budget_owner_id = ? OR budget_owner_id IS NULL or budget_owner_id ="") ';
480 push @bind_params, $owner;
484 push @where_strings," (budget_branchcode =? or budget_branchcode is NULL)";
485 push @bind_params, $branchcode;
488 $query.=" WHERE ".join(' AND ', @where_strings) if @where_strings;
489 $debug && warn $query,join(",",@bind_params);
490 my $sth = $dbh->prepare($query);
491 $sth->execute(@bind_params);
492 my $results = $sth->fetchall_arrayref({});
497 foreach my $r (@res) {
500 $r->{depth
} = '0' if !defined $r->{budget_parent_id
};
501 foreach my $r2 (@res) {
502 if (defined $r2->{budget_parent_id
}
503 && $r2->{budget_parent_id
} == $r->{budget_id
}) {
504 push @child, $r2->{budget_id
};
505 $r2->{depth
} = ($r->{depth
} + 1) if defined $r->{depth
};
508 $r->{child
} = \
@child if scalar @child > 0; # add the child
509 $depth_cnt++ if !defined $r->{'depth'};
511 last if ($depth_cnt == 0 || $i == 100);
515 # look for top parents 1st
516 my (@sort, $depth_count);
517 ($i, $depth_count) = 0;
520 foreach my $r (@res) {
521 if ($r->{depth
} == $depth_count) {
522 $children++ if (ref $r->{child
} eq 'ARRAY');
524 # find the parent id element_id and insert it after
527 if ($depth_count > 0) {
530 my $depth = $r->{depth
} * 2;
531 $r->{budget_code_indent
} = $r->{budget_code
};
532 $r->{budget_name_indent
} = $r->{budget_name
};
533 foreach my $r3 (@sort) {
534 if ($r3->{budget_id
} == $r->{budget_parent_id
}) {
541 $r->{budget_code_indent
} = $r->{budget_code
};
542 $r->{budget_name_indent
} = $r->{budget_name
};
545 if (defined $parent) {
546 splice @sort, ($parent + 1), 0, $r;
553 } # --------------foreach
555 last if $children == 0;
558 # add budget-percent and allocation, and flags for html-template
559 foreach my $r (@sort) {
560 my $subs_href = $r->{'child'};
562 if ( defined $subs_href ) {
563 @subs_arr = @
{$subs_href};
566 my $moo = $r->{'budget_code_indent'};
567 $moo =~ s/\ /\ \;/g;
568 $r->{'budget_code_indent'} = $moo;
570 $moo = $r->{'budget_name_indent'};
571 $moo =~ s/\ /\ \;/g;
572 $r->{'budget_name_indent'} = $moo;
574 $r->{'budget_spent'} = GetBudgetSpent
( $r->{'budget_id'} );
575 $r->{budget_ordered
} = GetBudgetOrdered
( $r->{budget_id
} );
577 $r->{budget_spent_sublevels
} = 0;
578 $r->{budget_ordered_sublevels
} = 0;
580 foreach my $sub (@subs_arr) {
581 my $sub_budget = GetBudget
($sub);
582 $r->{budget_spent_sublevels
} += GetBudgetSpent
( $sub_budget->{'budget_id'} );
583 $r->{budget_ordered_sublevels
} += GetBudgetOrdered
($sub);
589 # -------------------------------------------------------------------
593 return InsertInTable
("aqbudgets",$budget);
596 # -------------------------------------------------------------------
599 return UpdateInTable
("aqbudgets",$budget);
602 # -------------------------------------------------------------------
604 my ($budget_id) = @_;
605 my $dbh = C4
::Context
->dbh;
606 my $sth = $dbh->prepare("delete from aqbudgets where budget_id=?");
607 my $rc = $sth->execute($budget_id);
614 &GetBudget($budget_id);
616 get a specific budget
620 # -------------------------------------------------------------------
622 my ( $budget_id ) = @_;
623 my $dbh = C4
::Context
->dbh;
629 my $sth = $dbh->prepare($query);
630 $sth->execute( $budget_id );
631 my $result = $sth->fetchrow_hashref;
635 =head2 GetBudgetByOrderNumber
637 &GetBudgetByOrderNumber($ordernumber);
639 get a specific budget by order number
643 # -------------------------------------------------------------------
644 sub GetBudgetByOrderNumber
{
645 my ( $ordernumber ) = @_;
646 my $dbh = C4
::Context
->dbh;
649 FROM aqbudgets, aqorders
651 AND aqorders.budget_id = aqbudgets.budget_id
653 my $sth = $dbh->prepare($query);
654 $sth->execute( $ordernumber );
655 my $result = $sth->fetchrow_hashref;
659 =head2 GetBudgetByCode
661 my $budget = &GetBudgetByCode($budget_code);
663 Retrieve all aqbudgets fields as a hashref for the budget that has
668 sub GetBudgetByCode
{
669 my ( $budget_code ) = @_;
671 my $dbh = C4
::Context
->dbh;
675 WHERE budget_code
= ?
676 ORDER BY budget_id DESC
679 my $sth = $dbh->prepare( $query );
680 $sth->execute( $budget_code );
681 return $sth->fetchrow_hashref;
684 =head2 GetChildBudgetsSpent
686 &GetChildBudgetsSpent($budget-id);
688 gets the total spent of the level and sublevels of $budget_id
692 # -------------------------------------------------------------------
693 sub GetChildBudgetsSpent
{
694 my ( $budget_id ) = @_;
695 my $dbh = C4
::Context
->dbh;
699 WHERE budget_parent_id=?
701 my $sth = $dbh->prepare($query);
702 $sth->execute( $budget_id );
703 my $result = $sth->fetchall_arrayref({});
704 my $total_spent = GetBudgetSpent
($budget_id);
706 $total_spent += GetChildBudgetsSpent
($_->{"budget_id"}) foreach @
$result;
713 &GetBudgets($filter, $order_by);
719 # -------------------------------------------------------------------
722 my $orderby = shift || 'budget_name';
723 return SearchInTable
("aqbudgets",$filters, $orderby, undef,undef, undef, "wide");
726 =head2 GetBudgetUsers
728 my @borrowernumbers = &GetBudgetUsers($budget_id);
730 Return the list of borrowernumbers linked to a budget
735 my ($budget_id) = @_;
737 my $dbh = C4
::Context
->dbh;
739 SELECT borrowernumber
740 FROM aqbudgetborrowers
743 my $sth = $dbh->prepare($query);
744 $sth->execute($budget_id);
747 while (my ($borrowernumber) = $sth->fetchrow_array) {
748 push @borrowernumbers, $borrowernumber
751 return @borrowernumbers;
754 =head2 ModBudgetUsers
756 &ModBudgetUsers($budget_id, @borrowernumbers);
758 Modify the list of borrowernumbers linked to a budget
763 my ($budget_id, @budget_users_id) = @_;
765 return unless $budget_id;
767 my $dbh = C4
::Context
->dbh;
768 my $query = "DELETE FROM aqbudgetborrowers WHERE budget_id = ?";
769 my $sth = $dbh->prepare($query);
770 $sth->execute($budget_id);
773 INSERT INTO aqbudgetborrowers
(budget_id
, borrowernumber
)
776 $sth = $dbh->prepare($query);
777 foreach my $borrowernumber (@budget_users_id) {
778 next unless $borrowernumber;
779 $sth->execute($budget_id, $borrowernumber);
783 sub CanUserUseBudget
{
784 my ($borrower, $budget, $userflags) = @_;
786 if (not ref $borrower) {
787 $borrower = C4
::Members
::GetMember
(borrowernumber
=> $borrower);
789 if (not ref $budget) {
790 $budget = GetBudget
($budget);
793 return 0 unless ($borrower and $budget);
795 if (not defined $userflags) {
796 $userflags = C4
::Auth
::getuserflags
($borrower->{flags
},
797 $borrower->{userid
});
800 unless ($userflags->{superlibrarian
}
801 || (ref $userflags->{acquisition
}
802 && $userflags->{acquisition
}->{budget_manage_all
})
803 || (!ref $userflags->{acquisition
} && $userflags->{acquisition
}))
805 if (not exists $userflags->{acquisition
}) {
809 if (!ref $userflags->{acquisition
} && !$userflags->{acquisition
}) {
813 # Budget restricted to owner
814 if ( $budget->{budget_permission
} == 1 ) {
815 if ( $budget->{budget_owner_id
}
816 and $budget->{budget_owner_id
} != $borrower->{borrowernumber
} )
822 # Budget restricted to owner, users and library
823 elsif ( $budget->{budget_permission
} == 2 ) {
824 my @budget_users = GetBudgetUsers
( $budget->{budget_id
} );
828 $budget->{budget_owner_id
}
829 and $budget->{budget_owner_id
} !=
830 $borrower->{borrowernumber
}
831 or not $budget->{budget_owner_id
}
833 and ( 0 == grep { $borrower->{borrowernumber
} == $_ }
835 and defined $budget->{budget_branchcode
}
836 and $budget->{budget_branchcode
} ne
837 C4
::Context
->userenv->{branch
}
844 # Budget restricted to owner and users
845 elsif ( $budget->{budget_permission
} == 3 ) {
846 my @budget_users = GetBudgetUsers
( $budget->{budget_id
} );
849 $budget->{budget_owner_id
}
850 and $budget->{budget_owner_id
} !=
851 $borrower->{borrowernumber
}
852 or not $budget->{budget_owner_id
}
854 and ( 0 == grep { $borrower->{borrowernumber
} == $_ }
866 sub CanUserModifyBudget
{
867 my ($borrower, $budget, $userflags) = @_;
869 if (not ref $borrower) {
870 $borrower = C4
::Members
::GetMember
(borrowernumber
=> $borrower);
872 if (not ref $budget) {
873 $budget = GetBudget
($budget);
876 return 0 unless ($borrower and $budget);
878 if (not defined $userflags) {
879 $userflags = C4
::Auth
::getuserflags
($borrower->{flags
},
880 $borrower->{userid
});
883 unless ($userflags->{superlibrarian
}
884 || (ref $userflags->{acquisition
}
885 && $userflags->{acquisition
}->{budget_manage_all
})
886 || (!ref $userflags->{acquisition
} && $userflags->{acquisition
}))
888 if (!CanUserUseBudget
($borrower, $budget, $userflags)) {
892 if (ref $userflags->{acquisition
}
893 && !$userflags->{acquisition
}->{budget_modify
}) {
901 # -------------------------------------------------------------------
905 @currencies = &GetCurrencies;
907 Returns the list of all known currencies.
909 C<$currencies> is a array; its elements are references-to-hash, whose
910 keys are the fields from the currency table in the Koha database.
915 my $dbh = C4
::Context
->dbh;
920 my $sth = $dbh->prepare($query);
923 while ( my $data = $sth->fetchrow_hashref ) {
924 push( @results, $data );
929 # -------------------------------------------------------------------
932 my $dbh = C4
::Context
->dbh;
934 SELECT * FROM currency where active = '1' ";
935 my $sth = $dbh->prepare($query);
937 my $r = $sth->fetchrow_hashref;
943 &ModCurrencies($currency, $newrate);
945 Sets the exchange rate for C<$currency> to be C<$newrate>.
950 my ( $currency, $rate ) = @_;
951 my $dbh = C4
::Context
->dbh;
956 my $sth = $dbh->prepare($query);
957 $sth->execute( $rate, $currency );
960 # -------------------------------------------------------------------
962 =head2 ConvertCurrency
964 $foreignprice = &ConvertCurrency($currency, $localprice);
966 Converts the price C<$localprice> to foreign currency C<$currency> by
967 dividing by the exchange rate, and returns the result.
969 If no exchange rate is found, e is one to one.
973 sub ConvertCurrency
{
974 my ( $currency, $price ) = @_;
975 my $dbh = C4
::Context
->dbh;
981 my $sth = $dbh->prepare($query);
982 $sth->execute($currency);
983 my $cur = ( $sth->fetchrow_array() )[0];
987 return ( $price / $cur );
990 END { } # module clean-up code here (global destructor)
997 Koha Development Team <http://koha-community.org/>