#!/usr/bin/perl

our $VERSION = '0.02';

# $Id: display_annotation_info,v 1.2.2.2 2007/06/14 19:04:09 kclark Exp $

use warnings;
use strict;

use FindBin::Real qw(Bin);
use HTML::SearchPage;
use HTML::SearchPage::Param;
use Panzea::FormModifier;
use Panzea::FormConfig;

my $config_file = '/usr/local/gramene-25/conf//html-searchpage.conf'; # MKFILE:Q:CONF_FILE
my $config = Panzea::FormConfig->new($config_file);

# Search page object
my $sp = HTML::SearchPage->new(
    page_title      => 'Feature Annotation Information',
    header          => $config->cfg('form_header'),
    css             => $config->cfg('form_css'),
    temp_dir        => $config->cfg('temp_dir'),
    temp_dir_eq     => $config->cfg('temp_dir_eq'),
    footer          => $config->cfg('form_footer'),
    base_sql_table  => qq[aux_seq_annotations],
    base_sql_fields => [
        'query_accession',
        'application',
        'feature_id',
        'feature_name',
        'interpro_id',
        'interpro_name',
        'go_terms',
        'fragment_frame',
        'fragment_start_on_query',
        'fragment_end_on_query',
        'fragment_length',
        'feature_start_on_fragment',
        'feature_end_on_fragment',
        'score',
    ],
    base_output_headers => [
        'Query Sequence',
        'Application',
        'Feature Id',
        'Feature Name',
        'Interpro Id',
        'Interpro Name',
        'GO Terms',
        'ORF Frame',
        'ORF Start on Seq.',
        'ORF End on Seq',
        'ORF Length',
        'Feature Start on ORF',
        'Feature End on ORF',
        'Score',
    ],
    base_identifier  => 'aux_seq_annotations_id',
    method           => $config->cfg('form_method'),
    page_size        => $config->cfg('form_page_size'),
    db_access_params => $config->cfg('db_access_params'),
    debug_level      => $config->cfg('form_debug_level'),
    modifier         => Panzea::FormModifier->new(),
);    # Displays error page if fails

# Call display method
$sp->display_info;

=head1 NAME

display_annotation_info

=head1 DESCRIPTION

Panzea web display script.

Please refer to documentation of HTML::SearchPage and
HTML::SearchPage::Param for information on script structure.

=head1 AUTHOR

Payan Canaran <canaran@cshl.edu>

=head1 BUGS

=head1 VERSION

Version 0.02

=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

