package Portal::Controller::Bids;
use Moose;
use namespace::autoclean;
#
use Data::Dumper;
#

BEGIN {extends 'Catalyst::Controller'; }

=head1 NAME

Portal::Controller::Bids - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index

=cut

sub user : Chained( '/' ) : PathPart( 'bids' ) : CaptureArgs( 0 ) {
	my ( $self, $c ) = @_;
	$c->res->redirect( $c->uri_for( $c->controller( 'Auth' )->action_for( 'login' ) ) ) unless ( $c->user );
}

sub plans : Chained( 'user' ) : PathPart( '' ) : CaptureArgs( 0 ) {
	my ( $self, $c ) = @_;
	$c->res->redirect( $c->uri_for( $c->controller( 'Auth' )->action_for( 'unauthorized' ) ) ) unless ( $c->check_user_roles( 'Plans' ) );
}

sub index : Chained( 'user' ) : PathPart( '' ): Args( 0 ) {
	my ( $self, $c ) = @_;

	if ( $c->req->method eq 'GET' ) {
			my @bids = $c->model( 'DB::Bids' )->search({ active => 1 }, order_by => [ { -desc => 'logged_date' }, { -desc => 'id' } ] )->all;
			$c->stash->{bids} = \@bids if ( @bids );
	} elsif ( $c->req->method eq 'POST' && $c->req->param( 'all_bids' ) ) {
			my @bids = $c->model( 'DB::Bids' )->search({}, order_by => { -desc => qw/logged_date id/ } )->all;
			$c->stash->{results} = 'All Bids';
			$c->stash->{bids} = \@bids if ( @bids );
	} else {
		my $args = $c->req->params();
		my $search;
		$search->{id} = { 'like', '%' . $args->{bid_id} . "%" } if ( $args->{bid_id} );
		$search->{pm_id} = $args->{pm_id} if ( $args->{pm_id} ne '-1' );
		$search->{apm_id} = $args->{apm_id} if ( $args->{apm_id} ne '-1' );
		$search->{due_client} = $args->{due_client} if ( $args->{due_client} );
		$search->{due_sub} = $args->{due_sub} if ( $args->{due_sub} );
		$search->{project} = { 'like', '%' . $args->{project} . '%' } if ( $args->{project} );
		$search->{location} = { 'like', '%' . $args->{location} . '%' } if ( $args->{location} );
		$search->{street} = { 'like', '%' . $args->{street} . '%' } if ( $args->{street} );
		$search->{city} = { 'like', '%' . $args->{city} . '%' } if ( $args->{city} );
		$search->{state_prov} = { 'like', '%' . $args->{state_prov} . '%' } if ( $args->{state_prov} );
		$search->{zip} = { 'like', '%' . $args->{zip} . '%' } if ( $args->{zip} );
		$search->{active} = $args->{active} if ( $args->{active} ne '-1' );

		if ( $search ) {
			my @bids = $c->model( 'DB::Bids' )->search( $search, { order_by => 'id' } )->all;
			$c->stash->{results} = 'Results: ' . scalar( @bids );
			$c->stash->{bids} = \@bids if ( @bids );
		} else {
			$c->stash->{results} = 'No search criteria';
		}
		$c->log->warn( Dumper( $search ) );
	}

	# Add users
	my @users = $c->model( 'DB::Users' )->all;
	$c->stash->{users} = \@users;
	# Add javascript
	$c->stash->{jscript} = [ $c->uri_for( '/static/js/bids/index.js' ) ];
}

sub view : Chained( 'user' ) : PathPart( 'view' ) : Args( 1 ) {
	my ( $self, $c, $id ) = @_;
	my $bid = $c->model( "DB::Bids" )->find( $id );

	$c->go( 'default' ) unless( $bid );

	my @plans = $bid->plans->search({}, { order_by => 'id asc' } )->all;

	$c->stash->{bid} = $bid;
	$c->stash->{plans} = \@plans;
}

sub edit : Chained( 'plans' ) : PathPart( 'edit' ) : Args( 1 ) {
	my ( $self, $c, $id ) = @_;

	if ( $c->req->method eq 'GET' ) {

		my @users = $c->model( 'DB::Users' )->all;
		$c->stash->{users} = \@users;

		my $bid = $c->model( 'DB::Bids' )->find( $id );
		$c->stash->{bid} = $bid;
	} elsif ( $c->req->method eq 'POST' ) {
		my $args = $c->req->params();

		my $bid = $c->model( 'DB::Bids' )->find( $id );
		$bid->pm_id( $args->{pm_id} );
		$bid->apm_id( $args->{apm_id} );
		$bid->project( $args->{project} );
		$bid->location( $args->{location} );
		$bid->street( $args->{street} );
		$bid->space( $args->{space} );
		$bid->city( $args->{city} );
		$bid->state_prov( $args->{state_prov} );
		$bid->zip( $args->{zip} );
		$bid->password( $args->{password} );
		$bid->due_client( $args->{due_client} );
		$bid->due_sub( $args->{due_sub} );
		$bid->active( $args->{active} );

		my @tags = reverse( $c->req->param( 'plan_tag' ) );
		my @active = reverse( $c->req->param( 'plan_active' ) );
		if ( $args->{active} == 0 ) { # If the bid goes inactive mark all plans inactive
			$_ = 0 for ( @active );
		}
		for my $plan ( $bid->plans ) {
			$plan->tag( pop( @tags ) );
			$plan->active( pop( @active ) );
			$plan->update();
		}

		$bid->update(); # Update Bid
		$c->res->redirect( $c->uri_for( $c->controller( 'Bids' )->action_for( 'view' ) ) . '/' . $bid->id );
	}
	$c->stash->{jscript} = [ $c->uri_for( '/static/js/bids/edit.js' ) ];
}

