Lines 16-22
use Koha::DateUtils qw( dt_from_string output_pref );
Link Here
|
16 |
use Koha::Acquisition::Booksellers; |
16 |
use Koha::Acquisition::Booksellers; |
17 |
use t::lib::Mocks; |
17 |
use t::lib::Mocks; |
18 |
use t::lib::TestBuilder; |
18 |
use t::lib::TestBuilder; |
19 |
use Test::More tests => 50; |
19 |
use Test::More tests => 52; |
20 |
|
20 |
|
21 |
BEGIN { |
21 |
BEGIN { |
22 |
use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate )); |
22 |
use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate )); |
Lines 74-92
my $pattern_id = AddSubscriptionNumberpattern({
Link Here
|
74 |
|
74 |
|
75 |
my $notes = "a\nnote\non\nseveral\nlines"; |
75 |
my $notes = "a\nnote\non\nseveral\nlines"; |
76 |
my $internalnotes = 'intnotes'; |
76 |
my $internalnotes = 'intnotes'; |
|
|
77 |
my $ccode = 'FIC'; |
77 |
my $subscriptionid = NewSubscription( |
78 |
my $subscriptionid = NewSubscription( |
78 |
undef, "", undef, undef, $budget_id, $biblionumber, |
79 |
undef, "", undef, undef, $budget_id, $biblionumber, |
79 |
'2013-01-01', $frequency_id, undef, undef, undef, |
80 |
'2013-01-01', $frequency_id, undef, undef, undef, |
80 |
undef, undef, undef, undef, undef, undef, |
81 |
undef, undef, undef, undef, undef, undef, |
81 |
1, $notes, ,undef, '2013-01-01', undef, $pattern_id, |
82 |
1, $notes, ,undef, '2013-01-01', undef, $pattern_id, |
82 |
undef, undef, 0, $internalnotes, 0, |
83 |
undef, undef, 0, $internalnotes, 0, |
83 |
undef, undef, 0, undef, '2013-12-31', 0 |
84 |
undef, undef, 0, undef, '2013-12-31', 0, |
|
|
85 |
undef, undef, undef, $ccode |
86 |
|
84 |
); |
87 |
); |
85 |
|
88 |
|
86 |
my $subscriptioninformation = GetSubscription( $subscriptionid ); |
89 |
my $subscriptioninformation = GetSubscription( $subscriptionid ); |
87 |
|
90 |
|
88 |
is( $subscriptioninformation->{notes}, $notes, 'NewSubscription should set notes' ); |
91 |
is( $subscriptioninformation->{notes}, $notes, 'NewSubscription should set notes' ); |
89 |
is( $subscriptioninformation->{internalnotes}, $internalnotes, 'NewSubscription should set internalnotes' ); |
92 |
is( $subscriptioninformation->{internalnotes}, $internalnotes, 'NewSubscription should set internalnotes' ); |
|
|
93 |
is( $subscriptioninformation->{ccode}, $ccode, 'NewSubscription should set ccode' ); |
90 |
|
94 |
|
91 |
my $subscription_history = C4::Serials::GetSubscriptionHistoryFromSubscriptionId($subscriptionid); |
95 |
my $subscription_history = C4::Serials::GetSubscriptionHistoryFromSubscriptionId($subscriptionid); |
92 |
is( $subscription_history->{opacnote}, undef, 'NewSubscription should not set subscriptionhistory opacnotes' ); |
96 |
is( $subscription_history->{opacnote}, undef, 'NewSubscription should not set subscriptionhistory opacnotes' ); |
Lines 114-119
if (not $frequency->{unit}) {
Link Here
|
114 |
$frequency->{description} = "Frequency created by t/db_dependant/Serials.t"; |
118 |
$frequency->{description} = "Frequency created by t/db_dependant/Serials.t"; |
115 |
$subscriptioninformation->{periodicity} = AddSubscriptionFrequency($frequency); |
119 |
$subscriptioninformation->{periodicity} = AddSubscriptionFrequency($frequency); |
116 |
$subscriptioninformation->{serialsadditems} = 1; |
120 |
$subscriptioninformation->{serialsadditems} = 1; |
|
|
121 |
$subscriptioninformation->{ccode} = 'NFIC'; |
117 |
|
122 |
|
118 |
ModSubscription( @$subscriptioninformation{qw( |
123 |
ModSubscription( @$subscriptioninformation{qw( |
119 |
librarian branchcode aqbooksellerid cost aqbudgetid startdate |
124 |
librarian branchcode aqbooksellerid cost aqbudgetid startdate |
Lines 122-133
if (not $frequency->{unit}) {
Link Here
|
122 |
innerloop2 lastvalue3 innerloop3 status biblionumber callnumber notes |
127 |
innerloop2 lastvalue3 innerloop3 status biblionumber callnumber notes |
123 |
letter manualhistory internalnotes serialsadditems staffdisplaycount |
128 |
letter manualhistory internalnotes serialsadditems staffdisplaycount |
124 |
opacdisplaycount graceperiod location enddate subscriptionid |
129 |
opacdisplaycount graceperiod location enddate subscriptionid |
125 |
skip_serialseq |
130 |
skip_serialseq itemtype previousitemtype mana_id ccode |
126 |
)} ); |
131 |
)} ); |
127 |
} |
132 |
} |
128 |
my $expirationdate = GetExpirationDate($subscriptionid) ; |
133 |
my $expirationdate = GetExpirationDate($subscriptionid) ; |
129 |
ok( $expirationdate, "expiration date is not NULL" ); |
134 |
ok( $expirationdate, "expiration date is not NULL" ); |
130 |
|
135 |
|
|
|
136 |
# Check ModSubscription has updated the ccode |
137 |
my $subscriptioninformation2 = GetSubscription($subscriptionid); |
138 |
is( $subscriptioninformation2->{ccode}, 'NFIC', 'ModSubscription should update ccode' ); |
139 |
|
131 |
ok(C4::Serials::GetSubscriptionHistoryFromSubscriptionId($subscriptionid), 'test getting history from sub-scription'); |
140 |
ok(C4::Serials::GetSubscriptionHistoryFromSubscriptionId($subscriptionid), 'test getting history from sub-scription'); |
132 |
|
141 |
|
133 |
my ($serials_count, @serials) = GetSerials($subscriptionid); |
142 |
my ($serials_count, @serials) = GetSerials($subscriptionid); |
134 |
- |
|
|