|
Lines 25-31
use C4::Members::AttributeTypes;
Link Here
|
| 25 |
use Koha::Database; |
25 |
use Koha::Database; |
| 26 |
use t::lib::TestBuilder; |
26 |
use t::lib::TestBuilder; |
| 27 |
|
27 |
|
| 28 |
use Test::More tests => 53; |
28 |
use Test::More tests => 55; |
| 29 |
|
29 |
|
| 30 |
use_ok('C4::Members::Attributes'); |
30 |
use_ok('C4::Members::Attributes'); |
| 31 |
|
31 |
|
|
Lines 220-222
is( $borrower_attributes->[0]->{value}, $attributes->[1]->{value}, 'DeleteBorrow
Link Here
|
| 220 |
C4::Members::Attributes::DeleteBorrowerAttribute($borrowernumber, $attributes->[1]); |
220 |
C4::Members::Attributes::DeleteBorrowerAttribute($borrowernumber, $attributes->[1]); |
| 221 |
$borrower_attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber); |
221 |
$borrower_attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber); |
| 222 |
is( @$borrower_attributes, 1, 'DeleteBorrowerAttribute deletes a borrower attribute' ); |
222 |
is( @$borrower_attributes, 1, 'DeleteBorrowerAttribute deletes a borrower attribute' ); |
| 223 |
- |
223 |
|
|
|
224 |
# Regression tests for bug 16504 |
| 225 |
C4::Context->set_userenv(123, 'userid', 'usercnum', 'First name', 'Surname', $new_library->{branchcode}, 'My Library', 0); |
| 226 |
my $another_patron = $builder->build( |
| 227 |
{ source => 'Borrower', |
| 228 |
value => { |
| 229 |
firstname => 'my another firstname', |
| 230 |
surname => 'my another surname', |
| 231 |
categorycode => 'S', |
| 232 |
branchcode => $new_library->{branchcode}, |
| 233 |
} |
| 234 |
} |
| 235 |
); |
| 236 |
$attributes = [ |
| 237 |
{ |
| 238 |
value => 'my attribute1', |
| 239 |
code => $attribute_type1->code(), |
| 240 |
}, |
| 241 |
{ |
| 242 |
value => 'my attribute2', |
| 243 |
code => $attribute_type2->code(), |
| 244 |
}, |
| 245 |
{ |
| 246 |
value => 'my attribute limited', |
| 247 |
code => $attribute_type_limited->code(), |
| 248 |
} |
| 249 |
]; |
| 250 |
C4::Members::Attributes::SetBorrowerAttributes($another_patron->{borrowernumber}, $attributes); |
| 251 |
$borrower_attributes = C4::Members::Attributes::GetBorrowerAttributes($another_patron->{borrowernumber}); |
| 252 |
is( @$borrower_attributes, 3, 'SetBorrowerAttributes should have added the 3 attributes for another patron'); |
| 253 |
$borrower_attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber); |
| 254 |
is( @$borrower_attributes, 1, 'SetBorrowerAttributes should not have removed the attributes of other patrons' ); |