email_image::get_priv_email (public)

 email_image::get_priv_email -user_id user_id \
    [ -subsite_id subsite_id ]

Defined in packages/acs-subsite/tcl/email-image-procs.tcl

Returns the priv_email field of the user from the users table.

Switches:

-user_id (required)

-subsite_id (optional)

Testcases:

No testcase defined.

Source code:

    set priv_level [db_string get_private_email {}]
    if {$priv_level eq "5"} {
        if {$subsite_id eq ""} {
            if {[ns_conn isconnected]} {
                set subsite_id [ad_conn subsite_id]
            } else {
                set subsite_id [lindex [apm_package_ids_from_key -package_key acs-subsite -mounted] 0]
            }
        }
        set priv_level [email_image::get_priv_email_from_parameter -subsite_id $subsite_id]
    }
    return $priv_level

Generic XQL file:

<fullquery name="email_image::get_priv_email.get_private_email">
    <querytext>
     
	  select priv_email
          from users		
          where user_id = :user_id
    
      </querytext>
</fullquery>

packages/acs-subsite/tcl/email-image-procs.xql

PostgreSQL XQL file:

packages/acs-subsite/tcl/email-image-procs-postgresql.xql

Oracle XQL file:

packages/acs-subsite/tcl/email-image-procs-oracle.xql