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