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

(-)a/t/db_dependent/Suggestions.t (-9 / +58 lines)
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
- 

Return to bug 9223