<commit_before>package ProjectTaskToDo::Controller::Person;


use Moose;
use POSIX qw/strftime/;
use Date::Manip;
use namespace::autoclean;

BEGIN {extends 'Catalyst::Controller'; }

=head1 NAME

ProjectTaskToDo::Controller::Person - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut



=head2 notes_about_person

=cut

sub notes_about_person : Chained('person_object') : PathPart('notes_about_person') : Args(0) {
    my ( $self, $c ) = @_;
    my $person = $c->stash->{person};

	$c->stash->{notes} = [$c->model('ProjectTaskToDoDB::Note')->search(
	[
		{
			client_person_id => { '=' => $person->id },
			public => { '=' => 1 }
		},
		{
			client_contact_person_id => { '=' => $person->id },
			public => { '=' => 1 }
		},
		{
			creator_id => { '=' => $c->user->id },
			client_person_id => { '=' => $person->id },
		},
		{
			creator_id => { '=' => $c->user->id },
			client_contact_person_id => { '=' => $person->id },
		}
	],
	{
		order_by => 'title'
	})];

	$c->stash->{template}='person/notes.tt';
}



=head2 notes_by_person

=cut

sub notes_by_person : Chained('person_object') : PathPart('notes_by_person') : Args(0) {
    my ( $self, $c ) = @_;
    my $person = $c->stash->{person};
    # my $user_id = $user->id;

	$c->stash->{notes} = [$c->model('ProjectTaskToDoDB::Note')->search(
	{
		creator_id => $person->id,
		public => { '=' => 1 }
	},
	{
		order_by => 'title'
	})];

	$c->stash->{template}='person/notes.tt';
}

=head2 my_active_projects

=cut

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

	    my $person=$c->stash->{person};

        my $user_projects_rs =
          $c->model('ProjectTaskToDoDB::ProjectUser')
          ->search( { project_user_user_id => $person->id } );
        $c->stash->{projects} = [
            $user_projects_rs->search_related('project')->search(
                { project_alive => 1, list_type => 1 },
                {
                    distinct => 1,
                    order_by => 'project_short_name'
                }
            )
        ];

        # tell the template which tab to highlight and page title
        $c->stash->{whichtab}  = 'my_active_projects';
        $c->stash->{pagetitle} = 'My Active Projects';
    $c->stash->{template} = 'person/my_active_projects.tt';
}



=head2 my_complete_projects

=cut

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

	    my $person=$c->stash->{person};

    if ( $c->user ) {
        $c->stash->{projects} =
          [ $c->model('ProjectTaskToDoDB')
              ->my_inactive_projects( $person->id ) ];
    }
    else {
        $c->stash->{projects} = '';
    }
    $c->stash->{template} = 'person/my_complete_projects.tt';
}



=head2 my_active_tasks

=cut

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

	    my $person=$c->stash->{person};

	    # my $cur_date = strftime "%Y-%m-%d", localtime();

    my $alive_projects = $c->model('ProjectTaskToDoDB::Project')->search(
        {
            'deleted'        => { '<>' => 'y' },
            'project_alive ' => { '='  => '1' }
        }
    );

    my @active_tasks = $alive_projects->search_related(
        'tasks',
        {
            'task_owner_id' => { '=' => $person->id },
            'task_alive'    => { '=' => '1' },
            'task_deleted'  => { '<>' => 'y' },
            'task_complete' => { '<>' => 'y' }
        },
        { order_by => 'task_priority' }
    );

    $c->stash->{num_tasks} = $#active_tasks + 1;
    $c->stash->{tasks}     = \@active_tasks;

    $c->stash->{template} = 'person/my_active_tasks.tt';
}


=head2 my_complete_tasks

=cut

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

	    my $person=$c->stash->{person};

    # my $cur_date = strftime "%Y-%m-%d", localtime();

    my $all_projects = $c->model('ProjectTaskToDoDB::Project')->search(
        {
            'deleted'        => { '<>' => 'y' }
        }
    );

    my @complete_tasks = $all_projects->search_related(
        'tasks',
        {
            'task_owner_id' => { '=' => $person->id },
            'task_alive'    => { '=' => '0' },
            'task_deleted'  => { '<>' => 'y' },
            'task_complete' => { '=' => 'y' }
        },
        { order_by => 'task_priority' }
    );

    $c->stash->{num_tasks} = $#complete_tasks + 1;
    $c->stash->{tasks}     = \@complete_tasks;

    $c->stash->{template} = 'person/my_complete_tasks.tt';
}








