view release on metacpan or  search on metacpan

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

package App::Office::Contacts::Donations::Database::Util;

use Moose;

extends 'App::Office::Contacts::Database::Util';

use namespace::autoclean;

our $VERSION = '1.10';

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

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

	return $self -> select_map('select name, id from currencies');

} # End of get_currencies.

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

sub get_currency_id_via_code
{
	my($self, $code) = @_;
	my($id) = $self -> db -> dbh -> selectrow_hashref('select id from currencies where code = ?', {}, $code);

	return $id ? $$id{'id'} : 0;

} # End of get_currency_id_via_code.

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

sub get_currency_code_via_id
{
	my($self, $id) = @_;
	my($name) = $self -> db -> dbh -> selectrow_hashref('select code from currencies where id = ?', {}, $id);

	return $$name{'code'};

} # End of get_currency_code_via_iid.

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

sub get_currency_name_via_id
{
	my($self, $id) = @_;
	my($name) = $self -> db -> dbh -> selectrow_hashref('select name from currencies where id = ?', {}, $id);

	return $$name{'name'};

} # End of get_currency_name_via_iid.

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

sub get_donation_motive_name_via_id
{
	my($self, $id) = @_;
	my($name) = $self -> db -> dbh -> selectrow_hashref('select name from donation_motives where id = ?', {}, $id);

	return $$name{'name'};

} # End of get_donation_motive_name_via_iid.

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

sub get_donation_project_name_via_id