#!/usr/bin/perl

our $VERSION = '0.04';

# $Id: html_searchpage_sample2,v 1.4 2007/09/19 21:30:18 canaran Exp $

use warnings;
use strict;

use HTML::SearchPage;
use HTML::SearchPage::Param;

# Search page object
my $sp = HTML::SearchPage->new(
    page_title      => 'HTML::SearchPage Demo',
    header          => '[Placeholder for header]',
    css             => '',
    temp_dir        => qq[/usr/local/demo/html/demo/tmp],
    temp_dir_eq     => qq[http://localhost:8080/demo/tmp],
    instructions    => '',
    footer          => '[Placeholder for footer]',
    base_sql_table  => qq[html_searchpage_person hsp],
    base_sql_fields => [
        'hsp.name',
        'hsp.organization',
        'hsp.email',
        'hsp.address',
        'hsp.comments',
    ],
    base_output_headers => [
        'Name',
        'Organization',
        'E-mail',
        'Address',
        'Comments',
    ],
    base_identifier => 'hsp.id',
    method          => 'GET',
    db_access_params =>
      ['DBI:mysql:database=temp;host=localhost;port=3306', 'test', 'test'],
    debug_level => 1,
);    # Displays error page if fails

# Call display method
$sp->display_info;

=head1 NAME

html_searchpage_sample2 - Sample CGI script for HTML::SearchPage

=head1 SYNOPSIS

html_searchpage_sample2

=head1 DESCRIPTION

Sample code for demonstrating use of HTML::SearchPage.

=head1 USAGE

Please refer to HTML::SearchPage::Tutorial for details on this script.

=head1 AUTHOR

Payan Canaran <canaran@cshl.edu>

=head1 BUGS

=head1 VERSION

Version 0.04

=head1 ACKNOWLEDGEMENTS

=head1 COPYRIGHT & LICENSE

Copyright (c) 2005-2007 Cold Spring Harbor Laboratory

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. See DISCLAIMER.txt for
disclaimers of warranty.

=cut

