foreach my $par ($template->param()) {
    if (uc($template->query(name => $par)) eq 'VAR') {
    
        if (uc($par) =~ /^LANG_.*$/) {
            $template->param($par => &App::lh()->maketext(uc($par)));
        }
        
    }
}