Lines 513-519
ok((not defined $error), "DelOrder does not fail");
Link Here
|
513 |
$order2 = GetOrder($order2->{ordernumber}); |
513 |
$order2 = GetOrder($order2->{ordernumber}); |
514 |
ok((defined $order2->{datecancellationprinted}), "order is cancelled"); |
514 |
ok((defined $order2->{datecancellationprinted}), "order is cancelled"); |
515 |
ok((not defined $order2->{cancellationreason}), "order has no cancellation reason"); |
515 |
ok((not defined $order2->{cancellationreason}), "order has no cancellation reason"); |
516 |
ok((not defined Koha::Biblios->find( $order2->{biblionumber} )), "biblio does not exist anymore"); |
516 |
ok(Koha::Biblios->find($order2->{biblionumber})->deleted_at , "biblio does not exist anymore"); |
517 |
|
517 |
|
518 |
my $order4 = GetOrder($ordernumbers[3]); |
518 |
my $order4 = GetOrder($ordernumbers[3]); |
519 |
$error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); |
519 |
$error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); |
Lines 521-527
ok((not defined $error), "DelOrder does not fail");
Link Here
|
521 |
$order4 = GetOrder($order4->{ordernumber}); |
521 |
$order4 = GetOrder($order4->{ordernumber}); |
522 |
ok((defined $order4->{datecancellationprinted}), "order is cancelled"); |
522 |
ok((defined $order4->{datecancellationprinted}), "order is cancelled"); |
523 |
ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \"foobar\""); |
523 |
ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \"foobar\""); |
524 |
ok((not defined Koha::Biblios->find( $order4->{biblionumber} )), "biblio does not exist anymore"); |
524 |
ok(Koha::Biblios->find($order4->{biblionumber})->deleted_at, "biblio does not exist anymore"); |
525 |
|
525 |
|
526 |
my $order5 = GetOrder($ordernumbers[4]); |
526 |
my $order5 = GetOrder($ordernumbers[4]); |
527 |
C4::Items::AddItem( { barcode => '0102030405' }, $order5->{biblionumber} ); |
527 |
C4::Items::AddItem( { barcode => '0102030405' }, $order5->{biblionumber} ); |