Lines 18-24
Link Here
|
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use Test::More tests => 13; |
21 |
use Test::More tests => 14; |
22 |
|
22 |
|
23 |
use MARC::Record; |
23 |
use MARC::Record; |
24 |
|
24 |
|
Lines 188-193
$prepared_letter = GetPreparedLetter(
Link Here
|
188 |
); |
188 |
); |
189 |
is( $prepared_letter->{content}, $hold->id(), 'Hold object used correctly' ); |
189 |
is( $prepared_letter->{content}, $hold->id(), 'Hold object used correctly' ); |
190 |
|
190 |
|
|
|
191 |
# Bug 16942 |
192 |
$prepared_letter = GetPreparedLetter( |
193 |
( |
194 |
module => 'test', |
195 |
letter_code => 'TEST_HOLD', |
196 |
tables => { |
197 |
'branches' => $library, |
198 |
'borrowers' => $patron, |
199 |
'biblio' => $biblio->id, |
200 |
'biblioitems' => $biblioitem->id, |
201 |
'reserves' => $hold->unblessed, |
202 |
'items' => $hold->itemnumber, |
203 |
} |
204 |
) |
205 |
); |
206 |
is( $prepared_letter->{content}, $hold->id(), 'Hold object used correctly' ); |
207 |
|
191 |
$sth->execute( "TEST_SERIAL", "[% serial.id %]" ); |
208 |
$sth->execute( "TEST_SERIAL", "[% serial.id %]" ); |
192 |
$prepared_letter = GetPreparedLetter( |
209 |
$prepared_letter = GetPreparedLetter( |
193 |
( |
210 |
( |
194 |
- |
|
|