|
Lines 9-14
use C4::Bookseller;
Link Here
|
| 9 |
use C4::Budgets; |
9 |
use C4::Budgets; |
| 10 |
use MARC::Record; |
10 |
use MARC::Record; |
| 11 |
|
11 |
|
|
|
12 |
#Start transaction |
| 13 |
my $dbh = C4::Context->dbh; |
| 14 |
$dbh->{AutoCommit} = 0; |
| 15 |
$dbh->{RaiseError} = 1; |
| 16 |
|
| 12 |
my $booksellerid = C4::Bookseller::AddBookseller( |
17 |
my $booksellerid = C4::Bookseller::AddBookseller( |
| 13 |
{ |
18 |
{ |
| 14 |
name => "my vendor", |
19 |
name => "my vendor", |
|
Lines 70-84
is(scalar(@orders), 1, '1 order on biblionumber 1');
Link Here
|
| 70 |
@orders = GetOrdersByBiblionumber( $biblionumber2 ); |
75 |
@orders = GetOrdersByBiblionumber( $biblionumber2 ); |
| 71 |
is(scalar(@orders), 2, '2 orders on biblionumber 2'); |
76 |
is(scalar(@orders), 2, '2 orders on biblionumber 2'); |
| 72 |
|
77 |
|
| 73 |
END { |
78 |
#End transaction |
| 74 |
C4::Acquisition::DelOrder( 1, $ordernumber1 ); |
79 |
$dbh->rollback; |
| 75 |
C4::Acquisition::DelOrder( 2, $ordernumber2 ); |
|
|
| 76 |
C4::Acquisition::DelOrder( 3, $ordernumber3 ); |
| 77 |
C4::Budgets::DelBudget( $budgetid ); |
| 78 |
C4::Acquisition::DelBasket( $basketno ); |
| 79 |
C4::Bookseller::DelBookseller( $booksellerid ); |
| 80 |
C4::Biblio::DelBiblio($biblionumber1); |
| 81 |
C4::Biblio::DelBiblio($biblionumber2); |
| 82 |
}; |
| 83 |
|
80 |
|
| 84 |
done_testing; |
81 |
done_testing; |
| 85 |
- |
|
|