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