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