Lines 76-85
while ( my $hold = $holds->next() ) {
Link Here
|
76 |
my $borrower = Koha::Borrowers->find( $hold->borrowernumber ); |
76 |
my $borrower = Koha::Borrowers->find( $hold->borrowernumber ); |
77 |
|
77 |
|
78 |
my $letter = GetPreparedLetter( |
78 |
my $letter = GetPreparedLetter( |
79 |
module => 'reserves', |
79 |
module => 'reserves', |
80 |
letter_code => 'HOLD_PLACED_PRINT', |
80 |
letter_code => 'HOLDPLACED', |
81 |
branchcode => $hold->branchcode, |
81 |
branchcode => $hold->branchcode, |
82 |
tables => { |
82 |
message_transport_type => 'print', |
|
|
83 |
tables => { |
83 |
branches => $hold->branchcode, |
84 |
branches => $hold->branchcode, |
84 |
biblio => $hold->biblionumber, |
85 |
biblio => $hold->biblionumber, |
85 |
biblioitems => $hold->biblionumber, |
86 |
biblioitems => $hold->biblionumber, |
Lines 87-93
while ( my $hold = $holds->next() ) {
Link Here
|
87 |
borrowers => $borrower->unblessed, |
88 |
borrowers => $borrower->unblessed, |
88 |
reserves => $hold->unblessed, |
89 |
reserves => $hold->unblessed, |
89 |
|
90 |
|
90 |
} |
91 |
}, |
91 |
); |
92 |
); |
92 |
|
93 |
|
93 |
if ( defined( $printers{ $hold->branchcode } ) ) { |
94 |
if ( defined( $printers{ $hold->branchcode } ) ) { |
Lines 155-160
Run in test mode. Holds will not actually be printed.
Link Here
|
155 |
|
156 |
|
156 |
Run in production mode. Holds will be printed to printers. |
157 |
Run in production mode. Holds will be printed to printers. |
157 |
|
158 |
|
|
|
159 |
=back |
160 |
|
158 |
=head1 DESCRIPTION |
161 |
=head1 DESCRIPTION |
159 |
|
162 |
|
160 |
B<This program> will print on-demand notices for items in the holds queue as they appear. |
163 |
B<This program> will print on-demand notices for items in the holds queue as they appear. |