|
Lines 35-48
$schema->storage->txn_begin;
Link Here
|
| 35 |
my $builder = t::lib::TestBuilder->new; |
35 |
my $builder = t::lib::TestBuilder->new; |
| 36 |
|
36 |
|
| 37 |
# TODO create a subroutine in t::lib::Mocks |
37 |
# TODO create a subroutine in t::lib::Mocks |
| 38 |
my $userenv_patron = $builder->build( { source => 'Borrower', }, ); |
38 |
my $branch = $builder->build({ source => 'Branch' }); |
|
|
39 |
my $userenv_patron = $builder->build({ |
| 40 |
source => 'Borrower', |
| 41 |
value => { branchcode => $branch->{branchcode} }, |
| 42 |
}); |
| 39 |
C4::Context->_new_userenv('DUMMY SESSION'); |
43 |
C4::Context->_new_userenv('DUMMY SESSION'); |
| 40 |
C4::Context->set_userenv( |
44 |
C4::Context->set_userenv( |
| 41 |
$userenv_patron->{borrowernumber}, |
45 |
$userenv_patron->{borrowernumber}, |
| 42 |
$userenv_patron->{userid}, |
46 |
$userenv_patron->{userid}, |
| 43 |
'usercnum', 'First name', 'Surname', |
47 |
'usercnum', 'First name', 'Surname', |
| 44 |
$userenv_patron->{_fk}{branchcode}{branchcode}, |
48 |
$branch->{branchcode}, |
| 45 |
$userenv_patron->{_fk}{branchcode}{branchname}, 0 |
49 |
$branch->{branchname}, |
|
|
50 |
0, |
| 46 |
); |
51 |
); |
| 47 |
|
52 |
|
| 48 |
my $anonymous = $builder->build( { source => 'Borrower', }, ); |
53 |
my $anonymous = $builder->build( { source => 'Borrower', }, ); |