use back2html;
# configuration options
-# FIX: they really should go in configuration file!
+# FIXME they really should go in configuration file!
my $TEMPLATE_PATH = '/data/webpac/template_html';
my $CHARSET = 'ISO-8859-2';
my $SWISH = '/usr/bin/swish-e';
$tmpl->param('hits',$hits);
$tmpl->param('search',$sw_q);
+ $tmpl->param('PAGER_offset',$q->param("PAGER_offset") || 0);
+ $tmpl->param('last_PAGER_offset',$q->param("last_PAGER_offset") || 0);
+
# create a Pager object
my $pager = HTML::Pager->new(
# required parameters
$tmpl->param('limit',$limit);
$tmpl->param('total',$total);
-# FIX: I should set offset and leave out limit from fetch!!
+# FIXME I should set offset and leave out limit from fetch!!
# if (! $q->param("PAGER_offset") {
# $q->param("Pager_offet)
# }
<body>
<p align="right"><a href="/">Home logo</a></p>
+
<form method=post>
<div align="center">
<input type=submit value="Pretra¾ivanje" class="navigacijaDISABLED">
<TABLE BORDER=0 WIDTH=100%>
<TR><TD><TABLE BORDER=1 WIDTH=100%>
+<!-- FIXME
+<pre>
+last_PAGER_offset: <TMPL_VAR last_PAGER_offset>
+PAGER_offset: <TMPL_VAR PAGER_offset>
+</pre>
+-->
+
<TMPL_IF NAME="full">
<input type=submit value="Back to all results">
+<input type="hidden" name="PAGER_offset" value="<TMPL_VAR last_PAGER_offset>" />
<TMPL_LOOP NAME="PAGER_DATA_LIST">
<TR>
<TMPL_ELSE>
-<input type=submit value="Display details about checked items">
+<input type=submit value="Display details about checked items" onClick="PAGER_set_offset_and_submit(0);">
+<input type="hidden" name="last_PAGER_offset" value="<TMPL_VAR PAGER_offset>" />
+
<TMPL_LOOP NAME="PAGER_DATA_LIST">
<TR>
<td><input type=checkbox name="path" value="<TMPL_VAR NAME="path">"><TMPL_VAR NAME="nr"></td>