acs_mail_lite::section_ref_of (private)

 acs_mail_lite::section_ref_of section_id

Defined in packages/acs-mail-lite/tcl/email-inbound-procs.tcl

Returns section_ref represented by section_id. Section_id is an integer. Section_ref has format of counting numbers separated by dot. First used here by ns_imap body and adopted for general email part refs. Defaults to empty string (top level reference and a log warning) if not found.

Parameters:
section_id

Partial Call Graph (max 5 caller/called nodes):
%3 test_acs_mail_lite_inbound_procs_check acs_mail_lite_inbound_procs_check (test acs-mail-lite) acs_mail_lite::section_ref_of acs_mail_lite::section_ref_of test_acs_mail_lite_inbound_procs_check->acs_mail_lite::section_ref_of db_0or1row db_0or1row (public) acs_mail_lite::section_ref_of->db_0or1row acs_mail_lite::inbound_queue_pull_one acs_mail_lite::inbound_queue_pull_one (private) acs_mail_lite::inbound_queue_pull_one->acs_mail_lite::section_ref_of

Testcases:
acs_mail_lite_inbound_procs_check
Source code:
    set section_ref ""
    set exists_p 0
    if { [string is wideinteger -strict $section_id] } {
        if { $section_id eq "-1" } {
            set exists_p 1
        } else {

            set exists_p [db_0or1row acs_mail_lite_ie_section_ref_map_r_id1 {
                select section_ref
                from acs_mail_lite_ie_section_ref_map
                where section_id=:section_id
            } ]
        }
    }
    if { !$exists_p } {
        ns_log Warning "acs_mail_lite::section_ref_of '${section_id}' not found."
    }
    return $section_ref
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-mail-lite/tcl/email-inbound-procs.xql

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