|
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 |
- |
|
|