| Lines 2-8
          
      
      
        Link Here | 
        
          | 2 |  | 2 |  | 
        
          | 3 | use Modern::Perl; | 3 | use Modern::Perl; | 
        
          | 4 |  | 4 |  | 
          
            
              | 5 | use Test::More tests => 10; | 5 | use Test::More tests => 12; | 
        
          | 6 |  | 6 |  | 
        
          | 7 | use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin | 7 | use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin | 
        
          | 8 | use Koha::AdditionalFields; | 8 | use Koha::AdditionalFields; | 
  
    | Lines 42-57
          Koha::AdditionalFieldValue->new({
      
      
        Link Here | 
        
          | 42 |     record_id => $basket1->basketno, | 42 |     record_id => $basket1->basketno, | 
        
          | 43 |     value => 'bar value for basket1', | 43 |     value => 'bar value for basket1', | 
        
          | 44 | })->store; | 44 | })->store; | 
          
            
              | 45 | Koha::AdditionalFieldValue->new({ | 45 |  | 
            
              | 46 |     field_id => $foo->id, | 46 | my $additional_fields_for_basket2 = [ | 
            
              | 47 |     record_id => $basket2->basketno, | 47 |     { | 
            
              | 48 |     value => 'foo value for basket2', | 48 |         id    => $foo->id, | 
            
              | 49 | })->store; | 49 |         value => 'foo value for basket2', | 
            
              | 50 | Koha::AdditionalFieldValue->new({ | 50 |     }, | 
            
              | 51 |     field_id => $bar->id, | 51 |     { | 
            
              | 52 |     record_id => $basket2->basketno, | 52 |         id    => $bar->id, | 
            
              | 53 |     value => 'bar value for basket2', | 53 |         value => 'bar value for basket2', | 
            
              | 54 | })->store; | 54 |     }, | 
            
              |  |  | 55 | ]; | 
            
              | 56 | $basket2->set_additional_fields($additional_fields_for_basket2); | 
            
              | 57 |  | 
            
              | 58 | my $additional_fields = $basket2->additional_field_values; | 
            
              | 59 | is( ref($additional_fields), 'Koha::AdditionalFieldValues', '->additional_field_values should return a Koha::AdditionalFieldValues object' ); | 
            
              | 60 | is_deeply( | 
            
              | 61 |     [ | 
            
              | 62 |         map { | 
            
              | 63 |             { | 
            
              | 64 |                 # We are bascially removing the 'id' field here | 
            
              | 65 |                 field_id  => $_->{field_id}, | 
            
              | 66 |                 record_id => $_->{record_id}, | 
            
              | 67 |                 value     => $_->{value}, | 
            
              | 68 |             } | 
            
              | 69 |         } @{ $additional_fields->unblessed } | 
            
              | 70 |     ], | 
            
              | 71 |     [ | 
            
              | 72 |         { | 
            
              | 73 |             field_id  => $additional_fields_for_basket2->[0]->{id}, | 
            
              | 74 |             record_id => $basket2->basketno, | 
            
              | 75 |             value     => $additional_fields_for_basket2->[0]->{value}, | 
            
              | 76 |         }, | 
            
              | 77 |         { | 
            
              | 78 |             field_id  => $additional_fields_for_basket2->[1]->{id}, | 
            
              | 79 |             record_id => $basket2->basketno, | 
            
              | 80 |             value     => $additional_fields_for_basket2->[1]->{value}, | 
            
              | 81 |         } | 
            
              | 82 |  | 
            
              | 83 |     ], | 
            
              | 84 |     '->additional_field_values should return the correct values' | 
            
              | 85 | ); | 
        
          | 55 |  | 86 |  | 
        
          | 56 | my @baskets = Koha::Acquisition::Baskets->filter_by_additional_fields([ | 87 | my @baskets = Koha::Acquisition::Baskets->filter_by_additional_fields([ | 
        
          | 57 |     { | 88 |     { | 
            
              | 58 | -  |  |  |