package My_UserPaymenntFunctions;

use strict;
use Data::Dumper;

#--------------------------------------------------------------------------------------------------
sub new
{
  my $pclass = shift;
  my $pdbhMain = shift;
  my $pGLOBALS = shift;
  my $self = {
    dbh=>$pdbhMain,
    GLOBALS=>$pGLOBALS,
    logger=>Log::Log4perl->get_logger()
  };
  bless $self, $pclass;
  $self->{logger}->info("::DBVersions::Instance Started");
  return $self;
}

#--------------------------------------------------------------------------------------------------
# @function prototype
# @author AUTOAPI
# @description Prototype
# @params api_action
# action_content>account_hash
# @params_description
# api_action - The name of the function   
# account_hash - the account hash, that was issued to you
# @return 
# status
# error_description
# message_level
# @return_description 
# status - Status of the Call (True=Success/False=Faiure)
# error_description - Error description if any
# message_level - The message level, warning or critical
# @document_class both
sub prototype($)
{
  my $this      = shift;
  my ($xml)     = @_;
  my $extXml    = "";
  my $cmd       = "";
  my $rxml      = "";
  my $frxml     = "";
  my $statement = "";
  my $ustatement = "";
  my $sth;
  my $sth2;
  my $sth3;
  my $sth4;
  my @row;
  my @row2;
  
  $frxml .= "<\?xml version=\"1.0\"\?>";
  $frxml .= "\n<api>";
  $frxml .= "\n<status>true</status>";
  $frxml .= "$rxml\n";
  $frxml .= "\n</api>";
  return($frxml);    
}


1;