3 # simple script to test cql searching
4 # written by chris@katipo.co.nz 17/2/06
8 use C4::Interface::CGI::Output;
17 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
19 template_name => "search-test.tmpl",
23 flagsrequired => { borrow => 1 },
27 my $cql=$input->param('cql');
30 $search{'cql'} = $cql;
31 my $results = search( \%search, 'CQL' , 10);
32 $template->param(CQL => 'yes'
34 $template->param(results => $results);
36 #my $record = get_record($result);
42 output_html_with_http_headers $input, $cookie, $template->output;