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', }, ); |