|
Lines 893-900
ok((defined $order1->{datecancellationprinted}), "order is cancelled");
Link Here
|
| 893 |
ok((not defined $order1->{cancellationreason}), "order has no cancellation reason"); |
893 |
ok((not defined $order1->{cancellationreason}), "order has no cancellation reason"); |
| 894 |
ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists"); |
894 |
ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists"); |
| 895 |
|
895 |
|
| 896 |
my $order2 = GetOrder($ordernumbers[1]); |
896 |
$order2 = GetOrder($ordernumbers[1]); |
| 897 |
my $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1); |
897 |
$error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1); |
| 898 |
ok((not defined $error), "DelOrder does not fail"); |
898 |
ok((not defined $error), "DelOrder does not fail"); |
| 899 |
$order2 = GetOrder($order2->{ordernumber}); |
899 |
$order2 = GetOrder($order2->{ordernumber}); |
| 900 |
ok((defined $order2->{datecancellationprinted}), "order is cancelled"); |
900 |
ok((defined $order2->{datecancellationprinted}), "order is cancelled"); |
|
Lines 902-908
ok((not defined $order2->{cancellationreason}), "order has no cancellation reaso
Link Here
|
| 902 |
ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore"); |
902 |
ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore"); |
| 903 |
|
903 |
|
| 904 |
my $order4 = GetOrder($ordernumbers[3]); |
904 |
my $order4 = GetOrder($ordernumbers[3]); |
| 905 |
my $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); |
905 |
$error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); |
| 906 |
ok((not defined $error), "DelOrder does not fail"); |
906 |
ok((not defined $error), "DelOrder does not fail"); |
| 907 |
$order4 = GetOrder($order4->{ordernumber}); |
907 |
$order4 = GetOrder($order4->{ordernumber}); |
| 908 |
ok((defined $order4->{datecancellationprinted}), "order is cancelled"); |
908 |
ok((defined $order4->{datecancellationprinted}), "order is cancelled"); |
| 909 |
- |
|
|