=head2 search

=cut

sub search : Local {
    my ( $self, $c ) = @_;

    #################################################################
    # grab the page to display and the number of records per page

    my ( $page, $rows ) = 0;

    $page = $c->req->params->{page};
    $rows = $c->req->params->{rows};

    # only digits for page and rows
    $page =~ s/[^[:digit:]]//;
    $rows =~ s/[^[:digit:]]//;

    # default to first page
    $page = 1  unless $page;
    $rows = 25 unless $rows;

    # FIX ME: this should go in a configuration database table
    # max 100 rows
    $rows = 100 unless ( $rows <= 100 );

    # stash them for the next request
    $c->stash->{page} = $page;
    $c->stash->{rows} = $rows;
    #################################################################

    my ( $username, $full_name, $first_name, $last_name, $office_country)
      = undef;

    my $url_params = '';

    $username = $c->req->params->{username};
    $full_name = $c->req->params->{full_name};
    $first_name = $c->req->params->{first_name};
    $last_name = $c->req->params->{last_name};



    # build the where clause for the search
    my %where_clause = ();

    if ($username) {
        $where_clause{username} = { -like => "\%$username\%" };
        $url_params .= "&username=$username";
    }

    if ($full_name) {
        $where_clause{full_name} = { -like => "\%$full_name\%" };
        $url_params .= "&full_name=$full_name";
    }

    if ($first_name) {
        $where_clause{first_name} = { -like => "\%$first_name\%" };
        $url_params .= "&first_name=$first_name";
    }

    if ($last_name) {
        $where_clause{last_name} = { -like => "\%$last_name\%" };
        $url_params .= "&last_name=$last_name";
    }


    if (%where_clause) {
    # no inactive users
    $where_clause{active} = { '=' => '1' };

    my $persons= [
        $c->model('ProjectTaskToDoDB::Person')->search(
            {%where_clause},
            {
                select => [
                    { distinct => ['id'] }, 'username', 'full_name', 'first_name', 'last_name',
                ],
                as => [
                    qw/id username full_name first_name last_name/
                ],
                order_by => 'full_name',
                page     => $page,
                rows     => $rows,
            }
        )
    ];

    $c->stash->{person_count} = @$persons;
    $c->stash->{persons}      = $persons;

    $c->stash->{url_params} = $url_params;
    }

    $c->stash->{template} = 'person/search.tt';
}



=head2 add_headshot

=cut

sub add_headshot : Chained('person_object') : PathPart('add_headshot') : Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'person/add_headshot.tt';
}


=head2 add

=cut

sub add : Local {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'person/add.tt';
}

=head2 person_base

=cut

sub person_base : Chained('/') : PathPart('person') : CaptureArgs(0) {
    my ( $self, $c ) = @_;
    $c->stash( person_rs => $c->model('ProjectTaskToDoDB::Person') );
}

=head2 details

=cut

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

    if ( $c->user_exists ) {
        if (
               ( $c->check_user_roles('administrator') )
            || ( $c->check_user_roles('user_maintainer') )

          )
        {
            $c->stash->{authorized} = 1;
        }
	if ( $c->check_user_roles('administrator'))
		{
			$c->stash->{admin} = 1; 
		}
    }

    $c->stash->{template} = 'person/details.tt';
}

=head2 edit

=cut

sub edit : Chained('person_object') : PathPart('edit') : Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'person/edit.tt';
}


=head2 insert

=cut

