|
Lines 22-52
package C4::Circulation;
Link Here
|
| 22 |
use strict; |
22 |
use strict; |
| 23 |
#use warnings; FIXME - Bug 2505 |
23 |
#use warnings; FIXME - Bug 2505 |
| 24 |
use DateTime; |
24 |
use DateTime; |
| 25 |
use Koha::DateUtils; |
25 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
| 26 |
use C4::Context; |
26 |
use C4::Context; |
| 27 |
use C4::Stats; |
27 |
use C4::Stats qw( UpdateStats ); |
| 28 |
use C4::Reserves; |
28 |
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest ); |
| 29 |
use C4::Biblio; |
29 |
use C4::Biblio qw( GetBiblio GetBiblioFromItemNumber GetBiblioItemData UpdateTotalIssues GetBiblioData ); |
| 30 |
use C4::Items; |
30 |
use C4::Items qw( GetItem GetItemnumberFromBarcode ModItem ModItemTransfer ModDateLastSeen CartToShelf ShelfToCart ); |
| 31 |
use C4::Members; |
31 |
use C4::Members qw( GetMemberDetails GetMember GetMemberAccountBalance GetAge ); |
| 32 |
use C4::Accounts; |
32 |
use C4::Accounts qw( getnextacctno chargelostitem ); |
| 33 |
use C4::ItemCirculationAlertPreference; |
33 |
use C4::ItemCirculationAlertPreference; |
| 34 |
use C4::Message; |
34 |
use C4::Message; |
| 35 |
use C4::Debug; |
35 |
use C4::Debug; |
| 36 |
use C4::Log; # logaction |
36 |
use C4::Log qw( logaction ); |
| 37 |
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units); |
37 |
use C4::Overdues qw( UpdateFine get_chargeable_units CalcFine ); |
| 38 |
use C4::RotatingCollections qw(GetCollectionItemBranches); |
38 |
use C4::RotatingCollections qw( isItemInAnyCollection ); |
| 39 |
use Algorithm::CheckDigits; |
39 |
use Algorithm::CheckDigits; |
| 40 |
|
40 |
|
| 41 |
use Data::Dumper; |
41 |
use Data::Dumper; |
| 42 |
use Koha::Account; |
42 |
use Koha::Account; |
| 43 |
use Koha::AuthorisedValues; |
43 |
use Koha::AuthorisedValues; |
| 44 |
use Koha::DateUtils; |
44 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
| 45 |
use Koha::Calendar; |
45 |
use Koha::Calendar; |
| 46 |
use Koha::IssuingRules; |
46 |
use Koha::IssuingRules; |
| 47 |
use Koha::Items; |
47 |
use Koha::Items; |
| 48 |
use Koha::Patrons; |
48 |
use Koha::Patrons; |
| 49 |
use Koha::Patron::Debarments; |
49 |
use Koha::Patron::Debarments qw( GetDebarments DelUniqueDebarment AddUniqueDebarment ); |
| 50 |
use Koha::Database; |
50 |
use Koha::Database; |
| 51 |
use Koha::Libraries; |
51 |
use Koha::Libraries; |
| 52 |
use Koha::Holds; |
52 |
use Koha::Holds; |