|
Lines 785-795
subtest 'IsMarcStructureInternal' => sub {
Link Here
|
| 785 |
}; |
785 |
}; |
| 786 |
|
786 |
|
| 787 |
subtest 'deletedbiblio_metadata' => sub { |
787 |
subtest 'deletedbiblio_metadata' => sub { |
| 788 |
plan tests => 2; |
788 |
plan tests => 3; |
| 789 |
|
789 |
|
| 790 |
t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 ); |
790 |
t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 ); |
| 791 |
|
791 |
|
| 792 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( MARC::Record->new, '' ); |
792 |
my $record_new = MARC::Record->new; |
|
|
793 |
$record_new->leader( substr( $record_new->leader, 0, 5 ) . 'n' . substr( $record_new->leader, 6 ) ); |
| 794 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record_new, '' ); |
| 793 |
my $biblio_metadata = C4::Biblio::GetXmlBiblio($biblionumber); |
795 |
my $biblio_metadata = C4::Biblio::GetXmlBiblio($biblionumber); |
| 794 |
C4::Biblio::DelBiblio($biblionumber); |
796 |
C4::Biblio::DelBiblio($biblionumber); |
| 795 |
my ($moved) = |
797 |
my ($moved) = |
|
Lines 800-805
subtest 'deletedbiblio_metadata' => sub {
Link Here
|
| 800 |
$biblionumber |
802 |
$biblionumber |
| 801 |
); |
803 |
); |
| 802 |
is( $moved, $biblionumber, 'Found in deletedbiblio_metadata' ); |
804 |
is( $moved, $biblionumber, 'Found in deletedbiblio_metadata' ); |
|
|
805 |
my $record_deleted = MARC::Record::new_from_xml( |
| 806 |
$schema->resultset('DeletedbiblioMetadata')->find( { biblionumber => $biblionumber } )->metadata ); |
| 807 |
is( |
| 808 |
substr( $record_deleted->leader, 5, 1 ), |
| 809 |
'd', 'LDR/5 = "d" for deleted biblio record' |
| 810 |
); |
| 811 |
|
| 803 |
}; |
812 |
}; |
| 804 |
|
813 |
|
| 805 |
subtest 'DelBiblio' => sub { |
814 |
subtest 'DelBiblio' => sub { |
| 806 |
- |
|
|