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

(-)a/t/db_dependent/Letters.t (-17 / +24 lines)
Lines 61-75 $dbh->do(q|DELETE FROM message_transport_types|); Link Here
61
my $library = $builder->build({
61
my $library = $builder->build({
62
    source => 'Branch',
62
    source => 'Branch',
63
});
63
});
64
my $patron_category = $builder->build({ source => 'Category' });
65
my $date = dt_from_string;
64
my $date = dt_from_string;
66
my $borrowernumber = AddMember(
65
my $patron = $builder->build({
67
    firstname    => 'Jane',
66
    source => 'Borrower',
68
    surname      => 'Smith',
67
    value => {
69
    categorycode => $patron_category,,
68
        firstname    => 'Jane',
70
    branchcode   => $library->{branchcode},
69
        surname      => 'Smith',
71
    dateofbirth  => $date,
70
        branchcode   => $library->{branchcode},
72
);
71
        dateofbirth  => $date,
72
    },
73
});
74
my $patron_category = $patron->{categorycode};
75
my $borrowernumber = $patron->{borrowernumber};
73
76
74
my $marc_record = MARC::Record->new;
77
my $marc_record = MARC::Record->new;
75
my( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' );
78
my( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' );
Lines 469-482 $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('seri Link Here
469
my ($serials_count, @serials) = GetSerials($subscriptionid);
472
my ($serials_count, @serials) = GetSerials($subscriptionid);
470
my $serial = $serials[0];
473
my $serial = $serials[0];
471
474
472
my $borrowernumber = AddMember(
475
my $patron = $builder->build({
473
    firstname    => 'John',
476
    source => 'Borrower',
474
    surname      => 'Smith',
477
    value => {
475
    categorycode => $patron_category,
478
        firstname    => 'John',
476
    branchcode   => $library->{branchcode},
479
        surname      => 'Smith',
477
    dateofbirth  => $date,
480
        categorycode => $patron_category,
478
    email        => 'john.smith@test.de',
481
        branchcode   => $library->{branchcode},
479
);
482
        dateofbirth  => $date,
483
        email        => 'john.smith@test.de',
484
    },
485
});
486
my $borrowernumber = $patron->{borrowernumber};
487
480
my $alert_id = C4::Letters::addalert($borrowernumber, 'issue', $subscriptionid);
488
my $alert_id = C4::Letters::addalert($borrowernumber, 'issue', $subscriptionid);
481
489
482
490
483
- 

Return to bug 17917