|
Lines 47-56
my $library1 = $builder->build({
Link Here
|
| 47 |
my $library2 = $builder->build({ |
47 |
my $library2 = $builder->build({ |
| 48 |
source => 'Branch', |
48 |
source => 'Branch', |
| 49 |
}); |
49 |
}); |
|
|
50 |
my $patron_category = $builder->build({ source => 'Category' }); |
| 50 |
my $CARDNUMBER = 'TESTCARD01'; |
51 |
my $CARDNUMBER = 'TESTCARD01'; |
| 51 |
my $FIRSTNAME = 'Marie'; |
52 |
my $FIRSTNAME = 'Marie'; |
| 52 |
my $SURNAME = 'Mcknight'; |
53 |
my $SURNAME = 'Mcknight'; |
| 53 |
my $CATEGORYCODE = 'S'; |
|
|
| 54 |
my $BRANCHCODE = $library1->{branchcode}; |
54 |
my $BRANCHCODE = $library1->{branchcode}; |
| 55 |
|
55 |
|
| 56 |
my $CHANGED_FIRSTNAME = "Marry Ann"; |
56 |
my $CHANGED_FIRSTNAME = "Marry Ann"; |
|
Lines 85-91
my %data = (
Link Here
|
| 85 |
cardnumber => $CARDNUMBER, |
85 |
cardnumber => $CARDNUMBER, |
| 86 |
firstname => $FIRSTNAME, |
86 |
firstname => $FIRSTNAME, |
| 87 |
surname => $SURNAME, |
87 |
surname => $SURNAME, |
| 88 |
categorycode => $CATEGORYCODE, |
88 |
categorycode => $patron_category->{categorycode}, |
| 89 |
branchcode => $BRANCHCODE, |
89 |
branchcode => $BRANCHCODE, |
| 90 |
dateofbirth => '', |
90 |
dateofbirth => '', |
| 91 |
dateexpiry => '9999-12-31', |
91 |
dateexpiry => '9999-12-31', |
|
Lines 100-106
my $member = GetMember( cardnumber => $CARDNUMBER )
Link Here
|
| 100 |
|
100 |
|
| 101 |
ok ( $member->{firstname} eq $FIRSTNAME && |
101 |
ok ( $member->{firstname} eq $FIRSTNAME && |
| 102 |
$member->{surname} eq $SURNAME && |
102 |
$member->{surname} eq $SURNAME && |
| 103 |
$member->{categorycode} eq $CATEGORYCODE && |
103 |
$member->{categorycode} eq $patron_category->{categorycode} && |
| 104 |
$member->{branchcode} eq $BRANCHCODE |
104 |
$member->{branchcode} eq $BRANCHCODE |
| 105 |
, "Got member") |
105 |
, "Got member") |
| 106 |
or diag("Mismatching member details: ".Dumper(\%data, $member)); |
106 |
or diag("Mismatching member details: ".Dumper(\%data, $member)); |
|
Lines 154-160
is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when
Link Here
|
| 154 |
cardnumber => "123456789", |
154 |
cardnumber => "123456789", |
| 155 |
firstname => "Tomasito", |
155 |
firstname => "Tomasito", |
| 156 |
surname => "None", |
156 |
surname => "None", |
| 157 |
categorycode => "S", |
157 |
categorycode => $patron_category->{categorycode}, |
| 158 |
branchcode => $library2->{branchcode}, |
158 |
branchcode => $library2->{branchcode}, |
| 159 |
dateofbirth => '', |
159 |
dateofbirth => '', |
| 160 |
debarred => '', |
160 |
debarred => '', |
|
Lines 367-376
isnt( Koha::Patrons->find( $patron2->{borrowernumber} )->lastseen, undef, 'Lasts
Link Here
|
| 367 |
## Remove all entries with userid='' (should be only 1 max) |
367 |
## Remove all entries with userid='' (should be only 1 max) |
| 368 |
$dbh->do(q|DELETE FROM borrowers WHERE userid = ''|); |
368 |
$dbh->do(q|DELETE FROM borrowers WHERE userid = ''|); |
| 369 |
## And create a patron with a userid='' |
369 |
## And create a patron with a userid='' |
| 370 |
$borrowernumber = AddMember( categorycode => 'S', branchcode => $library2->{branchcode} ); |
370 |
$borrowernumber = AddMember( categorycode => $patron_category->{categorycode}, branchcode => $library2->{branchcode} ); |
| 371 |
$dbh->do(q|UPDATE borrowers SET userid = '' WHERE borrowernumber = ?|, undef, $borrowernumber); |
371 |
$dbh->do(q|UPDATE borrowers SET userid = '' WHERE borrowernumber = ?|, undef, $borrowernumber); |
| 372 |
# Create another patron and verify the userid has been generated |
372 |
# Create another patron and verify the userid has been generated |
| 373 |
$borrowernumber = AddMember( categorycode => 'S', branchcode => $library2->{branchcode} ); |
373 |
$borrowernumber = AddMember( categorycode => $patron_category->{categorycode}, branchcode => $library2->{branchcode} ); |
| 374 |
ok( $borrowernumber > 0, 'AddMember should have inserted the patron even if no userid is given' ); |
374 |
ok( $borrowernumber > 0, 'AddMember should have inserted the patron even if no userid is given' ); |
| 375 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
375 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
| 376 |
ok( $borrower->{userid}, 'A userid should have been generated correctly' ); |
376 |
ok( $borrower->{userid}, 'A userid should have been generated correctly' ); |
| 377 |
- |
|
|