|
Lines 83-89
my $userenv = C4::Context->userenv
Link Here
|
| 83 |
# Make a borrower for testing |
83 |
# Make a borrower for testing |
| 84 |
my %data = ( |
84 |
my %data = ( |
| 85 |
cardnumber => $CARDNUMBER, |
85 |
cardnumber => $CARDNUMBER, |
| 86 |
firstname => $FIRSTNAME, |
86 |
firstname => $FIRSTNAME . q{ }, |
| 87 |
surname => $SURNAME, |
87 |
surname => $SURNAME, |
| 88 |
categorycode => $patron_category->{categorycode}, |
88 |
categorycode => $patron_category->{categorycode}, |
| 89 |
branchcode => $BRANCHCODE, |
89 |
branchcode => $BRANCHCODE, |
|
Lines 107-113
ok ( $member->{firstname} eq $FIRSTNAME &&
Link Here
|
| 107 |
|
107 |
|
| 108 |
is($member->{dateofbirth}, undef, "Empty dates handled correctly"); |
108 |
is($member->{dateofbirth}, undef, "Empty dates handled correctly"); |
| 109 |
|
109 |
|
| 110 |
$member->{firstname} = $CHANGED_FIRSTNAME; |
110 |
$member->{firstname} = $CHANGED_FIRSTNAME . q{ }; |
| 111 |
$member->{email} = $EMAIL; |
111 |
$member->{email} = $EMAIL; |
| 112 |
$member->{phone} = $PHONE; |
112 |
$member->{phone} = $PHONE; |
| 113 |
$member->{emailpro} = $EMAILPRO; |
113 |
$member->{emailpro} = $EMAILPRO; |
| 114 |
- |
|
|