Lines 114-126
subtest ImportBreedingAuth => sub {
Link Here
|
114 |
$breedingid_1 = C4::Breeding::ImportBreedingAuth( $record, "kidclamp", "UTF-8", 'Jansson, Tove' ); |
114 |
$breedingid_1 = C4::Breeding::ImportBreedingAuth( $record, "kidclamp", "UTF-8", 'Jansson, Tove' ); |
115 |
is( $breedingid, $breedingid_1, "For the same record, modified, we get the same id" ); |
115 |
is( $breedingid, $breedingid_1, "For the same record, modified, we get the same id" ); |
116 |
|
116 |
|
117 |
my $sth = $dbh->prepare('SELECT * FROM import_records WHERE import_record_id = ?'); |
117 |
my $imported_record = Koha::Import::Records->find($breedingid); |
118 |
$sth->execute($breedingid); |
118 |
my $imported_marcrecord = $imported_record->get_marc_record(); |
119 |
my $imported_records_record = $sth->fetchrow_hashref(); |
|
|
120 |
my $imported_record = MARC::Record::new_from_xml( $imported_records_record->{marcxml} ); |
121 |
is( |
119 |
is( |
122 |
$imported_record->subfield( '999', 'a' ), $record->subfield( '999', 'a' ), |
120 |
$imported_marcrecord->subfield( '999', 'a' ), $record->subfield( '999', 'a' ), |
123 |
'We also get the new the version of the record' |
121 |
'We also get the new version of the record' |
124 |
); |
122 |
); |
125 |
|
123 |
|
126 |
# End Bug 19220 |
124 |
# End Bug 19220 |
127 |
- |
|
|