CGI::Widget::DBI::Search

CGI::Widget::DBI::Search is a database search widget.

SYNOPSIS

use CGI::Widget::DBI::Search;

$ws = CGI::Widget::DBI::Search->new(q => $self->{q}, -dbh => $self->{dbh});

# the following shows a configuration for a car parts database search
$ws->{-sql_table} = Cars2Diagram AS c, Diagram AS d, Parts AS p, DiagramScheme AS s;
$ws->{-where_clause} = WHERE c.CarCode=? AND c.DiagramCode=d.DiagramCode AND d.Category=? AND d.DiagramCode=s.DiagramCode AND s.PartCode=p.PartCode;
$ws->{-bind_params} = [$carcode, $category];
$ws->{-sql_retrieve_columns} =
[qw(p.PartCode p.PartName p.Description p.UnitPrice p.CoreCharge),
(p.UnitPrice + p.CoreCharge) AS TotalCharge];
$ws->{-display_columns} =
{ PartCode => "Code ", PartName => "Name", Description => "Description",
UnitPrice => "Price", CoreCharge => "Core Charge", TotalCharge => "Total Charge",
};

$ws->{-numeric_columns} = { PartCode => 1 };
$ws->{-currency_columns} = { UnitPrice => 1, CoreCharge => 1 };
#$ws->{-display_table_padding} = 4;
$ws->{-no_persistent_object} = 1;
$ws->{-show_total_numresults} = 1;

# execute database search
$ws->search();

# output search results to browser
print $q->header;
print $q->start_html;
print $ws->display_results();
print $q->end_html;

Encapsulates a DBI search in a Perl class, including all SQL statements required for performing the search, query results, HTML display methods, and multi-column, sortable result set displayed page-by-page (using HTML navigation links).