Sorry I tried everything but I still can't get it to work.
Where should I add -
#Setup the language for GT::SQL.
local $GT::SQL::ERRORS->{ILLEGALVAL} = $self->_language('ADD_ILLEGALVAL');
local $GT::SQL::ERRORS->{UNIQUE} = $self->_language('ADD_UNIQUE');
local $GT::SQL::ERRORS->{NOTNULL} = $self->_language('ADD_NOTNULL');
At the begining of my custom perl module??
Or in my sub as per my previous example -
#Include the current tags
my $tags = GT::Template->tags;
my $error_msg=$tags->{msg};
#Setup the language for GT::SQL.
local $GT::SQL::ERRORS->{ILLEGALVAL} = $self->_language('ADD_ILLEGALVAL');
local $GT::SQL::ERRORS->{UNIQUE} = $self->_language('ADD_UNIQUE');
local $GT::SQL::ERRORS->{NOTNULL} = $self->_language('ADD_NOTNULL');
my $language_msg = ???????;
if ($error_msg =~ /\b$language_msg\b/) {
#do something
}
Do I use -
my $language_msg = $self->_language('ADD_NOTNULL');
for the ????????
Please explain a little more.
Thank you.
Simon.
Where should I add -
#Setup the language for GT::SQL.
local $GT::SQL::ERRORS->{ILLEGALVAL} = $self->_language('ADD_ILLEGALVAL');
local $GT::SQL::ERRORS->{UNIQUE} = $self->_language('ADD_UNIQUE');
local $GT::SQL::ERRORS->{NOTNULL} = $self->_language('ADD_NOTNULL');
At the begining of my custom perl module??
Or in my sub as per my previous example -
#Include the current tags
my $tags = GT::Template->tags;
my $error_msg=$tags->{msg};
#Setup the language for GT::SQL.
local $GT::SQL::ERRORS->{ILLEGALVAL} = $self->_language('ADD_ILLEGALVAL');
local $GT::SQL::ERRORS->{UNIQUE} = $self->_language('ADD_UNIQUE');
local $GT::SQL::ERRORS->{NOTNULL} = $self->_language('ADD_NOTNULL');
my $language_msg = ???????;
if ($error_msg =~ /\b$language_msg\b/) {
#do something
}
Do I use -
my $language_msg = $self->_language('ADD_NOTNULL');
for the ????????
Please explain a little more.
Thank you.
Simon.