|
Lines 37-64
my $order3 = {
Link Here
|
| 37 |
|
37 |
|
| 38 |
$userenv->{branch} = 'B1'; |
38 |
$userenv->{branch} = 'B1'; |
| 39 |
|
39 |
|
|
|
40 |
# User can receive any orders thanks to his permissions |
| 40 |
ok( CanUserReceiveOrder($borrower, $order1, {superlibrarian => 1}) ); |
41 |
ok( CanUserReceiveOrder($borrower, $order1, {superlibrarian => 1}) ); |
| 41 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => 1}) ); |
42 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => 1}) ); |
| 42 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive_all => 1 }}) ); |
43 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive_all => 1 }}) ); |
| 43 |
|
44 |
|
|
|
45 |
# User cannot receive any order because of his lack of permission |
| 44 |
ok( not CanUserReceiveOrder($borrower, $order1, {}) ); |
46 |
ok( not CanUserReceiveOrder($borrower, $order1, {}) ); |
| 45 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => 0}) ); |
47 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => 0}) ); |
| 46 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 0 }}) ); |
48 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 0 }}) ); |
| 47 |
|
49 |
|
|
|
50 |
# User with order_receive permission can receive only orders of his branch (B1) |
| 51 |
# and orders that don't belong to any branch |
| 48 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
52 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
| 49 |
ok( CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
53 |
ok( CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
| 50 |
ok( not CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
54 |
ok( not CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
| 51 |
|
55 |
|
| 52 |
$userenv->{branch} = 'B2'; |
56 |
$userenv->{branch} = 'B2'; |
| 53 |
|
57 |
|
|
|
58 |
# User can receive any order thanks to his permissions |
| 54 |
ok( CanUserReceiveOrder($borrower, $order1, {superlibrarian => 1}) ); |
59 |
ok( CanUserReceiveOrder($borrower, $order1, {superlibrarian => 1}) ); |
| 55 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => 1}) ); |
60 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => 1}) ); |
| 56 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive_all => 1 }}) ); |
61 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive_all => 1 }}) ); |
| 57 |
|
62 |
|
|
|
63 |
# User cannot receive any order because of his lack of permission |
| 58 |
ok( not CanUserReceiveOrder($borrower, $order1, {}) ); |
64 |
ok( not CanUserReceiveOrder($borrower, $order1, {}) ); |
| 59 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => 0}) ); |
65 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => 0}) ); |
| 60 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 0 }}) ); |
66 |
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 0 }}) ); |
| 61 |
|
67 |
|
|
|
68 |
# User with order_receive permission can receive only orders of his branch (B2) |
| 69 |
# and orders that don't belong to any branch |
| 62 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
70 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
| 63 |
ok( not CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
71 |
ok( not CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
| 64 |
ok( CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
72 |
ok( CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
| 65 |
- |
|
|