Line 0
Link Here
|
0 |
- |
1 |
use Modern::Perl; |
|
|
2 |
use Test::More tests => 3; |
3 |
|
4 |
use C4::Acquisition; |
5 |
use C4::Biblio; |
6 |
use C4::Bookseller qw( GetBookSellerFromId ); |
7 |
use C4::Letters; |
8 |
|
9 |
my $dbh = C4::Context->dbh; |
10 |
$dbh->{RaiseError} = 1; |
11 |
$dbh->{AutoCommit} = 0; |
12 |
|
13 |
# Creating some orders |
14 |
my $booksellerid = C4::Bookseller::AddBookseller( |
15 |
{ |
16 |
name => "my vendor", |
17 |
address1 => "bookseller's address", |
18 |
phone => "0123456", |
19 |
active => 1, |
20 |
} |
21 |
); |
22 |
|
23 |
my $basketno = NewBasket( $booksellerid, 1 ); |
24 |
|
25 |
my $budgetid = C4::Budgets::AddBudget( |
26 |
{ |
27 |
budget_code => "budget_code_test_getordersbybib", |
28 |
budget_name => "budget_name_test_getordersbybib", |
29 |
} |
30 |
); |
31 |
my $budget = C4::Budgets::GetBudget($budgetid); |
32 |
|
33 |
my @ordernumbers; |
34 |
my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' ); |
35 |
|
36 |
my $ordernumber; |
37 |
( $basketno, $ordernumber ) = C4::Acquisition::NewOrder( |
38 |
{ |
39 |
basketno => $basketno, |
40 |
quantity => 2, |
41 |
biblionumber => $biblionumber, |
42 |
budget_id => $budgetid, |
43 |
entrydate => '01-01-2014', |
44 |
currency => 'EUR', |
45 |
notes => "This is a note1", |
46 |
gstrate => 0.0500, |
47 |
orderstatus => 1, |
48 |
quantityreceived => 0, |
49 |
rrp => 10, |
50 |
ecost => 10, |
51 |
} |
52 |
); |
53 |
|
54 |
my $invoiceid = AddInvoice( |
55 |
invoicenumber => 'invoice', |
56 |
booksellerid => $booksellerid, |
57 |
unknown => "unknown" |
58 |
); |
59 |
|
60 |
my $borrowernumber = C4::Members::AddMember( |
61 |
cardnumber => 'TESTCARD', |
62 |
firstname => 'TESTFN', |
63 |
surname => 'TESTSN', |
64 |
categorycode => 'S', |
65 |
branchcode => 'CPL', |
66 |
dateofbirth => '', |
67 |
dateexpiry => '9999-12-31', |
68 |
userid => 'TESTUSERID' |
69 |
); |
70 |
|
71 |
my $borrower = C4::Members::GetMemberDetails( $borrowernumber ); |
72 |
|
73 |
C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber ); |
74 |
|
75 |
my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber ); |
76 |
is( $is_added, 1, 'ModOrderUsers should link patrons to an order' ); |
77 |
|
78 |
ModReceiveOrder( |
79 |
{ |
80 |
biblionumber => $biblionumber, |
81 |
ordernumber => $ordernumber, |
82 |
quantityreceived => 1, |
83 |
cost => 10, |
84 |
ecost => 10, |
85 |
invoiceid => $invoiceid, |
86 |
rrp => 10, |
87 |
budget_id => $budgetid, |
88 |
} |
89 |
); |
90 |
|
91 |
my $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
92 |
is( scalar( @$messages ), 0, 'The letter has not been sent to message queue on receiving the order, the order is not entire received'); |
93 |
|
94 |
ModReceiveOrder( |
95 |
{ |
96 |
biblionumber => $biblionumber, |
97 |
ordernumber => $ordernumber, |
98 |
quantityreceived => 1, |
99 |
cost => 10, |
100 |
ecost => 10, |
101 |
invoiceid => $invoiceid, |
102 |
rrp => 10, |
103 |
budget_id => $budgetid, |
104 |
} |
105 |
); |
106 |
|
107 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
108 |
is( scalar( @$messages ), 1, 'The letter has been sent to message queue on receiving the order'); |