CGI::Widget::DBI::SearchCGI::Widget::DBI::Search is a database search widget. | |
Download |
CGI::Widget::DBI::Search Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Adi Fairbank
- Publisher web site:
- http://search.cpan.org/~adiraj/Apache-App-Mercury-0.80/Mercury/UserManager.pm
CGI::Widget::DBI::Search Tags
CGI::Widget::DBI::Search Description
CGI::Widget::DBI::Search is a database search widget. 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} = ; $ws->{-sql_retrieve_columns} = ; $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).Requirements:· Perl Requirements: · Perl
CGI::Widget::DBI::Search Related Software