Lines 9-18
use Data::Dumper;
Link Here
|
9 |
|
9 |
|
10 |
use C4::Suggestions; |
10 |
use C4::Suggestions; |
11 |
|
11 |
|
12 |
use Test::More tests =>9; |
12 |
use Test::More tests =>12; |
13 |
|
13 |
|
14 |
BEGIN { |
14 |
BEGIN { |
15 |
use_ok('C4::Suggestions'); |
15 |
use_ok('C4::Suggestions'); |
|
|
16 |
use_ok('C4::Koha'); |
16 |
} |
17 |
} |
17 |
|
18 |
|
18 |
my ($suggestionid, $suggestion, $status, $biblionumber); |
19 |
my ($suggestionid, $suggestion, $status, $biblionumber); |
Lines 26-28
ok($suggestion= GetSuggestionFromBiblionumber( $biblionumber ), "GetSuggestionFr
Link Here
|
26 |
ok($suggestion= GetSuggestionInfoFromBiblionumber( $biblionumber ), "GetSuggestionInfoFromBiblionumber OK"); |
27 |
ok($suggestion= GetSuggestionInfoFromBiblionumber( $biblionumber ), "GetSuggestionInfoFromBiblionumber OK"); |
27 |
ok(@{SearchSuggestion( {STATUS=>'STALLED'} )}>0, "SearchSuggestion Status OK"); |
28 |
ok(@{SearchSuggestion( {STATUS=>'STALLED'} )}>0, "SearchSuggestion Status OK"); |
28 |
|
29 |
|
29 |
- |
30 |
## Bug 11466, making sure GetSupportList() returns itemtypes, even if AdvancedSearchTypes has multiple values |
|
|
31 |
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes|loc|ccode'); |
32 |
my $itemtypes = C4::Koha::GetSupportList(); |
33 |
ok(scalar @$itemtypes, "Purchase suggestion itemtypes collected, multiple AdvancedSearchTypes"); |
34 |
|
35 |
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes'); |
36 |
$itemtypes = C4::Koha::GetSupportList(); |
37 |
ok(scalar @$itemtypes, "Purchase suggestion itemtypes collected, default AdvancedSearchTypes"); |
38 |
##EO Bug 11466 |