|
Lines 61-70
my @USERENV = (
Link Here
|
| 61 |
'Test', |
61 |
'Test', |
| 62 |
0, |
62 |
0, |
| 63 |
); |
63 |
); |
| 64 |
my $BRANCH_IDX = 4; |
64 |
my $BRANCH_IDX = 5; |
| 65 |
|
65 |
|
| 66 |
C4::Context->_new_userenv ('DUMMY_SESSION_ID'); |
66 |
C4::Context->_new_userenv ('DUMMY_SESSION_ID'); |
| 67 |
C4::Context->set_userenv ( @USERENV ); |
67 |
C4::Context::set_userenv ( @USERENV ); |
| 68 |
|
68 |
|
| 69 |
my $userenv = C4::Context->userenv |
69 |
my $userenv = C4::Context->userenv |
| 70 |
or BAIL_OUT("No userenv"); |
70 |
or BAIL_OUT("No userenv"); |
|
Lines 155-161
ok (!_find_member($results), "Search (arrayref) for independent branches, differ
Link Here
|
| 155 |
or diag("Card $CARDNUMBER found in the resultset for independent branches: ".Dumper(C4::Context->preference($INDEPENDENT_BRANCHES_PREF), $results)); |
155 |
or diag("Card $CARDNUMBER found in the resultset for independent branches: ".Dumper(C4::Context->preference($INDEPENDENT_BRANCHES_PREF), $results)); |
| 156 |
|
156 |
|
| 157 |
$USERENV[$BRANCH_IDX] = $BRANCHCODE; |
157 |
$USERENV[$BRANCH_IDX] = $BRANCHCODE; |
| 158 |
C4::Context->set_userenv ( @USERENV ); |
158 |
C4::Context::set_userenv ( @USERENV ); |
| 159 |
|
159 |
|
| 160 |
$results = Search("$CHANGED_FIRSTNAME $SURNAME", "surname"); |
160 |
$results = Search("$CHANGED_FIRSTNAME $SURNAME", "surname"); |
| 161 |
ok (_find_member($results), "Full name Search (string) for independent branches, same branch") |
161 |
ok (_find_member($results), "Full name Search (string) for independent branches, same branch") |
| 162 |
- |
|
|