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