Lines 19-83
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 |
use DateTime; |
22 |
use base 'Exporter'; |
23 |
use POSIX qw( floor ); |
|
|
24 |
use Encode; |
25 |
use Try::Tiny; |
26 |
|
27 |
use C4::Context; |
28 |
use C4::Stats qw( UpdateStats ); |
29 |
use C4::Reserves |
30 |
qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority IsAvailableForItemLevelRequest ); |
31 |
use C4::Biblio qw( UpdateTotalIssues ); |
32 |
use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf ); |
33 |
use C4::Accounts; |
34 |
use C4::ItemCirculationAlertPreference; |
35 |
use C4::Message; |
36 |
use C4::Log qw( logaction ); # logaction |
37 |
use C4::Overdues; |
38 |
use C4::RotatingCollections qw(GetCollectionItemBranches); |
39 |
use Algorithm::CheckDigits qw( CheckDigits ); |
40 |
|
41 |
use Data::Dumper qw( Dumper ); |
42 |
use Koha::Account; |
43 |
use Koha::AuthorisedValues; |
44 |
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue; |
45 |
use Koha::Biblioitems; |
46 |
use Koha::DateUtils qw( dt_from_string ); |
47 |
use Koha::Calendar; |
48 |
use Koha::Checkouts; |
49 |
use Koha::ILL::Requests; |
50 |
use Koha::Items; |
51 |
use Koha::Patrons; |
52 |
use Koha::Patron::Debarments qw( DelUniqueDebarment AddUniqueDebarment ); |
53 |
use Koha::Database; |
54 |
use Koha::Libraries; |
55 |
use Koha::Account::Lines; |
56 |
use Koha::Holds; |
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; |
66 |
use Koha::Recalls; |
67 |
use Koha::Library::Hours; |
68 |
use Carp qw( carp ); |
69 |
use List::MoreUtils qw( any ); |
70 |
use Scalar::Util qw( looks_like_number blessed ); |
71 |
use Date::Calc qw( Date_to_Days ); |
72 |
our ( @ISA, @EXPORT_OK ); |
73 |
|
74 |
BEGIN { |
23 |
BEGIN { |
75 |
|
24 |
|
76 |
require Exporter; |
|
|
77 |
@ISA = qw(Exporter); |
78 |
|
79 |
# FIXME subs that should probably be elsewhere |
25 |
# FIXME subs that should probably be elsewhere |
80 |
push @EXPORT_OK, qw( |
26 |
our @EXPORT_OK = qw( |
81 |
barcodedecode |
27 |
barcodedecode |
82 |
LostItem |
28 |
LostItem |
83 |
ReturnLostItem |
29 |
ReturnLostItem |
Lines 128-133
BEGIN {
Link Here
|
128 |
push @EXPORT_OK, '_GetCircControlBranch'; # This is wrong! |
74 |
push @EXPORT_OK, '_GetCircControlBranch'; # This is wrong! |
129 |
} |
75 |
} |
130 |
|
76 |
|
|
|
77 |
use DateTime; |
78 |
use POSIX qw( floor ); |
79 |
use Encode; |
80 |
use Try::Tiny; |
81 |
|
82 |
use C4::Context; |
83 |
use C4::Stats qw( UpdateStats ); |
84 |
use C4::Reserves |
85 |
qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority IsAvailableForItemLevelRequest ); |
86 |
use C4::Biblio qw( UpdateTotalIssues ); |
87 |
use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf ); |
88 |
use C4::Accounts; |
89 |
use C4::ItemCirculationAlertPreference; |
90 |
use C4::Message; |
91 |
use C4::Log qw( logaction ); # logaction |
92 |
use C4::Overdues; |
93 |
use C4::RotatingCollections qw(GetCollectionItemBranches); |
94 |
use Algorithm::CheckDigits qw( CheckDigits ); |
95 |
|
96 |
use Data::Dumper qw( Dumper ); |
97 |
use Koha::Account; |
98 |
use Koha::AuthorisedValues; |
99 |
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue; |
100 |
use Koha::Biblioitems; |
101 |
use Koha::DateUtils qw( dt_from_string ); |
102 |
use Koha::Calendar; |
103 |
use Koha::Checkouts; |
104 |
use Koha::ILL::Requests; |
105 |
use Koha::Items; |
106 |
use Koha::Patrons; |
107 |
use Koha::Patron::Debarments qw( DelUniqueDebarment AddUniqueDebarment ); |
108 |
use Koha::Database; |
109 |
use Koha::Libraries; |
110 |
use Koha::Account::Lines; |
111 |
use Koha::Holds; |
112 |
use Koha::Account::Lines; |
113 |
use Koha::Account::Offsets; |
114 |
use Koha::Config::SysPrefs; |
115 |
use Koha::Charges::Fees; |
116 |
use Koha::Config::SysPref; |
117 |
use Koha::Checkouts::ReturnClaims; |
118 |
use Koha::SearchEngine::Indexer; |
119 |
use Koha::Exceptions::Checkout; |
120 |
use Koha::Plugins; |
121 |
use Koha::Recalls; |
122 |
use Koha::Library::Hours; |
123 |
use Carp qw( carp ); |
124 |
use List::MoreUtils qw( any ); |
125 |
use Scalar::Util qw( looks_like_number blessed ); |
126 |
use Date::Calc qw( Date_to_Days ); |
127 |
|
131 |
=head1 NAME |
128 |
=head1 NAME |
132 |
|
129 |
|
133 |
C4::Circulation - Koha circulation module |
130 |
C4::Circulation - Koha circulation module |