| Lines 2-8
          
      
      
        Link Here | 
        
          | 2 |  | 2 |  | 
        
          | 3 | use Modern::Perl; | 3 | use Modern::Perl; | 
        
          | 4 |  | 4 |  | 
          
            
              | 5 | use Test::More tests => 70; | 5 | use Test::More tests => 68; | 
        
          | 6 | use C4::Context; | 6 | use C4::Context; | 
        
          | 7 | use Koha::DateUtils; | 7 | use Koha::DateUtils; | 
        
          | 8 | use DateTime::Duration; | 8 | use DateTime::Duration; | 
  
    | Lines 48-60
          my $sample_supplier1 = {
      
      
        Link Here | 
        
          | 48 |     accountnumber => 'accountnumber1', | 48 |     accountnumber => 'accountnumber1', | 
        
          | 49 |     fax           => 'fax1', | 49 |     fax           => 'fax1', | 
        
          | 50 |     url           => 'url1', | 50 |     url           => 'url1', | 
            
              | 51 |     contact       => 'contact1', |  |  | 
            
              | 52 |     contpos       => 'contpos1', | 
            
              | 53 |     contphone     => 'contphone1', | 
            
              | 54 |     contfax       => 'contefax1', | 
            
              | 55 |     contaltphone  => 'contaltphone1', | 
            
              | 56 |     contemail     => 'contemail1', | 
            
              | 57 |     contnotes     => 'contnotes1', | 
        
          | 58 |     active        => 1, | 51 |     active        => 1, | 
        
          | 59 |     gstreg        => 1, | 52 |     gstreg        => 1, | 
        
          | 60 |     listincgst    => 1, | 53 |     listincgst    => 1, | 
  
    | Lines 75-87
          my $sample_supplier2 = {
      
      
        Link Here | 
        
          | 75 |     accountnumber => 'accountnumber2', | 68 |     accountnumber => 'accountnumber2', | 
        
          | 76 |     fax           => 'fax2', | 69 |     fax           => 'fax2', | 
        
          | 77 |     url           => 'url2', | 70 |     url           => 'url2', | 
            
              | 78 |     contact       => 'contact2', |  |  | 
            
              | 79 |     contpos       => 'contpos2', | 
            
              | 80 |     contphone     => 'contphone2', | 
            
              | 81 |     contfax       => 'contefax2', | 
            
              | 82 |     contaltphone  => 'contaltphone2', | 
            
              | 83 |     contemail     => 'contemail2', | 
            
              | 84 |     contnotes     => 'contnotes2', | 
        
          | 85 |     active        => 1, | 71 |     active        => 1, | 
        
          | 86 |     gstreg        => 1, | 72 |     gstreg        => 1, | 
        
          | 87 |     listincgst    => 1, | 73 |     listincgst    => 1, | 
  
    | Lines 89-95
          my $sample_supplier2 = {
      
      
        Link Here | 
        
          | 89 |     gstrate       => '2.0000', | 75 |     gstrate       => '2.0000', | 
        
          | 90 |     discount      => '2.0000', | 76 |     discount      => '2.0000', | 
        
          | 91 |     notes         => 'notes2', | 77 |     notes         => 'notes2', | 
          
            
              | 92 |     deliverytime  => 2, | 78 |     deliverytime  => 2 | 
        
          | 93 | }; | 79 | }; | 
        
          | 94 |  | 80 |  | 
        
          | 95 | my $id_supplier1 = C4::Bookseller::AddBookseller($sample_supplier1); | 81 | my $id_supplier1 = C4::Bookseller::AddBookseller($sample_supplier1); | 
  
    | Lines 229-241
          $sample_supplier2 = {
      
      
        Link Here | 
        
          | 229 |     accountnumber => 'accountnumber2 modified', | 215 |     accountnumber => 'accountnumber2 modified', | 
        
          | 230 |     fax           => 'fax2 modified', | 216 |     fax           => 'fax2 modified', | 
        
          | 231 |     url           => 'url2 modified', | 217 |     url           => 'url2 modified', | 
            
              | 232 |     contact       => 'contact2 modified', |  |  | 
            
              | 233 |     contpos       => 'contpos2 modified', | 
            
              | 234 |     contphone     => 'contphone2 modified', | 
            
              | 235 |     contfax       => 'contefax2 modified', | 
            
              | 236 |     contaltphone  => 'contaltphone2 modified', | 
            
              | 237 |     contemail     => 'contemail2 modified', | 
            
              | 238 |     contnotes     => 'contnotes2 modified', | 
        
          | 239 |     active        => 1, | 218 |     active        => 1, | 
        
          | 240 |     gstreg        => 1, | 219 |     gstreg        => 1, | 
        
          | 241 |     listincgst    => 1, | 220 |     listincgst    => 1, | 
  
    | Lines 276-288
          my $sample_supplier3 = {
      
      
        Link Here | 
        
          | 276 |     accountnumber => 'accountnumber3', | 255 |     accountnumber => 'accountnumber3', | 
        
          | 277 |     fax           => 'fax3', | 256 |     fax           => 'fax3', | 
        
          | 278 |     url           => 'url3', | 257 |     url           => 'url3', | 
            
              | 279 |     contact       => 'contact3', |  |  | 
            
              | 280 |     contpos       => 'contpos3', | 
            
              | 281 |     contphone     => 'contphone3', | 
            
              | 282 |     contfax       => 'contefax3', | 
            
              | 283 |     contaltphone  => 'contaltphone3', | 
            
              | 284 |     contemail     => 'contemail3', | 
            
              | 285 |     contnotes     => 'contnotes3', | 
        
          | 286 |     active        => 1, | 258 |     active        => 1, | 
        
          | 287 |     gstreg        => 1, | 259 |     gstreg        => 1, | 
        
          | 288 |     listincgst    => 1, | 260 |     listincgst    => 1, | 
  
    | Lines 303-315
          my $sample_supplier4 = {
      
      
        Link Here | 
        
          | 303 |     accountnumber => 'accountnumber4', | 275 |     accountnumber => 'accountnumber4', | 
        
          | 304 |     fax           => 'fax4', | 276 |     fax           => 'fax4', | 
        
          | 305 |     url           => 'url4', | 277 |     url           => 'url4', | 
            
              | 306 |     contact       => 'contact4', |  |  | 
            
              | 307 |     contpos       => 'contpos4', | 
            
              | 308 |     contphone     => 'contphone4', | 
            
              | 309 |     contfax       => 'contefax4', | 
            
              | 310 |     contaltphone  => 'contaltphone4', | 
            
              | 311 |     contemail     => 'contemail4', | 
            
              | 312 |     contnotes     => 'contnotes4', | 
        
          | 313 |     active        => 1, | 278 |     active        => 1, | 
        
          | 314 |     gstreg        => 1, | 279 |     gstreg        => 1, | 
        
          | 315 |     listincgst    => 1, | 280 |     listincgst    => 1, | 
  
    | Lines 664-670
          my $booksellerid = C4::Bookseller::AddBookseller(
      
      
        Link Here | 
        
          | 664 |     ] | 629 |     ] | 
        
          | 665 | ); | 630 | ); | 
        
          | 666 |  | 631 |  | 
          
            
              | 667 | my @booksellers = C4::Bookseller::GetBookSeller('my vendor'); | 632 | @booksellers = C4::Bookseller::GetBookSeller('my vendor'); | 
        
          | 668 | ok( | 633 | ok( | 
        
          | 669 |     ( grep { $_->{'id'} == $booksellerid } @booksellers ), | 634 |     ( grep { $_->{'id'} == $booksellerid } @booksellers ), | 
        
          | 670 |     'GetBookSeller returns correct record when passed a name' | 635 |     'GetBookSeller returns correct record when passed a name' | 
  
    | Lines 725-731
          sub field_filter {
      
      
        Link Here | 
        
          | 725 |         'bookselleremail', 'booksellerfax', | 690 |         'bookselleremail', 'booksellerfax', | 
        
          | 726 |         'booksellerurl',   'othersupplier', | 691 |         'booksellerurl',   'othersupplier', | 
        
          | 727 |         'currency',        'invoiceprice', | 692 |         'currency',        'invoiceprice', | 
          
            
              | 728 |         'listprice' | 693 |         'listprice',       'contacts' | 
        
          | 729 |       ) | 694 |       ) | 
        
          | 730 |     { | 695 |     { | 
        
          | 731 |  | 696 |  | 
            
              | 732 | -  |  |  |