App-Office-Contacts

 view release on metacpan or  search on metacpan

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

	{
		$result = $#$notes >= 0 ? $self -> param('view') -> note -> format_organization_notes($entity_id, $notes) : '';
	}

	return $result;

} # 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
	{

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

		$response = $self -> param('system_error');
	};

	return encode('utf-8', $response);

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

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

		$response = $self -> param('system_error');
	};

	return encode('utf-8', $response);

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

lib/App/Office/Contacts/Database/EmailAddress.pm  view on Meta::CPAN

	$$email{email_address_id} = $id;
	$$email{person_id}        = $$person{id};

	$self -> db -> simple -> insert($table_name, $email)
		|| die $self -> db -> simple -> error;

} # End of save_email_address_for_person.

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

sub update_email_address_type
{
	my($self, $creator_id, $address) = @_;

	$self -> db -> logger -> log(debug => "Database::EmailAddress.update_email_address_type($creator_id, ...)");

	my($table_name) = 'email_addresses';

	$self -> db -> simple -> update($table_name, {email_address_type_id => $$address{type_id} }, {id => $$address{address_id} })
		|| die $self -> db -> simple -> error;

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

	else
	{
	 	$self -> db -> simple -> update($table_name, $note, {id => $$note{id} })
			|| die $self -> db -> simple -> error;
	}

} # End of save_note_record.

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

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

	$self -> db -> logger -> log(debug => "Database::Note.update($$note{id})");
	$self -> db -> simple -> update('notes', $note, {id => $$note{id} })
		|| die $self -> db -> simple -> error;

	return 'Updated note';

} # End of update.

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

			# Number has appeared, so add new number.

			$self -> db -> phone_number -> save_phone_number_for_organization($context, $organization, $new_number{$number});
		}
	}

} # End of save_organization_transaction.

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

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

	$self -> db -> logger -> log(debug => 'Database::Org.update(...)');

	my($result);

	# Special code for id == 1.

	if ($$organization{id} <= 1)

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

			# Number has appeared, so add new number.

			$self -> db -> phone_number -> save_phone_number_for_person($context, $person, $new_number{$number});
		}
	}

} # End of save_person_transaction.

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

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

	$self -> db -> logger -> log(debug => "Database::Person.update($$person{name})");

	$self -> save_person_transaction('update', $person);

} # End of update.

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

lib/App/Office/Contacts/Database/PhoneNumber.pm  view on Meta::CPAN

	$$phone{person_id}       = $$person{id};
	$$phone{phone_number_id} = $id;

	$self -> db -> simple -> insert($table_name, $phone)
		|| die $self -> db -> simple -> error;

} # End of save_phone_number_for_person.

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

sub update_phone_number_type
{
	my($self, $creator_id, $number) = @_;

	$self -> db -> logger -> log(debug => "Database::PhoneNumber.update_phone_number_type($creator_id, ...)");

	my($table_name) = 'phone_numbers';

	$self -> db -> simple -> update($table_name, {phone_number_type_id => $$number{type_id} }, {id => $$number{number_id} })
		|| die $self -> db -> simple -> error;

lib/App/Office/Contacts/Util/Validator.pm  view on Meta::CPAN

	my($result) = $verifier -> verify({$self -> query -> Vars});

	$self -> log_result($result);

	return $result;

} # End of report.

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

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

	$self -> app -> log(debug => 'Util::Validator.update_note()');

	my($max_note_length) = ${$self -> config}{max_note_length};
	my($verifier)        = Data::Verifier -> new
	(
		filters => [qw(trim)],
		profile =>

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

{
	my($self, $user_id, $result) = @_;

	$self -> db -> logger -> log(debug => "View::Note.delete($user_id, ...)");
	$self -> db -> note -> delete($result -> get_value('note_id') );

} # End of delete.

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

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

	$self -> db -> logger -> log(debug => "View::Note.update($user_id, ...)");

	# Force the user_id into the person's record, so it is available elsewhere.
	# Note: This is the user_id of the person logged on.

	my($note)           = {};
	$$note{creator_id}  = $user_id;

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

			}
		}
	}

	return [@row];

} # End of format_search_result.

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

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

	$self -> db -> logger -> log(debug => "View::Organization.update($user_id, ...)");

	# Force the user_id into the person's record, so it is available elsewhere.
	# Note: This is the user_id of the person logged on.

	my($organization)          = {};
	$$organization{creator_id} = $user_id;

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

			}
		}
	}

	return [@row];

} # End of format_search_result.

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

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

	$self -> db -> logger -> log(debug => "View::Person.update($user_id, ...)");

	# Force the user_id into the person's record, so it is available elsewhere.
	# Note: This is the user_id of the person logged on.

	my($person)          = {};
	$$person{creator_id} = $user_id;

 view all matches for this distribution
 view release on metacpan -  search on metacpan