|
Lines 258-266
subtest 'add_enrolment_fee_if_needed' => sub {
Link Here
|
| 258 |
my $enrolmentfee_J = 10; |
258 |
my $enrolmentfee_J = 10; |
| 259 |
my $enrolmentfee_YA = 20; |
259 |
my $enrolmentfee_YA = 20; |
| 260 |
|
260 |
|
| 261 |
$builder->build( { source => 'Category', value => { categorycode => 'K', enrolmentfee => $enrolmentfee_K } } ); |
261 |
my $dbh = C4::Context->dbh; |
| 262 |
$builder->build( { source => 'Category', value => { categorycode => 'J', enrolmentfee => $enrolmentfee_J } } ); |
262 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_K, 'K'); |
| 263 |
$builder->build( { source => 'Category', value => { categorycode => 'YA', enrolmentfee => $enrolmentfee_YA } } ); |
263 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_J, 'J'); |
|
|
264 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_YA, 'YA'); |
| 264 |
|
265 |
|
| 265 |
my %borrower_data = ( |
266 |
my %borrower_data = ( |
| 266 |
firstname => 'my firstname', |
267 |
firstname => 'my firstname', |
| 267 |
- |
|
|