App-Office-Contacts
9 results

 view release on metacpan or  search on metacpan

htdocs/assets/templates/app/office/contacts/faq.html  view on Meta::CPAN 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html>

<head>

<title>Contacts</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<style type="text/css" title="currentStyle">
	@import "/assets/js/DataTables-1.9.4/media/css/demo_page.css";
	@import "/assets/js/DataTables-1.9.4/media/css/demo_table.css";
</style>

<link rel="stylesheet" type="text/css" href="/assets/css/app/office/contacts/homepage.css">

</head>

htdocs/assets/templates/app/office/contacts/homepage.tx  view on Meta::CPAN 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html>

<head>

<title>Contacts</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<style type="text/css" title="currentStyle">
	@import "<: $demo_page_css_url :>";
	@import "<: $demo_table_css_url :>";
</style>

<link rel="stylesheet" type="text/css" href="<: $fancy_table_css_url :>">
<link rel="stylesheet" type="text/css" href="https://ajax.googleapis.com/ajax/libs/jqueryui/1.10.3/themes/smoothness/jquery-ui.min.css">
<link rel="stylesheet" type="text/css" href="<: $homepage_css_url :>">

htdocs/assets/templates/app/office/contacts/standalone.page.tx  view on Meta::CPAN 

<html>
<head>
<title>Names</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
</head>
<body>
<table border = "1" summary = "Names">
: for $row -> $item {
<tr>
		: include "basic.column.tx" { column => $item };
</tr>
: }
</table>
</body>

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


our $VERSION = '2.04';

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

sub add
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => 'Controller::Exporter::Note.add()');

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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


} # End of cgiapp_init.

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

sub delete
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => 'Controller::Exporter::Note.delete()');

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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


} # End of get_notes.

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

sub update
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => 'Controller::Exporter::Note.update()');

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

our $VERSION = '2.04';

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

sub add_occupation
{
	my($self)      = @_;
	my($person_id) = $self -> query -> param('person_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Occupation.add_occupation($person_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of add_occupation.

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

sub add_staff
{
	my($self)            = @_;
	my($organization_id) = $self -> query -> param('organization_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Occupation.add_staff($organization_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

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

sub delete_occupation
{
	my($self)            = @_;
	my($occupation_id)   = $self -> query -> param('occupation_id');
	my($organization_id) = $self -> query -> param('organization_id');
	my($person_id)       = $self -> query -> param('person_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Occupation.delete_occupation($occupation_id, $organization_id, $person_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

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

sub delete_staff
{
	my($self)            = @_;
	my($occupation_id)   = $self -> query -> param('occupation_id');
	my($organization_id) = $self -> query -> param('organization_id');
	my($person_id)       = $self -> query -> param('person_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Occupation.delete_staff($occupation_id, $organization_id, $person_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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


our $VERSION = '2.04';

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

sub add
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => 'Controller::Exporter::Org.add()');

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of cgiapp_init.

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

sub delete
{
	my($self)            = @_;
	my($organization_id) = $self -> query -> param('organization_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Org.delete($organization_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of delete.

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

sub display
{
	my($self)            = @_;
	my($organization_id) = $self -> query -> param('organization_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Org.display($organization_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of display.

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

sub get_staff
{
	my($self)            = @_;
	my($organization_id) = $self -> query -> param('organization_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Org.get_staff($organization_id, ...)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of get_staff.

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

sub update
{
	my($self)            = @_;
	my($organization_id) = $self -> query -> param('organization_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Org.update($organization_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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


our $VERSION = '2.04';

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

sub add
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => 'Controller::Exporter::Person.add()');

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of cgiapp_init.

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

sub delete
{
	my($self)      = @_;
	my($person_id) = $self -> query -> param('person_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Person.delete($person_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of delete.

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

sub display
{
	my($self)      = @_;
	my($person_id) = $self -> query -> param('person_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Person.display($person_id)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of display.

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

sub get_occupations
{
	my($self)      = @_;
	my($person_id) = $self -> query -> param('person_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Person.get_occupations($person_id, ...)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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

} # End of get_occupations.

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

sub update
{
	my($self)      = @_;
	my($person_id) = $self -> query -> param('person_id');

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$self -> log(debug => "Controller::Exporter::Person.update($person_id, ...)");

		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,

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


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

sub display
{
	my($self) = @_;

	$self -> log(debug => "Controller::Exporter::Report.display()");

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response, $result);

	try
	{
		$result = App::Office::Contacts::Util::Validator -> new
		(
			app    => $self,
			config => $self -> param('config'),
			db     => $self -> param('db'),

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


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

sub display
{
	my($self)   = @_;
	my($key)    = $self -> query -> param('search_name') || '';
	my($uc_key) = encode('utf-8', uc decode('utf-8', $key) );

	$self -> param('db') -> simple -> begin_work;
	$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');

	my($response);

	try
	{
		$self -> log(debug => "Controller::Exporter::Search.display($uc_key)");

		# Here we get:
		# o Organizations whose names match.
		# o People whose names match.



( run in 0.320 second using v1.01-cache-2.11-cpan-4d50c553e7e )