View | Details | Raw Unified | Return to bug 26351
Collapse All | Expand All

(-)a/C4/Circulation.pm (-38 / +37 lines)
Lines 19-81 package C4::Circulation; Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
23
use Algorithm::CheckDigits;
24
use Carp;
25
use Data::Dumper;
26
use Date::Calc qw(
27
    Today
28
    Today_and_Now
29
    Add_Delta_YM
30
    Add_Delta_DHMS
31
    Date_to_Days
32
    Day_of_Week
33
    Add_Delta_Days
34
);
22
use DateTime;
35
use DateTime;
36
use Encode;
37
use List::MoreUtils qw( uniq any );
23
use POSIX qw( floor );
38
use POSIX qw( floor );
39
use Scalar::Util qw( looks_like_number );
40
use Try::Tiny;
24
use YAML::XS;
41
use YAML::XS;
25
use Encode;
26
42
27
use Koha::DateUtils;
43
use C4::Accounts;
28
use C4::Context;
29
use C4::Stats;
30
use C4::Reserves;
31
use C4::Biblio;
44
use C4::Biblio;
45
use C4::Context;
46
use C4::Debug;
47
use C4::ItemCirculationAlertPreference;
32
use C4::Items;
48
use C4::Items;
49
use C4::Log; # logaction
33
use C4::Members;
50
use C4::Members;
34
use C4::Accounts;
35
use C4::ItemCirculationAlertPreference;
36
use C4::Message;
51
use C4::Message;
37
use C4::Log; # logaction
38
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units);
52
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units);
53
use C4::Reserves;
39
use C4::RotatingCollections qw(GetCollectionItemBranches);
54
use C4::RotatingCollections qw(GetCollectionItemBranches);
40
use Algorithm::CheckDigits;
55
use C4::Stats;
41
56
42
use Data::Dumper;
57
use Koha::Account::Lines;
58
use Koha::Account::Offsets;
43
use Koha::Account;
59
use Koha::Account;
44
use Koha::AuthorisedValues;
60
use Koha::AuthorisedValues;
45
use Koha::Biblioitems;
61
use Koha::Biblioitems;
46
use Koha::DateUtils;
47
use Koha::Calendar;
62
use Koha::Calendar;
63
use Koha::Charges::Fees;
64
use Koha::Checkouts::ReturnClaims;
48
use Koha::Checkouts;
65
use Koha::Checkouts;
66
use Koha::Config::SysPrefs;
67
use Koha::Database;
68
use Koha::DateUtils;
69
use Koha::Exceptions::Checkout;
70
use Koha::Holds;
49
use Koha::Illrequests;
71
use Koha::Illrequests;
50
use Koha::Items;
72
use Koha::Items;
51
use Koha::Patrons;
52
use Koha::Patron::Debarments;
53
use Koha::Database;
54
use Koha::Libraries;
73
use Koha::Libraries;
55
use Koha::Account::Lines;
74
use Koha::Patron::Debarments;
56
use Koha::Holds;
75
use Koha::Patrons;
57
use Koha::Account::Lines;
58
use Koha::Account::Offsets;
59
use Koha::Config::SysPrefs;
60
use Koha::Charges::Fees;
61
use Koha::Config::SysPref;
62
use Koha::Checkouts::ReturnClaims;
63
use Koha::SearchEngine::Indexer;
64
use Koha::Exceptions::Checkout;
65
use Koha::Plugins;
76
use Koha::Plugins;
66
use Carp;
77
use Koha::SearchEngine::Indexer;
67
use List::MoreUtils qw( uniq any );
78
68
use Scalar::Util qw( looks_like_number );
69
use Try::Tiny;
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
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
79
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
80
80
81
BEGIN {
81
BEGIN {
82
- 

Return to bug 26351