Lines 50-59
my @USERENV = (
Link Here
|
50 |
'Test', |
50 |
'Test', |
51 |
0, |
51 |
0, |
52 |
); |
52 |
); |
53 |
my $BRANCH_IDX = 4; |
53 |
my $BRANCH_IDX = 5; |
54 |
|
54 |
|
55 |
C4::Context->_new_userenv ('DUMMY_SESSION_ID'); |
55 |
C4::Context->_new_userenv ('DUMMY_SESSION_ID'); |
56 |
C4::Context->set_userenv ( @USERENV ); |
56 |
C4::Context::set_userenv ( @USERENV ); |
57 |
|
57 |
|
58 |
my $userenv = C4::Context->userenv |
58 |
my $userenv = C4::Context->userenv |
59 |
or BAIL_OUT("No userenv"); |
59 |
or BAIL_OUT("No userenv"); |
Lines 143-149
ok (!_find_member($results), "Search (arrayref) for independent branches, differ
Link Here
|
143 |
or diag("Card $CARDNUMBER found in the resultset for independent branches: ".Dumper(C4::Context->preference($INDEPENDENT_BRANCHES_PREF), $results)); |
143 |
or diag("Card $CARDNUMBER found in the resultset for independent branches: ".Dumper(C4::Context->preference($INDEPENDENT_BRANCHES_PREF), $results)); |
144 |
|
144 |
|
145 |
$USERENV[$BRANCH_IDX] = $BRANCHCODE; |
145 |
$USERENV[$BRANCH_IDX] = $BRANCHCODE; |
146 |
C4::Context->set_userenv ( @USERENV ); |
146 |
C4::Context::set_userenv ( @USERENV ); |
147 |
|
147 |
|
148 |
$results = Search("$CHANGED_FIRSTNAME $SURNAME", "surname"); |
148 |
$results = Search("$CHANGED_FIRSTNAME $SURNAME", "surname"); |
149 |
ok (_find_member($results), "Full name Search (string) for independent branches, same branch") |
149 |
ok (_find_member($results), "Full name Search (string) for independent branches, same branch") |
150 |
- |
|
|