Lines 75-87
my $pattern_id = AddSubscriptionNumberpattern({
Link Here
|
75 |
whenmorethan1 => 1, |
75 |
whenmorethan1 => 1, |
76 |
}); |
76 |
}); |
77 |
|
77 |
|
78 |
my $notes = 'notes'; |
78 |
my $notes = "a\nnote\non\nseveral\nlines"; |
79 |
my $internalnotes = 'intnotes'; |
79 |
my $internalnotes = 'intnotes'; |
80 |
my $subscriptionid = NewSubscription( |
80 |
my $subscriptionid = NewSubscription( |
81 |
undef, "", undef, undef, $budget_id, $biblionumber, |
81 |
undef, "", undef, undef, $budget_id, $biblionumber, |
82 |
'2013-01-01', $frequency_id, undef, undef, undef, |
82 |
'2013-01-01', $frequency_id, undef, undef, undef, |
83 |
undef, undef, undef, undef, undef, undef, |
83 |
undef, undef, undef, undef, undef, undef, |
84 |
1, $notes,undef, '2013-01-01', undef, $pattern_id, |
84 |
1, $notes, ,undef, '2013-01-01', undef, $pattern_id, |
85 |
undef, undef, 0, $internalnotes, 0, |
85 |
undef, undef, 0, $internalnotes, 0, |
86 |
undef, undef, 0, undef, '2013-12-31', 0 |
86 |
undef, undef, 0, undef, '2013-12-31', 0 |
87 |
); |
87 |
); |
Lines 193-199
if ($old_frequency) {
Link Here
|
193 |
is(C4::Serials::AddItem2Serial(), undef, 'test adding item to serial'); |
193 |
is(C4::Serials::AddItem2Serial(), undef, 'test adding item to serial'); |
194 |
is(C4::Serials::GetFullSubscription(), undef, 'test getting full subscription'); |
194 |
is(C4::Serials::GetFullSubscription(), undef, 'test getting full subscription'); |
195 |
is(C4::Serials::PrepareSerialsData(), undef, 'test preparing serial data'); |
195 |
is(C4::Serials::PrepareSerialsData(), undef, 'test preparing serial data'); |
196 |
is(C4::Serials::GetSubscriptionsFromBiblionumber(), undef, 'test getting subscriptions form biblio number'); |
196 |
|
|
|
197 |
subtest 'GetSubscriptionsFromBiblionumber' => sub { |
198 |
plan tests => 4; |
199 |
|
200 |
is( C4::Serials::GetSubscriptionsFromBiblionumber(), |
201 |
undef, 'test getting subscriptions form biblio number' ); |
202 |
|
203 |
my $subscriptions = C4::Serials::GetSubscriptionsFromBiblionumber($biblionumber); |
204 |
ModSubscriptionHistory( $subscriptions->[0]->{subscriptionid}, |
205 |
undef, undef, $notes, $notes, $notes ); |
206 |
|
207 |
$subscriptions = C4::Serials::GetSubscriptionsFromBiblionumber($biblionumber); |
208 |
is( $subscriptions->[0]->{opacnote}, $notes, |
209 |
'GetSubscriptionsFromBiblionumber should have returned the opacnote as it is in DB, ie. without br tags' |
210 |
); |
211 |
is( $subscriptions->[0]->{recievedlist}, $notes, |
212 |
'GetSubscriptionsFromBiblionumber should have returned recievedlist as it is in DB, ie. without br tags' |
213 |
); |
214 |
is( $subscriptions->[0]->{missinglist}, $notes, |
215 |
'GetSubscriptionsFromBiblionumber should have returned missinglist as it is in DB, ie. without br tags' |
216 |
); |
217 |
}; |
197 |
|
218 |
|
198 |
is(C4::Serials::GetSerials(), undef, 'test getting serials when you enter nothing'); |
219 |
is(C4::Serials::GetSerials(), undef, 'test getting serials when you enter nothing'); |
199 |
is(C4::Serials::GetSerials2(), undef, 'test getting serials when you enter nothing'); |
220 |
is(C4::Serials::GetSerials2(), undef, 'test getting serials when you enter nothing'); |
200 |
- |
|
|