View | Details | Raw Unified | Return to bug 23126
Collapse All | Expand All

(-)a/t/db_dependent/Serials.t (-4 / +24 lines)
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
- 

Return to bug 23126