App-Office-Contacts

 view release on metacpan or  search on metacpan

Changelog.ini  view on Meta::CPAN

Date=2010-09-22T10:00:00
Comments= <<EOT
- Replace sub script_name() with $self -> query -> url(-absolute => 1).
- Shift some code into a new module, App::Office::CMS::View::Search. This means a view
now hasa search.
- Chop subs generate_cookie(), generate_digest() and validate_post(). See V 1.09 below.
EOT

[V 1.14]
Date=2010-06-25T11:15:00
Comments=- Change all JSON::XS->new->encode(...) to JSON::XS->new->utf8->encode(...).

[V 1.13]
Date=2010-06-24T14:38:00
Comments= <<EOT
- Fix syntax error.
- Use 'select count(*) as count' rather than just 'select count(*)' to avoid
differences between Postgres and SQLite.
EOT

[V 1.12]

Changes  view on Meta::CPAN

	- Add missing pre-reqs to Build.PL and Makefile.PL.
	- Make Build.PL and Makefile.PL run scripts/copy.config.pl.

1.15  Wed Sep 22 10:00:00 2010
	- Replace sub script_name() with $self -> query -> url(-absolute => 1).
	- Shift some code into a new module, App::Office::CMS::View::Search. This means a view
	  now hasa search.
	- Chop subs generate_cookie(), generate_digest() and validate_post(). See V 1.09 below.

1.14  Fri Jun 25 11:15:00 2010
	- Change all JSON::XS->new->encode(...) to JSON::XS->new->utf8->encode(...).

1.13  Thu Jun 24 14:38:00 2010
	- Fix syntax error.
	- Use 'select count(*) as count' rather than just 'select count(*)' to avoid
	  differences between Postgres and SQLite.

1.12  Wed Jun 23 13:29:00 2010
	- Fix logic error in Create.pm.report_all_tables(). I was getting a list of
	  table names from a file in the distro, the same way I do when populating
	  tables at installation time. But, this file may not be available at run

META.json  view on Meta::CPAN

            "DBIx::Admin::CreateTable" : "2.04",
            "Data::Session" : "1.13",
            "Data::UUID" : "1.203",
            "Data::Verifier" : "0.31",
            "DateTime" : "0.55",
            "Digest::SHA" : "5.48",
            "File::Copy" : "2.14",
            "File::HomeDir" : "0.97",
            "FindBin" : "1.49",
            "HTML::Template" : "2.9",
            "JSON::XS" : "2.29",
            "Log::Handler::Output::DBI" : "0.12",
            "Moose" : "2.0604",
            "Moose::Role" : "2.0604",
            "Path::Class" : "0.23",
            "Perl6::Slurp" : "0.03",
            "Sub::Exporter" : "0.982",
            "namespace::autoclean" : "0.13",
            "parent" : "0.218",
            "strict" : "0",
            "warnings" : "0"

META.yml  view on Meta::CPAN

  DBIx::Simple: 1.35
  Data::Session: 1.13
  Data::Verifier: 0.31
  DateTime: 0.55
  Digest::SHA: 5.82
  Encode: 2.47
  File::Copy: 2.14
  File::ShareDir: 1.03
  FindBin: 1.49
  Getopt::Long: 2.38
  JSON::XS: 2.29
  Lingua::ENG::Inflect: 0.0577
  List::Compare: 0.37
  Log::Handler::Output::DBI: 0.12
  Moo: 1.001
  Moo::Role: 0
  Path::Iterator::Rule: 1.005
  Path::Tiny: 0.004
  Perl6::Slurp: 0.03
  Pod::Usage: 1.51
  Sub::Exporter: 0.982

Makefile.PL  view on Meta::CPAN

requires 'DBI'                       => 1.611;
requires 'DBIx::Admin::CreateTable'  => 2.04;
requires 'DBIx::Simple'              => 1.35;
requires 'Digest::SHA'               => 5.82;
requires 'Encode'                    => 2.47;
requires 'feature'                   => 1.20;
requires 'File::Copy'                => 2.14;
requires 'File::ShareDir'            => 1.03;
requires 'FindBin'                   => 1.49;
requires 'Getopt::Long'              => 2.38;
requires 'JSON::XS'                  => 2.29;
requires 'Lingua::ENG::Inflect'      => 0.0577;
requires 'List::Compare'             => 0.37;
requires 'Log::Handler::Output::DBI' => 0.12;
requires 'Moo'                       => 1.001000;
requires 'Moo::Role'                 => undef;
requires 'open'                      => 1.08;
requires 'parent'                    => 0.218;
requires 'Path::Iterator::Rule'      => 1.005;
requires 'Path::Tiny'                => 0.004;
requires 'Perl6::Slurp'              => 0.03;

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

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

		}
		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;

} # End of display.

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

1;