|
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 |
- |
|
|