[Koha-cvs] CVS: koha/html-template cmsdsearchresults.tmpl,1.1,1.2 search.pl,1.3,1.4 searchresults.tmpl,1.4,1.5
Steve Tonnesen
tonnesen at users.sourceforge.net
Fri May 10 23:22:20 CEST 2002
- Previous message: [Koha-cvs] CVS: koha/html-template cmsdsearchresults.tmpl,NONE,1.1 searchheader.tmpl,NONE,1.1 search.pl,1.2,1.3 searchresults.tmpl,1.3,1.4
- Next message: [Koha-cvs] CVS: koha/html-template cmsdsearchresults.tmpl,1.2,1.3 search.pl,1.4,1.5 searchheader.tmpl,1.1,1.2 searchresults.tmpl,1.5,1.6
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/koha/koha/html-template
In directory usw-pr-cvs1:/tmp/cvs-serv25675
Modified Files:
cmsdsearchresults.tmpl search.pl searchresults.tmpl
Log Message:
Still playing. Added a "next record" link
Index: cmsdsearchresults.tmpl
===================================================================
RCS file: /cvsroot/koha/koha/html-template/cmsdsearchresults.tmpl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** cmsdsearchresults.tmpl 10 May 2002 17:41:05 -0000 1.1
--- cmsdsearchresults.tmpl 10 May 2002 21:22:18 -0000 1.2
***************
*** 13,16 ****
--- 13,17 ----
</tr>
</TMPL_LOOP>
+ <tr><td colspan=3><a href=search.pl?template=<TMPL_VAR NAME="template">&startfrom=<TMPL_VAR NAME="startfrom">>Next Records</a></td></tr>
</table>
<hr>
Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/html-template/search.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** search.pl 10 May 2002 17:41:05 -0000 1.3
--- search.pl 10 May 2002 21:22:18 -0000 1.4
***************
*** 8,13 ****
my $query=new CGI;
! my $template=$query->param('template');
! ($template) || ($template='searchresults.tmpl');
--- 8,15 ----
my $query=new CGI;
! my $templatename=$query->param('template');
! my $startfrom=$query->param('startfrom');
! ($startfrom) || ($startfrom=0);
! ($templatename) || ($templatename='searchresults.tmpl');
***************
*** 15,22 ****
! my $template = HTML::Template->new(filename => $template, die_on_bad_params => 0);
my @results;
! my $sth=$dbh->prepare("select * from biblio where author like 's%' limit 20");
$sth->execute;
while (my $data=$sth->fetchrow_hashref){
--- 17,25 ----
! print STDERR "SF: $startfrom\n";
! my $template = HTML::Template->new(filename => $templatename, die_on_bad_params => 0);
my @results;
! my $sth=$dbh->prepare("select * from biblio where author like 's%' order by author limit $startfrom,20");
$sth->execute;
while (my $data=$sth->fetchrow_hashref){
***************
*** 26,33 ****
!
! $template->param(SEARCH_RESULTS => \@results
! );
!
print "Content-Type: text/html\n\n", $template->output;
--- 29,36 ----
! $startfrom+=20;
! $template->param(startfrom => $startfrom);
! $template->param(template => $templatename);
! $template->param(SEARCH_RESULTS => \@results);
print "Content-Type: text/html\n\n", $template->output;
Index: searchresults.tmpl
===================================================================
RCS file: /cvsroot/koha/koha/html-template/searchresults.tmpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** searchresults.tmpl 10 May 2002 17:41:05 -0000 1.4
--- searchresults.tmpl 10 May 2002 21:22:18 -0000 1.5
***************
*** 13,16 ****
--- 13,17 ----
</tr>
</TMPL_LOOP>
+ <tr><td colspan=3><a href=search.pl?template=<TMPL_VAR NAME="template">&startfrom=<TMPL_VAR NAME="startfrom">>Next Records</a></td></tr>
</table>
<hr>
- Previous message: [Koha-cvs] CVS: koha/html-template cmsdsearchresults.tmpl,NONE,1.1 searchheader.tmpl,NONE,1.1 search.pl,1.2,1.3 searchresults.tmpl,1.3,1.4
- Next message: [Koha-cvs] CVS: koha/html-template cmsdsearchresults.tmpl,1.2,1.3 search.pl,1.4,1.5 searchheader.tmpl,1.1,1.2 searchresults.tmpl,1.5,1.6
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Koha-cvs
mailing list