#!/usr/bin/perl
use strict;
use warnings;
use lib qw /./;
use CGI;
use Data; #Class::DBI
use Template;
use Tie::Cycle;
my $q = CGI->new;
my $file = 'index.html';
my $tt = Template->new({ INCLUDE_PATH => 'template/' });
tie my $cycle, 'Tie::Cycle', [ qw( FFFFFF CCCCCC ) ];
my $page = $q->param('page') || 1;
my $pager = Data->pager(5,$page);
my @data = $pager->retrieve_all;
my $vars = {
data => \@data,
pager => $pager,
cycle => $cycle
};
print $q->header;
$tt->process($file, $vars)
|| die "Template process failed: ", $tt->error(), "\n";
BEGIN TEMPLATE-----------------------------------
|
|
Question 1
|
Question 2
|
Question 3
|
Date
|
[% FOREACH line = data %]
|
[% loop.count %]
|
[% line.one %]
|
[% line.two %]
|
[% line.three %]
|
[% line.stamp %]
|
DELETE
|
[% END %]
[% IF pager.previous_page %]
prev [% pager.entries_per_page %] |
[% END %]
[% IF pager.next_page %]
next [% pager.entries_per_page %]
[% END %]