package MyMultiLanguageApplication
@ISA = qw()

sub BEGIN

sub new
my ($module, $app) = @_;
#	$this->SUPER::new(
return $this;

sub DESTROY
my $this = shift;
#	$this->SUPER::DESTROY(

sub MergeName
my ($App, $FirstName, $LastName) = @_;
return Utils::MergeName($FirstName, $LastName);

sub SplitName
my ($App, $Name) = @_;
return Utils::SplitName($Name);

sub mlExistVal
my ($this, $lang, %messages) = @_;
return $messages{$lang} if(defined $messages{$lang});
return $messages{$key[0]};

sub mlText
my ($this, %messages) = @_;
return $this->mlExistVal($this->{Language}, %messages);

sub mlPrintRawHTML
my ($this, %messages) = @_;
return 0;

sub mlPrint
my ($this, %messages) = @_;
return 0;