view release on metacpan or  search on metacpan

lib/App/Office/Contacts/Controller/AutoComplete.pm  view on Meta::CPAN

package App::Office::Contacts::Controller::AutoComplete;

use parent 'App::Office::Contacts::Controller';
use strict;
use utf8;
use warnings;
use warnings  qw(FATAL utf8); # Fatalize encoding glitches.

use JSON::XS;

use Try::Tiny;

# We don't use Moo because we isa CGI::Snapp.

our $VERSION = '2.04';

# -----------------------------------------------

sub display
{
	my($self) = @_;
	my($type) = $self -> query -> param('type') || '';
	my($name) = $self -> query -> param('term') || ''; # jQuery forces use of 'term'.

	$self -> param('db') -> simple -> begin_work;

	my($response);

	try
	{
		$self -> log(debug => "Controller::AutoComplete.display($type, $name)");

		if ($type eq 'occ_title')
		{
			$response = $self -> param('db') -> autocomplete -> occupation_title($name);
		}
		elsif ($type eq 'org_name')
		{
			$response = $self -> param('db') -> autocomplete -> organization_name($name);
		}
		elsif ($type eq 'person_name')
		{
			$response = $self -> param('db') -> autocomplete -> person_name($name);
		}
		else
		{
			die "Error: Cannot run autocomplete on '$type'\n";
		}

		$self -> log(debug => "Controller::AutoComplete.display(...) matches: " . scalar @$response);

		# Warning: Do not use ... new -> utf8 -> encode...

		$response = JSON::XS -> new -> encode($response);

		$self -> param('db') -> simple -> commit;
	}
	catch
	{
		my($error) = $_;

		$self -> param('db') -> simple -> rollback;

		# Try to log the error despite the error.

		$self -> log(error => "System error: $error");

		$response = JSON::XS -> new -> encode([$self -> param('system_error')]);
	};

	return $response;