sub add : Chained( 'plans' ) : PathPart( 'add' ) : Args( 0 ) {
	my ( $self, $c ) = @_;

	if ( $c->req->method eq 'POST' ) {
		my $p = $c->req->params();

		$p->{creator_id} = $c->user->id;				# Add the users ID
		$p->{file} = $c->req->upload( 'plan_file' );  # Add the file to the params

		if ( $c->model( 'DB::Bids' )->add_bid( $p ) ) {
			# Creation Success
		} else {
			# Creation Failed
		}
	} else {
		my @users = $c->model( "DB::Users" )->search({ active => 1 })->all;
		$c->stash->{users} = \@users;
		$c->stash->{jscript} = [ $c->uri_for( '/static/js/bids/add.js' ) ];
	}
}

=head1 AUTHOR

Frank Switalski,,,

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__PACKAGE__->meta->make_immutable;

--------------------------------------------------------------------------------------------------------------------------

package Portal::Schema;

use strict;
use warnings;

use base 'DBIx::Class::Schema';

__PACKAGE__->load_namespaces;


# Created by DBIx::Class::Schema::Loader v0.04006 @ 2009-12-23 13:24:25
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:rnSUiKvdGPieUmrw2V71HA


# You can replace this text with custom content, and it will be preserved on regeneration
1;
package Portal::Schema::Result::Bids;

use strict;
use warnings;
use random;
use DateTime;

use base 'DBIx::Class';

__PACKAGE__->load_components( "InflateColumn::DateTime", "Core" );
__PACKAGE__->table( "bids" );
__PACKAGE__->add_columns(
  "id",
		{ data_type => "text" },
  "client_id",
		{ data_type => "integer" },
  "pm_id",
		{ data_type => "integer" },
  "apm_id",
		{ data_type => "integer" },
  "project",
		{ data_type => "text" },
  "due_client",
		{ data_type => "date" },
  "due_sub",
		{ data_type => "date" },
  "location",
		{ data_type => "text" },
  "street",
		{ data_type => "text" },
  "space",
		{ data_type => "text" },
  "city",
		{ data_type => "text" },
  "state_prov",
		{ data_type => "text" },
  "zip",
		{ data_type => "text" },
  "mall_phone",
		{ data_type => "text" },
  "union_status",
		{ data_type => "integer" },
  "logged_by",
		{ data_type => "integer" },
  "logged_date",
		{ data_type => "date" },
  "status",
		{ data_type => "integer" },
  "password",
		{ data_type => "text" },
  "description",
		{ data_type => "text" },
  "security",
		{ data_type => "integer" },
  "active",
		{ data_type => "integer" }
);
__PACKAGE__->set_primary_key( "id" );
__PACKAGE__->add_unique_constraint( "bids_pkey", ["id"] );

__PACKAGE__->has_one(
	"pm" => "Portal::Schema::Result::Users",
	{ "foreign.id" => "self.pm_id" }
);

__PACKAGE__->has_one(
	"apm" => "Portal::Schema::Result::Users",
	{ "foreign.id" => "self.apm_id" }
);

__PACKAGE__->has_one(
	"logger" => "Portal::Schema::Result::Users",
	{ "foreign.id" => "self.logged_by" }
);

__PACKAGE__->has_many(
  "plans",
  "Portal::Schema::Result::Plans",
  { "foreign.bid_id" => "self.id" }
);

sub add_bid {
	my ( $self, $p ) = @_;

	my $rand = 1 + rand( 10000 );

	my $bid = $self->create({
		client_id => -1, ######################################### FIX THIS
		pm_id => $p->{pm_id},
		apm_id => $p->{apm_id},
		project => $p->{project},
		due_client => $p->{due_client},
		due_sub => $p->{due_sub},
		location => $p->{location},
		street => $p->{street},
		space => $p->{space},
		city => $p->{city},
		state_prov => $p->{state_prov},
		zip => $p->{zip},
		mall_phone => $p->{mall_phone},
		union_status => -1,
		logged_by => $p->{creator_id},
		status => -1,
		password => $p->{password},
		description => $p->{description},
		security => $rand,
		active => 1
	});

	my $plan = $self->create_related( 'plans', {
		id => '00',
		tag => $p->{plan_tag},
		filename => $p->{plan}->filename,
		logged_by => $p->{creator_id},
		logged_date => DateTime->now(),
		active => 1
	});

	my $file = $p->{file}->copy_to( '/home/fswitalski/' . $p->{plan}->filename );

	if ( $bid && $plan && $file ) {
		return 1;
	}
}

1;

--------------------------------------------------------------------------------------------------------------

package Portal::Schema;

use strict;
use warnings;

use base 'DBIx::Class::Schema';

__PACKAGE__->load_namespaces;


# Created by DBIx::Class::Schema::Loader v0.04006 @ 2009-12-23 13:24:25
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:rnSUiKvdGPieUmrw2V71HA


# You can replace this text with custom content, and it will be preserved on regeneration
1;