|
Lines 21-56
package C4::Circulation;
Link Here
|
| 21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
| 22 |
use DateTime; |
22 |
use DateTime; |
| 23 |
use POSIX qw( floor ); |
23 |
use POSIX qw( floor ); |
| 24 |
use YAML::XS; |
24 |
use YAML::XS (); |
| 25 |
use Encode; |
25 |
use Encode (); |
| 26 |
|
26 |
|
| 27 |
use Koha::DateUtils; |
27 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
| 28 |
use C4::Context; |
28 |
use C4::Context; |
| 29 |
use C4::Stats; |
29 |
use C4::Stats qw( UpdateStats ); |
| 30 |
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest ); |
30 |
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest ); |
| 31 |
use C4::Biblio qw( UpdateTotalIssues ModZebra ); |
31 |
use C4::Biblio qw( UpdateTotalIssues ); |
| 32 |
use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf ); |
32 |
use C4::Items qw( CartToShelf ModDateLastSeen ModItemTransfer ); |
| 33 |
use C4::Members; |
33 |
use C4::Members (); |
| 34 |
use C4::Accounts; |
34 |
use C4::Accounts (); |
| 35 |
use C4::ItemCirculationAlertPreference; |
35 |
use C4::ItemCirculationAlertPreference; |
| 36 |
use C4::Message; |
36 |
use C4::Message; |
| 37 |
use C4::Debug; |
37 |
use C4::Debug qw( $debug ); |
| 38 |
use C4::Log; # logaction |
38 |
use C4::Log qw( logaction ); # logaction |
| 39 |
use C4::Overdues qw( UpdateFine get_chargeable_units CalcFine ); |
39 |
use C4::Overdues (); |
| 40 |
use C4::RotatingCollections qw(GetCollectionItemBranches); |
40 |
use C4::RotatingCollections qw(GetCollectionItemBranches); |
| 41 |
use Algorithm::CheckDigits; |
41 |
use Algorithm::CheckDigits qw( CheckDigits ); |
| 42 |
|
42 |
|
| 43 |
use Data::Dumper; |
43 |
use Data::Dumper qw( Dumper ); |
| 44 |
use Koha::Account; |
44 |
use Koha::Account; |
| 45 |
use Koha::AuthorisedValues; |
45 |
use Koha::AuthorisedValues; |
| 46 |
use Koha::Biblioitems; |
46 |
use Koha::Biblioitems; |
| 47 |
use Koha::DateUtils; |
47 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
| 48 |
use Koha::Calendar; |
48 |
use Koha::Calendar; |
| 49 |
use Koha::Checkouts; |
49 |
use Koha::Checkouts; |
| 50 |
use Koha::Illrequests; |
50 |
use Koha::Illrequests; |
| 51 |
use Koha::Items; |
51 |
use Koha::Items; |
| 52 |
use Koha::Patrons; |
52 |
use Koha::Patrons; |
| 53 |
use Koha::Patron::Debarments; |
53 |
use Koha::Patron::Debarments qw( DelUniqueDebarment GetDebarments ); |
| 54 |
use Koha::Database; |
54 |
use Koha::Database; |
| 55 |
use Koha::Libraries; |
55 |
use Koha::Libraries; |
| 56 |
use Koha::Account::Lines; |
56 |
use Koha::Account::Lines; |
|
Lines 63-81
use Koha::Config::SysPref;
Link Here
|
| 63 |
use Koha::Checkouts::ReturnClaims; |
63 |
use Koha::Checkouts::ReturnClaims; |
| 64 |
use Koha::SearchEngine::Indexer; |
64 |
use Koha::SearchEngine::Indexer; |
| 65 |
use Koha::Exceptions::Checkout; |
65 |
use Koha::Exceptions::Checkout; |
| 66 |
use Carp; |
66 |
use Carp qw( carp ); |
| 67 |
use List::MoreUtils qw( uniq any ); |
67 |
use List::MoreUtils qw( any ); |
| 68 |
use Scalar::Util qw( looks_like_number ); |
68 |
use Scalar::Util qw( looks_like_number ); |
| 69 |
use Try::Tiny; |
69 |
use Date::Calc qw( Date_to_Days ); |
| 70 |
use Date::Calc qw( |
|
|
| 71 |
Today |
| 72 |
Today_and_Now |
| 73 |
Add_Delta_YM |
| 74 |
Add_Delta_DHMS |
| 75 |
Date_to_Days |
| 76 |
Day_of_Week |
| 77 |
Add_Delta_Days |
| 78 |
); |
| 79 |
our (@ISA, @EXPORT_OK); |
70 |
our (@ISA, @EXPORT_OK); |
| 80 |
BEGIN { |
71 |
BEGIN { |
| 81 |
|
72 |
|