View | Details | Raw Unified | Return to bug 39711
Collapse All | Expand All

(-)a/C4/Acquisition.pm (-5 / +4 lines)
Lines 622-632 sub ModBasketHeader { Link Here
622
        $create_items || undef, $basketno
622
        $create_items || undef, $basketno
623
    );
623
    );
624
624
625
    if ($contractnumber) {
625
    if ( !$contractnumber ) { $contractnumber = undef; }
626
        my $query2 = "UPDATE aqbasket SET contractnumber=? WHERE basketno=?";
626
    my $query2 = "UPDATE aqbasket SET contractnumber=? WHERE basketno=?";
627
        my $sth2   = $dbh->prepare($query2);
627
    my $sth2   = $dbh->prepare($query2);
628
        $sth2->execute( $contractnumber, $basketno );
628
    $sth2->execute( $contractnumber, $basketno );
629
    }
630
629
631
    # Log the basket update
630
    # Log the basket update
632
    if ( C4::Context->preference("AcquisitionLog") ) {
631
    if ( C4::Context->preference("AcquisitionLog") ) {
(-)a/t/db_dependent/Acquisition.t (-2 / +17 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use POSIX qw(strftime);
20
use POSIX qw(strftime);
21
21
22
use Test::NoWarnings;
22
use Test::NoWarnings;
23
use Test::More tests => 74;
23
use Test::More tests => 75;
24
use t::lib::Mocks;
24
use t::lib::Mocks;
25
use Koha::Database;
25
use Koha::Database;
26
use Koha::DateUtils qw(dt_from_string output_pref);
26
use Koha::DateUtils qw(dt_from_string output_pref);
Lines 1390-1392 subtest 'GetInvoices() tests with additional fields' => sub { Link Here
1390
1390
1391
    $schema->storage->txn_rollback;
1391
    $schema->storage->txn_rollback;
1392
};
1392
};
1393
- 
1393
1394
subtest 'ModBasketHeader' => sub {
1395
    plan tests => 2;
1396
1397
    $schema->storage->txn_begin;
1398
    my $basket = $builder->build_object( { class => 'Koha::Acquisition::Baskets' } );
1399
    isnt( $basket->contractnumber, undef );
1400
    C4::Acquisition::ModBasketHeader(
1401
        $basket->basketno, $basket->basketname, $basket->note, $basket->booksellernote,
1402
        undef, $basket->booksellerid
1403
    );
1404
    $basket = $basket->get_from_storage;
1405
    is( $basket->contractnumber, undef );
1406
1407
    $schema->storage->txn_rollback;
1408
};

Return to bug 39711