Lines 256-269
sub test_search{
Link Here
|
256 |
$agent->field('q', $search_key); |
256 |
$agent->field('q', $search_key); |
257 |
$agent->click(); |
257 |
$agent->click(); |
258 |
my $intra_text = $agent->text() ; |
258 |
my $intra_text = $agent->text() ; |
259 |
my $diag = sub { |
|
|
260 |
my $pref = 'XSLTResultsDisplay'; |
261 |
my $xslt_file = C4::Context->preference('marcflavour') . 'slim2intranetResults.xsl'; |
262 |
my $xslt_filepath = C4::XSLT::_get_best_default_xslt_filename( C4::Context->config('intrahtdocs'), C4::Context->preference("template"), 'en', $xslt_file ); |
263 |
return sprintf( "===DIAG===\n%s is %s\n%s %s\n==========", $pref, C4::Context->preference($pref), $xslt_filepath, ( -f $xslt_filepath ? 'exists' : 'does not exist' )); |
264 |
}; |
265 |
|
266 |
# like( $intra_text, qr|Publication details: $publisher|, ) or diag($diag->()); |
267 |
|
259 |
|
268 |
$agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl" , "got search on intranet"); |
260 |
$agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl" , "got search on intranet"); |
269 |
$agent->form_number(5); |
261 |
$agent->form_number(5); |
Lines 272-278
sub test_search{
Link Here
|
272 |
$agent->click(); |
264 |
$agent->click(); |
273 |
$intra_text = $agent->text(); |
265 |
$intra_text = $agent->text(); |
274 |
|
266 |
|
275 |
# like( $intra_text, qr|Publication details: $publisher|, ); |
|
|
276 |
my $expected_base = q|search.pl\?advsearch=1&idx=kw&q=| . uri_escape_utf8( $publisher ); |
267 |
my $expected_base = q|search.pl\?advsearch=1&idx=kw&q=| . uri_escape_utf8( $publisher ); |
277 |
$agent->base_like(qr|$expected_base|, ); |
268 |
$agent->base_like(qr|$expected_base|, ); |
278 |
|
269 |
|
Lines 286-292
sub test_search{
Link Here
|
286 |
$agent->field( 'idx', '' ); |
277 |
$agent->field( 'idx', '' ); |
287 |
$agent->click( ); |
278 |
$agent->click( ); |
288 |
my $opac_text = $agent->text() ; |
279 |
my $opac_text = $agent->text() ; |
289 |
# like( $opac_text, qr|Publication details: $publisher|, ); |
|
|
290 |
|
280 |
|
291 |
$agent->get_ok( "$opac" , "got opac"); |
281 |
$agent->get_ok( "$opac" , "got opac"); |
292 |
$agent->form_name('searchform'); |
282 |
$agent->form_name('searchform'); |
Lines 295-301
sub test_search{
Link Here
|
295 |
$agent->click(); |
285 |
$agent->click(); |
296 |
$opac_text = $agent->text(); |
286 |
$opac_text = $agent->text(); |
297 |
|
287 |
|
298 |
# like( $opac_text, qr|Publication details: $publisher|, ); |
|
|
299 |
$expected_base = q|opac-search.pl\?(idx=&)?q=| . uri_escape_utf8( $publisher ); |
288 |
$expected_base = q|opac-search.pl\?(idx=&)?q=| . uri_escape_utf8( $publisher ); |
300 |
$agent->base_like(qr|$expected_base|, ); |
289 |
$agent->base_like(qr|$expected_base|, ); |
301 |
# Test added on BZ 14909 in addition to making the empty idx= optional |
290 |
# Test added on BZ 14909 in addition to making the empty idx= optional |
302 |
- |
|
|