SELECT * FROM customer $LIMIT_CLAUSE

##</code><code>##

sub all {

    my ($app, $pager) = @_;

    my $LIMIT_CLAUSE;

    if ($pager) {
	$LIMIT_CLAUSE 
	  = sprintf "LIMIT %d, %d", $pager->skipped, $pager->entries_per_page;
    }


    my $query =<<"EOSQL";

SELECT * FROM table_name
$LIMIT_CLAUSE

EOSQL

##</code><code>##

sub affil {
    my $app = shift;

    my $aff_model;
    my $pager = Data::Page->new;

    my $entries_per_page = 2; 
    $pager->entries_per_page($entries_per_page);

    # either call database to get all rows or use CGI query parm
    my $total_entries = 
      $app->query->param('total_entries') 
      || Model::Aff::all($app)->rows ;
    $pager->total_entries($total_entries);

    my $current_page =  $app->query->param('current_page') || 1 ;
    $pager->current_page($current_page);


    $aff_model = Model::Aff::all($app, $pager);
    View::Aff::Main::render($app, $aff_model, $pager);

}


##</code><code>##