$sth->execute($id);

    return $sth->execute($id);

    return;

- 

#!/usr/bin/perl

use Modern::Perl;

use Test::More tests => 7;

use C4::Context;

use Koha::DateUtils;

use DateTime::Duration;

use C4::Acquisition;

use C4::Serials;

use C4::Budgets;

use C4::Biblio;

BEGIN {

    use_ok('C4::Bookseller');

}

can_ok(

    'C4::Bookseller', qw(

      AddBookseller

      DelBookseller

      GetBookSeller

      GetBookSellerFromId

      GetBooksellersWithLateOrders

      ModBookseller )

);

#Start transaction

my $dbh = C4::Context->dbh;

$dbh->{RaiseError} = 1;

$dbh->{AutoCommit} = 0;

#Start tests

$dbh->do(q|DELETE FROM aqorders|);

$dbh->do(q|DELETE FROM aqbasket|);

$dbh->do(q|DELETE FROM aqbooksellers|);

#Test AddBookseller

my $count            = scalar( C4::Bookseller::GetBookSeller('') );

my $sample_supplier1 = {

    name          => 'Name1',

    address1      => 'address1_1',

    address2      => 'address1-2',

    address3      => 'address1_2',

    address4      => 'address1_2',

    postal        => 'postal1',

    phone         => 'phone1',

    accountnumber => 'accountnumber1',

    fax           => 'fax1',

    url           => 'url1',

    contact       => 'contact1',

    contpos       => 'contpos1',

    contphone     => 'contphone1',

    contfax       => 'contefax1',

    contaltphone  => 'contaltphone1',

    contemail     => 'contemail1',

    contnotes     => 'contnotes1',

    active        => 1,

    gstreg        => 1,

    listincgst    => 1,

    invoiceincgst => 1,

    gstrate       => '1.0000',

    discount      => '1.0000',

    notes         => 'notes1',

    deliverytime  => undef

};

my $sample_supplier2 = {

    name          => 'Name2',

    address1      => 'address1_2',

    address2      => 'address2-2',

    address3      => 'address3_2',

    address4      => 'address4_2',

    postal        => 'postal2',

    phone         => 'phone2',

    accountnumber => 'accountnumber2',

    fax           => 'fax2',

    url           => 'url2',

    contact       => 'contact2',

    contpos       => 'contpos2',

    contphone     => 'contphone2',

    contfax       => 'contefax2',

    contaltphone  => 'contaltphone2',

    contemail     => 'contemail2',

    contnotes     => 'contnotes2',

    active        => 1,

    gstreg        => 1,

    listincgst    => 1,

    invoiceincgst => 1,

    gstrate       => '2.0000',

    discount      => '2.0000',

    notes         => 'notes2',

    deliverytime  => 2,

};

my $id_supplier1 = C4::Bookseller::AddBookseller($sample_supplier1);

my $id_supplier2 = C4::Bookseller::AddBookseller($sample_supplier2);

#my $id_bookseller3 = C4::Bookseller::AddBookseller();# NOTE : Doesn't work because the field name cannot be null

like( $id_supplier1, '/^\d+$/', "AddBookseller for supplier1 return an id" );

like( $id_supplier2, '/^\d+$/', "AddBookseller for supplier2 return an id" );

is( scalar( C4::Bookseller::GetBookSeller('') ),

    $count + 2, "Supplier1 and Supplier2 have been added" );

#Test DelBookseller

my $del = C4::Bookseller::DelBookseller($id_supplier1);

is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " );

is( C4::Bookseller::GetBookSellerFromId($id_supplier1),

    undef, "Supplier1  has been deleted - id_supplier1 doesnt exist anymore" );

#End transaction

$dbh->rollback;