From be5f5273fa3eab93773d8820160fec80baf6eaeb Mon Sep 17 00:00:00 2001 From: acli Date: Thu, 6 Feb 2003 07:41:28 +0000 Subject: [PATCH] Tentatively export the "internal" function CalcReserveFee ; opac-reserves uses it Noted correct tab size --- C4/Reserves2.pm | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/C4/Reserves2.pm b/C4/Reserves2.pm index 222c947ac0..a80c67ceed 100755 --- a/C4/Reserves2.pm +++ b/C4/Reserves2.pm @@ -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; -- 2.39.5