sub do_some_database_action
{
	my $self = shift;
	my $cgi_app = shift;
	
	my $q = $cgi_app -> query();
	my $session = $cgi_app->param('session');
	
	my $result = '';
	my $me = "$self->do_some_some_database_action()"; # Used in result messages for debugging
	

	#---------------------------------------------------------------------------
	# Do Something with query parameters like Data::FormValidator
	#---------------------------------------------------------------------------
	my $result = My::OtherModule->validate_something($cgi_app);
	return $result if ($result);
	
	#---------------------------------------------------------------------------
	# Do Something if successful
	#---------------------------------------------------------------------------
	
	#---------------------------------------------------------------------------
	# Finish up
	#---------------------------------------------------------------------------
	$result = 'success' if (!$result);
	return $result;
}