|
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 |
- |
|
|