|
Lines 934-941
ok((defined $order1->{datecancellationprinted}), "order is cancelled");
Link Here
|
| 934 |
ok((not defined $order1->{cancellationreason}), "order has no cancellation reason"); |
934 |
ok((not defined $order1->{cancellationreason}), "order has no cancellation reason"); |
| 935 |
ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists"); |
935 |
ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists"); |
| 936 |
|
936 |
|
| 937 |
my $order2 = GetOrder($ordernumbers[1]); |
937 |
$order2 = GetOrder($ordernumbers[1]); |
| 938 |
my $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1); |
938 |
$error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1); |
| 939 |
ok((not defined $error), "DelOrder does not fail"); |
939 |
ok((not defined $error), "DelOrder does not fail"); |
| 940 |
$order2 = GetOrder($order2->{ordernumber}); |
940 |
$order2 = GetOrder($order2->{ordernumber}); |
| 941 |
ok((defined $order2->{datecancellationprinted}), "order is cancelled"); |
941 |
ok((defined $order2->{datecancellationprinted}), "order is cancelled"); |
|
Lines 943-949
ok((not defined $order2->{cancellationreason}), "order has no cancellation reaso
Link Here
|
| 943 |
ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore"); |
943 |
ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore"); |
| 944 |
|
944 |
|
| 945 |
my $order4 = GetOrder($ordernumbers[3]); |
945 |
my $order4 = GetOrder($ordernumbers[3]); |
| 946 |
my $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); |
946 |
$error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); |
| 947 |
ok((not defined $error), "DelOrder does not fail"); |
947 |
ok((not defined $error), "DelOrder does not fail"); |
| 948 |
$order4 = GetOrder($order4->{ordernumber}); |
948 |
$order4 = GetOrder($order4->{ordernumber}); |
| 949 |
ok((defined $order4->{datecancellationprinted}), "order is cancelled"); |
949 |
ok((defined $order4->{datecancellationprinted}), "order is cancelled"); |
| 950 |
- |
|
|