sub insert : Local {
    my ( $self, $c ) = @_;

    if ( $c->user_exists ) {
        if (
               ( $c->check_user_roles('administrator') )
            || ( $c->check_user_roles('user_maintainer') )

          )
        {
            $c->stash->{authorized} = 1;
	    my $now = strftime "%Y-%m-%d %H:%M:%S", localtime();

            my $username           = $c->req->params->{username};
            my $full_name          = $c->req->params->{full_name};
            my $first_name         = $c->req->params->{first_name};
            my $last_name          = $c->req->params->{last_name};
            my $office_email       = $c->req->params->{office_email};
            my $office_phone       = $c->req->params->{office_phone};
            my $office_floor       = $c->req->params->{office_floor};
            my $office_department  = $c->req->params->{office_department};
            my $office_address1    = $c->req->params->{office_address1};
            my $office_address2    = $c->req->params->{office_address2};
            my $office_address3    = $c->req->params->{office_address3};
            my $office_city        = $c->req->params->{office_city};
            my $office_state       = $c->req->params->{office_state};
            my $office_postal_code = $c->req->params->{office_postal_code};
            my $office_country     = $c->req->params->{office_country};
            my $mobile_phone       = $c->req->params->{mobile_phone};
            my $skype_name         = $c->req->params->{skype_name};
            my $aim_name           = $c->req->params->{aim_name};
            my $admin_notes        = $c->req->params->{admin_notes};

            my $person = $c->model('ProjectTaskToDoDB::Person')->create(
                {
                    username          => $username,
		    registered        => $now,
                    full_name         => $full_name,
                    first_name        => $first_name,
                    last_name         => $last_name,
                    office_email      => $office_email,
                    office_phone      => $office_phone,
                    office_floor      => $office_floor,
                    office_department => $office_department,
                    office_address1   => $office_address1,
                    office_address2    => $office_address2,
                    office_address3    => $office_address3,
                    office_city        => $office_city,
                    office_state       => $office_state,
                    office_postal_code => $office_postal_code,
                    office_country     => $office_country,
                    mobile_phone       => $mobile_phone,
                    skype_name         => $skype_name,
                    aim_name           => $aim_name,
                    admin_notes        => $admin_notes,
                }
            );

            my $person_id = $person->id;

            $c->response->redirect( $c->uri_for("/person/$person_id") );
            $c->detach();

        }
        $c->flash->{message} = 'You are not authorized to create new People';
        $c->response->redirect( $c->uri_for("/") );
        $c->detach();
    }

    else {
        $c->flash->{message} = 'You are not authorized to create new People';
        $c->response->redirect( $c->uri_for("/") );
        $c->detach();

    }
}

=head2 list

=cut

sub list : Chained('person_base') : PathPart('list') : Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{persons} =
      [ $c->model('ProjectTaskToDoDB::Person')
          ->search( { active => 1 }, { order_by => 'full_name' } ) ];
    $c->stash->{template} = 'person/list.tt';
}

=head2 name_lookup

=cut

sub name_lookup : Local {
    my ( $self, $c ) = @_;
    my @results = ();
    my $cname   = $c->req->query_parameters->{term};

    my $persons =
      $c->model('ProjectTaskToDoDB::Person')
      ->search( { full_name => { -like => "\%$cname\%" }, active => '1' },
        { order_by => 'full_name' } );

    while ( my $cur_person = $persons->next ) {

  # my $label = $cur_person->full_name . " (" . $cur_person->office_email . ")";
        my $label = $cur_person->full_name;
        push(
            @results,
            {
                id    => $cur_person->full_name,
                label => $label,
                value => $cur_person->id
            }
        );
    }
    $c->stash->{json} = \@results;
    $c->forward('View::JSON');
}

=head2 person_object

=cut

sub person_object : Chained('person_base') : PathPart('') : CaptureArgs(1) {
    my ( $self, $c, $id ) = @_;
    my $person = $c->stash->{person_rs}->find( { id => $id } );
    if ( !$person ) {
        $c->response->redirect( $c->uri_for("/") );
        $c->detach();
    }
    $c->stash( person => $person );
}

=head2 update

=cut<commit_msg>added office_email to Person::name_lookup so if two users have same name you can distinquish by email address<commit_after>package ProjectTaskToDo::Controller::Person;


use Moose;
use POSIX qw/strftime/;
use Date::Manip;
use namespace::autoclean;

