|
Lines 194-200
my $samplebranch = {
Link Here
|
| 194 |
opac_info => 'sample opac', |
194 |
opac_info => 'sample opac', |
| 195 |
}; |
195 |
}; |
| 196 |
Koha::Library->new($samplebranch)->store; |
196 |
Koha::Library->new($samplebranch)->store; |
| 197 |
is( TransferCollection( $collection_id1, $samplebranch->{branchcode} ), |
197 |
my ( $transferred, $messages ) = TransferCollection( $collection_id1, $samplebranch->{branchcode} ); |
|
|
198 |
is( $transferred, |
| 198 |
1, "Collection1 has been transfered in the branch SAB" ); |
199 |
1, "Collection1 has been transfered in the branch SAB" ); |
| 199 |
@collection1 = GetCollection($collection_id1); |
200 |
@collection1 = GetCollection($collection_id1); |
| 200 |
is_deeply( |
201 |
is_deeply( |
|
Lines 205-216
is_deeply(
Link Here
|
| 205 |
], |
206 |
], |
| 206 |
"Collection1 belongs to the sample branch (SAB)" |
207 |
"Collection1 belongs to the sample branch (SAB)" |
| 207 |
); |
208 |
); |
| 208 |
is( TransferCollection, "NO_ID", "TransferCollection without ID" ); |
209 |
( $transferred, $messages ) = TransferCollection(); |
| 209 |
is( |
210 |
is( $messages->[0]->{code}, "NO_ID", "TransferCollection without ID" ); |
| 210 |
TransferCollection($collection_id1), |
211 |
( $transferred, $messages ) = TransferCollection($collection_id1); |
| 211 |
'NO_BRANCHCODE', |
212 |
is( $messages->[0]->{code}, |
| 212 |
"TransferCollection without branchcode" |
213 |
'NO_BRANCHCODE', "TransferCollection without branchcode" ); |
| 213 |
); |
|
|
| 214 |
|
214 |
|
| 215 |
#Test AddItemToCollection |
215 |
#Test AddItemToCollection |
| 216 |
my $record = MARC::Record->new(); |
216 |
my $record = MARC::Record->new(); |
| 217 |
- |
|
|