|
Lines 215-223
subtest 'add_enrolment_fee_if_needed' => sub {
Link Here
|
| 215 |
my $enrolmentfee_J = 10; |
215 |
my $enrolmentfee_J = 10; |
| 216 |
my $enrolmentfee_YA = 20; |
216 |
my $enrolmentfee_YA = 20; |
| 217 |
|
217 |
|
| 218 |
$builder->build( { source => 'Category', value => { categorycode => 'K', enrolmentfee => $enrolmentfee_K } } ); |
218 |
my $dbh = C4::Context->dbh; |
| 219 |
$builder->build( { source => 'Category', value => { categorycode => 'J', enrolmentfee => $enrolmentfee_J } } ); |
219 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_K, 'K'); |
| 220 |
$builder->build( { source => 'Category', value => { categorycode => 'YA', enrolmentfee => $enrolmentfee_YA } } ); |
220 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_J, 'J'); |
|
|
221 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_YA, 'YA'); |
| 221 |
|
222 |
|
| 222 |
my %borrower_data = ( |
223 |
my %borrower_data = ( |
| 223 |
firstname => 'my firstname', |
224 |
firstname => 'my firstname', |
| 224 |
- |
|
|