BEGIN {extends 'Catalyst::Controller'; }

=head1 NAME

ProjectTaskToDo::Controller::Person - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut



=head2 notes_about_person

=cut

sub notes_about_person : Chained('person_object') : PathPart('notes_about_person') : Args(0) {
    my ( $self, $c ) = @_;
    my $person = $c->stash->{person};

	$c->stash->{notes} = [$c->model('ProjectTaskToDoDB::Note')->search(
	[
		{
			client_person_id => { '=' => $person->id },
			public => { '=' => 1 }
		},
		{
			client_contact_person_id => { '=' => $person->id },
			public => { '=' => 1 }
		},
		{
			creator_id => { '=' => $c->user->id },
			client_person_id => { '=' => $person->id },
		},
		{
			creator_id => { '=' => $c->user->id },
			client_contact_person_id => { '=' => $person->id },
		}
	],
	{
		order_by => 'title'
	})];

	$c->stash->{template}='person/notes.tt';
}



=head2 notes_by_person

=cut

sub notes_by_person : Chained('person_object') : PathPart('notes_by_person') : Args(0) {
    my ( $self, $c ) = @_;
    my $person = $c->stash->{person};
    # my $user_id = $user->id;

	$c->stash->{notes} = [$c->model('ProjectTaskToDoDB::Note')->search(
	{
		creator_id => $person->id,
		public => { '=' => 1 }
	},
	{
		order_by => 'title'
	})];

	$c->stash->{template}='person/notes.tt';
}

=head2 my_active_projects

=cut

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

	    my $person=$c->stash->{person};

        my $user_projects_rs =
          $c->model('ProjectTaskToDoDB::ProjectUser')
          ->search( { project_user_user_id => $person->id } );
        $c->stash->{projects} = [
            $user_projects_rs->search_related('project')->search(
                { project_alive => 1, list_type => 1 },
                {
                    distinct => 1,
                    order_by => 'project_short_name'
                }
            )
        ];

        # tell the template which tab to highlight and page title
        $c->stash->{whichtab}  = 'my_active_projects';
        $c->stash->{pagetitle} = 'My Active Projects';
    $c->stash->{template} = 'person/my_active_projects.tt';
}



=head2 my_complete_projects

=cut

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

	    my $person=$c->stash->{person};

    if ( $c->user ) {
        $c->stash->{projects} =
          [ $c->model('ProjectTaskToDoDB')
              ->my_inactive_projects( $person->id ) ];
    }
    else {
        $c->stash->{projects} = '';
    }
    $c->stash->{template} = 'person/my_complete_projects.tt';
}



=head2 my_active_tasks

=cut

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

	    my $person=$c->stash->{person};

	    # my $cur_date = strftime "%Y-%m-%d", localtime();

    my $alive_projects = $c->model('ProjectTaskToDoDB::Project')->search(
        {
            'deleted'        => { '<>' => 'y' },
            'project_alive ' => { '='  => '1' }
        }
    );

    my @active_tasks = $alive_projects->search_related(
        'tasks',
        {
            'task_owner_id' => { '=' => $person->id },
            'task_alive'    => { '=' => '1' },
            'task_deleted'  => { '<>' => 'y' },
            'task_complete' => { '<>' => 'y' }
        },
        { order_by => 'task_priority' }
    );

    $c->stash->{num_tasks} = $#active_tasks + 1;
    $c->stash->{tasks}     = \@active_tasks;

    $c->stash->{template} = 'person/my_active_tasks.tt';
}


=head2 my_complete_tasks

=cut

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

	    my $person=$c->stash->{person};

    # my $cur_date = strftime "%Y-%m-%d", localtime();

    my $all_projects = $c->model('ProjectTaskToDoDB::Project')->search(
        {
            'deleted'        => { '<>' => 'y' }
        }
    );

    my @complete_tasks = $all_projects->search_related(
        'tasks',
        {
            'task_owner_id' => { '=' => $person->id },
            'task_alive'    => { '=' => '0' },
            'task_deleted'  => { '<>' => 'y' },
            'task_complete' => { '=' => 'y' }
        },
        { order_by => 'task_priority' }
    );

    $c->stash->{num_tasks} = $#complete_tasks + 1;
    $c->stash->{tasks}     = \@complete_tasks;

    $c->stash->{template} = 'person/my_complete_tasks.tt';
}








