14 |
use back2html; |
use back2html; |
15 |
|
|
16 |
# configuration options |
# configuration options |
17 |
# FIX: they really should go in configuration file! |
# FIXME they really should go in configuration file! |
18 |
my $TEMPLATE_PATH = '/data/webpac/template_html'; |
my $TEMPLATE_PATH = '/data/webpac/template_html'; |
19 |
my $CHARSET = 'ISO-8859-2'; |
my $CHARSET = 'ISO-8859-2'; |
20 |
my $SWISH = '/usr/bin/swish-e'; |
my $SWISH = '/usr/bin/swish-e'; |
137 |
$tmpl->param('hits',$hits); |
$tmpl->param('hits',$hits); |
138 |
$tmpl->param('search',$sw_q); |
$tmpl->param('search',$sw_q); |
139 |
|
|
140 |
|
$tmpl->param('PAGER_offset',$q->param("PAGER_offset") || 0); |
141 |
|
$tmpl->param('last_PAGER_offset',$q->param("last_PAGER_offset") || 0); |
142 |
|
|
143 |
# create a Pager object |
# create a Pager object |
144 |
my $pager = HTML::Pager->new( |
my $pager = HTML::Pager->new( |
145 |
# required parameters |
# required parameters |
207 |
$tmpl->param('limit',$limit); |
$tmpl->param('limit',$limit); |
208 |
$tmpl->param('total',$total); |
$tmpl->param('total',$total); |
209 |
|
|
210 |
# FIX: I should set offset and leave out limit from fetch!! |
# FIXME I should set offset and leave out limit from fetch!! |
211 |
# if (! $q->param("PAGER_offset") { |
# if (! $q->param("PAGER_offset") { |
212 |
# $q->param("Pager_offet) |
# $q->param("Pager_offet) |
213 |
# } |
# } |