View | Details | Raw Unified | Return to bug 18420
Collapse All | Expand All

(-)a/t/db_dependent/Members.t (-7 / +6 lines)
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
- 

Return to bug 18420