package MyWebApp;
use base 'CGI::Application';
use MyWebApp::DB;
use MyWebApp::TicketCollection;
use strict;
# Needed for our database connection


sub setup {
    my $self = shift;
    my $db = new MyWebApp::DB;
    my $dbh = $db->get_dbh;
    $self->start_mode('menu');
    $self->tmpl_path('');
    $self->run_modes(
        tickets => 'show_tickets',
        
    );
    # Connect to DBI database
    $self->param('dbh' => $dbh);
}

sub teardown {
    my $self = shift;
    # Disconnect when we're done
    $self->param('dbh')->disconnect();
}

sub show_tickets{
    my $self = shift;
    my $q = $self->query();
    my ($start_date, $end_date) = 
        ( $q->param('start_date'), $q->param('start_date') );
    #more code to verify user input
    my $tc = new MyWebApp::TicketCollection( 
                                     $self->param('dbh'),
                                     $start_date,
                                     $end_date );
    #code to display tickets
}

1;