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 172-178
ok (!_find_member($results), "Search (arrayref) for independent branches, differ
Link Here
|
172 |
or diag("Card $CARDNUMBER found in the resultset for independent branches: ".Dumper(C4::Context->preference($INDEPENDENT_BRANCHES_PREF), $results)); |
172 |
or diag("Card $CARDNUMBER found in the resultset for independent branches: ".Dumper(C4::Context->preference($INDEPENDENT_BRANCHES_PREF), $results)); |
173 |
|
173 |
|
174 |
$USERENV[$BRANCH_IDX] = $BRANCHCODE; |
174 |
$USERENV[$BRANCH_IDX] = $BRANCHCODE; |
175 |
C4::Context::set_userenv ( @USERENV ); |
175 |
C4::Context->set_userenv ( @USERENV ); |
176 |
|
176 |
|
177 |
$results = Search("$CHANGED_FIRSTNAME $SURNAME", "surname"); |
177 |
$results = Search("$CHANGED_FIRSTNAME $SURNAME", "surname"); |
178 |
ok (_find_member($results), "Full name Search (string) for independent branches, same branch") |
178 |
ok (_find_member($results), "Full name Search (string) for independent branches, same branch") |
179 |
- |
|
|