Tentatively export the "internal" function CalcReserveFee ; opac-reserves

uses it

Noted correct tab size
This commit is contained in:
acli 2003-02-06 07:41:28 +00:00
parent 23c93d6e80
commit be5f5273fa
1 changed files with 19 additions and 1 deletions

View File

@ -1,3 +1,6 @@
# -*- tab-width: 8 -*-
# NOTE: This file uses standard 8-character tabs
package C4::Reserves2;
# $Id$
@ -52,7 +55,21 @@ FIXME
=cut
@ISA = qw(Exporter);
@EXPORT = qw(&FindReserves &CheckReserves &CheckWaiting &CancelReserve &FillReserve &ReserveWaiting &CreateReserve &updatereserves &UpdateReserve &getreservetitle &Findgroupreserve);
# FIXME Take out CalcReserveFee after it can be removed from opac-reserves.pl
@EXPORT = qw(
&FindReserves
&CheckReserves
&CheckWaiting
&CancelReserve
&CalcReserveFee
&FillReserve
&ReserveWaiting
&CreateReserve
&updatereserves
&UpdateReserve
&getreservetitle
&Findgroupreserve
);
# make all your functions, whether exported or not;
@ -594,6 +611,7 @@ sub CreateReserve {
# FIXME - A functionally identical version of this function appears in
# C4::Reserves. Pick one and stick with it.
# XXX - Internal use only
# FIXME - opac-reserves.pl need to use it, temporarily put into @EXPORT
sub CalcReserveFee {
my ($env,$borrnum,$biblionumber,$constraint,$bibitems) = @_;
#check for issues;