|
Lines 106-114
my %data = (
Link Here
|
| 106 |
surname => 'my surname', |
106 |
surname => 'my surname', |
| 107 |
categorycode => $category_1, |
107 |
categorycode => $category_1, |
| 108 |
branchcode => $branch_1, |
108 |
branchcode => $branch_1, |
|
|
109 |
dateofbirth => undef, |
| 109 |
); |
110 |
); |
| 110 |
Koha::Patron::Categories->find($category_1)->set({ enrolmentfee => 0})->store; |
111 |
Koha::Patron::Categories->find($category_1)->set({ enrolmentfee => 0})->store; |
| 111 |
my $borrowernumber = AddMember(%data); |
112 |
my $patron = $builder->build({ |
|
|
113 |
source => 'Borrower', |
| 114 |
value => \%data, |
| 115 |
}); |
| 116 |
my $borrowernumber = $patron->{borrowernumber}; |
| 112 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
117 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
| 113 |
my $biblionumber = $bibnum; |
118 |
my $biblionumber = $bibnum; |
| 114 |
my $barcode = $testbarcode; |
119 |
my $barcode = $testbarcode; |
|
Lines 160-187
t::lib::Mocks::mock_preference( 'ReservesControlBranch', $ReservesControlBranch
Link Here
|
| 160 |
### Regression test for bug 10272 |
165 |
### Regression test for bug 10272 |
| 161 |
### |
166 |
### |
| 162 |
my %requesters = (); |
167 |
my %requesters = (); |
| 163 |
$requesters{$branch_1} = AddMember( |
168 |
my $patron_branch1 = $builder->build({ |
| 164 |
branchcode => $branch_1, |
169 |
source => 'Borrower', |
| 165 |
categorycode => $category_2, |
170 |
value => { |
| 166 |
surname => "borrower from $branch_1", |
|
|
| 167 |
); |
| 168 |
for my $i ( 2 .. 5 ) { |
| 169 |
$requesters{"CPL$i"} = AddMember( |
| 170 |
branchcode => $branch_1, |
171 |
branchcode => $branch_1, |
| 171 |
categorycode => $category_2, |
172 |
categorycode => $category_2, |
| 172 |
surname => "borrower $i from $branch_1", |
173 |
surname => "borrower from $branch_1", |
| 173 |
); |
174 |
}, |
|
|
175 |
}); |
| 176 |
$requesters{$branch_1} = $patron_branch1->{borrowernumber}; |
| 177 |
for my $i ( 2 .. 5 ) { |
| 178 |
my $patron_cpl = $builder->build({ |
| 179 |
source => 'Borrower', |
| 180 |
value => { |
| 181 |
branchcode => $branch_1, |
| 182 |
categorycode => $category_2, |
| 183 |
surname => "borrower $i from $branch_1", |
| 184 |
}, |
| 185 |
}); |
| 186 |
$requesters{"CPL$i"} = $patron_cpl; |
| 174 |
} |
187 |
} |
| 175 |
$requesters{$branch_2} = AddMember( |
188 |
my $patron_branch2 = $builder->build({ |
| 176 |
branchcode => $branch_2, |
189 |
source => 'Borrower', |
| 177 |
categorycode => $category_2, |
190 |
value => { |
| 178 |
surname => "borrower from $branch_2", |
191 |
branchcode => $branch_2, |
| 179 |
); |
192 |
categorycode => $category_2, |
| 180 |
$requesters{$branch_3} = AddMember( |
193 |
surname => "borrower from $branch_2", |
| 181 |
branchcode => $branch_3, |
194 |
} |
| 182 |
categorycode => $category_2, |
195 |
}); |
| 183 |
surname => "borrower from $branch_3", |
196 |
$requesters{$branch_2} = $patron_branch2->{borrowernumber}; |
| 184 |
); |
197 |
my $patron_branch3 = $builder->build({ |
|
|
198 |
source => 'Borrower', |
| 199 |
value => { |
| 200 |
branchcode => $branch_3, |
| 201 |
categorycode => $category_2, |
| 202 |
surname => "borrower from $branch_3", |
| 203 |
}, |
| 204 |
}); |
| 205 |
$requesters{$branch_3} = $patron_branch3->{borrowernumber}; |
| 185 |
|
206 |
|
| 186 |
# Configure rules so that $branch_1 allows only $branch_1 patrons |
207 |
# Configure rules so that $branch_1 allows only $branch_1 patrons |
| 187 |
# to request its items, while $branch_2 will allow its items |
208 |
# to request its items, while $branch_2 will allow its items |
| 188 |
- |
|
|