Lines 20-44
package C4::Serials;
Link Here
|
20 |
|
20 |
|
21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
22 |
|
22 |
|
23 |
use C4::Auth qw(haspermission); |
23 |
use C4::Auth qw( haspermission ); |
24 |
use C4::Context; |
24 |
use C4::Context; |
25 |
use DateTime; |
25 |
use DateTime; |
26 |
use Date::Calc qw(:all); |
26 |
use Date::Calc qw( |
27 |
use POSIX qw(strftime); |
27 |
Add_Delta_Days |
28 |
use C4::Biblio; |
28 |
Add_Delta_YM |
29 |
use C4::Log; # logaction |
29 |
check_date |
30 |
use C4::Serials::Frequency; |
30 |
Delta_Days |
|
|
31 |
N_Delta_YMD |
32 |
Today |
33 |
); |
34 |
use POSIX qw( strftime ); |
35 |
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio ); |
36 |
use C4::Log qw( logaction ); # logaction |
37 |
use C4::Serials::Frequency qw( GetSubscriptionFrequency ); |
31 |
use C4::Serials::Numberpattern; |
38 |
use C4::Serials::Numberpattern; |
32 |
use Koha::AdditionalFieldValues; |
39 |
use Koha::AdditionalFieldValues; |
33 |
use Koha::DateUtils; |
40 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
34 |
use Koha::Serial; |
41 |
use Koha::Serial; |
35 |
use Koha::Subscriptions; |
42 |
use Koha::Subscriptions; |
36 |
use Koha::Subscription::Histories; |
43 |
use Koha::Subscription::Histories; |
37 |
use Koha::SharedContent; |
44 |
use Koha::SharedContent; |
38 |
use Scalar::Util qw( looks_like_number ); |
45 |
use Scalar::Util qw( looks_like_number ); |
39 |
|
46 |
|
40 |
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
|
|
41 |
|
42 |
# Define statuses |
47 |
# Define statuses |
43 |
use constant { |
48 |
use constant { |
44 |
EXPECTED => 1, |
49 |
EXPECTED => 1, |
Lines 61-91
use constant MISSING_STATUSES => (
Link Here
|
61 |
MISSING_LOST |
66 |
MISSING_LOST |
62 |
); |
67 |
); |
63 |
|
68 |
|
|
|
69 |
our (@ISA, @EXPORT_OK); |
64 |
BEGIN { |
70 |
BEGIN { |
65 |
require Exporter; |
71 |
require Exporter; |
66 |
@ISA = qw(Exporter); |
72 |
@ISA = qw(Exporter); |
67 |
@EXPORT = qw( |
73 |
@EXPORT_OK = qw( |
68 |
&NewSubscription &ModSubscription &DelSubscription |
74 |
NewSubscription ModSubscription DelSubscription |
69 |
&GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber |
75 |
GetSubscription CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber |
70 |
&SearchSubscriptions |
76 |
SearchSubscriptions |
71 |
&GetFullSubscriptionsFromBiblionumber &GetFullSubscription &ModSubscriptionHistory |
77 |
GetFullSubscriptionsFromBiblionumber GetFullSubscription ModSubscriptionHistory |
72 |
&HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire |
78 |
HasSubscriptionStrictlyExpired HasSubscriptionExpired GetExpirationDate abouttoexpire |
73 |
&GetSubscriptionHistoryFromSubscriptionId |
79 |
GetFictiveIssueNumber |
74 |
|
80 |
GetSubscriptionHistoryFromSubscriptionId |
75 |
&GetNextSeq &GetSeq &NewIssue &GetSerials |
81 |
|
76 |
&GetLatestSerials &ModSerialStatus &GetNextDate &GetSerials2 |
82 |
GetNextSeq GetSeq NewIssue GetSerials |
77 |
&GetSubscriptionLength &ReNewSubscription &GetLateOrMissingIssues |
83 |
GetLatestSerials ModSerialStatus GetNextDate |
78 |
&GetSerialInformation &AddItem2Serial |
84 |
CloseSubscription ReopenSubscription |
79 |
&PrepareSerialsData &GetNextExpected &ModNextExpected |
85 |
subscriptionCurrentlyOnOrder |
80 |
&GetPreviousSerialid |
86 |
can_claim_subscription can_edit_subscription can_show_subscription |
81 |
|
87 |
GetSerials2 |
82 |
&GetSuppliersWithLateIssues |
88 |
GetSubscriptionLength ReNewSubscription GetLateOrMissingIssues |
83 |
&getroutinglist &delroutingmember &addroutingmember |
89 |
GetSerialInformation AddItem2Serial |
84 |
&reorder_members |
90 |
PrepareSerialsData GetNextExpected ModNextExpected |
85 |
&check_routing &updateClaim |
91 |
GetSubscriptionIrregularities |
86 |
&CountIssues |
92 |
GetPreviousSerialid |
|
|
93 |
|
94 |
GetSuppliersWithLateIssues |
95 |
getroutinglist delroutingmember addroutingmember |
96 |
reorder_members |
97 |
check_routing updateClaim |
98 |
CountIssues |
87 |
HasItems |
99 |
HasItems |
88 |
&subscriptionCurrentlyOnOrder |
100 |
|
|
|
101 |
findSerialsByStatus |
89 |
|
102 |
|
90 |
); |
103 |
); |
91 |
} |
104 |
} |