=head2 search

=cut

sub search : Local {
    my ( $self, $c ) = @_;

    #################################################################
    # grab the page to display and the number of records per page

    my ( $page, $rows ) = 0;

    $page = $c->req->params->{page};
    $rows = $c->req->params->{rows};

    # only digits for page and rows
    $page =~ s/[^[:digit:]]//;
    $rows =~ s/[^[:digit:]]//;

    # default to first page
    $page = 1  unless $page;
    $rows = 25 unless $rows;

    # FIX ME: this should go in a configuration database table
    # max 100 rows
    $rows = 100 unless ( $rows <= 100 );

    # stash them for the next request
    $c->stash->{page} = $page;
    $c->stash->{rows} = $rows;
    #################################################################

    my ( $username, $full_name, $first_name, $last_name, $office_country)
      = undef;

    my $url_params = '';

    $username = $c->req->params->{username};
    $full_name = $c->req->params->{full_name};
    $first_name = $c->req->params->{first_name};
    $last_name = $c->req->params->{last_name};



    # build the where clause for the search
    my %where_clause = ();

    if ($username) {
        $where_clause{username} = { -like => "\%$username\%" };
        $url_params .= "&username=$username";
    }

    if ($full_name) {
        $where_clause{full_name} = { -like => "\%$full_name\%" };
        $url_params .= "&full_name=$full_name";
    }

    if ($first_name) {
        $where_clause{first_name} = { -like => "\%$first_name\%" };
        $url_params .= "&first_name=$first_name";
    }

    if ($last_name) {
        $where_clause{last_name} = { -like => "\%$last_name\%" };
        $url_params .= "&last_name=$last_name";
    }


    if (%where_clause) {
    # no inactive users
    $where_clause{active} = { '=' => '1' };

    my $persons= [
        $c->model('ProjectTaskToDoDB::Person')->search(
            {%where_clause},
            {
                select => [
                    { distinct => ['id'] }, 'username', 'full_name', 'first_name', 'last_name',
                ],
                as => [
                    qw/id username full_name first_name last_name/
                ],
                order_by => 'full_name',
                page     => $page,
                rows     => $rows,
            }
        )
    ];

    $c->stash->{person_count} = @$persons;
    $c->stash->{persons}      = $persons;

    $c->stash->{url_params} = $url_params;
    }

    $c->stash->{template} = 'person/search.tt';
}



=head2 add_headshot

=cut

sub add_headshot : Chained('person_object') : PathPart('add_headshot') : Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'person/add_headshot.tt';
}


=head2 add

=cut

sub add : Local {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'person/add.tt';
}

=head2 person_base

=cut

sub person_base : Chained('/') : PathPart('person') : CaptureArgs(0) {
    my ( $self, $c ) = @_;
    $c->stash( person_rs => $c->model('ProjectTaskToDoDB::Person') );
}

=head2 details

=cut

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

    if ( $c->user_exists ) {
        if (
               ( $c->check_user_roles('administrator') )
            || ( $c->check_user_roles('user_maintainer') )

          )
        {
            $c->stash->{authorized} = 1;
        }
	if ( $c->check_user_roles('administrator'))
		{
			$c->stash->{admin} = 1; 
		}
    }

    $c->stash->{template} = 'person/details.tt';
}

=head2 edit

=cut

sub edit : Chained('person_object') : PathPart('edit') : Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'person/edit.tt';
}


=head2 insert

=cut

