|
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 |
- |
|
|