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