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