#============================================================
# MyMultiLanguageApplication
#============================================================
package MyMultiLanguageApplication;
use MyApplication;
@ISA = qw(MyApplication);

use strict;
use SQLDB;

#==========================================
# 大域変数
#==========================================
my $DefaultSendmail = '/usr/sbin/sendmail';
my $SourceCharCode  = Jcode::getcode('月火水木金土日　');

#============================================================
#　静的関数
#============================================================

#============================================================
#　変数等取得関数
#============================================================

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
BEGIN { }

sub new
{
	my ($module, $app) = @_;
	my $this = {};
	bless $this;
#	$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});
	my @key = keys %messages;
	return $messages{$key[0]};
}

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

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

sub mlPrint
{
	my ($this, %messages) = @_;
#	$this->PrintRawHTML($messages{$lang});
	$this->print($this->mlExistVal($this->{Language}, %messages));
	return 0;
}

1;