view release on metacpan or  search on metacpan

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

		{
			# Remove the organization's id from the session.
			# JS will delete the 'update' tab displaying this organization's data.

			$self -> param('db') -> session -> clear('organization_id');
			$self -> param('db') -> organization -> delete($organization_id);

			$response = $self -> param('db') -> library -> build_ok_xml
				(
					$self -> query -> param('name')
				);
		}
		else
		{
			$response = 'Error: Validation failed';
		}

		$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 = 'Error: Software error';
	};

	$self -> log(debug => 'Run mode response: ' . ($response =~ /^Error/ ? $response : 'OK') );

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

} # 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,
			config => $self -> param('config'),
			db     => $self -> param('db'),
			query  => $self -> query,
		) -> validate_organization_id;

		if ($result -> success)
		{
			$self -> param('db') -> session -> param(organization_id => $organization_id);

	        my($orgs)  = $self -> param('db') -> organization -> get_organization_list($self -> param('user_id'), $organization_id);
			my($staff) = $self -> param('db') -> organization -> get_organizations_staff($organization_id);
			my($notes) = $self -> param('db') -> note -> get_notes('organizations', $organization_id);
			$response  = $self -> param('view') -> organization -> build_tab_html($$orgs[0], $staff, $notes);
			$response  = $self -> param('db') -> library -> build_ok_xml($response);
		}
		else
		{
			$response = 'Error: Validation failed';
		}

		$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 = 'Error: Software error';
	};

	$self -> log(debug => 'Run mode response: ' . ($response =~ /^Error/ ? $response : 'OK') );

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

} # 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,
			config => $self -> param('config'),
			db     => $self -> param('db'),
			query  => $self -> query,
		) -> validate_organization_id;

		if ($result -> success)
		{
			my($staff) = $self -> param('db') -> organization -> get_organizations_staff($organization_id);
			$response  = $self -> param('view') -> occupation -> format_staff($organization_id, $staff);
			$response  = $self -> param('db') -> library -> build_ok_xml($response);
		}
		else
		{
			$response = $self -> param('db') -> library -> build_error_xml
			(
				'Cannot get list of staff',
				$result,
			);
		}

		$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 = $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
	{
		$self -> log(debug => "Controller::Exporter::Org.update($organization_id)");

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

		if ($result -> success)