[! use SQLite::Work::CGI; !]
[-
=head1 NAME

show.epl - Embperl script to show data from an SQLite database

=head2 DESCRIPTION

Embperl script to show data for an SQLite database.
If run with no arguments, will print a form with tables to select from.
Once a table is selected, it prints a form with search criteria;
when the search critera are filled in, it will print a report.

=head2 Configuration

Before the script is run, it needs to be configured.  This is done
by setting the correct values in the %InitArgs hash (just below
if you are looking at the source of this file).

The minimum requirement is to set the 'database' value; this must be
the name of the SQLite database file which this script accesses.

See L<SQLite::Work/new> and L<SQLite::Work::CGI/new> for more information
about possible arguments to give.

=cut

%InitArgs = (
    database=>'test1.db',
);

=head2 Author

Kathryn Andersen. <perlkat@katspace.com>
Created: 2006

=cut

$escmode=0;
# this creates a new CGI object which has already parsed the query
my	$tvdb = SQLite::Work::CGI->new(%InitArgs);

$output = '';
if ($tvdb->do_connect())
{
    if ($tvdb->{cgi}->param('Table'))
    {
	if ($tvdb->{cgi}->param('Search'))
	{
	    $tvdb->do_select($tvdb->{cgi}->param('Table'),
		outfile=>\$output);
	}
	else
	{
	    $output = $tvdb->make_search_form($tvdb->{cgi}->param('Table'));
	}
    }
    else
    {
	$output = $tvdb->make_table_form();
    }
    $tvdb->do_disconnect();
}
-]
[+ $output +]