=cut
@ISA = qw(Exporter);
-@EXPORT = qw(
+
+# FIXME subs that should probably be elsewhere
+push @EXPORT, qw(
&getpatroninformation
+ &getiteminformation
+);
+# subs to deal with issuing a book
+push @EXPORT, qw(
+ &canbookbeissued
+ &issuebook
¤tissues
&getissues
- &getiteminformation
&renewstatus
&renewbook
- &canbookbeissued
- &issuebook
+ &calc_charges
+ &fixdate
+ &GetIssuesFromBiblio
+ &itemissues
+ &AnonymiseIssueHistory
+);
+# subs to deal with returns
+push @EXPORT, qw(
&returnbook
+);
+# subs to deal with reserves => Move to Reserves2.pm
+push @EXPORT, qw(
&find_reserves
+ &GetReservesForBranch
+ &GetReservesToBranch
+);
+
+# subs to deal with transfers
+push @EXPORT, qw(
&transferbook
- &decode
- &calc_charges
- &GetItemsForInventory
- &itemseen
- &fixdate
- &get_current_return_date_of
&get_transfert_infos
&checktransferts
- &GetReservesForBranch
- &GetReservesToBranch
&GetTransfersFromBib
- &getBranchIp
+ &updateWrongTransfer
+);
+
+# subs to remove
+push @EXPORT, qw(
+ &decode
+ &get_current_return_date_of
&dotransfer
+);
+
+# to move in Biblio.pm
+push @EXPORT, qw(
+ &itemseen
+ &GetItemsForInventory
+ &GetLostItems
+);
+
+# subs to deal with late issues => to move to Fines.pm
+push @EXPORT, qw(
&GetOverduesForBranch
&AddNotifyLine
&RemoveNotifyLine
- &GetIssuesFromBiblio
- &AnonymiseIssueHistory
- &GetLostItems
- &itemissues
- &updateWrongTransfer
);
=head2 itemseen
=cut
@ISA = qw(Exporter);
-@EXPORT = qw( &BorType
+# subs to rename (and maybe merge some...)
+push @EXPORT, qw(
&CalcFine
&Getoverdues
- &GetIssuingRules
&CheckAccountLineLevelInfo
&CheckAccountLineItemInfo
&CheckExistantNotifyid
- &CheckBorrowerDebarred
- &GetIssuesIteminfo
&GetNextIdNotify
- &GetOverdueDelays
- &GetOverduerules
- &GetFine
- &GetItems
&GetNotifyId
- &GetNextIdNotify
&NumberNotifyId
&AmountNotify
&UpdateAccountLines
&UpdateFine
- &UpdateBorrowerDebarred
+ &GetOverdueDelays
+ &GetOverduerules
+ &GetFine
&CreateItemAccountLine
+ &ReplacementCost2
+);
+# subs to remove
+push @EXPORT, qw(
+ &BorType
+);
+
+#
+# All subs to move : check that an equivalent don't exist already before moving
+#
+
+# subs to move to Circulation.pm
+push @EXPORT, qw(
+ &GetIssuingRules
+ &GetIssuesIteminfo
+);
+# subs to move to Members.pm
+push @EXPORT, qw(
+ &CheckBorrowerDebarred
+ &UpdateBorrowerDebarred
+);
+# subs to move to Biblio.pm
+push @EXPORT, qw(
+ &GetItems
&ReplacementCost
- &ReplacementCost2);
+);
=item Getoverdues
@ISA = qw(Exporter);
-# FIXME Take out CalcReserveFee after it can be removed from opac-reserves.pl
@EXPORT = qw(
&FindReserves
&CheckReserves