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

(-)a/t/db_dependent/Suggestions.t (-2 / +7 lines)
Lines 18-23 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use t::lib::Mocks;
20
use t::lib::Mocks;
21
use t::lib::TestBuilder;
21
use C4::Context;
22
use C4::Context;
22
use C4::Members;
23
use C4::Members;
23
use C4::Letters;
24
use C4::Letters;
Lines 35-40 BEGIN { Link Here
35
    use_ok('C4::Suggestions');
36
    use_ok('C4::Suggestions');
36
}
37
}
37
38
39
my $builder = t::lib::TestBuilder->new();
38
my $dbh = C4::Context->dbh;
40
my $dbh = C4::Context->dbh;
39
my $sql;
41
my $sql;
40
42
Lines 87-93 my $member = { Link Here
87
    categorycode => 'S',
89
    categorycode => 'S',
88
    branchcode => 'CPL',
90
    branchcode => 'CPL',
89
};
91
};
90
my $borrowernumber = AddMember(%$member);
92
my $patron = $builder->build({
93
    source => 'Borrower',
94
    value => $member,
95
});
96
my $borrowernumber = $patron->{borrowernumber};
91
97
92
my $biblionumber1 = 1;
98
my $biblionumber1 = 1;
93
my $my_suggestion = {
99
my $my_suggestion = {
94
- 

Return to bug 17917