View | Details | Raw Unified | Return to bug 19004
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Patrons.t (-9 / +8 lines)
Lines 32-37 use C4::Circulation; Link Here
32
use Koha::Holds;
32
use Koha::Holds;
33
use Koha::Patron;
33
use Koha::Patron;
34
use Koha::Patrons;
34
use Koha::Patrons;
35
use Koha::Patron::Categories;
35
use Koha::Database;
36
use Koha::Database;
36
use Koha::DateUtils;
37
use Koha::DateUtils;
37
use Koha::Virtualshelves;
38
use Koha::Virtualshelves;
Lines 375-388 subtest "delete" => sub { Link Here
375
subtest 'add_enrolment_fee_if_needed' => sub {
376
subtest 'add_enrolment_fee_if_needed' => sub {
376
    plan tests => 4;
377
    plan tests => 4;
377
378
378
    my $enrolmentfee_K  = 5;
379
    my $enrolmentfees = { K  => 5, J => 10, YA => 20 };
379
    my $enrolmentfee_J  = 10;
380
    foreach( keys %{$enrolmentfees} ) {
380
    my $enrolmentfee_YA = 20;
381
        ( Koha::Patron::Categories->find( $_ ) // $builder->build_object({ class => 'Koha::Patron::Categories', value => { categorycode => $_ } }) )->enrolmentfee( $enrolmentfees->{$_} )->store;
381
382
    }
382
    my $dbh = C4::Context->dbh;
383
    my $enrolmentfee_K  = $enrolmentfees->{K};
383
    $dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_K, 'K');
384
    my $enrolmentfee_J  = $enrolmentfees->{J};
384
    $dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_J, 'J');
385
    my $enrolmentfee_YA = $enrolmentfees->{YA};
385
    $dbh->do(q|UPDATE categories set enrolmentfee=? where categorycode=?|, undef, $enrolmentfee_YA, 'YA');
386
386
387
    my %borrower_data = (
387
    my %borrower_data = (
388
        firstname    => 'my firstname',
388
        firstname    => 'my firstname',
389
- 

Return to bug 19004