Business-AU-Ledger

 view release on metacpan or  search on metacpan

lib/Business/AU/Ledger.pm  view on Meta::CPAN

	my($self) = @_;

	$self -> log(__PACKAGE__ . '. Leaving tab_set');

	return $self -> view -> build_tab_set;

} # End of tab_set.

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

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

	$self -> log(__PACKAGE__ . '. Leaving update_context');

	return $self -> view -> context -> update;

} # End of update_context.

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

lib/Business/AU/Ledger/Util/Validate.pm  view on Meta::CPAN

		},
		optional_regexp => qr/^(?:bank_amount|comment|gst_amount|gst_code|reference|tx_detail)_\d+$/,
		required        => [qw/month rm sid/],
		required_regexp => qr/^(?:amount|category_code|day|submit)_\d+$/,
	};

} # End of receipt_profile.

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

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

	return Data::FormValidator -> check($self -> query, $self -> update_context_profile);

} # End of update_context.

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

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

	return
	{
		constraint_methods =>
		{
			rm          => sub {return pop eq 'update_context' ? 1 : 0},
			start_month => sub {return validate_month(pop)},
			start_year  => sub {return validate_year(pop)},

lib/Business/AU/Ledger/View/Context.pm  view on Meta::CPAN

	}

	$self -> log(__PACKAGE__ . '. Leaving process');

	return JSON::XS -> new -> encode($output);

} # End of process.

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

sub update
{
	my($self)   = @_;
	my($input)  = Business::AU::Ledger::Util::Validate -> new(db => $self -> db, query => $self -> query) -> update_context;
	my($output) = $self -> process($input);

	$self -> log(__PACKAGE__ . '. Leaving update');

	return $output;

} # End of update.

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