|
Lines 276-290
ok (!_find_member($results), "Delete member")
Link Here
|
| 276 |
branchcode => "MPL", |
276 |
branchcode => "MPL", |
| 277 |
dateofbirth => '', |
277 |
dateofbirth => '', |
| 278 |
dateexpiry => '9999-12-31', |
278 |
dateexpiry => '9999-12-31', |
| 279 |
userid => 'tomasito' |
|
|
| 280 |
); |
279 |
); |
| 281 |
# Add a new borrower |
280 |
# Add a new borrower |
| 282 |
my $borrowernumber = AddMember( %data ); |
281 |
my $borrowernumber = AddMember( %data ); |
| 283 |
is( Check_Userid( 'tomasito', $borrowernumber ), 1, |
282 |
is( Check_Userid( 'tomasito.non', $borrowernumber ), 1, |
| 284 |
'recently created userid -> unique (borrowernumber passed)' ); |
283 |
'recently created userid -> unique (borrowernumber passed)' ); |
| 285 |
is( Check_Userid( 'tomasitoxxx', $borrowernumber ), 1, |
284 |
is( Check_Userid( 'tomasitoxxx', $borrowernumber ), 1, |
| 286 |
'non-existent userid -> unique (borrowernumber passed)' ); |
285 |
'non-existent userid -> unique (borrowernumber passed)' ); |
| 287 |
is( Check_Userid( 'tomasito', '' ), 0, |
286 |
is( Check_Userid( 'tomasito.none', '' ), 0, |
| 288 |
'userid exists (blank borrowernumber)' ); |
287 |
'userid exists (blank borrowernumber)' ); |
| 289 |
is( Check_Userid( 'tomasitoxxx', '' ), 1, |
288 |
is( Check_Userid( 'tomasitoxxx', '' ), 1, |
| 290 |
'non-existent userid -> unique (blank borrowernumber)' ); |
289 |
'non-existent userid -> unique (blank borrowernumber)' ); |
|
Lines 292-303
is( Check_Userid( 'tomasitoxxx', '' ), 1,
Link Here
|
| 292 |
# Add a new borrower with the same userid but different cardnumber |
291 |
# Add a new borrower with the same userid but different cardnumber |
| 293 |
$data{ cardnumber } = "987654321"; |
292 |
$data{ cardnumber } = "987654321"; |
| 294 |
my $new_borrowernumber = AddMember( %data ); |
293 |
my $new_borrowernumber = AddMember( %data ); |
| 295 |
is( Check_Userid( 'tomasito', '' ), 0, |
294 |
is( Check_Userid( 'tomasito.none', '' ), 0, |
| 296 |
'userid not unique (blank borrowernumber)' ); |
295 |
'userid not unique (blank borrowernumber)' ); |
| 297 |
is( Check_Userid( 'tomasito', $borrowernumber ), 0, |
296 |
is( Check_Userid( 'tomasito.none', $new_borrowernumber ), 0, |
| 298 |
'userid not unique (first borrowernumber passed)' ); |
|
|
| 299 |
is( Check_Userid( 'tomasito', $new_borrowernumber ), 0, |
| 300 |
'userid not unique (second borrowernumber passed)' ); |
297 |
'userid not unique (second borrowernumber passed)' ); |
|
|
298 |
my $borrower = GetMember( borrowernumber => $new_borrowernumber ); |
| 299 |
ok( $borrower->{userid} ne 'tomasito', "Borrower with duplicate userid has new userid generated" ); |
| 301 |
|
300 |
|
| 302 |
# Regression tests for BZ12226 |
301 |
# Regression tests for BZ12226 |
| 303 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
302 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
| 304 |
- |
|
|