sub insert : Local {
    my ( $self, $c ) = @_;

    if ( $c->user_exists ) {
        if (
               ( $c->check_user_roles('administrator') )
            || ( $c->check_user_roles('user_maintainer') )

          )
        {
            $c->stash->{authorized} = 1;
	    my $now = strftime "%Y-%m-%d %H:%M:%S", localtime();

            my $username           = $c->req->params->{username};
            my $full_name          = $c->req->params->{full_name};
            my $first_name         = $c->req->params->{first_name};
            my $last_name          = $c->req->params->{last_name};
            my $office_email       = $c->req->params->{office_email};
            my $office_phone       = $c->req->params->{office_phone};
            my $office_floor       = $c->req->params->{office_floor};
            my $office_department  = $c->req->params->{office_department};
            my $office_address1    = $c->req->params->{office_address1};
            my $office_address2    = $c->req->params->{office_address2};
            my $office_address3    = $c->req->params->{office_address3};
            my $office_city        = $c->req->params->{office_city};
            my $office_state       = $c->req->params->{office_state};
            my $office_postal_code = $c->req->params->{office_postal_code};
            my $office_country     = $c->req->params->{office_country};
            my $mobile_phone       = $c->req->params->{mobile_phone};
            my $skype_name         = $c->req->params->{skype_name};
            my $aim_name           = $c->req->params->{aim_name};
            my $admin_notes        = $c->req->params->{admin_notes};

            my $person = $c->model('ProjectTaskToDoDB::Person')->create(
                {
                    username          => $username,
		    registered        => $now,
                    full_name         => $full_name,
                    first_name        => $first_name,
                    last_name         => $last_name,
                    office_email      => $office_email,
                    office_phone      => $office_phone,
                    office_floor      => $office_floor,
                    office_department => $office_department,
                    office_address1   => $office_address1,
                    office_address2    => $office_address2,
                    office_address3    => $office_address3,
                    office_city        => $office_city,
                    office_state       => $office_state,
                    office_postal_code => $office_postal_code,
                    office_country     => $office_country,
                    mobile_phone       => $mobile_phone,
                    skype_name         => $skype_name,
                    aim_name           => $aim_name,
                    admin_notes        => $admin_notes,
                }
            );

            my $person_id = $person->id;

            $c->response->redirect( $c->uri_for("/person/$person_id") );
            $c->detach();

        }
        $c->flash->{message} = 'You are not authorized to create new People';
        $c->response->redirect( $c->uri_for("/") );
        $c->detach();
    }

    else {
        $c->flash->{message} = 'You are not authorized to create new People';
        $c->response->redirect( $c->uri_for("/") );
        $c->detach();

    }
}

=head2 list

=cut

sub list : Chained('person_base') : PathPart('list') : Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{persons} =
      [ $c->model('ProjectTaskToDoDB::Person')
          ->search( { active => 1 }, { order_by => 'full_name' } ) ];
    $c->stash->{template} = 'person/list.tt';
}

=head2 name_lookup

=cut

sub name_lookup : Local {
    my ( $self, $c ) = @_;
    my @results = ();
    my $cname   = $c->req->query_parameters->{term};

    my $persons =
      $c->model('ProjectTaskToDoDB::Person')
      ->search( { full_name => { -like => "\%$cname\%" }, active => '1' },
        { order_by => 'full_name' } );

    while ( my $cur_person = $persons->next ) {

  # my $label = $cur_person->full_name . " (" . $cur_person->office_email . ")";
        my $label = $cur_person->full_name . " (" . $cur_person->office_email . ")";
        push(
            @results,
            {
                id    => $cur_person->full_name,
                label => $label,
                value => $cur_person->id
            }
        );
    }
    $c->stash->{json} = \@results;
    $c->forward('View::JSON');
}

=head2 person_object

=cut

sub person_object : Chained('person_base') : PathPart('') : CaptureArgs(1) {
    my ( $self, $c, $id ) = @_;
    my $person = $c->stash->{person_rs}->find( { id => $id } );
    if ( !$person ) {
        $c->response->redirect( $c->uri_for("/") );
        $c->detach();
    }
    $c->stash( person => $person );
}

=head2 update

=cut
{'fraction_non_alphanumeric': 0.19465232597495394, 'fraction_numerical': 0.005565792937460043, 'mean_word_length': 2.048842008713598, 'pattern_counts': {'":': 0, '<': 15, '<?xml version=': 0, '>': 672, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4925888', 'n_tokens_mistral': 9511, 'n_tokens_neox': 9024, 'n_words': 1498}