Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
|
4 |
|
5 |
use Test::More tests => 70; |
5 |
use Test::More tests => 68; |
6 |
use C4::Context; |
6 |
use C4::Context; |
7 |
use Koha::DateUtils; |
7 |
use Koha::DateUtils; |
8 |
use DateTime::Duration; |
8 |
use DateTime::Duration; |
Lines 48-60
my $sample_supplier1 = {
Link Here
|
48 |
accountnumber => 'accountnumber1', |
48 |
accountnumber => 'accountnumber1', |
49 |
fax => 'fax1', |
49 |
fax => 'fax1', |
50 |
url => 'url1', |
50 |
url => 'url1', |
51 |
contact => 'contact1', |
|
|
52 |
contpos => 'contpos1', |
53 |
contphone => 'contphone1', |
54 |
contfax => 'contefax1', |
55 |
contaltphone => 'contaltphone1', |
56 |
contemail => 'contemail1', |
57 |
contnotes => 'contnotes1', |
58 |
active => 1, |
51 |
active => 1, |
59 |
gstreg => 1, |
52 |
gstreg => 1, |
60 |
listincgst => 1, |
53 |
listincgst => 1, |
Lines 75-87
my $sample_supplier2 = {
Link Here
|
75 |
accountnumber => 'accountnumber2', |
68 |
accountnumber => 'accountnumber2', |
76 |
fax => 'fax2', |
69 |
fax => 'fax2', |
77 |
url => 'url2', |
70 |
url => 'url2', |
78 |
contact => 'contact2', |
|
|
79 |
contpos => 'contpos2', |
80 |
contphone => 'contphone2', |
81 |
contfax => 'contefax2', |
82 |
contaltphone => 'contaltphone2', |
83 |
contemail => 'contemail2', |
84 |
contnotes => 'contnotes2', |
85 |
active => 1, |
71 |
active => 1, |
86 |
gstreg => 1, |
72 |
gstreg => 1, |
87 |
listincgst => 1, |
73 |
listincgst => 1, |
Lines 89-95
my $sample_supplier2 = {
Link Here
|
89 |
gstrate => '2.0000', |
75 |
gstrate => '2.0000', |
90 |
discount => '2.0000', |
76 |
discount => '2.0000', |
91 |
notes => 'notes2', |
77 |
notes => 'notes2', |
92 |
deliverytime => 2, |
78 |
deliverytime => 2 |
93 |
}; |
79 |
}; |
94 |
|
80 |
|
95 |
my $id_supplier1 = C4::Bookseller::AddBookseller($sample_supplier1); |
81 |
my $id_supplier1 = C4::Bookseller::AddBookseller($sample_supplier1); |
Lines 229-241
$sample_supplier2 = {
Link Here
|
229 |
accountnumber => 'accountnumber2 modified', |
215 |
accountnumber => 'accountnumber2 modified', |
230 |
fax => 'fax2 modified', |
216 |
fax => 'fax2 modified', |
231 |
url => 'url2 modified', |
217 |
url => 'url2 modified', |
232 |
contact => 'contact2 modified', |
|
|
233 |
contpos => 'contpos2 modified', |
234 |
contphone => 'contphone2 modified', |
235 |
contfax => 'contefax2 modified', |
236 |
contaltphone => 'contaltphone2 modified', |
237 |
contemail => 'contemail2 modified', |
238 |
contnotes => 'contnotes2 modified', |
239 |
active => 1, |
218 |
active => 1, |
240 |
gstreg => 1, |
219 |
gstreg => 1, |
241 |
listincgst => 1, |
220 |
listincgst => 1, |
Lines 276-288
my $sample_supplier3 = {
Link Here
|
276 |
accountnumber => 'accountnumber3', |
255 |
accountnumber => 'accountnumber3', |
277 |
fax => 'fax3', |
256 |
fax => 'fax3', |
278 |
url => 'url3', |
257 |
url => 'url3', |
279 |
contact => 'contact3', |
|
|
280 |
contpos => 'contpos3', |
281 |
contphone => 'contphone3', |
282 |
contfax => 'contefax3', |
283 |
contaltphone => 'contaltphone3', |
284 |
contemail => 'contemail3', |
285 |
contnotes => 'contnotes3', |
286 |
active => 1, |
258 |
active => 1, |
287 |
gstreg => 1, |
259 |
gstreg => 1, |
288 |
listincgst => 1, |
260 |
listincgst => 1, |
Lines 303-315
my $sample_supplier4 = {
Link Here
|
303 |
accountnumber => 'accountnumber4', |
275 |
accountnumber => 'accountnumber4', |
304 |
fax => 'fax4', |
276 |
fax => 'fax4', |
305 |
url => 'url4', |
277 |
url => 'url4', |
306 |
contact => 'contact4', |
|
|
307 |
contpos => 'contpos4', |
308 |
contphone => 'contphone4', |
309 |
contfax => 'contefax4', |
310 |
contaltphone => 'contaltphone4', |
311 |
contemail => 'contemail4', |
312 |
contnotes => 'contnotes4', |
313 |
active => 1, |
278 |
active => 1, |
314 |
gstreg => 1, |
279 |
gstreg => 1, |
315 |
listincgst => 1, |
280 |
listincgst => 1, |
Lines 664-670
my $booksellerid = C4::Bookseller::AddBookseller(
Link Here
|
664 |
] |
629 |
] |
665 |
); |
630 |
); |
666 |
|
631 |
|
667 |
my @booksellers = C4::Bookseller::GetBookSeller('my vendor'); |
632 |
@booksellers = C4::Bookseller::GetBookSeller('my vendor'); |
668 |
ok( |
633 |
ok( |
669 |
( grep { $_->{'id'} == $booksellerid } @booksellers ), |
634 |
( grep { $_->{'id'} == $booksellerid } @booksellers ), |
670 |
'GetBookSeller returns correct record when passed a name' |
635 |
'GetBookSeller returns correct record when passed a name' |
Lines 725-731
sub field_filter {
Link Here
|
725 |
'bookselleremail', 'booksellerfax', |
690 |
'bookselleremail', 'booksellerfax', |
726 |
'booksellerurl', 'othersupplier', |
691 |
'booksellerurl', 'othersupplier', |
727 |
'currency', 'invoiceprice', |
692 |
'currency', 'invoiceprice', |
728 |
'listprice' |
693 |
'listprice', 'contacts' |
729 |
) |
694 |
) |
730 |
{ |
695 |
{ |
731 |
|
696 |
|
732 |
- |
|
|