|
Lines 373-381
subtest 'deletedbiblio_metadata' => sub {
Link Here
|
| 373 |
my $biblio_metadata = C4::Biblio::GetXmlBiblio( $biblionumber ); |
373 |
my $biblio_metadata = C4::Biblio::GetXmlBiblio( $biblionumber ); |
| 374 |
C4::Biblio::DelBiblio( $biblionumber ); |
374 |
C4::Biblio::DelBiblio( $biblionumber ); |
| 375 |
my ( $moved ) = $dbh->selectrow_array(q|SELECT biblionumber FROM deletedbiblio WHERE biblionumber=?|, undef, $biblionumber); |
375 |
my ( $moved ) = $dbh->selectrow_array(q|SELECT biblionumber FROM deletedbiblio WHERE biblionumber=?|, undef, $biblionumber); |
| 376 |
is( $moved, $biblionumber ); |
376 |
is( $moved, $biblionumber, 'Found in deletedbiblio' ); |
| 377 |
( $moved ) = $dbh->selectrow_array(q|SELECT biblionumber FROM deletedbiblio_metadata WHERE biblionumber=?|, undef, $biblionumber); |
377 |
( $moved ) = $dbh->selectrow_array(q|SELECT biblionumber FROM deletedbiblio_metadata WHERE biblionumber=?|, undef, $biblionumber); |
| 378 |
is( $moved, $biblionumber ); |
378 |
is( $moved, $biblionumber, 'Found in deletedbiblio_metadata' ); |
| 379 |
}; |
379 |
}; |
| 380 |
|
380 |
|
| 381 |
1; |
381 |
1; |
| 382 |
- |
|
|