sub doTranslation {

    my $text_ref    = shift || return;

    $$text_ref =~ s/(LANG_[A-Z,0-9,_]*)/&App::lh()->maketext(uc($1))/eig;

    return;
}