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

(-)a/t/db_dependent/Suggestions.t (-9 / +61 lines)
Lines 25-31 use C4::Budgets; Link Here
25
25
26
use Koha::DateUtils qw( dt_from_string );
26
use Koha::DateUtils qw( dt_from_string );
27
27
28
use Test::More tests => 104;
28
use Test::More tests => 109;
29
use Test::MockModule;
29
use Test::Warn;
30
use Test::Warn;
30
31
31
BEGIN {
32
BEGIN {
Lines 40-45 my $sql; Link Here
40
$dbh->{AutoCommit} = 0;
41
$dbh->{AutoCommit} = 0;
41
$dbh->{RaiseError} = 1;
42
$dbh->{RaiseError} = 1;
42
43
44
my $koha = new Test::MockModule('C4::Koha');
45
$koha->mock(
46
    'GetAuthorisedValues',
47
    sub {
48
				my $category = shift;
49
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
				}
74
75
				return $ret;
76
    }
77
);
78
79
$koha->mock(
80
	'GetKohaAuthorisedValueLib',
81
	sub {
82
		return 'Thesis';
83
	}
84
);
85
43
# Reset item types to only the default ones
86
# Reset item types to only the default ones
44
$dbh->do(q|DELETE FROM itemtypes;|);
87
$dbh->do(q|DELETE FROM itemtypes;|);
45
$sql = "
88
$sql = "
Lines 341-356 $suggestions = GetSuggestionByStatus('CHECKED'); Link Here
341
is( @$suggestions, 1, 'DelSuggestion deletes one suggestion' );
384
is( @$suggestions, 1, 'DelSuggestion deletes one suggestion' );
342
is( $suggestions->[0]->{title}, $del_suggestion->{title}, 'DelSuggestion deletes the correct suggestion' );
385
is( $suggestions->[0]->{title}, $del_suggestion->{title}, 'DelSuggestion deletes the correct suggestion' );
343
386
344
## Bug 11466, making sure GetSupportList() returns itemtypes, even if AdvancedSearchTypes has multiple values
387
C4::Context->set_preference('SuggestionsUseValues', 'itemtypes');
345
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes|loc|ccode');
346
my $itemtypes1 = C4::Koha::GetSupportList();
388
my $itemtypes1 = C4::Koha::GetSupportList();
347
is(@$itemtypes1, 8, "Purchase suggestion itemtypes collected, multiple AdvancedSearchTypes");
389
is(@$itemtypes1, 8, "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes");
390
my $mp_description = C4::Koha::GetSupportName('MP');
391
is($mp_description, 'Maps', 'Purchase suggestion itemtypes collected, itemtype MP description should be Maps');
392
393
is($itemtypes1->[0]{'authorised_value'},'BK', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes first authorized value is BK");
394
is($itemtypes1->[0]{'lib'},'Books', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes first lib is books");
395
is($itemtypes1->[0]{'imageurl'},'bridge/book.gif', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes, first imageurl is bridge/book.gif");
396
397
C4::Context->set_preference('SuggestionsUseValues', 'ccode');
398
my $ccodes = C4::Koha::GetSupportList();
399
is(@$ccodes, 2, "Purchase suggestion itemtypes collected, SuggestionsUseValues is ccode");
400
my $th_description = C4::Koha::GetSupportName('TH');
401
is($th_description, 'Thesis', 'Purchase suggestion itemtypes collected, ccode TH description should be Thesis');
348
402
349
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes');
350
my $itemtypes2 = C4::Koha::GetSupportList();
351
is(@$itemtypes2, 8, "Purchase suggestion itemtypes collected, default AdvancedSearchTypes");
352
403
353
is_deeply($itemtypes1, $itemtypes2, 'same set of purchase suggestion formats retrieved');
404
C4::Context->set_preference('SuggestionsUseValues', 'none');
405
my $empty = C4::Koha::GetSupportList();
406
is(@$empty, 0, "Purchase suggestion itemtypes collected, SuggestionsUseValues is None");
354
407
355
# Test budgetid fk
408
# Test budgetid fk
356
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB
409
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB
357
- 

Return to bug 9223