lang::util::translator_mode_p (public)

 lang::util::translator_mode_p

Defined in packages/acs-lang/tcl/lang-util-procs.tcl

Whether translator mode is enabled for this session or not. Translator mode will cause all non-translated messages to appear as a link to a page where the message can be translated, instead of the default "not translated" message.

Returns:
1 if translator mode is enabled, 0 otherwise. Returns 0 if there is no HTTP connection.
Author:
Lars Pind <lars@collaboraid.biz>
Created:
October 24, 2002

See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 Class ::xowiki::formfield::FormField Class ::xowiki::formfield::FormField (public) lang::util::translator_mode_p lang::util::translator_mode_p Class ::xowiki::formfield::FormField->lang::util::translator_mode_p adp_parse_ad_conn_file adp_parse_ad_conn_file (public) adp_parse_ad_conn_file->lang::util::translator_mode_p lang::message::lookup lang::message::lookup (public) lang::message::lookup->lang::util::translator_mode_p packages/acs-bootstrap-installer/installer/www/blank-master.tcl packages/acs-bootstrap-installer/ installer/www/blank-master.tcl packages/acs-bootstrap-installer/installer/www/blank-master.tcl->lang::util::translator_mode_p packages/acs-developer-support/lib/toolbar.tcl packages/acs-developer-support/ lib/toolbar.tcl packages/acs-developer-support/lib/toolbar.tcl->lang::util::translator_mode_p

Testcases:
No testcase defined.
Source code:
    if {[info exists ::acs_translator_mode_p]} {
        return $::acs_translator_mode_p
    }
    if { [ns_conn isconnected] } {
        # There is an HTTP connection - return the client property
        set ::acs_translator_mode_p [ad_get_client_property -default 0 acs-lang translator_mode_p]
        if {$::acs_translator_mode_p eq ""} {
            set ::acs_translator_mode_p 0
        }
    } else {
        # No HTTP connection
        set ::acs_translator_mode_p 0
    }
    return $::acs_translator_mode_p
Generic XQL file:
packages/acs-lang/tcl/lang-util-procs.xql

PostgreSQL XQL file:
packages/acs-lang/tcl/lang-util-procs-postgresql.xql

Oracle XQL file:
packages/acs-lang/tcl/lang-util-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: