|
Lines 189-197
is( $bookseller1fromid->subscriptions->count,
Link Here
|
| 189 |
|
189 |
|
| 190 |
my $id_subscription1 = NewSubscription( |
190 |
my $id_subscription1 = NewSubscription( |
| 191 |
undef, 'BRANCH2', $id_supplier1, undef, $id_budget, $biblionumber, |
191 |
undef, 'BRANCH2', $id_supplier1, undef, $id_budget, $biblionumber, |
| 192 |
'01-01-2013',undef, undef, undef, undef, |
192 |
'2013-01-01',undef, undef, undef, undef, |
| 193 |
undef, undef, undef, undef, undef, undef, |
193 |
undef, undef, undef, undef, undef, undef, |
| 194 |
1, "subscription notes",undef, '01-01-2013', undef, undef, |
194 |
1, "subscription notes",undef, '2013-01-01', undef, undef, |
| 195 |
undef, 'CALL ABC', 0, "intnotes", 0, |
195 |
undef, 'CALL ABC', 0, "intnotes", 0, |
| 196 |
undef, undef, 0, undef, '2013-11-30', 0 |
196 |
undef, undef, 0, undef, '2013-11-30', 0 |
| 197 |
); |
197 |
); |
|
Lines 201-209
is($subscriptions[0]->{publicnotes}, 'subscription notes', 'subscription search
Link Here
|
| 201 |
|
201 |
|
| 202 |
my $id_subscription2 = NewSubscription( |
202 |
my $id_subscription2 = NewSubscription( |
| 203 |
undef, 'BRANCH2', $id_supplier1, undef, $id_budget, $biblionumber, |
203 |
undef, 'BRANCH2', $id_supplier1, undef, $id_budget, $biblionumber, |
| 204 |
'01-01-2013',undef, undef, undef, undef, |
204 |
'2013-01-01',undef, undef, undef, undef, |
| 205 |
undef, undef, undef, undef, undef, undef, |
205 |
undef, undef, undef, undef, undef, undef, |
| 206 |
1, "subscription notes",undef, '01-01-2013', undef, undef, |
206 |
1, "subscription notes",undef, '2013-01-01', undef, undef, |
| 207 |
undef, 'CALL DEF', 0, "intnotes", 0, |
207 |
undef, 'CALL DEF', 0, "intnotes", 0, |
| 208 |
undef, undef, 0, undef, '2013-07-31', 0 |
208 |
undef, undef, 0, undef, '2013-07-31', 0 |
| 209 |
); |
209 |
); |
|
Lines 330-338
ModBasket($basket4info);
Link Here
|
| 330 |
#Add 1 subscription |
330 |
#Add 1 subscription |
| 331 |
my $id_subscription3 = NewSubscription( |
331 |
my $id_subscription3 = NewSubscription( |
| 332 |
undef, "BRANCH1", $id_supplier1, undef, $id_budget, $biblionumber, |
332 |
undef, "BRANCH1", $id_supplier1, undef, $id_budget, $biblionumber, |
| 333 |
'01-01-2013',undef, undef, undef, undef, |
333 |
'2013-01-01',undef, undef, undef, undef, |
| 334 |
undef, undef, undef, undef, undef, undef, |
334 |
undef, undef, undef, undef, undef, undef, |
| 335 |
1, "subscription notes",undef, '01-01-2013', undef, undef, |
335 |
1, "subscription notes",undef, '2013-01-01', undef, undef, |
| 336 |
undef, undef, 0, "intnotes", 0, |
336 |
undef, undef, 0, "intnotes", 0, |
| 337 |
undef, undef, 0, 'LOCA', '2013-12-31', 0 |
337 |
undef, undef, 0, 'LOCA', '2013-12-31', 0 |
| 338 |
); |
338 |
); |
|
Lines 355-361
my $order1 = Koha::Acquisition::Order->new(
Link Here
|
| 355 |
quantity => 24, |
355 |
quantity => 24, |
| 356 |
biblionumber => $biblionumber, |
356 |
biblionumber => $biblionumber, |
| 357 |
budget_id => $id_budget, |
357 |
budget_id => $id_budget, |
| 358 |
entrydate => '01-01-2013', |
358 |
entrydate => '2013-01-01', |
| 359 |
currency => $curcode, |
359 |
currency => $curcode, |
| 360 |
notes => "This is a note1", |
360 |
notes => "This is a note1", |
| 361 |
tax_rate => 0.0500, |
361 |
tax_rate => 0.0500, |
|
Lines 364-370
my $order1 = Koha::Acquisition::Order->new(
Link Here
|
| 364 |
quantityreceived => 2, |
364 |
quantityreceived => 2, |
| 365 |
rrp => 10, |
365 |
rrp => 10, |
| 366 |
ecost => 10, |
366 |
ecost => 10, |
| 367 |
datereceived => '01-06-2013' |
367 |
datereceived => '2013-06-01' |
| 368 |
} |
368 |
} |
| 369 |
)->store; |
369 |
)->store; |
| 370 |
my $ordernumber1 = $order1->ordernumber; |
370 |
my $ordernumber1 = $order1->ordernumber; |
|
Lines 375-381
my $order2 = Koha::Acquisition::Order->new(
Link Here
|
| 375 |
quantity => 20, |
375 |
quantity => 20, |
| 376 |
biblionumber => $biblionumber, |
376 |
biblionumber => $biblionumber, |
| 377 |
budget_id => $id_budget, |
377 |
budget_id => $id_budget, |
| 378 |
entrydate => '01-01-2013', |
378 |
entrydate => '2013-01-01', |
| 379 |
currency => $curcode, |
379 |
currency => $curcode, |
| 380 |
notes => "This is a note2", |
380 |
notes => "This is a note2", |
| 381 |
tax_rate => 0.0500, |
381 |
tax_rate => 0.0500, |
|
Lines 393-399
my $order3 = Koha::Acquisition::Order->new(
Link Here
|
| 393 |
quantity => 20, |
393 |
quantity => 20, |
| 394 |
biblionumber => $biblionumber, |
394 |
biblionumber => $biblionumber, |
| 395 |
budget_id => $id_budget, |
395 |
budget_id => $id_budget, |
| 396 |
entrydate => '02-02-2013', |
396 |
entrydate => '2013-02-02', |
| 397 |
currency => $curcode, |
397 |
currency => $curcode, |
| 398 |
notes => "This is a note3", |
398 |
notes => "This is a note3", |
| 399 |
tax_rate => 0.0500, |
399 |
tax_rate => 0.0500, |
|
Lines 411-417
my $order4 = Koha::Acquisition::Order->new(
Link Here
|
| 411 |
quantity => 20, |
411 |
quantity => 20, |
| 412 |
biblionumber => $biblionumber, |
412 |
biblionumber => $biblionumber, |
| 413 |
budget_id => $id_budget, |
413 |
budget_id => $id_budget, |
| 414 |
entrydate => '02-02-2013', |
414 |
entrydate => '2013-02-02', |
| 415 |
currency => $curcode, |
415 |
currency => $curcode, |
| 416 |
notes => "This is a note3", |
416 |
notes => "This is a note3", |
| 417 |
tax_rate => 0.0500, |
417 |
tax_rate => 0.0500, |