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