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

(-)a/t/db_dependent/Suggestions.t (-9 / +61 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
51
				my $ret = [];
52
				if ($category eq 'ccode') {
53
						$ret = [
54
							{
55
								'imageurl' => '',
56
								'authorised_value' => 'TH',
57
								'lib_opac' => "Thesis",
58
								'lib' => "Thesis",
59
								'category' => 'CCODE',
60
								'id' => '3810',
61
								'selected' => 0
62
							},
63
							{
64
								'imageurl' => '',
65
								'authorised_value' => 'BOOK',
66
								'lib_opac' => 'Book',
67
								'lib' => 'Book',
68
								'category' => 'CCODE',
69
								'id' => '3807',
70
								'selected' => 0
71
							},
72
73
						];
74
				}
75
76
				return $ret;
77
    }
78
);
79
80
$koha->mock(
81
	'GetKohaAuthorisedValueLib',
82
	sub {
83
		return 'Thesis';
84
	}
85
);
86
44
# Reset item types to only the default ones
87
# Reset item types to only the default ones
45
$dbh->do(q|DELETE FROM itemtypes;|);
88
$dbh->do(q|DELETE FROM itemtypes;|);
46
$sql = "
89
$sql = "
Lines 342-357 $suggestions = GetSuggestionByStatus('CHECKED'); Link Here
342
is( @$suggestions, 1, 'DelSuggestion deletes one suggestion' );
385
is( @$suggestions, 1, 'DelSuggestion deletes one suggestion' );
343
is( $suggestions->[0]->{title}, $del_suggestion->{title}, 'DelSuggestion deletes the correct suggestion' );
386
is( $suggestions->[0]->{title}, $del_suggestion->{title}, 'DelSuggestion deletes the correct suggestion' );
344
387
345
## Bug 11466, making sure GetSupportList() returns itemtypes, even if AdvancedSearchTypes has multiple values
388
C4::Context->set_preference('SuggestionsUseValues', 'itemtypes');
346
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes|loc|ccode');
347
my $itemtypes1 = C4::Koha::GetSupportList();
389
my $itemtypes1 = C4::Koha::GetSupportList();
348
is(@$itemtypes1, 8, "Purchase suggestion itemtypes collected, multiple AdvancedSearchTypes");
390
is(@$itemtypes1, 8, "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes");
391
my $mp_description = C4::Koha::GetSupportName('MP');
392
is($mp_description, 'Maps', 'Purchase suggestion itemtypes collected, itemtype MP description should be Maps');
393
394
is($itemtypes1->[0]{'authorised_value'},'BK', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes first authorized value is BK");
395
is($itemtypes1->[0]{'lib'},'Books', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes first lib is books");
396
is($itemtypes1->[0]{'imageurl'},'bridge/book.gif', "Purchase suggestion itemtypes collected, SuggestionsUseValues is itemtypes, first imageurl is bridge/book.gif");
397
398
C4::Context->set_preference('SuggestionsUseValues', 'ccode');
399
my $ccodes = C4::Koha::GetSupportList();
400
is(@$ccodes, 2, "Purchase suggestion itemtypes collected, SuggestionsUseValues is ccode");
401
my $th_description = C4::Koha::GetSupportName('TH');
402
is($th_description, 'Thesis', 'Purchase suggestion itemtypes collected, ccode TH description should be Thesis');
349
403
350
C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes');
351
my $itemtypes2 = C4::Koha::GetSupportList();
352
is(@$itemtypes2, 8, "Purchase suggestion itemtypes collected, default AdvancedSearchTypes");
353
404
354
is_deeply($itemtypes1, $itemtypes2, 'same set of purchase suggestion formats retrieved');
405
C4::Context->set_preference('SuggestionsUseValues', 'none');
406
my $empty = C4::Koha::GetSupportList();
407
is(@$empty, 0, "Purchase suggestion itemtypes collected, SuggestionsUseValues is None");
355
408
356
# Test budgetid fk
409
# Test budgetid fk
357
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB
410
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB
358
- 

Return to bug 9223