From be5f5273fa3eab93773d8820160fec80baf6eaeb Mon Sep 17 00:00:00 2001
From: acli <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