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 |
- |
|
|