Lines 26-32
use C4::Budgets qw( AddBudgetPeriod AddBudget );
Link Here
|
26 |
use Koha::DateUtils qw( dt_from_string ); |
26 |
use Koha::DateUtils qw( dt_from_string ); |
27 |
|
27 |
|
28 |
use DateTime::Duration; |
28 |
use DateTime::Duration; |
29 |
use Test::More tests => 105; |
29 |
use Test::More tests => 110; |
|
|
30 |
use Test::MockModule; |
30 |
use Test::Warn; |
31 |
use Test::Warn; |
31 |
|
32 |
|
32 |
BEGIN { |
33 |
BEGIN { |
Lines 41-46
my $sql;
Link Here
|
41 |
$dbh->{AutoCommit} = 0; |
42 |
$dbh->{AutoCommit} = 0; |
42 |
$dbh->{RaiseError} = 1; |
43 |
$dbh->{RaiseError} = 1; |
43 |
|
44 |
|
|
|
45 |
my $koha = new Test::MockModule('C4::Koha'); |
46 |
$koha->mock( |
47 |
'GetAuthorisedValues', |
48 |
sub { |
49 |
my $category = shift; |
50 |
my $ret = []; |
51 |
if ($category eq 'ccode') { |
52 |
$ret = [ |
53 |
{ |
54 |
'imageurl' => '', |
55 |
'authorised_value' => 'TH', |
56 |
'lib_opac' => "Thesis", |
57 |
'lib' => "Thesis", |
58 |
'category' => 'CCODE', |
59 |
'id' => '3810', |
60 |
'selected' => 0 |
61 |
}, |
62 |
{ |
63 |
'imageurl' => '', |
64 |
'authorised_value' => 'BOOK', |
65 |
'lib_opac' => 'Book', |
66 |
'lib' => 'Book', |
67 |
'category' => 'CCODE', |
68 |
'id' => '3807', |
69 |
'selected' => 0 |
70 |
}, |
71 |
]; |
72 |
} |
73 |
return $ret; |
74 |
} |
75 |
); |
76 |
|
77 |
$koha->mock( |
78 |
'GetKohaAuthorisedValueLib', |
79 |
sub { |
80 |
return 'Thesis'; |
81 |
} |
82 |
); |
83 |
|
44 |
# Reset item types to only the default ones |
84 |
# Reset item types to only the default ones |
45 |
$dbh->do(q|DELETE FROM itemtypes;|); |
85 |
$dbh->do(q|DELETE FROM itemtypes;|); |
46 |
$sql = " |
86 |
$sql = " |
Lines 342-357
$suggestions = GetSuggestionByStatus('CHECKED');
Link Here
|
342 |
is( @$suggestions, 1, 'DelSuggestion deletes one suggestion' ); |
382 |
is( @$suggestions, 1, 'DelSuggestion deletes one suggestion' ); |
343 |
is( $suggestions->[0]->{title}, $del_suggestion->{title}, 'DelSuggestion deletes the correct suggestion' ); |
383 |
is( $suggestions->[0]->{title}, $del_suggestion->{title}, 'DelSuggestion deletes the correct suggestion' ); |
344 |
|
384 |
|
345 |
## Bug 11466, making sure GetSupportList() returns itemtypes, even if AdvancedSearchTypes has multiple values |
385 |
C4::Context->set_preference('SuggestionsUseValues', 'itemtypes'); |
346 |
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes|loc|ccode'); |
|
|
347 |
my $itemtypes1 = C4::Koha::GetSupportList(); |
386 |
my $itemtypes1 = C4::Koha::GetSupportList(); |
348 |
is(@$itemtypes1, 8, "Purchase suggestion itemtypes collected, multiple AdvancedSearchTypes"); |
387 |
is(@$itemtypes1, 8, "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes"); |
|
|
388 |
my $mp_description = C4::Koha::GetSupportName('MP'); |
389 |
is($mp_description, 'Maps', 'Purchase suggestion itemtypes collected, itemtype MP description should be Maps'); |
390 |
|
391 |
is($itemtypes1->[0]{'authorised_value'},'BK', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes first authorized value is BK"); |
392 |
is($itemtypes1->[0]{'lib'},'Books', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes first lib is books"); |
393 |
is($itemtypes1->[0]{'imageurl'},'bridge/book.gif', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes, first imageurl is bridge/book.gif"); |
394 |
|
395 |
C4::Context->set_preference('SuggestionsUseValues', 'ccode'); |
396 |
my $ccodes = C4::Koha::GetSupportList(); |
397 |
is(@$ccodes, 2, "Purchase suggestion itemtypes collected, SuggestionsUseValues is ccode"); |
398 |
my $th_description = C4::Koha::GetSupportName('TH'); |
399 |
is($th_description, 'Thesis', 'Purchase suggestion itemtypes collected, ccode TH description should be Thesis'); |
349 |
|
400 |
|
350 |
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes'); |
|
|
351 |
my $itemtypes2 = C4::Koha::GetSupportList(); |
352 |
is(@$itemtypes2, 8, "Purchase suggestion itemtypes collected, default AdvancedSearchTypes"); |
353 |
|
401 |
|
354 |
is_deeply($itemtypes1, $itemtypes2, 'same set of purchase suggestion formats retrieved'); |
402 |
C4::Context->set_preference('SuggestionsUseValues', 'none'); |
|
|
403 |
my $empty = C4::Koha::GetSupportList(); |
404 |
is(@$empty, 0, "Purchase suggestion itemtypes collected, SuggestionsUseValues is None"); |
355 |
|
405 |
|
356 |
# Test budgetid fk |
406 |
# Test budgetid fk |
357 |
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB |
407 |
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB |
358 |
- |
|
|