View | Details | Raw Unified | Return to bug 12648
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/OrderUsers.t (-1 / +108 lines)
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');

Return to bug 12648