|
Lines 182-190
subtest 'add_enrolment_fee_if_needed' => sub {
Link Here
|
| 182 |
my $enrolmentfee_J = 10; |
182 |
my $enrolmentfee_J = 10; |
| 183 |
my $enrolmentfee_YA = 20; |
183 |
my $enrolmentfee_YA = 20; |
| 184 |
|
184 |
|
| 185 |
$builder->build( { source => 'Category', value => { categorycode => 'K', enrolmentfee => $enrolmentfee_K } } ); |
185 |
my $dbh = C4::Context->dbh; |
| 186 |
$builder->build( { source => 'Category', value => { categorycode => 'J', enrolmentfee => $enrolmentfee_J } } ); |
186 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_K, 'K'); |
| 187 |
$builder->build( { source => 'Category', value => { categorycode => 'YA', enrolmentfee => $enrolmentfee_YA } } ); |
187 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_J, 'J'); |
|
|
188 |
$dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_YA, 'YA'); |
| 188 |
|
189 |
|
| 189 |
my %borrower_data = ( |
190 |
my %borrower_data = ( |
| 190 |
firstname => 'my firstname', |
191 |
firstname => 'my firstname', |
| 191 |
- |
|
|