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