View | Details | Raw Unified | Return to bug 13264
Collapse All | Expand All

(-)a/t/db_dependent/www/opac_utf8.t (-3 / +14 lines)
Lines 189-198 my $webpage = $agent->{content}; Link Here
189
189
190
$webpage =~ /(.*<title>.*?)(\d{1,})(.*<\/title>)/sx;
190
$webpage =~ /(.*<title>.*?)(\d{1,})(.*<\/title>)/sx;
191
my $id_batch = $2;
191
my $id_batch = $2;
192
my $id_bib_number = GetBiblionumberFromImport($id_batch);
192
193
193
# wait enough time for the indexer
194
# wait enough time for the indexer
194
sleep 10;
195
sleep 10;
195
196
197
198
196
# -------------------------------------------------- TEST ON OPAC
199
# -------------------------------------------------- TEST ON OPAC
197
200
198
201
Lines 218-223 ok ($text =~ m/学協会. μμ/, 'UTF-8 chars are correctly present. Good'); Link Here
218
$agent->get_ok( "$intranet/cgi-bin/koha/tools/manage-marc-import.pl", 'view and clean batch' );
221
$agent->get_ok( "$intranet/cgi-bin/koha/tools/manage-marc-import.pl", 'view and clean batch' );
219
$agent->form_name('clean_batch_'.$id_batch);
222
$agent->form_name('clean_batch_'.$id_batch);
220
$agent->click();
223
$agent->click();
224
$agent->get_ok( "$intranet/cgi-bin/koha/catalogue/detail.pl?biblionumber=$id_bib_number", 'biblio on intranet' );
225
$agent->get_ok( "$intranet/cgi-bin/koha/cataloguing/addbiblio.pl?op=delete&biblionumber=$id_bib_number", 'biblio deleted' );
221
226
222
# clean
227
# clean
223
cleanup();
228
cleanup();
Lines 260-265 sub cleanup { Link Here
260
265
261
}
266
}
262
267
263
268
sub GetBiblionumberFromImport{
264
269
    my ( $batch_id) = @_;
270
    use C4::ImportBatch;
271
    my $data = C4::ImportBatch::GetImportRecordsRange($batch_id, '', '', undef,
272
                    { order_by => 'import_record_id', order_by_direction => 'DESC' });
273
    my $biblionumber = $data->[0]->{'matched_biblionumber'};
274
    
275
    return $biblionumber;
276
}
265
1;
277
1;
266
- 

Return to bug 13264