|
Lines 34-44
my $dbh = C4::Context->dbh;
Link Here
|
| 34 |
my $branch_1 = $builder->build({ source => 'Branch' })->{ branchcode }; |
34 |
my $branch_1 = $builder->build({ source => 'Branch' })->{ branchcode }; |
| 35 |
my $branch_2 = $builder->build({ source => 'Branch' })->{ branchcode }; |
35 |
my $branch_2 = $builder->build({ source => 'Branch' })->{ branchcode }; |
| 36 |
|
36 |
|
| 37 |
# This test assumes we have a category S. This statement helps. |
37 |
my $category = $builder->build({ source => 'Category' })->{categorycode}; |
| 38 |
$builder->build({ |
|
|
| 39 |
source => 'Category', |
| 40 |
value => { categorycode => 'S', category_type => 'S' }, |
| 41 |
}); |
| 42 |
|
38 |
|
| 43 |
my $borrowers_count = 5; |
39 |
my $borrowers_count = 5; |
| 44 |
|
40 |
|
|
Lines 64-70
foreach (1..$borrowers_count) {
Link Here
|
| 64 |
my $borrowernumber = AddMember( |
60 |
my $borrowernumber = AddMember( |
| 65 |
firstname => 'my firstname', |
61 |
firstname => 'my firstname', |
| 66 |
surname => 'my surname ' . $_, |
62 |
surname => 'my surname ' . $_, |
| 67 |
categorycode => 'S', |
63 |
categorycode => $category, |
| 68 |
branchcode => $branch_1, |
64 |
branchcode => $branch_1, |
| 69 |
); |
65 |
); |
| 70 |
push @borrowernumbers, $borrowernumber; |
66 |
push @borrowernumbers, $borrowernumber; |
| 71 |
- |
|
|