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