package WeilMclain::Controller::ContractorLocator;

use strict;
use warnings;
use base 'Catalyst::Controller';

=head1 NAME

WeilMclain::Controller::ContractorLocator - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index 

=cut

sub index : Private {
    my ( $self, $c ) = @_;

    $c->stash->{template} = 'contractorlocator/index';
}

sub search : Local {

    my ( $self, $c ) = @_;

    # Figure out hte zip code we are dealing with in case user gives c
+ity,state
    my $zip_code = 0;
    if ($c->request->param('city') && $c->request->param('state')) {
        $zip_code = $c->model('WeilMclainDB::Zips')->get_zip($c->reque
+st->param('city'),$c->request->param('state'));
    }
    elsif (!$c->request->param('zip')) { $c->response->redirect('/cont
+ractorlocator'); }
    else { $zip_code = $c->request->param('zip'); }

    my $zips = [$c->model('WeilMclainDB::Zips')->get_closest($zip_code
+,$c->request->param('miles'))];

    # Get contractors in $zips
    if (scalar @{$zips} > 0) { $c->stash->{contractors} = [$c->model('
+WeilMclainDB::Contractor')->locate_by_zip($zips)]; }

    $c->stash->{template} = 'contractorlocator/search';
}


=head1 AUTHOR

Copyright 2006 Denny D. Daugherty <ddaugherty@kujoe.com>

=head1 LICENSE


=cut

1;
[download]